Authorware-to-Arduino_Authorware_Code.as

-- Authware 7.0 Script, 
-- Robin van Emden 2015
-- http://pavlov.tech/2015/03/04/authorware-to-arduino-interface/
-- Communicates with an Arduino 
-- Over Serial Port on a PC
-- Implements DirectCommunication Xtra from
-- http://www.directxtras.com/dcomm_home.asp

-- Instantiate the DirectCommunication Xtra
Trace("--- DirectCommunication -- ")
Device := NewObject("DirectCommunication" ; 0)

-- Show available USB and Serial ports
Trace("--- getDevices -- ")
Devices := CallObject (Device ; "commGetDevices")
Trace (Devices)

-- Connect to Arduino Serial Port
Trace("--- commConnect -- ")
Error := CallObject (Device ; "commConnect"; "\\\\.\\COM17")
if (Error) then
    Trace ("Can't connect to the device, error # "^Error)
else
    Trace ("A connection was established successfully.")
end if

-- Set the Baud Rate
Trace("--- commSetBaudRate -- ")
Error := CallObject (Device; "commSetBaudRate"; 9600 )
if (Error) then
    Trace ("Can't set the baud rate, error # "^Error)
else
    Trace ("The baud rate was set successfully.")
end if

-- Send pulse values to arduino
-- Here: Port A, Cool, Power 100%, for 1000ms
NumOfCharsSent := CallObject (Device, "commWrite", "<0,0,100,1000>"^Return) 
Trace (NumOfCharsSent^" characters were successfully sent to the device.")

-- trace response
repeat with i := 1 to 10
    Trace (CallObject (Device, "commRead"))
end repeat

-- disconnect port and delete the object
Trace (CallObject (Device; "commDisconnect"))
DeleteObject(Device)