It's almost like you make it a sport to give as little information as you can. I realize there is a high language barrier for you, but surely you must understand that you have provided extremely poor information?
This is something I have noticed in many of your posts. Please note that I'm not angry or irritated. Nor am I trying to put you down. I just want you to put in more effort so it's easier for the forum to actually help you.
It's almost like you make it a sport to give as little information as you can. I realize there is a high language barrier for you, but surely you must understand that you have provided extremely poor information?
This is something I have noticed in many of your posts. Please note that I'm not angry or irritated. Nor am I trying to put you down. I just want you to put in more effort so it's easier for the forum to actually help you.
I'm Ok. I found my solve the problem. the straegy like this
B4X:
'Example from the Aeric's'Changing InputListTobeInputListAsync'The old code' Dim Res As Int' Res = InputList(l, "Choose a printer", -1) 'show list with paired devices' If Res <> DialogResponse.CANCEL Then' Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac address' Return True' End If'-----------------------------------------------------------------------------'The new code
InputListAsync(l, "Choose a printer", 0, False)
WaitFor InputList_Result (Res As Int)
If Res <> DialogResponse.CANCEL Then
Serial1.Connect(PairedDevices.Get(l.Get(Res))) 'convert the name to mac addressReturnTrueEndIf
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.