Discussion :

[jerdel]

Bonjour à tous,

je dois réaliser la programmation d'une pointeuse. Le prof nous a donné une partie du programme pour nous lancer un peu.
Mais je ne comprends pas tout le code de ce qu'il a donné.
Voici le code qu'il nous a donné:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub ChercherParamètresDate()
'Récupère la date du jour
 
Dim TimeRead As String
 
    MSComm2.Output = "*01C" + Chr$(13) + Chr$(10)
    Do While MSComm2.InBufferCount < 20
        DoEvents
    Loop
    TimeRead = MSComm2.Input
    DateJour = Mid(TimeRead, 12, 2) + "/" + Mid(TimeRead, 10, 2) + "/" + Mid(TimeRead, 8, 2)
    MSComm2.InBufferCount = 0
 
End Sub

Je ne comprends pas cette partie ci:

Code :

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

1
2
3
Do While MSComm2.InBufferCount < 20
        DoEvents
    Loop

Est-ce que quelqu'un peu m'aider?

Merci

[ProgElecT]

FProperty InBufferSize As Integer
Membre de MSCommLib.MSComm
Renvoie ou définit la taille du tampon de réception en octets.

Reste (en attente) dans la boucle tant qu'il n'y a pas au moins 20 octets récupéré en réception sur le MSComm2.
Ces 20 premiers octets doivent être la réponse attendue du périphérique.

[jerdel]

ok merci bien ProgElecT