Difference between revisions of "Program Examples:Serial Com:Serial Com Example"
m (Miborich moved page Axystems:Program Examples:Serial Com:Serial Com Example to Program Examples:Serial Com:Serial Com Example: Global renaming of Axystems: namespace into (Main):) |
|||
| Line 3: | Line 3: | ||
The program opens COM2 and waits for at least 3 bytes to arrive. Then it sends a message "done" and closes connection. | The program opens COM2 and waits for at least 3 bytes to arrive. Then it sends a message "done" and closes connection. | ||
| − | < | + | <syntaxhighlight lang="vb"> |
common shared str1 as string | common shared str1 as string | ||
common shared iteration_counter as long = 0 | common shared iteration_counter as long = 0 | ||
| Line 24: | Line 24: | ||
close #2 | close #2 | ||
End Program | End Program | ||
| − | </ | + | </syntaxhighlight> |
== See Also == | == See Also == | ||
Revision as of 12:17, 2 November 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
sleep 1000
time_counter = time_counter +1
end while
str1 = input$(loc(2),#2)
?str1
print #2, "done"
sleep 100
close #2
End Program