Results 1 to 9 of 9

Thread: My VB game.

  1. #1

    Thread Starter
    New Member
    Join Date
    Jan 2000
    Posts
    7

    Arrow

    I need help.

    I have made an arkaniod game.
    I have all the code and everything but the only thing is that I get an error when I try to run it.
    I get:

    run-time error '48':
    File not found: MMSystem


    But the thing is that I do have the file.

    Please help me.
    I am getting mad because it is pissing me off.

    Thank you,


    Vernon


  2. #2
    Lively Member
    Join Date
    Jan 1999
    Location
    India
    Posts
    85
    can you please add the relavent piece of code??

  3. #3
    Guest
    Maybe it's some type of Multimedia. Are you using some type of sound or MIDI in your game?

  4. #4

    Thread Starter
    New Member
    Join Date
    Jan 2000
    Posts
    7

    Lightbulb Here is the code for my game.



    Here is the code that you wanted!!!!
    The error is going to be showed by a =

    Dim rc As Integer
    Static NotFirstTime As Integer

    If Not NotFirstTime Then
    NotFirstTime = False
    = rc = joyGetDevCaps(IDDevice, JoyCaps, Len(JoyCaps))

    If rc <> 0 Then
    GetJoyStickPos = rc
    Exit Function
    End If

    JoyCaps.Xmax = uint_to_long(JoyCaps.XmaxIn)
    JoyCaps.Xmin = uint_to_long(JoyCaps.XminIn)
    JoyCaps.Ymax = uint_to_long(JoyCaps.YmaxIn)
    JoyCaps.Ymin = uint_to_long(JoyCaps.YminIn)
    JoyCaps.Zmax = uint_to_long(JoyCaps.ZmaxIn)
    JoyCaps.Zmin = uint_to_long(JoyCaps.ZminIn)

    End If

    rc = joyGetPos(IDDevice, JoyInfo)
    GetJoyStickPos = rc

    If rc <> 0 Then Exit Function

    JoyInfo.X = uint_to_long(JoyInfo.Xin)
    JoyInfo.Y = uint_to_long(JoyInfo.Yin)
    JoyInfo.Z = uint_to_long(JoyInfo.Zin)

    JoyInfo.ButtonDown(1) = (JoyInfo.ButtonStates And JOY_BUTTON1) = JOY_BUTTON1
    JoyInfo.ButtonDown(2) = (JoyInfo.ButtonStates And JOY_BUTTON2) = JOY_BUTTON2
    JoyInfo.ButtonDown(3) = (JoyInfo.ButtonStates And JOY_BUTTON3) = JOY_BUTTON3
    JoyInfo.ButtonDown(4) = (JoyInfo.ButtonStates And JOY_BUTTON4) = JOY_BUTTON4

    End Function

  5. #5
    New Member
    Join Date
    May 2000
    Posts
    1

    Question

    Could you post the line(s) where you declared that function that is returning the error. Also, what version of VB are you writing it in.

  6. #6

    Thread Starter
    New Member
    Join Date
    Jan 2000
    Posts
    7

    Talking Here is the code

    Here is the code that I am getting the error on:

    rc = joyGetDevCaps(IDDevice, JoyCaps, Len(JoyCaps))



    And I am using VB 6.

    Please respond ASAP.

  7. #7
    Guest
    hello,

    im just curious how you get those

    code:

    ----------------------

    thingies where you can then type in vb code.

    i know you guys think this is a simple question, but im stumped.

    -thanks

    -t_dawolf

  8. #8
    Junior Member
    Join Date
    Mar 2000
    Posts
    18
    i can't show you coz it'll do it, so just read forum rules and click on the vb code link.

    Hope that helps
    Please visit my website http://www.geocities.com/perfectlyperfect2000

    For a Gamer, Programming is the Ultimate Game



  9. #9

    Thread Starter
    New Member
    Join Date
    Jan 2000
    Posts
    7

    Question Can anyone else help?

    Hey!
    Can anyone else help me with this project?
    Because I need the help.

    Please respond ASAP!!!


    Thanks,

    Vern

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width