on openStack
if the platform = "Win32" then
set the hilite of btn "OS 9" to false
set the hilite of btn "OS X" to false
set the hilite of btn "Win" to true
else
put the systemVersion into tOS
set the itemDel to "."
if item 1 of tOS < 10 then
set the hilite of btn "OS 9" to true
set the hilite of btn "OS X" to false
set the hilite of btn "Win" to false
else
set the hilite of btn "OS 9" to false
set the hilite of btn "OS X" to true
set the hilite of btn "Win" to false
end if
end if
set the toolTipDelay to 500
send fillMenu to group "Platform"
end openStack
on closeStack
if the hilite of btn "Port open" = true then
send mouseUp to btn "Close Serial Port"
end if
end closeStack
P'local recEOL = empty on resetEOL -- work out the terminator character -- CR in Revolution isn't actually ASCII 13 put word 1 of the selectedText of btn "RecEOL" into recEOL if recEOL = "CR" then put numToChar(13) into recEOL else if recEOL = "LF" then put LF into recEOL else put CRLF into recEOL end resetEOL on readPort if the hilite of btn "Port open" = true then if recEOL is empty then resetEOL put the label of btn "Port" into thePort if the hilite of btn "OS X" then read from driver thePort until recEOL else read from file thePort until recEOL end if if it is not empty then put it after fld "recField" if last char of fld "recField" <> cr then put cr after fld "recField" send readPort to me in 5 ticks end if end readPort revcard false cREVGeneral scriptChecksum \}_f= bookmarks breakPoints handlerList resetEOL readPort tempScript prevHandler idlescriptSelection char 807 to 806script 0local recEOL = empty
on resetEOL
-- work out the terminator character
-- CR in Revolution isn't actually ASCII 13
put word 1 of the selectedText of btn "RecEOL" into recEOL
if recEOL = "CR" then put numToChar(13) into recEOL
else if recEOL = "LF" then put LF into recEOL
else put CRLF into recEOL
end resetEOL
on readPort
if the hilite of btn "Port open" = true then
if recEOL is empty then resetEOL
put the label of btn "Port" into thePort
if the hilite of btn "OS X" then
read from driver thePort until recEOL
else
read from file thePort until recEOL
end if
if it is not empty then put it after fld "recField"
if last char of fld "recField" <> cr then put cr after fld "recField"
send readPort to me in 5 ticks
end if
end readPort
Open Serial Port Epon mouseUp -- check which port is in use put the label of btn "Port" into thePort -- set the port parameters put "BAUD=" & the label of btn "Baud" & \ " PARITY=" & the label of btn "Parity" & \ " DATA=" & the label of btn "Data" & \ " STOP=" & the label of btn "Stop" into serial set the serialControlString to serial -- open the port & show any error set the cursor to watch if the hilite of btn "OS X" then open driver thePort for binary update else open file thePort for binary update end if if the result is not empty then answer the result else set the hilite of btn "Port open" to true -- start reading the port if open send readPort to this card in 10 ticks end if end mouseUp $ l & command false This opens the serial port. cREVGeneral scriptChecksum Z='+~ revUniqueID 1000174798057 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 330 to 329scripton mouseUp
-- check which port is in use
put the label of btn "Port" into thePort
-- set the port parameters
put "BAUD=" & the label of btn "Baud" & \
" PARITY=" & the label of btn "Parity" & \
" DATA=" & the label of btn "Data" & \
" STOP=" & the label of btn "Stop" into serial
set the serialControlString to serial
-- open the port & show any error
set the cursor to watch
if the hilite of btn "OS X" then
open driver thePort for binary update
else
open file thePort for binary update
end if
if the result is not empty then
answer the result
else
set the hilite of btn "Port open" to true
-- start reading the port if open
send readPort to this card in 10 ticks
end if
end mouseUp
Baud e L 5 J command false Select your baud rate. 9600 300 1200 9600 19200 38400 57600 cREVGeneral revUniqueID 1000174860001 New Field 1 8 > cREVGeneral revUniqueID 1000174973688 Baud rate: New Field 1 V > cREVGeneral revUniqueID 1000174973688 Data bits: Data e L S J command false Select the number of data bits. 8 7 8 cREVGeneral revUniqueID 1000174860001 Stop e L q J command false Select the number of stop bits. 1 1 2 cREVGeneral revUniqueID 1000174860001 New Field 1 t > cREVGeneral revUniqueID 1000174973688 Stop bits: Parity e L J command false 'Select the parity - none, odd or even. N N O E cREVGeneral revUniqueID 1000174860001 New Field 1 > cREVGeneral revUniqueID 1000174973688 Parity: Port e L J command false Select your serial port. /dev/cu.modem :/dev/cu.USA28X23P1.1 /dev/cu.USA28X23P2.2 - /dev/cu.modem cREVGeneral revUniqueID 1000174860001 bookmarks handlerList tempScript prevHandler scriptSelection New Field 1 > cREVGeneral revUniqueID 1000174973688 Port : Close Serial Port Epon mouseUp put the label of btn "Port" into thePort if the hilite of btn "OS X" then close driver thePort else close file thePort end if if the result is not empty then answer the result set the hilite of btn "Port open" to false end mouseUp $D l & command false This closes the serial port. cREVGeneral scriptChecksum ຘa6 00L m bookmarks revUniqueID 1000175680812 handlerList mouseUpscriptSelection char 205 to 204 prevHandler mouseUp tempScript script {on mouseUp
put the label of btn "Port" into thePort
if the hilite of btn "OS X" then
close driver thePort
else
close file thePort
end if
if the result is not empty then answer the result
set the hilite of btn "Port open" to false
end mouseUp
sendField ip on enterInField send mouseUp to btn "Send" end enterInField on returnInField send mouseUp to btn "Send" end returnInField ` Selection Description false Enter the text to send here. cREVGeneral scriptChecksum 2kr5K revUniqueID 1000175777805 bookmarks handlerList enterInField returnInField tempScript prevHandler scriptSelection char 112 to 111scripton enterInField
send mouseUp to btn "Send"
end enterInField
on returnInField
send mouseUp to btn "Send"
end returnInField
Send Mpon mouseUp -- check that the port is open and open it if not if the hilite of btn "Port open" <> true then send mouseUp to btn "Open Serial Port" end if -- work out the terminator character -- CR in Revolution isn't actually ASCII 13 put word 1 of the selectedText of btn "SendEOL" into eol if eol = "CR" then put numToChar(13) into eol else if eol = "LF" then put LF into eol else put CRLF into eol -- send the data and record it in the display field put the label of btn "Port" into thePort put fld "sendField" into theData if the hilite of btn "OS X" then write theData & eol to driver thePort else write theData & eol to file thePort end if put "-> " & theData & return after fld "recField" end mouseUp ^ F command false 9Click to send the data from the small field on the left. cREVGeneral scriptChecksum #⼢@ revUniqueID 1000175783733 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 616 to 615scripton mouseUp
-- check that the port is open and open it if not
if the hilite of btn "Port open" <> true then
send mouseUp to btn "Open Serial Port"
end if
-- work out the terminator character
-- CR in Revolution isn't actually ASCII 13
put word 1 of the selectedText of btn "SendEOL" into eol
if eol = "CR" then put numToChar(13) into eol
else if eol = "LF" then put LF into eol
else put CRLF into eol
-- send the data and record it in the display field
put the label of btn "Port" into thePort
put fld "sendField" into theData
if the hilite of btn "OS X" then
write theData & eol to driver thePort
else
write theData & eol to file thePort
end if
put "-> " & theData & return after fld "recField"
end mouseUp
recField )` H +This field shows all sent & received data. cREVGeneral revUniqueID 1000175908156 bookmarks handlerList tempScript prevHandler scriptSelection char 1 to 0 ` I Port open hE &p d command false EThis button just gives a visual indication of the state of the port. cREVGeneral revUniqueID 1000176474351 bookmarks handlerList tempScript prevHandler scriptSelection Clear Ep Son mouseUp put "" into fld "sendField" put "" into fld "recField" end mouseUp Hr ^ 4Click here to clear the sent & received data field. cREVGeneral scriptChecksum jdxJxp&w revUniqueID 1000181590949 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 72 to 71scripton mouseUp
put "" into fld "sendField"
put "" into fld "recField"
end mouseUp
Platform ion fillMenu if the hilite of btn "OS 9" then put "modem:" & cr & "printer:" into btn "Port" else if the hilite of btn "Win" then put "COM1:" & cr & "COM2:" & cr & "COM3:" & cr & "COM4:" into btn "Port" else -- OS X - list driverNames & get 3rd item of each line put the driverNames into tList put empty into tPorts repeat for each line L in tList put item 3 of L & cr after tPorts end repeat delete last char of tPorts -- internal modem doesn't show up in deviceNames (Rev 2.1) put "/dev/cu.modem" into modemPort if tPorts contains modemPort is false then put cr & "-" & cr & modemPort after tPorts end if put tPorts into btn "Port" end if end fillMenu B N Selection Description false CChoose your platform to allow chosing an appropriate serial ports. cREVGeneral scriptChecksum f~o bookmarks revUniqueID 1007436913161 handlerList fillMenuscriptSelection char 682 to 681 prevHandler fillMenu tempScript scripton fillMenu
if the hilite of btn "OS 9" then
put "modem:" & cr & "printer:" into btn "Port"
else if the hilite of btn "Win" then
put "COM1:" & cr & "COM2:" & cr & "COM3:" & cr & "COM4:" into btn "Port"
else
-- OS X - list driverNames & get 3rd item of each line
put the driverNames into tList
put empty into tPorts
repeat for each line L in tList
put item 3 of L & cr after tPorts
end repeat
delete last char of tPorts
-- internal modem doesn't show up in deviceNames (Rev 2.1)
put "/dev/cu.modem" into modemPort
if tPorts contains modemPort is false then
put cr & "-" & cr & modemPort after tPorts
end if
put tPorts into btn "Port"
end if
end fillMenu
OS 9 `D #on mouseUp fillMenu end mouseUp ! : Selection Description false BChoose your platform to allow chosing an appropriate serial port. cREVGeneral scriptChecksum w (XR6T bookmarks revUniqueID 1007436864361 handlerList mouseUpscriptSelection char 22 to 21 prevHandler mouseUp tempScript script Son mouseUp
fillMenu
end mouseUp
OS X `D #on mouseUp fillMenu end mouseUp : Selection Description false BChoose your platform to allow chosing an appropriate serial port. cREVGeneral scriptChecksum w (XR6T bookmarks revUniqueID 1007436864361 handlerList mouseUpscriptSelection char 22 to 21 prevHandler mouseUp tempScript script Son mouseUp
fillMenu
end mouseUp
Win `D #on mouseUp fillMenu end mouseUp 6 : Selection Description false BChoose your platform to allow chosing an appropriate serial port. cREVGeneral scriptChecksum w (XR6T revUniqueID 1063670761023 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 22 to 21script Son mouseUp
fillMenu
end mouseUp
About... Ep Yon mouseUp set the visible of fld "Info" to not the visible of fld "Info" end mouseUp v d .Click here to see some info about this stack. cREVGeneral scriptChecksum ^!3w/Wl4~ revUniqueID 1007520438369 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 76 to 75scripton mouseUp
set the visible of fld "Info" to not the visible of fld "Info"
end mouseUp
SendEOL e l l command false /Select the characters to use to finish a send. CR [ASCII 13] !CR [ASCII 13] LF [ASCII 10] CRLF cREVGeneral revUniqueID 1063675518416 New Field 1 ` cREVGeneral revUniqueID 1063675518191 Send end of line: New Field 1 ` cREVGeneral revUniqueID 1063675521742 Rec end-of-line: RecEOL u 5on mouseUp send resetEOL to this card end mouseUp l l command false 2Select the characters to use to finish a receive. CR [ASCII 13] !CR [ASCII 13] LF [ASCII 10] CRLF cREVGeneral scriptChecksum e3Ź:B Y bookmarks revUniqueID 1063675645034 handlerList mouseUpscriptSelection char 40 to 39 prevHandler tempScript scripton mouseUp
send resetEOL to this card
end mouseUp
Info P "on mouseUp hide me end mouseUp cREVGeneral scriptChecksum ]Rs˕,{)UTY revUniqueID 1007519921454 bookmarks handlerList mouseUp tempScript prevHandler scriptSelection char 21 to 20scripton mouseUp
hide me
end mouseUp
XThis is a simple Revolution stack to demonstrate sending & receiving over serial ports. New features - September 2003: @ - support for Mac OS X @ D- allows you to choose the termination character for send & receive @ C W Choose your settings from the popup mens, then click on "Open Serial Port" to start. X Send your data, by typing it into the field and clicking "Send" or pressing "Return". B Data is received automatically by a handler in the card script. oThe port is automatically opened on Send and closed on closeStack if you forget to click the relevant buttons. An easy way to test this stack is to set up a connection to any port with a modem, and send "AT". You should get back an echo of your "AT", a blank line and an "OK". serialControlString settings: "BAUD=number: the ports baud rate 9PARITY=N, O, or E: no parity, odd parity, or even parity DATA=numberOfDataBits STOP=numberOfStopBits to=on or off: use timeouts $xon=on or off: software handshaking (odsr=on or off: (output) data set ready 'octs=on or off: (output) clear to send #dtr=on or off: data terminal ready rts=on or off: ready to sent 'isdr=on or off: (input) data set ready I have only allowed setting the first 4 in this stack, but the others can easily be added. The string is constructed in the "Open Serial Port" button. This has been tested on a Mac running Rev 1.1 and Mac OS 9.2 and it should work fine with Windows. As of Rev 2.1, it now works under OS X as well although there are problems with the internal modem. Under OS X, the internal modem doesn't show up on the list of deviceNames (so I add it manually) and opening the port talks several seconds, although reading & writing seems OK. Hopefully future versions of Revolution will fix this. @ ]Feel free to use or modify this stack in any way but I am not responsible for any errors :-) Sarah Reichelt sarah@troz.net $Last modified: 18th September, 2003 `