Difference between revisions of "Program Examples:Serial Com:Serial Com Example"

From SoftMC-Wiki
Jump to: navigation, search
m
m
Line 18: Line 18:
 
Open COM2 BaudRate=115200 Parity=0 DataBits=8 StopBit=1 XOnOff=1 As #2
 
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/>
+
while (loc(2) < 3) and (time_counter < 120)  '  allow 120 seconds for system start up to complete
 
sleep 1000
 
sleep 1000
 
time_counter = time_counter +1
 
time_counter = time_counter +1

Revision as of 14:11, 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
		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