Hi Dean,
i've already done this. There is a Button named "Setup COM" where you can setup the COM Parameters.
Dont send line Break or Return after the Bytes! Put the Semicolon at the end of the Print Statement! (";")
Attached is the Program with new Protocol. Only open File and COM is working.
You can define Command Buttons.
Bascom Code
[code:1:45b0d55a65]
Dim Incoming_data As String * 20
Incoming_data = ""
Config Serialin = Buffered , Size = 21 , Bytematch = 13
Declare Sub Serial0charmatch()
'-------------------------------------------------------------------------------
' Main Loop
'-------------------------------------------------------------------------------
Do
Reset Watchdog
If Clk_new_second = 1 Then
Clk_new_second = 0
Incr Clk_time
Incr Clk_runing
Toggle Led_tx
End If
If Incoming_data <> "" Then
If Instr(incoming_data , "CMD1") > 0 Then
Print "SCRCPY" ; Chr(128) ; Chr(8);
For X = 1 To 1024
B = Rnd(255)
Print B;
Next
Print "/SCRCPY";
End If
Incoming_data = ""
End If
Loop
End
Sub Serial0charmatch()
Input Incoming_data Noecho
End Sub
[/code:1:45b0d55a65]
Program isn't ready by now, may be, there will occur a bug.
best, Michael
↧