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