this link<\/a>.\n<\/p>\n\nHere’s the full Lingo code, the text for the main movie script:\n<\/p>\n
\n-- simpleserial.dir\n-- by Tom Igoe, 2000\n-- based on Geoff Smith's SerialXtra\n\nglobal serialObject\nglobal myVar1, myVar2, myVar3\n\non startMovie\n \tclearglobals\n -- variables for setting up the xtra.\n -- Fill in your own values from the email\n -- that you get from the licence registrar:\n \n -- fill in your email address below (see physicalbits.com for details)\n programmerName = \"youremail@some.com\"\n serialnum = \"xxxx-xxxx-xxxx-xxxx\" -- physicalbits.com will mail you this number\n licenseLength = 90\n \n -- fill in the name of your serial port below (e.g. COM1 on Windows):\n mySerialPort = \"\/dev\/cu.USA19QW191P1.1\"\n\n \n \n \t-- make a new instance of the xtra (mac OSX)\n \topenxlib the pathname & \"serialXtra.osx\"\n\n \t-- use this line instead for Windows:\n \t-- openxlib the pathname & \"serialXtra.xtr\"\n \t\n \t\n \tserialObject = new (xtra \"SerialXtra\", programmerName, serialnum, licenseLength ) \n \n \t-- check that it has been created correctly \n \tif objectP( serialObject ) then\n \tput serialObject \n \telse\n \talert(\"Instance not valid\")\n \tend if\n \n--\topen the serial port:\n \tserialObject.openPort(mySerialPort)\n\n \n \t-- set the data rate, start bits, etc:\n \tserialObject.setProtocol(9600, \"n\", 8, 1)\nend\n\non stopMovie \n -- dispose of the xtra and close the xtra file\n serialObject.closePort()\n set serialObject to 0\n closeXlib \nend \n\non exitFrame\n \tdoSerial\n \tgo the frame\nend \n\non doSerial\n -- see if the port's been opened:\n If serialObject.isPortOpen() then\n If serialObject.charsavailable() = 0 then\n --send a byte to ask for data\n SerialObject.writeChar(\"A\")\t\n End if\n \n If SerialObject.charsAvailable() >=3 then \n --first byte sent by microcontroller:\n MyVar = SerialObject.readNumber()\t\n --next byte sent by microcontroller:\n MyVar2 = SerialObject.readNumber()\t\n --third one sent by microcontroller:\n MyVar3 = SerialObject.readNumber()\t\n end if\n end if \nend \n\n<\/pre>\nThese methods won’t work in every situation, and they will need to be modified to fit most situations, but they are a starting point.<\/p>\n","protected":false},"excerpt":{"rendered":"
It runs this checking routine repeatedly (in the exitframe or idle), so that if there are some bytes, but not a full three, it skips the whole routine and goes about its other business.This example uses Geoff Smith’s SerialXtra version 1.0 for Director. The full version of the Director code can be downloaded as a Director .dir file here, or as a text file (the main movie script) here.Lingo side:on exitFrame doSerial go the frameend on doSerial — see if the port’s been opened: If serialObject.isPortOpen() then If serialObject.charsavailable() = 0 then –send a byte to ask for data SerialObject.writeChar(“A”) End if If SerialObject.charsAvailable() >=3 then –first byte sent by microcontroller: MyVar = SerialObject.readNumber() –next byte sent by microcontroller: MyVar2 = SerialObject.readNumber() –third one sent by microcontroller: MyVar3 = SerialObject.readNumber() end if end if end The microprocessor is reading its sensors, then listening for a byte of data from the Director program.<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[23],"tags":[],"class_list":["post-52","post","type-post","status-publish","format-standard","hentry","category-Lingo"],"_links":{"self":[{"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/posts\/52","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/comments?post=52"}],"version-history":[{"count":0,"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/posts\/52\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/media?parent=52"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/categories?post=52"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.tigoe.com\/pcomp\/code\/wp-json\/wp\/v2\/tags?post=52"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}