Ara 4 2010
Html tag replace to Asp merhaba arkadaşalr sizlere ençok kullanılan html tag replace komutundan bir örnek paylaşmak istedim kod gayet açık. t = Replace(t,” “,chr(9)) t = Replace(t,” “,” “) t = Replace(t,”<“,”<“) t = Replace(t,”>”,”>”) t = Replace(t,”<br>”,Chr(13)) yazitext = t t = Replace(t,chr(9),” “) t = Replace(t,” “,” “) t = […]
Kas 30 2010
Javascript ile div veya span gizlemek. <script language=javascript type=’text/javascript’> function hidediv() { if (document.getElementById) { // DOM3 = IE5, NS6 document.getElementById(‘hideShow’).style.visibility = ‘hidden’; } else { if (document.layers) { // Netscape 4 document.hideShow.visibility = ‘hidden’; } else { // IE 4 document.all.hideShow.style.visibility = ‘hidden’; } } } function showdiv() { if (document.getElementById) { // DOM3 […]
Kas 18 2010
Install Gnome Elegant Theme Pack Using PPA on Ubuntu
sudo add-apt-repository ppa:elegant-gnome/ppa
sudo apt-get update && sudo apt-get upgrade
sudo apt-get install elegant-gnome
Kas 17 2010
# Create own window instead of using desktop (required in nautilus) own_window yes own_window_type override own_window_transparent yes own_window_hints undecorated,below,sticky,skip_taskbar,skip_pager # Create own window instead of using desktop (required in nautilus) own_window yes own_window_type desktop own_window_hints below My Conky script background yes use_xft yes xftfont Sans:size=8 xftalpha 1 update_interval 1.0 total_run_times 0 # Create own window […]
Kas 16 2010
Private Declare Sub Sleep Lib “kernel32″ (ByVal dwMilliseconds As Long) ‘ add to button1 ‘ Command onclick event Sleep (1000) ” mili second – mili saniye MsgBox (‘hasan beklemede’)
Kas 16 2010
Vb VisualBasic 6.0 Computer ProcessList Example
Private Sub Command1_Click()
‘ add to listbox1 and button1
Dim colProcessList
Dim objprocess
Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “)
For Each objprocess In colProcessList
List1.AddItem “Process Name=” & objprocess.Name
List1.AddItem “Caption=” & objprocess.Caption
Next
Set colProcessList = Nothing
Set objprocess = Nothing
End Sub
Private Sub Command1_Click()’ add to listbox1 and button1Dim colProcessListDim objprocess Set colProcessList = GetObject(“Winmgmts:”).ExecQuery(“Select * from Win32_Process “)
For Each objprocess In colProcessList List1.AddItem “Process Name=” & objprocess.Name List1.AddItem “Caption=” & objprocess.CaptionNext Set colProcessList = NothingSet objprocess = NothingEnd Sub
Kas 10 2010
Ubuntu paket kurulumu için terminalden aşağıdaki komutu girmeniz yeterli olacaktır.
$ sudo dpkg -i package.deb
Kas 9 2010
// 10 elemanlı bir tamsayı dizisinin sıralanması
// hızlı sıralama
// a=(8, 3, 12, 9, 16, 30, 25, 1, 29, 2)
program en_buyuk;
var
a:array[1..10] of integer;
i,b,k,m:integer;
begin
for i:=1 to 10 do begin
write(i,’ .elemani gir..’);readln(a[i]);
end;
repeat
k:=1;
for i:=1 to 9 do begin
if(a[i]>a[i+1]) then begin
b:=a[i];a[i]:=a[i+1];a[i+1]:=b;k:=0;
end;
end;
until(k=1);
for i:=1 to 10 do
writeln(a[i]);
readln;
end.
Ara 13 2010
Asus Waveface 2010
Asus Waveface 2010
Devamı
By Burhan KARADERE • Concept - Konsept • 0 • Tags: waveface