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

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,
 
AnasayfaSSSAramaÜye ListesiKullanıcı GruplarıKayıt OlGiriş yap

Paylaş | 
 

 Aşk Ölçer Yapalim

Önceki başlık Sonraki başlık Aşağa gitmek 
YazarMesaj
fRkn*
♥ CS -TR Kurucusu♥
♥ CS -TR Kurucusu♥
avatar

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

MesajKonu: Aşk Ölçer Yapalim   Ptsi 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
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
Kullanıcı profilini gör http://csturkey.forumpro.org
 
Aşk Ölçer Yapalim
Önceki başlık Sonraki başlık 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: