SerialPort Demo (PB4.5)

ABBKlaus · Post by **ABBKlaus** » Wed Jan 02, 2008 4:13 pm

; PureBasic SerialPort Library Demonstration
; Based on the demo Code by Marc Vitry and its MVCOM Library
; To sue this software connect a loop back connector to the tested serial port
; Or connect 2 PC with a serial cable and run this software on the 2 PC

EnableExplicit

Global ComBaud.l           ;Index of selected com baudrate
Global ComData.l           ;Index of selected data bit
Global ComStopbits.l       ;Index of selected stopbits
Global ComParity.l         ;Index of selected parity
Global ComHandshake.l      ;Index of selected handshake mode

Global comID.l               ;Communication Handle
Global ComPort.s            ;Communications Port
Global Baud.l               ;Baudrate
Global Parity.l             ;Parity
Global DataBits.l           ;DataBits
Global StopBits.f           ;StopBits
Global Handshake.l          ;Handshake

;Windows
Enumeration
  #Window_0
EndEnumeration

;Gadgets
Enumeration
  #Text01
  #Label01
  #Key_Quit
  #Key_SR
  #Key_RTSON
  #Key_RTSOFF
  #Key_DTRON
  #Key_DTROFF
  #Key06
  #Key07
  #Key08
  #Key09
  #ListBaud
  #ListData
  #ListStopbits
  #ListParity
  #ListHandshake
  #ListPorts
  #Gadget_50
  #Gadget_51
  #Gadget_54
  #Gadget_55
  #Gadget_56
  #Gadget_57
  #Gadget_58
  #Gadget_59
  #Gadget_60
  #Gadget_61
  #Gadget_62
  #Gadget_63
  #Gadget_64
  #Gadget_65
  #Gadget_66
  #Gadget_67
  #Gadget_68
  #Gadget_69
  #Gadget_Xon
  #Gadget_Xoff
EndEnumeration

;Menu
Enumeration
  #Menu_Return
EndEnumeration

