Program Examples:Serial Com:Serial Com Example

From SoftMC-Wiki
Revision as of 12:17, 2 November 2014 by Nigeller (talk | contribs)
Jump to: navigation, search

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