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 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 