VİSUAL BASİC { YILAN OYUNU }

bobo25 · 2007-02-27T19:31:24.0000000+03:00

BU PROGRAMDA YILANIN NORMAL YILAN OYUNU GİBİ İLERLEYİP AŞAĞI,YUKARI HAREKET ETMESİ VE YEMEK YEDİKÇE BÜYÜMESİNİ YAPMAM GEREKİYOR.. YARIDMCI OLURMUSUNUZ KÜÇÜK 1-2 EKLENTİ YAPARSANIZ MİNNETTAR KALIRIM TEŞEKKÜRLER.. --------------------------------- dizayn kısmında bir nesneniz ve dört adet butonunuz olmalı .. Dim yon As String Dim surat As Integer Private Sub btn_asagi_Click() yon = "asagi" End Sub Private Sub btn_sag_Click() yon = "sag" End Sub Private Sub btn_sol_Click() yon = "sol" End Sub Private Sub btn_yukari_Click() yon = "yukari" End Sub Private Sub Form_Load() yon = "sag" surat = 70 End Sub Private Sub Timer1_Timer() Select Case yon Case "sol": If yilan.Left yilan.Left = Form1.ScaleWidth Else yilan.Left = yilan.Left - surat End If Case "sag": If yilan.Left >= Form1.ScaleWidth Then yilan.Left = (-yilan.Width) Else yilan.Left = yilan.Left + surat End If Case "yukari": If yilan.Top yilan.Top = Form1.ScaleHeight Else yilan.Top = yilan.Top - surat End If Case "asagi": If yilan.Top >= Form1.ScaleHeight Then yilan.Top = (-yilan.Width) Else yilan.Top = yilan.Top + surat End If End Select End Sub

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

Haribo Fruitbons Ananas Jelly Poşet 1000 gr https://www.amazon.com.tr/dp/B0DQV8KCDL 18 sa. önce paylaşıldı

COSORI 5.5 L Yağsız Fritöz, 11 Programlı Sıcak Hava Fritözü, İspanyolca 100 Tarif, Sıcak Tutma Fonksiyonlu, LED Dokunmatik Ekran, Zamanlayıcı, 1700 W, Kırmızı https://www.amazon.com.tr/dp/B0832WY12L 4 yıl önce paylaşıldı

Auhma Ahv-01 Kablosuz Hava Üfleyici 15000pa Vakum Gücü 3 Kademeli Hız Araç Süpürgesi Fiyatları ve Özellikleri https://www.n11.com/urun/auhma-ahv-01-kablosuz-hava-ufleyici-15000pa-vakum-gucu-3-kademeli-hiz-arac-supurgesi-74478522?magaza=7go 4 gün önce paylaşıldı