Difference between revisions of "Program Examples:Serial Com:Serial Com Example"
m |
m |
||
| Line 34: | Line 34: | ||
</pre> | </pre> | ||
| − | + | SEE ALSO | |
* [[Axystems:MC-Basic:OPEN|OPEN]] | * [[Axystems:MC-Basic:OPEN|OPEN]] | ||
* [[Axystems:MC-Basic:LOC|LOC]] | * [[Axystems:MC-Basic:LOC|LOC]] | ||
| Line 41: | Line 41: | ||
* [[Axystems:MC-Basic:CLOSE|CLOSE]] | * [[Axystems:MC-Basic:CLOSE|CLOSE]] | ||
* [[Axystems:MC-Basic:PRINT|PRINT]] | * [[Axystems:MC-Basic:PRINT|PRINT]] | ||
| − | |||
| − | |||
Revision as of 13:59, 2 April 2014
The following example demonstrates the setup of a serial connection with softMC.
The program opens COM2 and waits for at least 3 bytes to arrive. Then it sends a message "done" and closes connection.
common shared str1 as string common shared iteration_counter as long = 0 common shared time_counter as long = 0 Program try close #2 catch else end try Open COM2 BaudRate=115200 Parity=0 DataBits=8 StopBit=1 XOnOff=1 As #2 while (loc(2) < 3) and (time_counter < 120) ' allow 120 seconds for system start up to complete<br/> sleep 1000 time_counter = time_counter +1 end while str1 = input$(loc(2),#2) ?str1 print #2, "done" sleep 100 close #2 End Program
SEE ALSO