• Üyelik paylaşımı yasaktır! Hesabınızı başkalarına vermeyin! Hesap paylaşımları yasaklama ile sonuçlanacaktır.

Klavye Tuşları İle Nesne Yönlendirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Dark Hack

Onaylı Üye
Katılım
8 May 2016
Mesajlar
208
Beğeni Puanı
1
[font='Titillium Web', sans-serif]'Klavye tuşları ile nesne yönlendirme[/FONT]
[font='Titillium Web', sans-serif]'1 adet shape nesnesi ekleyerek ismini nesne olarak değiştirin.[/FONT]


[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] yon [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]String[/FONT]

[font='Titillium Web', sans-serif]Dim[/FONT][font='Titillium Web', sans-serif] surat [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_KeyDown(KeyCode [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif], Shift [/FONT][font='Titillium Web', sans-serif]As[/FONT][font='Titillium Web', sans-serif]Integer[/FONT][font='Titillium Web', sans-serif])[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyDown [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"asagi"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyUp [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"yukari"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyLeft [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"sol"[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] KeyCode = vbKeyRight [/FONT][font='Titillium Web', sans-serif]Then[/FONT][font='Titillium Web', sans-serif] yon = [/FONT][font='Titillium Web', sans-serif]"sag"[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]
[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Form_Load()[/FONT]
[font='Titillium Web', sans-serif]surat = 200[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]

[font='Titillium Web', sans-serif]Private[/FONT][font='Titillium Web', sans-serif]Sub[/FONT][font='Titillium Web', sans-serif] Timer1_Timer()[/FONT]
[font='Titillium Web', sans-serif]Select[/FONT][font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif] yon[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"sol"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] <= (-nesne.Width) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = Form1.ScaleWidth[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] - surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"sag"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] >= Form1.ScaleWidth [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = (-nesne.Width)[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] = nesne.[/FONT][font='Titillium Web', sans-serif]Left[/FONT][font='Titillium Web', sans-serif] + surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"yukari"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.top <= (-nesne.Width) [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.top = Form1.ScaleHeight[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.top = nesne.top - surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]Case[/FONT][font='Titillium Web', sans-serif]"asagi"[/FONT][font='Titillium Web', sans-serif]:[/FONT]
[font='Titillium Web', sans-serif]If[/FONT][font='Titillium Web', sans-serif] nesne.top >= Form1.ScaleHeight [/FONT][font='Titillium Web', sans-serif]Then[/FONT]
[font='Titillium Web', sans-serif]nesne.top = (-nesne.Width)[/FONT]
[font='Titillium Web', sans-serif]Else[/FONT]
[font='Titillium Web', sans-serif]nesne.top = nesne.top + surat[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]If[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Select[/FONT]
[font='Titillium Web', sans-serif]End[/FONT][font='Titillium Web', sans-serif]Sub[/FONT]​
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...


Üst Alt