Sub btnOpen_Click
If usb1.UsbPresent(1) = usb1.USB_NONE Then ' Ver_2.4
Log("Msgbox - no device")
Msgbox("No USB device or accessory detected!", "Error")
Log("Msgbox - returned")
Return
End If
Log("Checking permission 1")
If (usb1.HasPermission(1)) Then ' Ver_2.4
Msgbox(usb1.DeviceInfo(1), "Device Information 1") ' Ver_2.4
Dim dev As Int
Log(usb1.UsbPresent(1))
Log(usb1.DRIVER_SILABS)
usb1.SetCustomDevice(usb1.DRIVER_SILABS, 0x1A86,0xE026)
dev = usb1.Open(9600, 1) ' Ver_2.4
Log(dev)
If dev <> usb1.USB_NONE Then
Log("Connected successfully! 1")
btnOpen.Enabled = False
btnClose.Enabled = True
btnSend.Enabled = True
astreams1.Initialize( usb1.GetInputStream, usb1.GetOutputStream, "astreams1")
Else
Log("Error opening USB port 1")
End If
Else
usb1.RequestPermission(1) ' Ver_2.4
End If
End Sub