bonjour, dans l'objectif d'utiliser la communication avec les ports séries, j'ai besoin de traduire se code en algorithme pour que je puisse le traduire vers une autre langage :
le code est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Dim Tampon As String
        Tampon = ""
        Instant = Now
 
        Do
           TimeOut = DateDiff("s", Instant, Now)
        Loop Until MSComm1.InBufferCount >= 50 Or TimeOut > 10
        Lecture = MSComm1.Input:
            If TimeOut > 10 Then
                MsgBox "Problème de delai :" + Chr$(13) + _
                " Vérifiez que l'indicateur est bien " & UCase(Proto) & _
                " et bien branché", vbExclamation: End 
            End If
70:
    i = i + 1
        Stabilite = Mid$(Lecture, i, 1)
        If i > Len(Lecture) Then GoTo 90: 
 
    If Stabilite <> "P" Then GoTo 70
    valeur = Mid$(Lecture, i + 1, 6)
    Poids = valeur
 
    Poids = valeur: GoTo 90 'Stop
 
'********************* S T 3 *******************
90
Text1 = Val(Poids)
    EcritDansFichierIni "Affichage", "Poids ", Text1, App.Path & "\Poids.ini"
// Fin de code
je ne compère pas la notion de 70 et 90 ; quand le code passe à les exécuter .
Merci d'avance pour votre collaboration ...