Bascomneuling 3 Byts abfragen

Gast #147900
Hallo Leute ich bin hier neu und ein blutiger Anfänger. Aber ich glaube
jeder hat einmal angefangen. Ich möchte 3 Bytes an einem Pin
abfragen.Diese lauten: 00 85 A5 und kommen auch in dieser Reihenfolge.
1 Byte kann ich abfragen aber wie geht das mit 3 ?
Vielleicht kann mir einer von Euch einen Tip geben denn ich verzweifle
bald. In meinen Büchern habe ich leider auch nichts gefunden oder nicht
verstanden.

Config Portd = Input
Config Portb = Output
Config Portb.0 = 0

Dim A As Byte
Do
Inputbin A

Select Case A
Case &H85 : Portb = 1
Case &H81 : Portb = 0
End Select
Loop

Wäre sehr, sehr Dankbar für einen Tip.
Gruss Jörg
Gast
Danke für die Antwort. Input a,b,c habe ich versucht. Aber wie muss dann
diese Zeile aussehen ? Denn nur wenn alle 3Bytes  kommen soll der Portb
= 1 sein. Mein Englisch ist leider nicht sehr gut und eine gute
deutsche Erklärung habe ich noch nicht gefunden.

select case A , B , C           '???
Case &H0085A5 : Portb = 1       '???

Nochmals Danke für die Hilfe

Antwort schreiben

Eine eigene Frage? Dieser Thread ist über 21 Jahre alt. Stell sie in einem eigenen Thread – dort lesen mehr Leute mit, und sie wird öfter und schneller beantwortet.

Neuen Thread starten

Eine Lösung, Ergänzung oder Rückmeldung zu diesem Thread? Dann antworte hier.

Formatierung
  • [c]C-Code[/c]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] – Link zu einem Artikel
  • Verweis auf einen anderen Beitrag: Rechtsklick auf dessen Beitrags-ID (#8078628), „Adresse kopieren“, in den Text einfügen

Mehr zur Formatierung

Längeren Sourcecode als Anhang, nicht in den Text. JPG nur für Fotos und Scans; Zeichnungen und Screenshots als PNG oder GIF. Siehe Bildformate.

Schon registriert? Anmelden

Wird nicht angezeigt. Wir schicken dir einen Link; sobald du damit bestätigst, erscheint dein Beitrag.

Mit dem Abschicken legst du einen kostenlosen Account an und erkennst die Nutzungsbedingungen und die Datenschutzerklärung an.