Database Search

TechHome

Sample Code

• !!NEWSFLASH!!
• !List of Errors Returned from pGetLastError
• Can you do a FileCopy to an Active Port
• Capture Caller ID Information from a Modem
• Comport Being Accessed by More than one Program
• Default X-10 Monitor Sample Code
• Detect if a Line is Busy
• Detecting Valid COM Ports
• Digital Multimeters with Serial Ports
• Direct Serial Connection - No Modem
• Framing Error with Serial Extender
• Hardware Overrun Error
• How to Force a Modem to Continue
• How to Handle the Multiple Downloads with pRecvFile
• Kermit Type Transfers
• Paging and pPutLine
• pComControl
• pComOpen Error 100
• pModemDial Clicking but not Audibly Dialing
• pRecFile Failure
• pSendFile bad port handle
• Receiving Mouse Button Info on Serial Port
• Receiving Parity Error with pRecvFile
• Send Power On Hex Command to a Nec Display
• Sending Control Characters to Com Port
• Serial Communications Problems with pWaitfor
• Serial Extender - Timeouts - Boxes Functions
• Serial Extender and PPP connections
• Serial Modem Transferring Files
• Uploading Text Files using Serial Extender
• Using pCapture to Capture Log
• VT100 Emulation - ANSI chars and Serial Extender
• X-10 Control Sample Script II
• X-10 Control Sample Script
• X-10 FAQ
• X-10 What2Do WBT

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

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

File Created: 2002:03:22:09:15:38

Last Updated: 2002:03:22:09:15:38