VB6, DirectX8, DirectInput, Joystick Force Feedback, Conditional Effect

[James Hallam]

Hi,

I'm having trouble getting a conditional force (namely friction) using
VB6. I have had no problem using constant or periodic forces. The
trouble seems to be that when defining the later you can use...

Dim FrictionEffect As DIEFFECT

and then just define the details of the force later on, and then use
ForceEffect when Starting the force.

The problem I'm having with conditional forces is that firstly when
you use DIEFFECT it comes up with an error "Invalid Procedure Call or
Argument". If I try and use DICONDITION when defining the
FrictionEffect, the progrma won't run because I am using the wrong
type of variable.

Is there something I am forgetting or do I have to relate DICONDITION
to DIEFFECT (although this would seem strange as I didn't have to do
this for DIPERIODIC).

I read on microsofts help pages (http://msdn2.microsoft.com/en-us/
library/bb219645.aspx) that there should be some more members of
DIEFFECT (namely lpvTypeSpecific Params), although the help they give
is for C++ not VB6 so I don't know how relevent it is.

Here is the code that fails....

With FrictionEffect
With .conditionX
.lNegativeCoeff icient = 5000
.lPositiveCoeff icient = 5000
.lOffset = 0
End With
With .conditionY
.lNegativeCoeff icient = 5000
.lPositiveCoeff icient = 5000
.lOffset = 0
End With
End With

Set di_effect = diJoystick.Crea teEffect("GUID_ Friction",
FrictionEffect) <-- This Line
di_effect.Start 1, 0

Any help would be greatly apprieciated as I am close to pulling my
hair out!
Cheers!
James Hallam

[Newbie Coder]

James,

This is a VB.NET newsgroup

Any VB 6 questions are better asked at http://www.developerfusion.com
because there are literally 1000's of people who will answer you quickly

--
Newbie Coder
(It's just a name)

[Cor Ligthert [MVP]]

James,

For VB6 questions exist all for years the Microsoft newsgroup
Microsoft.publi c.vb.general.di scussion

It is certainly one of the most active boards about VB6.

There are from the best VB6 experts active.

http://groups.google.com/group/micro...nk=gschg&hl=en

The threads of that newsgroup are important in other boards.

Cor

"James Hallam" <ja******@googl email.comschree f in bericht
news:11******** **************@ v45g2000cwv.goo glegroups.com.. .

Hi,

I'm having trouble getting a conditional force (namely friction) using
VB6. I have had no problem using constant or periodic forces. The
trouble seems to be that when defining the later you can use...

Dim FrictionEffect As DIEFFECT

and then just define the details of the force later on, and then use
ForceEffect when Starting the force.

The problem I'm having with conditional forces is that firstly when
you use DIEFFECT it comes up with an error "Invalid Procedure Call or
Argument". If I try and use DICONDITION when defining the
FrictionEffect, the progrma won't run because I am using the wrong
type of variable.

Is there something I am forgetting or do I have to relate DICONDITION
to DIEFFECT (although this would seem strange as I didn't have to do
this for DIPERIODIC).

I read on microsofts help pages (http://msdn2.microsoft.com/en-us/
library/bb219645.aspx) that there should be some more members of
DIEFFECT (namely lpvTypeSpecific Params), although the help they give
is for C++ not VB6 so I don't know how relevent it is.

Here is the code that fails....

With FrictionEffect
With .conditionX
.lNegativeCoeff icient = 5000
.lPositiveCoeff icient = 5000
.lOffset = 0
End With
With .conditionY
.lNegativeCoeff icient = 5000
.lPositiveCoeff icient = 5000
.lOffset = 0
End With
End With

Set di_effect = diJoystick.Crea teEffect("GUID_ Friction",
FrictionEffect) <-- This Line
di_effect.Start 1, 0

Any help would be greatly apprieciated as I am close to pulling my
hair out!
Cheers!
James Hallam