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
Crosspostings sind nirgends gern gesehen: http://www.mikrocontroller.net/forum/read-1-211893.html > Wer kann mir bitte den Code umwandeln???? Das ist doch keine Frage. Lies bitte: http://www.catb.org/~esr/faqs/smart-questions.html Falls du den Code geschrieben hast, dürftest du doch kein Problem haben, die gewünschte Schleife selbst einzubauen? Zumindest einen Ansatz könntest du posten, um zu zeigen, dass du keine Fertig-Lösung suchst.
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.