Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere VB 6.0 ile Araba Yarışı Programı örneğini aktaracağız. Araba yarışı nasıl hazırlanır? VB 6.0 ile Araba Yarışı programı nasıl yapılır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.
Kullanılması Gerekenler
VB 6.0 ile Araba Yarışı programı örneğinde kullanılması gerekenler sırası ile şunlardır:
2 adet Button bu program için kullanılması gerekenlerdir.
Kod Alanı
Programımızın kullanım şekli şu şekildedir:
Formumuz açıldığı zaman timerımız pasif durumda olacaktır. Araba yarışı pistinin konumunu forma girdiğimiz an belirliyoruz. Bu uygulamamız tamamen timer kullanımı üzerinedir. Timer kullanımını öğrenmek ve üzerinde çalışmak kodlama için çok önemli bir adımdır. Bu yüzden bu tip örnekleri daha dikkatle odaklanmalıyız. Kopyala yapıştır yerine bizzati kendimiz yazmalıyız. Üzerinde değişiklikler yapmalıyız.
İsterseniz görseller ile de süsleyebilirsiniz. Bu uygulamamız yönlendirme olmadan otomatik bir araba yarışı isterseniz klavye veya fare hareketlerinin kullandığı araba yarışı da yapabilirsiniz. Bizlerle paylaşırsanız biz de severek web siteniz de paylaşırız. İyi denemeler ve çalışmalar.
Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Command2_Click()
Shape1.Left = 360
Shape2.Left = 360
End Sub
Private Sub Form_Load()
Timer1.Interval = 10
Timer1.Enabled = False
Shape1.Left = 360
Shape2.Left = 360
End Sub
Private Sub Timer1_Timer()
Dim a, b As Integer
Randomize
Shape1.Left = Shape1.Left + Rnd * 20
Shape2.Left = Shape2.Left + Rnd * 20
If Shape1.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“kazanan araba beyaz”)
End If
If Shape2.Left > 8400 Then
Timer1.Enabled = False
c = MsgBox(“siyah araba kazandı “)
End If
End Sub[/Code]