open port (Bluetooth) with:
ser_port.connect(PairedDevices.GetValueAt(myDev)) -> Data is coming in, works perfect
Now I want to write a string (dim as string = "Test,Now,ON,1Hz") to the device:
doesn't work with:
Sub ser_port_Connected (Success As Boolean)
'
If Success Then
what is to do???
kind regards
Volker
ser_port.connect(PairedDevices.GetValueAt(myDev)) -> Data is coming in, works perfect
Now I want to write a string (dim as string = "Test,Now,ON,1Hz") to the device:
doesn't work with:
Sub ser_port_Connected (Success As Boolean)
'
If Success Then
Dim txt_wr As TextWriter
txt_wr.Initialize(ser_port.OutputStream)
txt_wr.Write(s) -> doesn't work
txt_rd.Initialize(ser_port.InputStream) -> works perfect
txt_wr.Initialize(ser_port.OutputStream)
txt_wr.Write(s) -> doesn't work
txt_rd.Initialize(ser_port.InputStream) -> works perfect
what is to do???
kind regards
Volker