Basit sayı bulmaca oyunu

Şifre bulma oyunu. Belirli bir şifre belirledikten sonra scroll barlar ile sayıları değiştireceğiz

Şifre bulma oyunu. Belirli bir şifre belirledikten sonra scroll barlar ile sayıları değiştireceğiz



Formumuzda bir adet button 3 adet label ve 3 adet scrollbar olmalı kolay gelsin ;)

Burada gördüğünüz gibi kodlarımız bunlar belki okunmaz diye ben sizlere kod olarak da vereyim:


Private Sub Command1_Click()

If Label1.Caption = "6" And Label2.Caption = "5" And Label3.Caption = "1" Then

MsgBox "nasil buldun cok zor bi sifreydi xD", vbInformation, "Tebrikler"

End If

End Sub



Private Sub HScvolume_Change()

Label1.Caption = Trim$(Str$(HScvolume.Value))

End Sub



Private Sub HScvolume2_Change()

Label2.Caption = Trim$(Str$(HScvolume2.Value))

End Sub



Private Sub HScvolume3_Change()

Label3.Caption = Trim$(Str$(HScvolume3.Value))

End Sub



Bu kodları yazdığınızda çalışacağını umuyorum ve formumuz şöyle görünmeli:


  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Program için sağol ama VB.Net te geçmelisin bence kodlar eski programda yazıldığı için pek işime yaramadı...
yorumun icin sagol ben acikcasi bu kadar ilgi beklemiyordum 400 kusur kisi yarim okul eder :d
Teşekkürler :)
işinize yaradıysa ne mutlu :)

Yukarı Git