Araçlar : 1) iki tane Shape ekliyoruz bunlar araba olucak bu Shape adını Shape1 ve Shape2 yapıyoruz. 2) Timer ekliyoruz Left 5280 Top 3120 olarak değiştiriyoruz. 3) Command buton ekliyoruz Aşağıda vermiş olduğum kodu ekliyoruz bu kadar.
Private Sub Command1_Click() Timer1.Interval = 10 Timer2.Interval = 10
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer() Randomize g = Rnd(100) * 100 Shape1.Move Shape1.Left + g If Shape1.Left >= 8000 Then MsgBox ("kazanan pembe araba") End End If End Sub
Private Sub Timer2_Timer() Randomize f = Rnd(100) * 100 Shape2.Move Shape2.Left + f If Shape2.Left >= 8000 Then MsgBox ("kazanan beyaz araba") End End If
End Sub
WRECH
Detaylı Mesaj
Bilgileri
Mesaj No: 71
Mesajın Ana Konusu:Araba Yarışı Kotları !!! VB
Gönderilme Tarihi:Perş. Kas. 27, 2008 11:48 pm
Bu Mesajı Şikayet Et:
Araba Yarışı Kotları !!! VB
1 sayfadaki 1 sayfası
1 -
Arama Yapmadan Konu Açmayın. 2 - Mesaj Yazarken Başlıklar Konularla Alakalı Olmalır. 3 - Konularımızı Alakalı Başlıklar Altında Açalım. 4 - Aynı Konuya Ard Arda Mesaj Atmayın(flood Yapmayın) 5 - Bu Kurullara Uymamakta Israr Edenler Siteden Belirli Bir Süreliğine Yada Tamamen Uzaklaştırılır.
Anasayfa 
Latest images 
] 
Perş. Kas. 27, 2008 11:48 pm
WRECH
