VB 6.0 ile bir araba yarışı programı yapmak için aşağıdaki adımları izleyebilirsiniz:
Adım 1: Yeni bir proje oluşturun
İlk olarak, VB 6.0’da yeni bir proje oluşturun ve adına “CarRace” gibi bir isim verin.
Adım 2: Arayüzü tasarlayın
İkinci adımda, programınızın arayüzünü tasarlayın. Bunun için bir Form ekleyin ve formun boyutunu 800 x 600 olarak ayarlayın. Form üzerine bir çizgi çizin ve çizgiyi yolda bir çizgi olarak düşünün. Ayrıca, form üzerinde bir araba resmi ekleyin. Bu resmi aracın görüntüsü olarak kullanacaksınız.
Adım 3: Kodlama
Kodlama aşamasına geçmeden önce, kullanacağımız değişkenleri tanımlamak için Global Değişkenleri tanımlayalım:
vb
Dim CarTop As Integer
Dim Opponent1Left As Integer
Dim Opponent2Left As Integer
Dim Opponent3Left As Integer
Dim FinishLine As Integer
Dim Finish As Boolean
Dim Speed As Integer
CarTop, arabamızın formdaki yüksekliğini temsil ederken, Opponent1Left, Opponent2Left ve Opponent3Left, rakip arabaların formdaki konumunu temsil eder. FinishLine, yarışın bitiş çizgisinin nerede olduğunu belirler. Finish, yarışın bittiğini belirlemek için kullanılır. Speed, yarışın hızını temsil eder.
Şimdi, yarışı başlatmak için cmdStart_Click işlevini oluşturalım. Bu işlev, arabamızın yarışa başlaması için gereken kodları içerecek:
vb
Private Sub cmdStart_Click()
CarTop = 450
Opponent1Left = 112
Opponent2Left = 300
Opponent3Left = 500
FinishLine = 0
Finish = False
Speed = 5
lblFinish.Visible = False
lblOpponent1.Left = Opponent1Left
lblOpponent2.Left = Opponent2Left
lblOpponent3.Left = Opponent3Left
lblCar.Top = CarTop
tmrCarRace.Enabled = True
End Sub
Burada, CarTop ve rakip araçların başlangıç pozisyonlarını ayarlıyoruz. FinishLine de sıfıra ayarlanıyor, çünkü yarış henüz başlamadı. Speed, yarış hızını ayarlar. lblFinish.Visible False yaparak, bitiş çizgisinin ilk başta görünmemesini sağlarız.
tmrCarRace.Enabled = True satırı, yarışın başlaması için zamanlayıcıyı başlatır.
Ayrıca, akip arabaların hareket etmesi için bir zamanlayıcı (tmrOpponentCars) ve arabamızın hareket etmesi için bir zamanlayıcı (tmrCar) eklememiz gerekiyor. Bu zamanlayıcılar sayesinde arabaların hareketleri, belirli aralıklarla güncellenecektir.
İlk olarak, Form_Load olayına aşağıdaki kodu ekleyerek tmrOpponentCars zamanlayıcısını başlatalım:
vb
Private Sub Form_Load()
‘tmrOpponentCars zamanlayıcısını başlat
tmrOpponentCars.Enabled = True
End Sub
Daha sonr
a, tmrOpponentCars zamanlayıcısının Interval özelliğini 100 milisaniye olarak ayarlayalım. Bu, rakip arabaların her 100 milisaniyede bir hareket edeceği anlamına gelir.
vb
Private Sub tmrOpponentCars_Timer()
‘Rakip arabaların hareket etmesi için kodlar buraya yazılır
End Sub
Ayrıca, arabamızın hareket etmesi için tmrCar zamanlayıcısını da oluşturmalıyız. Aşağıdaki kod, tmrCar zamanlayıcısını başlatır ve arabamızın hareketini her 10 milisaniyede bir günceller:
vb
Private Sub Form_Load()
‘tmrCar zamanlayıcısını başlat
tmrCar.Enabled = True
End Sub
Private Sub tmrCar_Timer()
‘Arabamızın hareket etmesi için kodlar buraya yazılır
End Sub
Bu kodları ekleyerek arabaların hareket etmesi için gerekli zamanlayıcıları oluşturmuş olduk. Artık arabaların hareket etmesi için gerekli kodları yazabiliriz.