http://ultrashare.net/hosting/fl/79a9f9db62 [Derlenmiş Exe]
http://ultrashare.net/hosting/fl/5a4b6e362d [Derlenmiş Proje]
Derlenmiş projeyle oynamanızı tafsiye ederşm cunku,Shapelerı tam yerlerıne koymanız gerek
1 command buton captionu[basla yapın]
2 timer
2 shape ARaba şeklinde olsun iclerini boyayın
Hala Tavsiyem DErlenmıs projedir.
Kod:
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
__________________
Basit Bir Araba yarışı :)
Programlama0 Mesaj
●28 Görüntüleme
- ReadBull.net
- Programlama ve Yazılım
- Programlama
- Basit Bir Araba yarışı :)