Default X-10 Monitor Sample Code

Keywords: 	  Default X10 X 10 X-10 Monitor

---

AddExtender("wwser34I.dll")
port=pComOpen("COM1",0,4800,"8N1","NONNON")
pTimeout(port,2000) 
handle = FileOpen("flag", "WRITE")
fileclose(handle)
PlayWaveForm("Hal_ok.wav", 0)
:start
getbyte = 1
while getbyte != 90
	getbyte = pGetByte(port) ;House code / Device Code
	timedelay(0.1)
	If FileExist("flag") == @FALSE 
		pComClose(port,-1)
		exit
	Endif
EndWhile

pPutByte(port,195) ; PC is Ready
returned = ""
count= pGetByte(port)
Display(0.1,"Got it!","Receiving Input")
for x = 1 to count
	return%x%=pGetByte(port)
	returned = StrCat(@crlf,return%x%,returned)
next
command = StrCat(return2," ",return3)
run("what2do.exe",command)
goto Start

---

Article ID:   W12568

Filename:   Default X-10 Monitor Sample Code.txt