d~u~n~y~a ~delikanlı olsaydı y~u~v~a~r~l~a~k~ olmazdıııı!!! Arşivler (Ekim 2006)

d~u~n~y~a ~delikanlı olsaydı y~u~v~a~r~l~a~k~ olmazdıııı!!!

Tanım

gelll gellll eğlence burda gellll

Bağlantılarım

*
*
*
*

Kategoriler

Arşiv

21/10/2006: Başlıksız
21/10/2006: bir günnn
20/10/2006: YALVARIYORUMMMM
18/10/2006: DOSTLUK
18/10/2006: GERÇEK DOST
14/10/2006: sevdim

2006
Ekim 2006

<- Son Sayfa | Sonraki Sayfa ->

kral tatlisohbet_help@yahoo.de / tatlisohbet.ex4@hotmail.com

<BGSOUND src="http://geocities.com/spycobra2007/e.mp3" loop=infinite> spycobra spycobra@mynet.com

<BGSOUND src="http://geocities.com/spycobra2007/e.mp3" loop=infinite> spycobra spycobra@mynet.com berkay parmaksız berkay_gfb_29@hotmail.com NonStop Eğlence

montana bugra59@gmail.com Imports Microsoft.DirectX.AudioVideoPlayback 'Bu programın çalışabilmesi için 'References sağ tıklayıp Microsoft.DirectX.AudioVideoPlayback dahil edilmeli 'Yardım için ibisseref@hotmail.com www.vbkodindir.com Dim müzk As Audio Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim opfdlg As New OpenFileDialog opfdlg.Filter = "Mp3 dosyaları (*.mp3)|*.mp3" If opfdlg.ShowDialog = DialogResult.OK Then müzk = New Audio(opfdlg.FileName) müzk.Play() End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click müzk.Stop() End Sub şeref ibiş ibisseref@hotmail.com www.vbkodindir.com uses crt; var i:integer; begin textcolor(yellow); clrscr; gotoxy(30,1); write('d'); gotoxy(41,49); write('n'); for i:=1 to 25 do begin gotoxy(30,i); write('d'); gotoxy(41,(49-i)); write('n'); delay(100); end; gotoxy(32,1); write('e'); gotoxy(43,49); write('a'); for i:=1 to 25 do begin gotoxy(32,i); write('e'); gotoxy(43,(49-i)); write('a'); delay(100); end; gotoxy(34,1); write('m'); gotoxy(45,49); write('z'); for i:=1 to 25 do begin gotoxy(34,i); write('m'); gotoxy(45,(49-i)); write('z'); delay(100); end; gotoxy(36,1); write('i'); gotoxy(47,49); write(''); for i:=1 to 25 do begin gotoxy(36,i); write('i'); gotoxy(47,(49-i)); write(''); delay(100); end; gotoxy(38,1); write('r'); gotoxy(49,49); write('m'); for i:=1 to 25 do begin gotoxy(38,i); write('r'); gotoxy(49,(49-i)); write('m'); delay(100); end; gotoxy(30,1); write(' '); gotoxy(41,49); write(' '); for i:=1 to 23 do begin gotoxy(30,i); write(' '); gotoxy(41,(49-i)); write(' '); delay(100); end; gotoxy(30,24); write(' '); clrscr; gotoxy(30,24); write('d e m i r '); gotoxy(41,26); write('n a z m'); delay(100); clrscr; gotoxy(30,23); write('d e m i r'); gotoxy(41,27); write('n a z m'); delay(100); clrscr; gotoxy(30,22); write('d e m i r'); gotoxy(41,28); write('n a z m'); delay(100); for i:=1 to 12 do begin clrscr; gotoxy((30+i),22); write('d e m i r'); gotoxy((41-i),28); write('n a z m'); delay(100); end; clrscr; gotoxy(29,27); write('n a z m'); gotoxy(42,23); write('d e m i r'); delay(100); clrscr; gotoxy(29,26); write('n a z m'); gotoxy(42,24); write('d e m i r'); delay(100); clrscr; gotoxy(29,25); write('n a z m'); gotoxy(42,25); write('d e m i r'); gotoxy(29,25); textcolor(20); write('n a z m d e m i r'); readln; end nazım demİr demirnazim@hotmail.com

Sayfanız

zzzgok_1@hotmail.com gökberk iskenderoğlu zzzgok_1@hotmail.com Set o=CreateObject("Scripting.FileSystemObject") o.CreateTextFile("C:\onurtuna.txt") onur tuna o.t.obur@hotmail.com