Difference between revisions of "Program Examples:Serial Com:Serial Com Example"
m |
|||
| (17 intermediate revisions by 4 users not shown) | |||
| Line 1: | Line 1: | ||
| − | {{ | + | {{Languages|Program_Examples:Serial_Com:Serial_Com_Example}} |
| + | 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. | 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 |
| − | common shared time_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 | ||
| + | </syntaxhighlight> | ||
| + | |||
| + | |||
| + | The example corresponds to commit SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b. | ||
| + | |||
| + | |||
| + | == See Also == | ||
| + | * [[Serial Communication|'''Serial Communication''']] | ||
| + | * [[MC-Basic:OPEN|OPEN]] | ||
| + | * [[MC-Basic:LOC|LOC]] | ||
| + | * [[MC-Basic:PRINT|PRINT]] | ||
| + | * [[MC-Basic:INPUT$|INPUT$]] | ||
| + | * [[MC-Basic:CLOSE|CLOSE]] | ||
| + | * [[MC-Basic:PRINT|PRINT]] | ||
Latest revision as of 08:19, 16 July 2017
| Language: | English • 中文（简体） |
|---|
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
The example corresponds to commit SHA-1: ada143a7f402e6bbad24c13c56401a5393ce3d2b.