- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Visual Basic'te küçük ve eğlenceli bir araba yarışı yapacağız. Bakalım hangi araba birinci gelecek?
2 tane textbox ,1 tane command button ,3 tane line ,1 tane timer kullanmamız gerek!
Formumuza bunları yerleştirdikten sonra alta vermiş olduğum kodu yazınız!!!
Kod:
Timer1 İçine Private Sub Timer1_Timer()Randomizea = Int(Rnd(300) * 100)b = Int(Rnd(300) * 100)Text1.Left = Text1.Left + aText2.Left = Text2.Left + bIf Text1.Left >= 5520 Thena = MsgBox("A Arabası kazandı")EndEnd IfIf Text2.Left >= 5520 Thena = MsgBox("B Arabası Kazandı")EndEnd IfEnd SubCommand1 Buttonunun içinedePrivate Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 25End Sub
2 tane textbox ,1 tane command button ,3 tane line ,1 tane timer kullanmamız gerek!
Formumuza bunları yerleştirdikten sonra alta vermiş olduğum kodu yazınız!!!
Kod:
Timer1 İçine Private Sub Timer1_Timer()Randomizea = Int(Rnd(300) * 100)b = Int(Rnd(300) * 100)Text1.Left = Text1.Left + aText2.Left = Text2.Left + bIf Text1.Left >= 5520 Thena = MsgBox("A Arabası kazandı")EndEnd IfIf Text2.Left >= 5520 Thena = MsgBox("B Arabası Kazandı")EndEnd IfEnd SubCommand1 Buttonunun içinedePrivate Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 25End Sub
