🚀 go-pugleaf

Je voudrais faire un utilitaire me donnant l �tat des ports de
communication avec VB4 standard
j ai le code suivant sur un timer � 2 secondes et il ne se passe rien quand
je me connecte avec l acc�s au r�seau distant.
L �v�nement oncomm reste lui aussi sans r�agir pourquoi ?
merci de me repondre par mail 
eric.vallauri@hol.fr

Private Sub Timer1_Timer()
Form1.Cls
For i = 1 To 4
Comm.CommPort = i
interm = Comm.CommPort
Form1.Print "commport = "; interm
interm = Comm.Settings
Form1.Print "settings = "; interm

interm = Comm.PortOpen
Form1.Print "portopen = "; interm
Next i
End Sub
Private Sub Comm_OnComm()
Select Case Comm1.CommEvent
' Errors
Case comBreak
Print "il se passe quelque chose"
' A Break was received.
' Code to handle a BREAK goes here.
Case comCDTO ' CD (RLSD) Timeout.
Print "il se passe quelque chose"
Case comCTSTO ' CTS Timeout.
Print "il se passe quelque chose"
Case comDSRTO ' DSR Timeout.
Print "il se passe quelque chose"
Case comFrame ' Framing Error
Print "il se passe quelque chose"
Case comOverrun ' Data Lost.
Print "il se passe quelque chose"
Case comRxOver ' Receive buffer overflow.
Print "il se passe quelque chose"
Case comRxParity ' Parity Error.
Print "il se passe quelque chose"
Case comTxFull ' Transmit buffer full.
' Events
Print "il se passe quelque chose"
Case comEvCD ' Change in the CD line.
Print "il se passe quelque chose"
Case comEvCTS ' Change in the CTS line.
Print "il se passe quelque chose"
Case comEvDSR ' Change in the DSR line.
Print "il se passe quelque chose"
Case comEvRing ' Change in the Ring Indicator.
Print "il se passe quelque chose"
Case comEvReceive ' Received RThreshold # of chars.
Print "il se passe quelque chose"
Case comEvSend ' There are SThreshold number of
Print "il se passe quelque chose"
' characters in the transmit buffer.
End Select
End Sub

Eric
VALLAURI
eric.vallauri@hol.fr
http://www.mygale.org/03/ericval/
http://www.mygale.org/03/ericval/nimes/