Procedure Open_Window_0()
  If OpenWindow(#Window_0, 0, 0, 370, 400, "PureBasic Serial Demonstration", #PB_Window_TitleBar | #PB_Window_ScreenCentered | #PB_Window_SystemMenu)
    StringGadget(#Text01, 50, 10, 310, 20, "")
    ComboBoxGadget(#ListPorts, 10, 215, 70, 0)
    ComboBoxGadget(#ListBaud, 130, 215, 100, 0)
    ComboBoxGadget(#ListData, 130, 245, 100, 0)
    ComboBoxGadget(#ListStopbits, 130, 275, 100, 0)
    ComboBoxGadget(#ListParity, 130, 305, 100, 0)
    ComboBoxGadget(#ListHandshake, 130, 335, 100, 0)
    ButtonGadget(#Key_SR, 240, 145, 120, 30, "Send / Read Data")
    ButtonGadget(#Key_RTSON, 240, 175, 60, 30, "RTS ON")
    ButtonGadget(#Key_RTSOFF, 300, 175, 60, 30, "RTS OFF")
    ButtonGadget(#Key_DTRON, 240, 205, 60, 30, "DTR ON")
    ButtonGadget(#Key_DTROFF, 300, 205, 60, 30, "DTR OFF")
    ButtonGadget(#Key06, 240, 235, 60, 30, "TXD ON")
    ButtonGadget(#Key07, 300, 235, 60, 30, "TXD OFF")
    ButtonGadget(#Key08, 240, 265, 120, 30, "Open Com Port")
    ButtonGadget(#Key09, 240, 295, 120, 30, "Close Com Port")
    ButtonGadget(#Key_Quit, 240, 325, 120, 30, "Quit")
    EditorGadget(#Label01, 50, 30, 310, 100, #PB_Editor_ReadOnly)
    TextGadget(#Gadget_50, 10, 10, 40, 20, "TxD")
    TextGadget(#Gadget_51, 10, 30, 30, 20, "RxD")
    TextGadget(#Gadget_54, 120, 135, 70, 20, "RTS ------>CTS")
    TextGadget(#Gadget_55, 120, 155, 70, 20, "DTR ----->DSR")
    TextGadget(#Gadget_56, 160, 175, 30, 20, "DCD", #PB_Text_Right)
    TextGadget(#Gadget_57, 160, 195, 30, 20, "RI", #PB_Text_Right)
    TextGadget(#Gadget_58, 210, 135, 20, 18, "")
    TextGadget(#Gadget_59, 210, 155, 20, 18, "")
    TextGadget(#Gadget_60, 210, 175, 20, 18, "")
    TextGadget(#Gadget_61, 210, 195, 20, 18, "")
    TextGadget(#Gadget_62, 85, 215, 40, 20, "Speed", #PB_Text_Right)
    TextGadget(#Gadget_63, 85, 245, 40, 20, "Data", #PB_Text_Right)
    TextGadget(#Gadget_64, 85, 275, 40, 20, "Stopbits", #PB_Text_Right)
    TextGadget(#Gadget_65, 85, 305, 40, 20, "Parity", #PB_Text_Right)
    TextGadget(#Gadget_66, 55, 335, 70, 20, "Handshaking", #PB_Text_Right)
    TextGadget(#Gadget_67, 5, 365, 70, 20, "Xon character", #PB_Text_Right)
    TextGadget(#Gadget_68, 125, 365, 70, 20, "Xoff character", #PB_Text_Right)
    TextGadget(#Gadget_69, 240, 365,120, 20, "",#PB_Text_Border)
    StringGadget(#Gadget_Xon, 80, 365, 30, 20, "17")
    StringGadget(#Gadget_Xoff, 200, 365, 30, 20, "19")
    AddKeyboardShortcut(#Window_0, #PB_Shortcut_Return, #Menu_Return)
  EndIf
EndProcedure

Procedure Set()
  SetGadgetState(#ListBaud,ComBaud)
  SetGadgetState(#ListData,ComData)
  SetGadgetState(#ListStopbits,ComStopbits)
  SetGadgetState(#ListParity,ComParity)
  SetGadgetState(#ListHandshake,ComHandshake)
  If CountGadgetItems(#ListPorts)
    SetGadgetState(#ListPorts,0)
  EndIf
EndProcedure

Procedure Init()
  Protected PortNr,Port.s
  
  ClearGadgetItems(#ListBaud)
   AddGadgetItem(#ListBaud,-1,"75 Bauds")
   AddGadgetItem(#ListBaud,-1,"110 Bauds")
   AddGadgetItem(#ListBaud,-1,"134 Bauds")
   AddGadgetItem(#ListBaud,-1,"150 Bauds")
   AddGadgetItem(#ListBaud,-1,"300 Bauds")
   AddGadgetItem(#ListBaud,-1,"600 Bauds")
   AddGadgetItem(#ListBaud,-1,"1200 Bauds")
   AddGadgetItem(#ListBaud,-1,"1800 Bauds")
   AddGadgetItem(#ListBaud,-1,"2400 Bauds")
   AddGadgetItem(#ListBaud,-1,"4800 Bauds")
   AddGadgetItem(#ListBaud,-1,"7200 Bauds")
   AddGadgetItem(#ListBaud,-1,"9600 Bauds")
   AddGadgetItem(#ListBaud,-1,"14400 Bauds")
   AddGadgetItem(#ListBaud,-1,"19200 Bauds")
   AddGadgetItem(#ListBaud,-1,"38400 Bauds")
   AddGadgetItem(#ListBaud,-1,"57600 Bauds")
   AddGadgetItem(#ListBaud,-1,"115200 Bauds")
   AddGadgetItem(#ListBaud,-1,"128000 Bauds")
  ClearGadgetItems(#ListData)
   AddGadgetItem(#ListData,-1,"4 Bits")
   AddGadgetItem(#ListData,-1,"5 Bits")
   AddGadgetItem(#ListData,-1,"6 Bits")
   AddGadgetItem(#ListData,-1,"7 Bits")
   AddGadgetItem(#ListData,-1,"8 Bits")
  ClearGadgetItems(#ListStopbits)
   AddGadgetItem(#ListStopbits,-1,"1 Bits")
   AddGadgetItem(#ListStopbits,-1,"1.5 Bits")
   AddGadgetItem(#ListStopbits,-1,"2 Bits")
  ClearGadgetItems(#ListParity)
   AddGadgetItem(#ListParity,-1,"None");#PB_SerialPort_NoParity = 0
   AddGadgetItem(#ListParity,-1,"Odd");#PB_SerialPort_OddParity = 1
   AddGadgetItem(#ListParity,-1,"Even");#PB_SerialPort_EvenParity = 2
   AddGadgetItem(#ListParity,-1,"Mark");#PB_SerialPort_MarkParity = 3
   AddGadgetItem(#ListParity,-1,"Space");#PB_SerialPort_SpaceParity = 4
  ClearGadgetItems(#ListHandshake)
   AddGadgetItem(#ListHandshake,-1,"None");#PB_SerialPort_NoHandshake = 0
   AddGadgetItem(#ListHandshake,-1,"RTS Enable");#PB_SerialPort_RtsHandshake = 1
   AddGadgetItem(#ListHandshake,-1,"RTS / CTS");#PB_SerialPort_RtsCtsHandshake = 2
   AddGadgetItem(#ListHandshake,-1,"Xon / Xoff");#PB_SerialPort_XonXoffHandshake = 3
  SetGadgetText(#Text01,"The quick brown fox jumps over the lazy dog!!!")
  ClearGadgetItems(#ListPorts)
  For PortNr = 1 To 256
    Port = "COM" + Str(PortNr)
    comID = OpenSerialPort(#PB_Any,Port,1200,#PB_SerialPort_NoParity,8,1,#PB_SerialPort_NoHandshake,0,0)
    If comID
      AddGadgetItem(#ListPorts,-1,Port)
      CloseSerialPort(comID)
    EndIf
  Next
  comID = 0
  ComBaud = 11      ;9600 Bauds
  ComData = 4       ;8 Bits
  ComStopbits = 0   ;1 Stopbit
  ComParity = 0     ;No parity
  ComHandshake = 0  ;No Handshake
  Set()
EndProcedure

Procedure GetComDescription()
  ComPort = GetGadgetText(#ListPorts)
  Baud = Val(GetGadgetText(#ListBaud))
  DataBits = Val(GetGadgetText(#ListData))
  StopBits = ValF(GetGadgetText(#ListStopbits))
  Handshake = GetGadgetState(#ListHandshake)
  Parity = GetGadgetState(#ListParity)
EndProcedure

Procedure DisplayComError()
  Protected ComErrorText.s,ComError
  
  If IsSerialPort(comID)
    ComError = SerialPortError(comID)
    If ComError & #PB_SerialPort_RxOver : ComErrorText + "An input buffer overflow has occurred"+#CR$ : EndIf
    If ComError & #PB_SerialPort_OverRun : ComErrorText + "A character-buffer overrun has occurred"+#CR$ : EndIf
    If ComError & #PB_SerialPort_RxParity : ComErrorText + "The hardware detected a parity error"+#CR$ : EndIf
    If ComError & #PB_SerialPort_Frame : ComErrorText + "The hardware detected a framing error"+#CR$ : EndIf
    If ComError & #PB_SerialPort_Break : ComErrorText + "The hardware detected a break condition"+#CR$ : EndIf
    If ComError & #PB_SerialPort_TxFull : ComErrorText + "The output buffer was full"+#CR$ : EndIf
    If ComError & #PB_SerialPort_IOE : ComErrorText + "An I/O error occurred during communications with the device"+#CR$ : EndIf
    If ComError & #PB_SerialPort_WaitingCTS : ComErrorText + "Waiting  CTS"+#CR$ : EndIf
    If ComError & #PB_SerialPort_WaitingDSR : ComErrorText + "Waiting  DSR"+#CR$ : EndIf
    If ComError & #PB_SerialPort_WaitingRLSD : ComErrorText + "Waiting  RLSD"+#CR$ : EndIf
    If ComError & #PB_SerialPort_XoffReceived : ComErrorText + "Waiting  because the XOFF character was received"+#CR$ : EndIf
    If ComError & #PB_SerialPort_XoffSent : ComErrorText + "Waiting  because the XOFF character was transmitted"+#CR$ : EndIf
    If ComError & #PB_SerialPort_EOFSent : ComErrorText + "EOF character has been received"+#CR$ : EndIf
    If Right(ComErrorText,1)=#CR$:ComErrorText=Left(ComErrorText,Len(ComErrorText)-1):EndIf
    MessageRequester("SerialPortDemo","Communication error occured :"+#CR$+ComErrorText)
  EndIf
EndProcedure

; -----------------------------------------------------------------------------------------------
; Main loop
; -----------------------------------------------------------------------------------------------

Define Event,Buffer.b,Receive.b,Text.s,Time,Timediff,GadgetID,EOL.b

Open_Window_0()

Init()

Repeat
  Event = WaitWindowEvent(100)
  Select Event 
    Case 0
      If comID And IsSerialPort(comID)
        If GetActiveGadget()<>#Gadget_Xon
          SetGadgetText(#Gadget_Xon,StrU(GetSerialPortStatus(comID,#PB_SerialPort_XonCharacter),#PB_Byte))
        EndIf
        If GetActiveGadget()<>#Gadget_Xoff
          SetGadgetText(#Gadget_Xoff,StrU(GetSerialPortStatus(comID,#PB_SerialPort_XoffCharacter),#PB_Byte))
        EndIf
        Buffer = 0 : Receive = 0
        Text = GetGadgetText(#Label01)
        Time=ElapsedMilliseconds()
        While AvailableSerialPortInput(comID) > 0
          If ReadSerialPortData(comID, @Buffer, 1) ; Read Byte
            Text = Text + Chr(Buffer)
            SetGadgetText(#Label01, Text)
            Receive = 1
          EndIf
        Wend
        Timediff=ElapsedMilliseconds()-Time
        If Receive:SetGadgetText(#Gadget_69,"Receive : "+Str(Timediff)+" ms"):EndIf
        If GetSerialPortStatus(comID,#PB_SerialPort_CTS)
          SetGadgetColor(#Gadget_58,#PB_Gadget_BackColor,#Green)
        Else
          SetGadgetColor(#Gadget_58,#PB_Gadget_BackColor,#Red)
        EndIf
        If GetSerialPortStatus(comID,#PB_SerialPort_DSR)
          SetGadgetColor(#Gadget_59,#PB_Gadget_BackColor,#Green)
        Else
          SetGadgetColor(#Gadget_59,#PB_Gadget_BackColor,#Red)
        EndIf
        If GetSerialPortStatus(comID,#PB_SerialPort_DCD)
          SetGadgetColor(#Gadget_60,#PB_Gadget_BackColor,#Green)
        Else
          SetGadgetColor(#Gadget_60,#PB_Gadget_BackColor,#Red)
        EndIf
        If GetSerialPortStatus(comID,#PB_SerialPort_RI)
          SetGadgetColor(#Gadget_61,#PB_Gadget_BackColor,#Green)
        Else
          SetGadgetColor(#Gadget_61,#PB_Gadget_BackColor,#Red)
        EndIf
      Else
        SetGadgetColor(#Gadget_58,#PB_Gadget_BackColor,#Red)
        SetGadgetColor(#Gadget_59,#PB_Gadget_BackColor,#Red)
        SetGadgetColor(#Gadget_60,#PB_Gadget_BackColor,#Red)
        SetGadgetColor(#Gadget_61,#PB_Gadget_BackColor,#Red)
      EndIf
    Case #PB_Event_Menu
      Select EventMenu()
        Case #Menu_Return
          Select GetActiveGadget()
            Case #Gadget_Xon
              If comID And IsSerialPort(comID)
                SetSerialPortStatus(comID,#PB_SerialPort_XonCharacter,Val(GetGadgetText(#Gadget_Xon))&$FF)
              EndIf
            Case #Gadget_Xoff
              If comID And IsSerialPort(comID)
                SetSerialPortStatus(comID,#PB_SerialPort_XoffCharacter,Val(GetGadgetText(#Gadget_Xoff))&$FF)
              EndIf
          EndSelect
      EndSelect
    Case #PB_Event_Gadget
      GadgetID = EventGadget()
      Select GadgetID
        Case #Key_Quit                             ;Quit
          Break
        Case #Key_SR                             ;Send and Get Data
          If comID And IsSerialPort(comID)        ;Send the string to Communication Port
            EOL=13
            Text = GetGadgetText(#Text01)
            SetGadgetText(#Label01,"")         
            Select 1
              Case 1
                WriteSerialPortString(comID,Text) ; forced conversion to ASCII (Standard in PB4.20)
              Case 2
                WriteSerialPortString(comID,Text,#PB_Unicode) ; convert to UNICODE
              Case 3
                WriteSerialPortString(comID,Text,#PB_UTF8) ; convert to UTF8
            EndSelect
            WriteSerialPortData(comID,@EOL,1)
            Time=ElapsedMilliseconds()
            While AvailableSerialPortOutput(comID):Wend
            Timediff=ElapsedMilliseconds()-Time
            SetGadgetText(#Gadget_69,"Send : "+Str(Timediff)+" ms")
          Else
            MessageRequester("SerialPortDemo","Communication Port not open !")
          EndIf
        Case #Key_RTSON ; Set RTS ON
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_RTS,1):EndIf
        Case #Key_RTSOFF ; Set RTS OFF
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_RTS,0):EndIf
        Case #Key_DTRON ; Set DTR ON
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_DTR,1):EndIf
        Case #Key_DTROFF ; Set DTR OFF
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_DTR,0):EndIf
        Case #Key06 ; Set TXD ON
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_TXD,1):EndIf
        Case #Key07 ; Set TXD OFF
          If comID And IsSerialPort(comID):SetSerialPortStatus(comID,#PB_SerialPort_TXD,0):EndIf
        Case #Key08                               ;Open Com Port
          If comID And IsSerialPort(comID)          ;If one port is used then close it
            CloseSerialPort(comID)
          EndIf 
          GetComDescription()
          comID = OpenSerialPort(#PB_Any,ComPort,Baud,Parity,DataBits,StopBits,Handshake,1024,1024)
          If comID = 0
            MessageRequester("SerialPortDemo","OpenSerialPort() failed !")
          EndIf
        Case #Key09             ;Close Com Port
          If comID And IsSerialPort(comID)
            If CloseSerialPort(comID)
              comID = 0
            EndIf
          EndIf 
      EndSelect
  EndSelect
Until Event = #PB_Event_CloseWindow

If comID And IsSerialPort(comID)
  CloseSerialPort(comID)                ;Close the Communication Port
EndIf
CloseWindow(#Window_0)                ;Close the window

End

fsw · Post by **fsw** » Wed Jan 02, 2008 4:57 pm

Thanks.

BTW:
Change this:

Code: Select all

; For OpenSerialPort 'Handshake' parameter
#PB_SerialPort_NoHandshake = #HandShakeModeNone
#PB_SerialPort_RtsEnable   = #HandShakeModeRtsEnable
#PB_SerialPort_RtsCts      = #HandShakeModeRtsCts
#PB_SerialPort_XonXoff     = #HandShakeModeXonXoff

to:

Code: Select all

; For OpenSerialPort 'Handshake' parameter
#PB_SerialPort_NoHandshake = 0
#PB_SerialPort_RtsEnable   = 1
#PB_SerialPort_RtsCts      = 2
#PB_SerialPort_XonXoff     = 3

otherwise the MvComRes.res of the MVCOM library is needed in order to compile.

Post by **Rings** » Wed Jan 02, 2008 5:04 pm

ideal for testing (with less real serial ports then) is the
free Nullmodem-Emulator, found here:

http://com0com.sourceforge.net/

ABBKlaus · Post by **ABBKlaus** » Wed Jan 02, 2008 5:07 pm

@fsw,

good one, its fixed.

electrochrisso · Post by **electrochrisso** » Thu Jan 03, 2008 7:39 am

Nice demo code ABB.
Thanks for sharing.

Rings. That is a handy link matey.

Psychophanta · Post by **Psychophanta** » Sat Jan 05, 2008 3:13 pm

Thanks for it

ABBKlaus · Post by **ABBKlaus** » Mon Apr 07, 2008 6:42 pm

Changed my above example to work with PB4.20 Beta 3

- stopbits are now defined as float in Beta3

Nico · Post by **Nico** » Tue Apr 08, 2008 4:02 pm

Thanks

SFSxOI · Post by **SFSxOI** » Tue Apr 08, 2008 10:06 pm

Thank you

P.S. There should be a forum just for code that needs just beta versions of PB.

ABBKlaus · Post by **ABBKlaus** » Mon Feb 07, 2011 7:51 pm

Update : Code is now PB4.5 compatible

yrreti · Post by **yrreti** » Mon Feb 07, 2011 10:21 pm

Hi ABBKlaus
Nice program. Thank you very much.

r7mk4 · Post by **r7mk4** » Mon Sep 05, 2011 2:45 pm

Really great work

Is it possible to get the text from the comport

Uploaded with ImageShack.us

In this case "HUWAI Mobile Connect - 3G PC UI Interface"

Thanks in advance

ABBKlaus · Post by **ABBKlaus** » Mon Sep 05, 2011 4:25 pm

Hi r7mk4,

No sorry, this would break the os-compatibility.

But there are some code snippets here on the forum,
You just have to search for enumeration

BR Klaus

Kwai chang caine · Post by **Kwai chang caine** » Mon Sep 05, 2011 4:51 pm

A little bit later, but i don't see your great works before

Thanks for sharing

PhilR1 · Post by **PhilR1** » Mon Apr 15, 2013 4:40 pm

This works well in Windows after I define red and green.
What about Linux?
I know I have to change designation of the serial port but what about the user interface.
The text is all too big and the buttons don't seem to work right.

Thanks!

PureBasic Forums - English

SerialPort Demo (PB4.5)

SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)

Re: SerialPort Demo (PB4.5)