WebOzeL RekLam-BiLgiSayar İnternet ALanı - Yön tuşlarıyla shapemizi hareket ettirelim
 

Anasayfa
Ziyaretçi defteri
Tasarım Yaptırma
İletişim
Free UpLoad
Reklam Nedir
Reklamın Önemi
Reklamın Etiketleri
Reklamın Dili
Reklam Neden Yapılır?
Reklam içeriği
RekLam Ver
hitinizi arttırmanın yolları
Siteni Google Ekle
Hakkımızda
Kısayol Tuşları
Layers Katmanlar
Photoshopta Zombi Efekti
Photoshopta Tırnak Uzatma
Saç Gibi Hassas Bölgelerin Kesimi
Yaşlandırma Efekti - İnsanları Yaşlandırın
Resimde bir objeyi ön plana çıkarma
Korku Filmi Efekti
Nesnelere Işık Efekti Verme
Resimin Kenarını Kıvırma
Resime Ölü Efekti Verme
Site Traffic
Görev Yöneticisi
Dreamweaver DersLeri
Firework DersLeri
Premiere eLements DersLeri
FLash DersLeri
AudaCity DersLeri
DNS AyarLarı
Format Atma
Simgelerin Arka Planını Kaldır
Hata Veren DLL DosyaLarı
Windows Vista Forma Atma
kLasörLere ÖzeL SimgeLer Koymak
Pc Zamanı Geri aLma
Xp Mavi Ekran HataLarı
TekTuş BiLgisayarı Kapat
Hata Kodu ve KaynakLarı
kLavye TeknikLeri
Yararlı SiteLer
Photoshop (Nedir? - Nasıl kullanılır?)
Photoshop Tarihçesi
Photoshop Araç Kutusu (Toolbox)
İpucu
Genel Bakış
Genel Kurallar
Örnekler
Açıklama
EvLiLik YasaLarı
TC No SorguLama
SinemaLarda Bu Hafta
GünLük Burç
iL iL Türkiyem
WebTasarim 1
Web Tasarim 2
WebTasarim 3
WebTasarim 4
WebTasarim 5
WebTasarim 6
Murphy Savaş YasaLarı
Murphy iş KanunLarı
Türkçe Müzik DinLe
WebTasarim 7
angelina jolie saat
site içi arama motoru
ask testi
banttan kayan yazı
Canlı Tv
HTML KodLarı Burada
Karışık NickLer
GüzeL Msn NickLeri
AnLamLı Msn NickLeri
Beğenilen Msn Nickleri
Yeni NickLer
Msn Nick Arşiv
Harika Msn NickLeri
Karizma Msn NickLeri
Süper Msn NickLeri
EtkiLeyici Msn NickLeri
AyrıLık NickLeri
Nefret NickLeri
AnLamLı NickLer 2
Komik Kısa NickLer
Kod İstek Burda !!!
Facebook'ta Paylaş Kodu
Twitter'da Paylaş Butonu
WebTasarim 8
Ziyaretçi BiLgiLeri
Kendi Setup Dosyanı oLuştur
İstediğimiz saatte bilgisayar kapansın
Butona Kısayol Ekleme
Saatin Yanında Simge Oluşturalım(System Traya ikon ekleme)
Visual Basic 2008 İle Görev Yöneticisi Yapımı
Vb.NET 'te forma Mozilla Browser eklemek
Timer Kullanmadan Progressbar Yapımı
Yön tuşlarıyla shapemizi hareket ettirelim
Mouse ile formumuza çizim yapalım
Labelimizdeki yazıları aşağı doğru yazdıralım
VisuaL Basic KODLARI
Alt Bölüm Kodu
Ziplediğiniz Oyun-Program vs. PartLara Bölme(ResimLi AnLatım)
Sahadan Maç Sonucu
İddaa programı
Puan Durumu
Araba resimleri
Aşk Ölçer
Başa Dön
BJK Haberleri
Dini Bilgiler
Tk Adres aLmak
Regedit AyarLarı
Smiley Değiştirme
Vista Programsız Disk (HDD) Bölme Yeni ve Bölüm Oluşturma [Resimli]
KLasöre Arka pLan Resmi Koymak - ResimLi AnLatım
Renk KodLarı
CanLı Destek
Sitene Canlı Destek Ekle
Banner
Facebook İfade
Oyun Oyna
RenkLi Yazi Kodu
Kod Editörü
tasarim yap
Murphy KanunLarı
Photoshop DersLeri
Avatar Yapımı
Animation Yapımı
Photoshop ile Meyvelere Surat EkLeme ResimLi Anlatım
Photoshop Hareketli banner Yapımı
FiLm Arşivi
Yeni sayfanın başlığı

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

=> Sen de ücretsiz bir internet sitesi kurmak ister misin? O zaman burayı tıkla! <=