I wonder if anyone has had this problem before:
I have tried to use the example below to use the serial port on my CUWIN3500 windows CE device. I have looked through all the help files from the various parties involved- nothing. Particulary annoying since i cut and pasted the code from the NSbasic help file and it doesn't work. It makes me think maybe there is some set-up detail with the Franson serial code that is not obvious to newbies (like me).
I get this error:
NSBasic line 9 char 0 Unable to reolve Class ID for 'serialce.port.1' when instantiating 'serialce.port.1' object.
I would really appreciate some help to get the serial port working.
Thanks in advance.
Bill Chernoff in Canada
code from NSbasic help file :
'Contributed by Michael Newett
'This example works for Pocket PC or Desktop devices, with any length 'of file, any baudrate, serial or bluetooth.
'Note** The devices (PDA or desktop) Bluetooth must be turned ON 'before running the code.
'For CE Device use the following AddObject "serialce.port.1","objPort" 'For CE Device AddObject "serialce.license","objlicense" 'For CE Device
'For WindowsXP Device use the following 'AddObject "serialxp.port.1","objPort" 'AddObject "serialxp.license","objlicense"
'For all devices objLicense.LicenseKey = "eNZd1eYLfPjTJ6P2aaeU1aZeu1iupvAPeRbd"
Form1_Load
Sub StartCommandButton_Click objPort.BaudRate = 9600 objPort.ComPort = 8 'enter bluetooth outbound COM port number here objPort.ByteSize = 8 objPort.Parity = 0 objPort.StopBits = 0 '0 means 1 stop bit objPort.Enabled = True 'enable comm. port objPort.NoEvents = True objPort.DTR = True objPort.RTS = True Sleep 100 'delay to enable comm port to initialise End Sub
Sub StopCommandButton_Click objPort.Enabled = False 'disable comm port End Sub
Sub WriteCommandButton_Click objPort.Write "Enter String to Write here"+vbCR 'Send command to device. Add vbCr or vbLf as applicable Finished=False Str="" Do Until Finished=True Size=objPort.Buffersize 'get number of bytes received from device Newstr=objPort.Read(Size,1000) 'read response from device. Timeout if nothing received after 1000ms If IsNull(Newstr) Then Finished=True Else Str=Str&Newstr End If Loop If IsNull(Str) Then Str="Device Timed out" MsgBox Str End Sub
Sub Form1_load AddObject "CommandButton", "StartCommandButton", 75, 125, 100, 25 bStart.Caption = "Start Comms" bStart.FontSize = 8.25
AddObject "CommandButton", "StopCommandButton", 75, 225, 100, 25 bStop.Caption = "Stop Comms" bStop.FontSize = 8.25
AddObject "CommandButton", "WriteCommandButton", 75, 175, 100, 25 Write.Caption = "Write" Write.FontSize = 8.25 End Sub