View/Edit Program

Language Help File: /FS/FLASH0/query.sb
on error goto GotThisError ' ' first call parameter is remote register (object) to query ' second call parameter is local register (object) to save reply in ' function query(rreg,lreg) ' blink yellow request setreg 640002, 1 ' wait max. 2 seconds for reply timeout 2 print #1, "REG,",rreg,"\n" line input #1, reply$ if len(reply$) = 0 then ' got nothing, blink red reply setreg 640004, 1 else ' blink green reply setreg 640003, 1 regdata = val(reply$) setreg lreg, regdata print "Reg ",lreg," data ",regdata,"\n" end if end function ' ' query program ' open "COM:9600,CR" for comm as 1 print "Here we go\n" enable = 1 do while enable > 0 ' expand this list to query whatever you wish ' this example sets AI 1 - AI 3 query (1, 1) query (2, 2) query (3, 3) sleep (1) ' continue until register AV 1 is zero enable = getreg (20001) loop print #1, "QUIT,0","\n" close #1 print "Done\n" end ' GotThisError: errCode = Error() print "Error: ",errcode,"\n" setreg 10003, 1 resume stop

Quick Help

Click "Get" to get the source code for the program shown. Edit using standard text editing (cut, paste, etc). Click "Save" to save changes back to selected file shown.

To create a new file, start by creating a new file in the Program File page. This file will initially be empty, but is needed as a place holder so you have somewhere to save the text on this page when you click "Save".

To erase the scratch pad (shown here), check the erase box and click "Clear".

HTML cannot post large text buffers, therefore larger text files will be displayed for editing in text "pages" within this web page. Use the Page Down and Page Up buttons to scroll through the file. Within each text page, use the scroll bars to navigate through the current text page.