Content

Post

 Resources 

Other

Console
Home | Profile | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 VBGamer
 VBGamer
 DirectInput problems		  New Topic  Reply to Topic
 Printer Friendly
Author Previous Topic Topic Next Topic  

Fistandanbitus
Neophyte

Mexico
2 Posts
Posted - Jun 21 2005 :  9:23:52 PM  Show Profile  Visit Fistandanbitus's Homepage  Click to see Fistandanbitus's MSN Messenger address  Reply with Quote
Hi.

I'm having a little problem with the mouse as a DirectInput Device.

I read in the DirectX4VB site some DirectX 8 tutorials. So I have programmed a DirectX window, put some very simple polys (2 boxes, one of them is the mouse cursor) and at this point, everything worked fine and the app reports 70 fps.

Later, I decied to implement a DirectInput keyboard and mouse (in that order). I read in the tutorial that i could handle the DirectInput devices by a polling method or a event method. So I choosed to hanlde them via the event method. Also I assumed the keyboard event and the mouse event need a different handle.

I wrote the setup for the keyboard setup and I put a unique handle for it's event. Still, everything worked fine so far and the app reports 70 fps.

Then I wrote the setup for the mouse setup and I used a different hanlde for this even. Not everything workd fine after I implemented this event.

The app still reports 70 fps, but when I move the mouse, the fps drops drastically, the lowest i have seen is 5 fps. Also, I move one of the boxes as a cursor and the movement is a bt jumpy.

Can someone help me ?
GFYS

Vankwysha
Squire

Australia
43 Posts
Posted - Jun 22 2005 :  03:04:27 AM  Show Profile  Click to see Vankwysha's MSN Messenger address  Reply with Quote
Just to make things a little clearer:

1) How are you raising your event? Do you have a timer, a loop or what?

2) What do you mean by "a DirectX window"? Is it a simple form, a window with DirectDraw, Direc3D or what?

3) Can we see a snippet of your DirectInput code?

Go to Top of Page

Fistandanbitus
Neophyte

Mexico
2 Posts
Posted - Jun 22 2005 :  04:03:26 AM  Show Profile  Visit Fistandanbitus's Homepage  Click to see Fistandanbitus's MSN Messenger address  Reply with Quote
Sure (sorry about the missing details)

The app is a simple form with direct3d, using a loop.
  
    Do While bRunning  
            Render.  
            DoEvents  
            Calculate_FrameRate  
    Loop
  

bRunning is a boolean flag

The event is a DirectX 8 event implementation. As global variables I define the 2 event handles
  
Global hEvent_Keyboard As Long
Global hEvent_Mouse As Long
  


In the form code I implement the DirectX 8 events with
  
Implements DirectXEvent8  
  


The directX events are as follows
  
Private Sub DirectXEvent8_DXCallback(ByVal eventid As Long)  
    Dim I As Long
    Dim pBuffer(0 To BufferSize) As DIDEVICEOBJECTDATA  
    Dim nEvents As Long 'how many events have just happened (usually 1)  
    On Error Resume Next
  
    Select Case eventid  
        Case hEvent_Mouse  
            Debug.Print "Mouse Event"  
               nEvents = DI_Mouse.GetDeviceData(pBuffer, DIGDD_DEFAULT)  
  
               For I = 0 To nEvents  
                  Select Case pBuffer(I).lOfs  
                     Case DIMOFS_X  
                        mPosition.X = mPosition.X + (pBuffer(I).lData * mSpeed)  
                        If mPosition.X < 0 Then mPosition.X = 0  
                        If mPosition.X > DirectX_Form.ScaleWidth Then mPosition.X = DirectX_Form.ScaleWidth  
                        Cx = mPosition.X  
                        Cy = mPosition.Y  
                        Me.Caption = "[" & Cx & "," & Cy & "]"  
  
                     Case DIMOFS_Y  
                        mPosition.Y = mPosition.Y + (pBuffer(I).lData * mSpeed)  
                        If mPosition.Y < 0 Then mPosition.Y = 0  
                        If mPosition.Y > DirectX_Form.ScaleHeight Then mPosition.Y = DirectX_Form.ScaleHeight  
                        Cx = mPosition.X  
                        Cy = mPosition.Y  
                        Me.Caption = "[" & Cx & "," & Cy & "]"  
  
                     Case DIMOFS_Z  
                       'the mouse has moved along the Z axis (Mouse wheel movement)  
  
                     Case DIMOFS_BUTTON0  
                        'the first (left) button has been pressed  
                        Me.Caption = "Button 0 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON1  
                        'the second (right) button has been pressed  
                        Me.Caption = "Button 1 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON2  
                        'the third (middle usually) button has been pressed  
                        Me.Caption = "Button 2 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON3  
                        Me.Caption = "Button 3 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON4  
                        Me.Caption = "Button 4 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON5  
                        Me.Caption = "Button 5 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON6  
                        Me.Caption = "Button 6 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
                     Case DIMOFS_BUTTON7  
                        Me.Caption = "Button 7 State: " & IIf(pBuffer(I).lData = 0, "Up", "Down")  
  
               End Select
            Next I  
        Case hEvent_Keyboard  
            Debug.Print "Keyboard Event"  
  
            If DI_Keyboard Is Nothing Then Exit Sub 'simple error checker...  
  
            DI_Keyboard.GetDeviceStateKeyboard DIState  
            DI_Keyboard.GetDeviceData pBuffer, DIGDD_DEFAULT  
  
            If DIState.Key(48) = 128 Then Show_Bruiser = Not Show_Bruiser  
  
            If DIState.Key(1) = 128 Then 'ESC key  
                bRunning = False
            Else
                For I = 0 To 255  
                    If DIState.Key(I) = 128 Then
                        If pBuffer(0).lData = 128 Then
                            TextToDraw = KeyNames(CInt(I)) & " --> " & CInt(I)  
                        End If
                    End If
                Next I  
            End If
        Case Else
                ' This is just for control  
    End Select
End Sub
  
GFYS
Edited by - Fistandanbitus on Jun 22 2005 04:06:43 AM
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
VBGamer © Go To Top Of Page
This page was generated in 0.42 seconds. Snitz Forums 2000

Copyright © 2002 - 2004 Eric Coleman, Peter Kuchnio , et. al.