The Q7bSerialPort is really hard to deal with...
The goal is a Formless app running as a service.
- Code: Select all
Declare Signal "Q7BSerialPort" void OnEvent();
Public Dim sp As Q7BSerialPort
Sub OpenComm()
sp.SetBaudRate("BAUD19200")
sp.setDataBits("DATA_8")
sp.SetFlowControl("FLOW_HARDWARE")
sp.SetParity("PAR_NONE")
sp.SetStopBits("STOP_2")
sp.SetPortName("COM1")
sp.Open 'if I add the parens() I get a Syntax Error..
End Sub
Event Init()
OpenComm()
' MsgBox("Init")
End Event
This is the error, both in Q7b and QrCreator:
/Henning