ferrari 35

ضروري لأصحاب الخبره في DirectX Input

7 ردود في هذا الموضوع

ما الحل قمت بعمل .. Device Mouse ولا تعمل وهذا السور كود كاملا

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) ' إنشاء أداة ماوس

devkey.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 MoveMouse As String = "Using GetCurrentMouse(): " + vbCr + vbLf

Dim Msx As DirectInput.MouseState = Mouse.CurrentMouseState

Dim Msx As Mouse

For Each Msx In devmouse.CurrentMouseState

Next Ms

Select Case Msx

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

شكرا اخي على الموضوع بس انا بدي خدمتك بموضوع تاني هل ممكن اني اعمل باي برمجية برنامج لما اضغط على الزر مثلا 1 يفتحلي الفيديوالي انامخزنتة من اول على الجهاز وبدي الرد ضروري اذا ممكن وياريت اذا فيك تبعتلي اياة على الاميل راح ابعتلك اميلي برسالة خاصة اذا كان ممكن تساعدني بالبرنامج ارجو الرد السريع

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

يوجد مثله ما تريدين في Youtube يفتح لك اي شي تريدين ولكن في برنامج vusial Basic.net وهذه الدروس موجوده فيديو لعمل برنامج يقرا ملفات Flash SWF

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

شكراااااااااااااااااااااااااااااااااااااااااااااااااا

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اخي شوف الامثلة في المكتبة ، و هناك خطوات لاستخدام ال DirectInput موجوده في وثائق المكتبة .

لو الموضوع مجابش نتيجة ، استخدم دوال الويندوز لايجاد احادثيات الماوس .. مش لازم تستخدم DirectInput..

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

اعطني السورس كود كاملاً حتى يمكني ان اتعلم منك :) وافهم منك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

Private Sub UpdateMouse()

Dim MouseMove As String = "Using GetMouseMove(): " + vbCr + vbLf

cameray += devmouse.CurrentMouseState.Y

targety += devmouse.CurrentMouseState.Y

cameray -= devmouse.CurrentMouseState.Y

targety -= devmouse.CurrentMouseState.Y

camerax += devmouse.CurrentMouseState.X

targetx += devmouse.CurrentMouseState.X

cameray -= devmouse.CurrentMouseState.X

targety -= devmouse.CurrentMouseState.X

End Sub

End Module

تم حل مشكلة السورس كود وهذا هو الحل النهائي ولكن الحركه للكامره ستكون بطيئه وشكراً لمن ساعدني في منتديات اخرى

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .