Discussion :

[nourhanan]

bonjour

comment je peux tester que mon gps connecté au port com est "on" ou "off".

j'ai fait le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
dim tmpchaine as string
tmpchaine = MSComm1.Input
If tmphaine = " " Then
MsgBox "Le gps est <<OFF>> veuillez le mettre <<ON>>  ", vbCritical, "GPS"
End
ind if

le probleme c'est que lorsque le gps est "off" l'application se plante.

[Delbeke]

Peut être en utilisant une gestion d'erreur ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
dim tmpchaine as String
On Error Resume Next
tmpchaine = MSComm1.Input
On Error Goto 0
If tmpchaine = "" Then
  MsgBox "Le gps est <<OFF>> veuillez le mettre <<ON>>  ", vbCritical, "GPS"
  End
End If