Jump to content
  • Advertisement

Archived

This topic is now archived and is closed to further replies.

toxicity

My DirectInput code won't work!

This topic is 6030 days old which is more than the 365 day threshold we allow for new replies. Please post a new topic.

If you intended to correct an error in the post then please contact us.

Recommended Posts

When I try to run my DirectInput code, (code module) I get the error: Object Required. The bolded part is were the error suposedly is. Here''s the code: ------------------------------------------ Dim dx As New DirectX7 Dim di As DirectInput Dim diDEV As DirectInputDevice Dim distate As DIKEYBOARDSTATE Dim i As Integer Public aKeys(211) As Boolean Global Const DIK_ESCAPE = 1 Global Const DIK_1 = 2 Global Const DIK_2 = 3 Global Const DIK_3 = 4 Global Const DIK_4 = 5 Global Const DIK_5 = 6 Global Const DIK_6 = 7 Global Const DIK_7 = 8 Global Const DIK_8 = 9 Global Const DIK_9 = 10 Global Const DIK_0 = 11 Global Const DIK_MINUS = 12 Global Const DIK_EQUALS = 13 Global Const DIK_BACKSPACE = 14 Global Const DIK_TAB = 15 Global Const DIK_Q = 16 Global Const DIK_W = 17 Global Const DIK_E = 18 Global Const DIK_R = 19 Global Const DIK_T = 20 Global Const DIK_Y = 21 Global Const DIK_U = 22 Global Const DIK_I = 23 Global Const DIK_O = 24 Global Const DIK_P = 25 Global Const DIK_LBRACKET = 26 Global Const DIK_RBRACKET = 27 Global Const DIK_RETURN = 28 Global Const DIK_LCONTROL = 29 Global Const DIK_A = 30 Global Const DIK_S = 31 Global Const DIK_D = 32 Global Const DIK_F = 33 Global Const DIK_G = 34 Global Const DIK_H = 35 Global Const DIK_J = 36 Global Const DIK_K = 37 Global Const DIK_L = 38 Global Const DIK_SEMICOLON = 39 Global Const DIK_APOSTROPHE = 40 Global Const DIK_GRAVE = 41 Global Const DIK_LSHIFT = 42 Global Const DIK_BACKSLASH = 43 Global Const DIK_Z = 44 Global Const DIK_X = 45 Global Const DIK_C = 46 Global Const DIK_V = 47 Global Const DIK_B = 48 Global Const DIK_N = 49 Global Const DIK_M = 50 Global Const DIK_COMMA = 51 Global Const DIK_PERIOD = 52 Global Const DIK_SLASH = 53 Global Const DIK_RSHIFT = 54 Global Const DIK_MULTIPLY = 55 Global Const DIK_LALT = 56 Global Const DIK_SPACE = 57 Global Const DIK_CAPSLOCK = 58 Global Const DIK_F1 = 59 Global Const DIK_F2 = 60 Global Const DIK_F3 = 61 Global Const DIK_F4 = 62 Global Const DIK_F5 = 63 Global Const DIK_F6 = 64 Global Const DIK_F7 = 65 Global Const DIK_F8 = 66 Global Const DIK_F9 = 67 Global Const DIK_F10 = 68 Global Const DIK_NUMLOCK = 69 Global Const DIK_SCROLL = 70 Global Const DIK_NUMPAD7 = 71 Global Const DIK_NUMPAD8 = 72 Global Const DIK_NUMPAD9 = 73 Global Const DIK_SUBTRACT = 74 Global Const DIK_NUMPAD4 = 75 Global Const DIK_NUMPAD5 = 76 Global Const DIK_NUMPAD6 = 77 Global Const DIK_ADD = 78 Global Const DIK_NUMPAD1 = 79 Global Const DIK_NUMPAD2 = 80 Global Const DIK_NUMPAD3 = 81 Global Const DIK_NUMPAD0 = 82 Global Const DIK_DECIMAL = 83 Global Const DIK_F11 = 87 Global Const DIK_F12 = 88 Global Const DIK_NUMPADENTER = 156 Global Const DIK_RCONTROL = 157 Global Const DIK_DIVIDE = 181 Global Const DIK_RALT = 184 Global Const DIK_HOME = 199 Global Const DIK_UP = 200 Global Const DIK_PAGEUP = 201 Global Const DIK_LEFT = 203 Global Const DIK_RIGHT = 205 Global Const DIK_END = 207 Global Const DIK_DOWN = 208 Global Const DIK_PAGEDOWN = 209 Global Const DIK_INSERT = 210 Global Const DIK_DELETE = 211 Public Sub Initialize() Set di = dx.DirectInputCreate() diDEV.SetCooperativeLevel FrmDirectX.hWnd, DISCL_BACKGROUND Or DISCL_NONEXCLUSIVE Set diDEV = di.CreateDevice("GUID_SysKeyboard") diDEV.SetCommonDataFormat DIFORMAT_KEYBOARD diDEV.Acquire End Sub Public Sub CheckKeys() diDEV.GetDeviceStateKeyboard distate For i = 1 To 211 If distate.Key(i) <> 0 Then aKeys(i) = True Else aKeys(i) = False End If Next End Sub Public Sub Terminate() diDEV.Unacquire End Sub

Share this post


Link to post
Share on other sites
Advertisement

  • Advertisement
×

Important Information

By using GameDev.net, you agree to our community Guidelines, Terms of Use, and Privacy Policy.

We are the game development community.

Whether you are an indie, hobbyist, AAA developer, or just trying to learn, GameDev.net is the place for you to learn, share, and connect with the games industry. Learn more About Us or sign up!

Sign me up!