Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Linkleri görebilmek & kisaca forumdan daha yararli bir şekilde yararlanmak için üye olunuz

<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>

Linkleri görebilmek & kisaca forumdan daha yararli bir şekilde yararlanmak için üye olunuz

<<<<<<<<<<<<< CS TR >>>>>>>>>>>>>>>>>
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR
Would you like to react to this message? Create an account in a few clicks or log in to continue.

Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR

Sxe 10.2 CS 1.5 & 1.6 Wall Hack Sxe Hack , Sxe Hileleri ,Sxe 10.2 Hileleri , Full - Torrent Oyunlar,Tüm Oyunlar , Visual Basic Dersleri,
 
AnasayfaAramaLatest imagesKayıt OlGiriş yapAşk Ölçer Yapalim Torpilli

 

 Aşk Ölçer Yapalim

Aşağa gitmek 
YazarMesaj
fRkn*
♥ CS -TR Kurucusu♥
♥ CS -TR Kurucusu♥
fRkn*


Mesaj Sayısı : 345
Rep Puanı : 1103
Kayıt tarihi : 23/07/10
Nerden : İzmir

Aşk Ölçer Yapalim Empty
MesajKonu: Aşk Ölçer Yapalim   Aşk Ölçer Yapalim Icon_minitimePtsi Tem. 26, 2010 9:41 pm

Formumuza bir adet "label" ekleyip "0-6 arasında bir rakam gir bakalım" diye yazıyoruz.

Text kutusuna kurbanımız rakamlarını girecek Aşk Ölçer Yapalim Icon_cheers
Bir tane "command buton" ekliyoruz ve adını da "tıkla bakalım sonucu görelim" gibi bir şey yazıyoruz.
Kodlarımız ise aşağıdaki gibi olacak:

Kod:


Private Sub Command1_Click()

a = Text1.Text
a = Val(a)
If a > 5 Then
MsgBox "LÜTFEN 5 DEN BÜYÜK SAYI GİRME...!", vbCritical
End If
If a = 1 Then
MsgBox "DEMEK BENİ SEVİYORUM DİYE HEP KANDIRDIN:)"
ElseIf a = 2 Then
MsgBox "DEMEK O SÖZLER HEP YALANDI HIMMM YAZIKLAR OLSUN SANA:)"
ElseIf a = 3 Then
MsgBox "SON ZAMANLARDA Bİ TUHAF OLMUŞTUN ZATEN"
ElseIf a = 4 Then
MsgBox "ARTIK BENİMLE GÖRÜŞMEK İSTEMİYORSUN İYİ KEYFİN BİLİR:)"
ElseIf a = 5 Then
MsgBox "DOĞRU RAKAM BU İDİ HIMM DEMEK BENİ SEVİYORSUN:)", vbInformation 
End If

End Sub
Sayfa başına dön Aşağa gitmek
http://csturkey.forumpro.org
 
Aşk Ölçer Yapalim
Sayfa başına dön 
1 sayfadaki 1 sayfası

Bu forumun müsaadesi var:Bu forumdaki mesajlara cevap veremezsiniz
Sxe 10.2 İndir , Sxe 10.2 WallHack İndir , Cs 1.6 & 1.5 Sxe 10.2 Wall Hack Download - CS TR  :: Visual Basic :: Visual Basic Anlatimli Hazır Kodlar-
Buraya geçin: