Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private NativeMe As JavaObject
End Sub
#AdditionalJar: phidget22.jar
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
NativeMe = Me
Dim s As String = NativeMe.RunMethod("main",Null)
Log(s)
End Sub
#If JAVA
import com.phidget22.*;
public void main() {
try {
Encoder ch = new Encoder();
ch.open(Phidget.DEFAULT_TIMEOUT);
boolean Enabled = ch.getEnabled();
ch.close();
} catch (PhidgetException ex) {
System.out.println("Failure: " + ex);
}
}
#End If