- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
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:::::::>>>
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:
Kod:
Dim yon As StringDim 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)
Kod:
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
Kod:
surat = 200 'siz ne kadar isterseniz turkmmo.com
Şimdi gelelim Timer nesnemize asıl olay burda başlıyor. Timerin içine:
Kod:
Select Case yonCase "sol":If nesne.Left <= (-nesne.Width) Thennesne.Left = Form1.ScaleWidthElsenesne.Left = nesne.Left - suratEnd IfCase "sag":If nesne.Left >= Form1.ScaleWidth Thennesne.Left = (-nesne.Width)Elsenesne.Left = nesne.Left + suratEnd IfCase "yukari":If nesne.Top <= (-nesne.Width) Thennesne.Top = Form1.ScaleHeightElsenesne.Top = nesne.Top - suratEnd IfCase "asagi":If nesne.Top >= Form1.ScaleHeight Thennesne.Top = (-nesne.Width)Elsenesne.Top = nesne.Top + suratEnd IfEnd 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
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:
Kod:
Dim yon As StringDim 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)
Kod:
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
Kod:
surat = 200 'siz ne kadar isterseniz turkmmo.com
Şimdi gelelim Timer nesnemize asıl olay burda başlıyor. Timerin içine:
Kod:
Select Case yonCase "sol":If nesne.Left <= (-nesne.Width) Thennesne.Left = Form1.ScaleWidthElsenesne.Left = nesne.Left - suratEnd IfCase "sag":If nesne.Left >= Form1.ScaleWidth Thennesne.Left = (-nesne.Width)Elsenesne.Left = nesne.Left + suratEnd IfCase "yukari":If nesne.Top <= (-nesne.Width) Thennesne.Top = Form1.ScaleHeightElsenesne.Top = nesne.Top - suratEnd IfCase "asagi":If nesne.Top >= Form1.ScaleHeight Thennesne.Top = (-nesne.Width)Elsenesne.Top = nesne.Top + suratEnd IfEnd 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