HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!
Hiç branşım değil, ama Visual Basic'i zevkli ve yavaş yavaş öğreniyorum. Ve en iyi öğrenmenin de eğlenerek öğrenmek olduğunu biliyorum. O yüzden sizlere basit bir aşk ölçer yaptım. İsterseniz tırnak içindeki metinleri kafanıza göre değiştirebilirsiniz. Bu da sizin yaratıcı gücünüze kalmış.
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:
Kolay gelsin.
NOT: Yazıları editleyip geliştirebilirsiniz
...
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 SubKolay gelsin.
NOT: Yazıları editleyip geliştirebilirsiniz
...
