تشخیص وصل بودن کابل USB گوشی (نمونه سورس)

[ha88an 203]

سلام دوستان

من برای تشخیص اینکه ببینم کابل USB گوشی وصل هست به کامپیوتر یا دستگاه دیگه خیلی گشتم و از خیلیا پرسیدم کسی متاسفانه چیزی نمیدونست!

حالا امروز یه سورس پیدا کردم ولی کتابخونه هاشو ندارم و نمیدونم چجوری باید ازش استفاده کنم اونم اینه

 

http://www.b4x.com/android/forum/threads/usb-serial-smartphone-wont-find-usb.58344/

Sub Process_Globals
    Dim usbb As UsbSerial
    Dim aStreams As AsyncStreams
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Dim dev As Int
    Dim u As Int

    Activity.LoadLayout("main")
    If usbb.HasPermission(dev) = False Then
        usbb.RequestPermission(dev)
        u = usbb.Open(115200,dev)
        usbb.SetParameters(115200,usbb.DATABITS_8,usbb.STOPBITS_1,usbb.PARITY_NONE)
        If u <> usbb.USB_NONE Then
            ToastMessageShow("verbindung erfolgreich", False)
            aStreams.Initialize(usbb.GetInputStream,usbb.GetOutputStream,"aStreams")
        Else
            ToastMessageShow("verbindung fehlgeschlagen",False)
        End If
        If usbb.UsbPresent(dev) = usbb.USB_NONE Then
            Msgbox("Kein USb gerät angeschlossen","fehler")
        End If
    End If
End Sub

استاید اگه میشه یه راهنمایی بکنید ممنتون میشم خیلی گشتم توی اینترنت