الموضوع : لدي سورس كود Directx Input Vb.net
اود ربط الفاره مع الكيبورد ولم افهم ماهو المطلوب لعمل ذالك
وهذا السورس كود مع العلم الي بالاحمر هو الخطاء ويوجد بالمرفقه صوره بها الخطأ
----
ارجو التعديل على السورس كود رجاءأً او المساعده فأنا لا افقه البرمجة كثيراً
اود ربط الفاره مع الكيبورد ولم افهم ماهو المطلوب لعمل ذالك
وهذا السورس كود مع العلم الي بالاحمر هو الخطاء ويوجد بالمرفقه صوره بها الخطأ
----
Imports Microsoft.DirectX
Imports Microsoft.DirectX.DirectInput
Module Direct_Input
Private devkey As Device = Nothing
Private devmouse As Device = Nothing
Friend cameraz As Single = 1600
Friend camerax As Single = 0
Friend cameray As Single = 500
Friend targetz As Single = 1599
Friend targetx As Single = 0
Friend targety As Single = 500
Friend Sub InitializeInput()
devkey = New Device(SystemGuid.Keyboard) ' إنشاء أداةَ لوحةِ المفاتيح
devkey.Acquire()
UpdateKey()
devmouse = New Device(SystemGuid.Mouse)
devmouse.Acquire()
UpdateMouse()
End Sub
Private Sub UpdateKey()
' لمعرفة اي مفتاح مضغوط
Dim PressedKeys As String = "Using GetPressedKeys(): " + vbCr + vbLf
Dim k As Key
For Each k In devkey.GetPressedKeys
Next k
Select Case k
Case Key.Escape
End
Case Key.DownArrow
cameraz += 5
targetz += 5
Case Key.UpArrow
cameraz -= 5
targetz -= 5
Case Key.LeftArrow
camerax += 5
targetx += 5
Case Key.RightArrow
camerax += 5
targetx += 5
End Select
End Sub
Private Sub UpdateMouse()
Dim MouseMove As String = "Using GetMouseMove(): " + vbCr + vbLf
Dim m As Mouse
For Each m In devmouse.CurrentMouseState
Next m
Select Case m
Case Mouse.YAxis
cameray += 5
targety += 5
Case Mouse.YAxis
cameray -= 5
targety -= 5
Case Mouse.XAxis
camerax += 5
targetx += 5
Case Mouse.XAxis
camerax -= 5
targetx -= 5
End Select
End Sub
End Module
Imports Microsoft.DirectX.DirectInput
Module Direct_Input
Private devkey As Device = Nothing
Private devmouse As Device = Nothing
Friend cameraz As Single = 1600
Friend camerax As Single = 0
Friend cameray As Single = 500
Friend targetz As Single = 1599
Friend targetx As Single = 0
Friend targety As Single = 500
Friend Sub InitializeInput()
devkey = New Device(SystemGuid.Keyboard) ' إنشاء أداةَ لوحةِ المفاتيح
devkey.Acquire()
UpdateKey()
devmouse = New Device(SystemGuid.Mouse)
devmouse.Acquire()
UpdateMouse()
End Sub
Private Sub UpdateKey()
' لمعرفة اي مفتاح مضغوط
Dim PressedKeys As String = "Using GetPressedKeys(): " + vbCr + vbLf
Dim k As Key
For Each k In devkey.GetPressedKeys
Next k
Select Case k
Case Key.Escape
End
Case Key.DownArrow
cameraz += 5
targetz += 5
Case Key.UpArrow
cameraz -= 5
targetz -= 5
Case Key.LeftArrow
camerax += 5
targetx += 5
Case Key.RightArrow
camerax += 5
targetx += 5
End Select
End Sub
Private Sub UpdateMouse()
Dim MouseMove As String = "Using GetMouseMove(): " + vbCr + vbLf
Dim m As Mouse
For Each m In devmouse.CurrentMouseState
Next m
Select Case m
Case Mouse.YAxis
cameray += 5
targety += 5
Case Mouse.YAxis
cameray -= 5
targety -= 5
Case Mouse.XAxis
camerax += 5
targetx += 5
Case Mouse.XAxis
camerax -= 5
targetx -= 5
End Select
End Sub
End Module
ارجو التعديل على السورس كود رجاءأً او المساعده فأنا لا افقه البرمجة كثيراً
تعليق