PureBasic Forums - English

... IsMenu IsMesh IsModule IsMovie IsMusic IsNaN IsNode IsParticleEmitter IsPathEmpty IsProgram IsRegularExpression IsRuntime IsScreenActive IsSerialPort IsSound IsSound3D IsSprite IsSprite3D IsStaticGeometry IsStatusBar IsSysTrayIcon IsText3D IsTexture IsThread IsToolBar IsWindow IsWindow3D IsXML ...

... logic with the buffers is a bit ... complicated.
I simplified it a bit:

Procedure vaciarserial(puerto.i=#serie)

Protected Byte.a

If IsSerialPort(puerto)
While AvailableSerialPortInput(puerto)
ReadSerialPortData(puerto, @Byte, 1)
Wend
EndIf

EndProcedure


And the port needs to be an ...

... puertosCOM
baudios.l=PeekL(?valoresbaudios+GetGadgetState(#baudios)*SizeOf(Long))
PuertoCOM$=GetGadgetText(#puertosCOM)
If PuertoCOM$
While IsSerialPort(#serie)
vaciarserial(#serie)
CloseSerialPort(#serie)
Wend
;Delay(1)
If OpenSerialPort(#serie,PuertoCOM$,baudios,#PB_SerialPort_NoParity,8,0 ...

... Gadget
Select GadgetID
Case #Gadget_Form1_ComboBox1
GetAvailableComPorts()
SerialPort.s = GetGadgetText(#Gadget_Form1_ComboBox1)
If Not IsSerialPort(#SERIAL_PORT)
OpenSerialPort(#SERIAL_PORT, SerialPort, 115200, #PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1024, 1024)
EndIf ...

... IsMenu, IsMesh, IsMovie, IsMusic, IsNaN, IsNode, IsParticleEmitter, IsPathEmpty, IsProgram, IsRegularExpression, IsRuntime, IsScreenActive, IsSerialPort, IsSound, IsSound3D, IsSprite, IsStaticGeometry, IsStatusBar, IsSysTrayIcon, IsText3D, IsTexture, IsThread, IsToolBar, IsWindow, IsWindow3D ...

... puertosCOM
baudios.l=PeekL(?valoresbaudios+GetGadgetState(#baudios)*SizeOf(Long))
PuertoCOM$=GetGadgetText(#puertosCOM)
If PuertoCOM$
While IsSerialPort(#serie)
vaciarserial(#serie)
CloseSerialPort(#serie)
Wend
;Delay(1)
If OpenSerialPort(#serie,PuertoCOM$,baudios,#PB_SerialPort_NoParity,8,0 ...

... Menu,3))
Case 4
baudios=115200:SetGadgetState(#baudios,9); <- 115200 baudios
PuertoCOM$=GetGadgetText(#puertosCOM)
If PuertoCOM$
If IsSerialPort(#serie)
enviarserial("re")
Delay(140)
; enviar dato de baudios nuevos
*baseserie\ubit32[0]=baudios
enviarserial("ba")
While IsSerialPort ...

... SerialS, device.s, baudrate.i, parity.i = #PB_SerialPort_NoParity, dataBits.i = 8, stopBit.i = 1, handShake.i = #PB_SerialPort_NoHandshake)
If IsSerialPort(*this\handle)
CloseSerialPort(*this\handle)
EndIf

*this\handle = OpenSerialPort(#PB_Any, device, baudrate, parity, dataBits, stopBit ...

... for some way to signal that the serial port has been lost (for example by unplugging the USB-SERIAL converter). The recommended function IsSerialPort() does not return an error (zero value) if the port was previously opened correctly (I tested it in Windows). So how can I determine that ...

Hi

When using serial ports there is a function called IsSerialPort() that can be used to determine if the serial port has been correctly initialized etc. I would like to suggest an IsConnection(Connection) function that can be used to determine if the Connection is valid. This would avoid errors with ...

... Procedure open_port()
OpenSerialPort(#compoort, port$ ,115200,#PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1, 1)
If IsSerialPort(#compoort)<>0 And verbonden=1
SetGadgetText(#state,port$+"=OPEN")
SetGadgetColor(#state,#PB_Gadget_BackColor,$A7EC16)
Else
port_error ...

... Port$ + "=OPEN")
SetGadgetColor(#state, #PB_Gadget_BackColor, $A7EC16)
Break
Else
CloseSerialPort(#compoort)
EndIf
EndIf
Next

If Not IsSerialPort(#compoort)
port_error()
EndIf

EndProcedure


Procedure zend()

If IsSerialPort(#compoort)
WriteSerialPortString(#compoort, GetGadgetText ...

... Procedure open_port()
OpenSerialPort(#compoort, port$ ,115200,#PB_SerialPort_NoParity, 8, 1, #PB_SerialPort_NoHandshake, 1, 1)
If IsSerialPort(#compoort)<>0 And verbonden=1
SetGadgetText(#state,port$+"=OPEN")
SetGadgetColor(#state,#PB_Gadget_BackColor,$A7EC16)
Else
port_error ...

... IsMenu, IsMesh, IsMovie, IsMusic, IsNaN, IsNode, IsParticleEmitter, IsPathEmpty, IsProgram, IsRegularExpression, IsRuntime, IsScreenActive, IsSerialPort, IsSound, IsSound3D, IsSprite, IsStaticGeometry, IsStatusBar, IsSysTrayIcon, IsText3D, IsTexture, IsThread, IsToolBar, IsWindow, IsWindow3D ...

Windows detects the removal of open commports immedeately, as you can observe in the device manager. Once disconnected and connected again, it is a complete new port and can be opened.
Another thing is how the running program is informed about the removal.
I found a very simple solution to end my ...