Giriş yapmadınız. Lütfen giriş yapın yada kayıt olun.
Ya ben bugün çok soru sordum ama. Bi nesneyi hareketlendirmek için klavyedek yön tuşlarını nasıl kullanabilirim. Basit bi oyun yapacağımda. Bitirince burada yayınlamak istiyorum. Bide ascii kodları nasıl kullanbilirim mesela "a" harfine basıldıysa şunu yap falan gibi 
Şimdiden saolun
Sorunun iki parcasi biribiriyle ilgili.
1) "a" harfina basildiysa ...
* Form.KeyPreview = .T.
*Form.Keypress
lparameters nKeyCode, nShiftAltCtrl
if inlist(m.nKeyCode, asc('a'), asc('A") ) && kucuk veya buyuk a
* Eger 'a' tusunun normal islevi engellencekse
NODEFAULT
* sunu yap ...
endif
2) Yon tuslarila harket
* Objenin keypressi
Lparameters nKeyCode, nShiftAltCtrl
If Inlist(m.nKeyCode, 4,19,5,24)
Nodefault
Do Case
Case m.nKeyCode = 4 && sag
This.Left = This.Left + 10
Case m.nKeyCode = 19 && sol
This.Left = This.Left - 10
Case m.nKeyCode = 5 && yukari
This.Top = This.Top - 10
Case m.nKeyCode = 24 && asagi
This.Top = This.Top + 10
Endcase
Endif
Ornek:
Public oForm
oForm = Createobject('myForm')
oForm.Show
Define Class myForm As Form
Add Object myBox1 As myTextBox With Top = 10,Left = 10, Value = 'K1'
Add Object myBox2 As myTextBox With Top = 10,Left = 50, Value = 'K2'
Add Object myBox3 As myTextBox With Top = 50,Left = 10, Value = 'K3'
Add Object myBox4 As myTextBox With Top = 50,Left = 50, Value = 'K4'
Enddefine
Define Class myTextBox As TextBox
Width = 30
Procedure KeyPress
Lparameters nKeyCode, nShiftAltCtrl
If Inlist(m.nKeyCode, 4,19,5,24)
Nodefault
Do Case
Case m.nKeyCode = 4 && sag
This.Left = This.Left + 10
Case m.nKeyCode = 19 && sol
This.Left = This.Left - 10
Case m.nKeyCode = 5 && yukari
This.Top = This.Top - 10
Case m.nKeyCode = 24 && asagi
This.Top = This.Top + 10
Endcase
Endif
Endproc
Enddefine
Saol abi çok işime yaradı.. Başladım yapmaya oyunu
Galiba senin oyunu zaten yapmisti Calvin Hsia:) FoxScrammble gibi birsey ara emin degilim.