Yön tuşlarıyla shapemizi hareket ettirelim

Pek kullanılmayan shape nesnesini biz oyun haline getirelim :)

Evet arkadaşlar bu dersimizde aslında çoğunuzun pek kullanmadığı toolbox'ta bulunan shape nesnesini klavyenin yön tuşlarıyla hareket ettirelim.

Forma Hazırlık:::::::>>>

[*] Forma 1 adet Shape ekleyin. Adını(name kısmını) nesne koyun
[*] 1 Adet Timer ekleyin Enabled True İnterval 1 olsun

Kodlarımıza gelelim::::::>>>
Formun boş yerine (Form Load kısmına değil)yon ve surat adında iki değişken tanıtalım:


Dim yon As String

Dim surat As Integer



Formumuzun Form_Keydown özelliğini kullanarak yönleri tarif etmek için Formun boş kısmına tıklayıp(Form Load Kısmına değil)


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyDown Then yon = "asagi"

If KeyCode = vbKeyUp Then yon = "yukari"

If KeyCode = vbKeyLeft Then yon = "sol"

If KeyCode = vbKeyRight Then yon = "sag"

End Sub



Evet yönlerimizi tanıttık Form_Load kısmına gelip "surat"ı tanıtalım


surat = 200 'siz ne kadar isterseniz Sanalkurs.Net



Şimdi gelelim Timer nesnemize asıl olay burda başlıyor. Timerin içine:


Select Case yon

Case "sol":

If nesne.Left <= (-nesne.Width) Then

nesne.Left = Form1.ScaleWidth

Else

nesne.Left = nesne.Left - surat

End If

Case "sag":

If nesne.Left >= Form1.ScaleWidth Then

nesne.Left = (-nesne.Width)

Else

nesne.Left = nesne.Left + surat

End If

Case "yukari":

If nesne.Top <= (-nesne.Width) Then

nesne.Top = Form1.ScaleHeight

Else

nesne.Top = nesne.Top - surat

End If

Case "asagi":

If nesne.Top >= Form1.ScaleHeight Then

nesne.Top = (-nesne.Width)

Else

nesne.Top = nesne.Top + surat

End If

End Select

,

Yapacağımız her şey bu kadar basit. Sonra çalıştırın ve shape nesnesi ile yaptığınız basit bir oyunu görün burdan yola çkarak formun genişliğine geldiğinde oyun bitsin komutu verebilirsiniz. Y ada bir kaç engel koyup oyunu geliştirebilirsiniz ve göreceksiniz basit bir olaydan profesyonelce tasarımlar yapacaksınız...

Kolay Gelsin
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

• 10 yıl önce
Merhaba üstad. bir konuda yardımınızı isteyecektim. ben visual basic 6.0 da bir veritabanı hazırladım. herşeyi tamam. acssess bağlantısını adodc ile yaptım.kaydet kayıt sil vs.. hepsi tamam yalnızca ara butonunda terslik var soyada göre arama yaptırıyorum fakat aynı soyaddan birden fazla olduğunda sadece birini gösteriyor. yazdığım kod şöyle:Adodc1.Recordset.Find "soyad='" + InputBox("arnacak kişi:", "Ara") + "'". bu arada yeni öğreniyorum programı. eğer yardım edersen sevinirim. aslında aynı kodu tc no suna göre düzelemeye çalıştım hata veriyor. şimdiden teşekkür ederim.
• 10 yıl önce
Merhaba üstad. bir konuda yardımınızı isteyecektim. ben visual basic 6.0 da bir veritabanı hazırladım. herşeyi tamam. acssess bağlantısını adodc ile yaptım.kaydet kayıt sil vs.. hepsi tamam yalnızca ara butonunda terslik var soyada göre arama yaptırıyorum fakat aynı soyaddan birden fazla olduğunda sadece birini gösteriyor. yazdığım kod şöyle:Adodc1.Recordset.Find "soyad='" + InputBox("arnacak kişi:", "Ara") + "'". bu arada yeni öğreniyorum programı. eğer yardım edersen sevinirim. aslında aynı kodu tc no suna göre düzelemeye çalıştım hata veriyor. şimdiden teşekkür ederim.
• 10 yıl önce
[b]Öncelikle yardım isteklerini forum bölümüne yapınız....[/b]Tc kimlik numarayla aramak istiyorsan bir de şöyle dene[code]On Error Resume Next Dim aranan, ara Adodc1.Refresh aranan = Text5 ara = "Tc_Kimlik='" & aranan & "'" Adodc1.Recordset.Find ara[/code] Umarım yardımcı olmuşumdur...
• 10 yıl önce
maalesef olmadı:( kod sadece formda yenileme yapıyor... bu arada burda yeniyim nerye yazmam gerektiğini bilemedim. ilgine yeşekkür ederim... ya benim bunu çözmem lazım:(((

Yukarı Git