Hi,
takedownca, do you have a working VB6 space navigator interface?
I have a pretty limited and frankly out of date programming knowledge, I've written a software package for my car PC using VB6 and would love to implement my Space navigator as a controller.
I've scoured the forum and SDK samples and have written a test program as a first step:
Code: Select all
Private WithEvents Sensor1 As TDxInput.Sensor
Private WithEvents Keyboard1 As TDxInput.Keyboard
Private WithEvents Device1 As TDxInput.Device
Private Sub Form_Load()
Set Device1 = New TDxInput.Device
Set Sensor1 = Device1.Sensor
Set Keyboard1 = Device1.Keyboard
Call Device1.Connect
MsgBox ("Connection Status: " & Device1.IsConnected)
End Sub
Private Sub Sensor_SensorInput()
Dim Translation1 As TDxInput.Vector3D
Translation1 = Sensor1.Translation
Dim Rotation1 As TDxInput.AngleAxis
Roataion1 = Sensor1.Rotation
Form1.Text1.Text = Translation1.X
Form1.Text1.Text = Translation1.Y
Form1.Text1.Text = Translation1.Z
Form1.Text1.Text = Rotation1.X
Form1.Text1.Text = Rotation1.Y
Form1.Text1.Text = Rotation1.Z
Form1.Text1.Text = Rotation1.Angle
End Sub
The program runs with no errors, and device1.isconnected always returns true regardless of wether my SN is plugged in. the sensor input function is never triggered.
I appreciate that VB6 may be outdated, however this is the last step in my software development and would really appreciate any help in getting this code to work.
Also, this isnt a sample/snippets of code, this is the complete code, am i missing anything?
thanks in advance
Jonny