Habe ein Programm geschrieben, mit dem ich den Igor Plug auslese. Nun habe ich das Problem, das ab und zu ein übertragungsfehler auftritt. Habe mich entschieden daher jede Zelle 3 mal auszulesen. Nun möchte ich die EEPROM Zelle so lange auslesen, bis das Resultat auch wirklich no_error ist. Wer kann mir bitte den Code umwandeln???? Dim TByte4 As Byte, result4 As Long result4 = DoEEPROMRead(3, TByte4) If result4 = NO_ERROR Then data4.Text = CStr(TByte4) Else ''Zweite abfrage Dim TByte94 As Byte, result94 As Long result94 = DoEEPROMRead(3, TByte94) If result94 = NO_ERROR Then data4.Text = CStr(TByte94) Else ''dritte abfrage Dim TByte940 As Byte, result940 As Long result940 = DoEEPROMRead(3, TByte940) If result940 = NO_ERROR Then data4.Text = CStr(TByte940) Else MsgBox "Fehler beim EEPROM lesen aufgetreten!!!", vbExclamation End End If End If ''Zeites abfrage IF schliesen End If ''Erstes Abfrage if schliesen Ich benütze VB 6 SP 6. Dankeschön im voraus
Bitte melde dich an um einen Beitrag zu schreiben. Anmeldung ist kostenlos und dauert nur eine Minute.
Bestehender Account
Schon ein Account bei Google/GoogleMail? Keine Anmeldung erforderlich!
Mit Google-Account einloggen
Mit Google-Account einloggen
Noch kein Account? Hier anmelden.