#Region Project Attributes
#MainFormWidth: 800
#MainFormHeight: 500
#End Region
' #AdditionalJar: usb-api-1.0.2
' #AdditionalJar: usb4java-javax-1.2.0
#AdditionalJar: LibusbJava
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
MainForm.RootPane.LoadLayout("main")
' jave code:
' Context useCtx = null;
' useCtx = new Context();
Dim useCtx As JavaObject
useCtx = useCtx .InitializeNewInstance("ch.ntb.inf.libusb.Context",Null)
Log("useCtx .IsInitialized:" & useCtx .IsInitialized)
' jave code:
' Device usbDev = null;
Dim usbDev As JavaObject
usbDev = usbDev.InitializeStatic("ch.ntb.inf.libusb.Device")
Log("usbDev.IsInitialized:" & usbDev.IsInitialized)
Log("usbDev.getNofDevices:" & usbDev.RunMethod("getNofDevices",Null))
' jave code:
' usbDev = Device.search(useCtx, 1000, 200);
usbDev.RunMethodJO("search",Array (useCtx, 100,200 )) ' this line is error
End Sub