Je veux développer un programme qui lit une EEprom a partir du port série, j’ai trouvé sur ce sujet pas mal de réalisations, l’une d’elles un programme avec visuel basic

Code vb : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
MSCOM.RTSEnable = False         ' SCL=0 
Loop8Bits2:                         ' Passer au bit suivant   (7..0)     
MSCOM.RTSEnable = True          ' SCL=1     
If MSCOM.DSRHolding = True 
Then Recep_8_I2c = Recep_8_I2c + n ' DSR=SDA(7..0)(ENTREE)     
MSCOM.RTSEnable = False         ' SCL=0     
n = n / 2                       ' Valeur du bit n-1 
If n <> 0.5 Then GoTo Loop8Bits2 ' Si les 8 bits pas tous Reç recommencer



Mon problème c’est quand j’ai essayé de convertir ce programme, je n’ai pas trouvé l’équivalant de l’instruction DSRHolding avec le composant TComPort alors mon programme ne marche pas.
voila ce que j'ai fait:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
do
    {
    ComPort->SetRTS(true);
    if (DSR)
        donnee = donnee + n;
    ComPort->SetRTS(false);
    n = n / 2;
    }                        
    while (n > 0.5);
la variable DSR est globale et change d'etat dans l'evenement OnDSRChange,et prend la valeur OnOff.
Merci.