I need to control a relay (R2 dual relay controller) via the serial
port using CB86 (CBasic)I have the code in QBasic and VB but I can't
find anything for CBasic code.
This is the Cbasic code I have tried. It succcessfully opens the
serial port but it does not sent the  chr$(252);chr$(0)( turns on
relay) which is needed to call the relay or chr$(252);chr$(1)(turns on
relay)

%include extfun
%include mstools
%include cbonly
on error goto bad
re1%=mbexec("c:\winnt\system32\command.com","/c mode.com com1:
baud=9600 data=8>nul")
re1%=mbexec("c:\winnt\system32\command.com","/c mode.com lpt1:=com1:>nul")	

st:	print cscr$
	print
	print "control relay"
	print
	print
	input "Hit <enter> to activate relay ";line p$
	print

print chr$(254),chr$(1)
az=inkey
print chr$(254),chr$(0)

	input "Try again  ? Y/N ";line as$
	if ucase$(as$)="N" then stop
	goto st

bad:	call errors("")

---

Clarification of Question by ladyalice-ga on 02 Sep 2004 11:54 PDT

cythias=ga
Yes I did change CAT to TYPE thanks
I tried the following didn't work !!!! 



%include extfun
%include mstools
%include cbonly

on error goto bad

	re1%=mbexec("c:\winnt\system32\command.com","/c mode.com com1: baud=9600 data=8")

	re1%=mbexec("c:\winnt\system32\command.com","/c mode.com lpt1:=com1:")	


	re1%=mbexec("c:\winnt\system32\command.com","/c print relayon.txt > com1")


	re1%=mbexec("c:\winnt\system32\command.com","/c print relayoff.txt > com1:")	


bad:	call errors("")


files

-----------------------------------------------

relayon.txt     chr$(254);chr$(1)

relayoff.txt    chr$(254);chr$(0)

-----------------------------------------------

I also tried

relayon.txt     ?;1

relayoff.txt    ?;0

Could this be because you are sending:

print chr$(254),chr$(1)

instead of:

print chr$(252);chr$(1)

Or was that just a typo in your question ?

http://shorterlink.com/?J26PTE This should give a hint. If you OPEN AS
#1, you can Print #1, character..

Re: the above comment: be aware that "," may send a tab character
between CHR$'s. The ";" context is better for your project.

if you can't open the com port with your cbasic, you already have
mbexec. Just make two files relayon.txt and relayoff.txt, each with
the two characters you need.

then mbexec("c:\winnt\system32\command.com","/c cat relayon.txt >
com1") or mbexec ("c:\winnt\system32\command.com","/c cat relayoff.txt
> com1")

Also, according to your question... it seems you need to swap 0 and 1. 

Likewise, PRINT and INPUT will go both to screen unless they're going
both to com1. You can't have it both ways :). I'm guessing that "Try
again ?" is a user input on the screen, not control information that
will be displayed on the relay.

What operating system are you using ??
This governs wether data can be input/output from the data ports

instead of "cat" you might use "type" for Windows/DOS. Oops. Sorry :).

DOS prompt. edit relayon.txt
alt (numberpad 254, numberpad001)

no semicolons :)
Save, exit. see if that works.