BASCOM: einzelne Pins in Byte speichern

Gast #1010317
Lesenswert?
• ▲
▼
Hallo zusammen!

Ich habe an PinD.0/PinD.1/PinD.2/PinD.3 einen DIP-Schalter 
angeschlossen. Die anderen Pins von PortD sind auch verwendet. Jetzt 
möchte ich gerne den DIP-Schalter auslesen und den Wert, den die Pins 
haben in ein Byte speichern und damit dem AVR eine Adresse von 1-16 
zuweisen.

Den ganzen Port kann ich nicht einlesen, da die anderen Pins verwendet 
werden.

Wie kann ich die Zustände der einzelnen Pins abfragen und in einem Byte 
zusammenfassen und dann mit einer Select Case abfrage die Adresse 
zuweisen?

MfG
Karl Schleicher
#1010358
Lesenswert?
• ▲
▼
Hi!

Die Befehle lauten "Rotate" und "Shift".

Wenn die Ports total durcheinander angeschlossen sind, könntest Du es 
mit der rustikalen Methode versuchen:

Dim Abfrage as Byte
Abfrage.0 = PinD.4 'Bit 0 von Abfrage setzen
Abfrage.1 = PinD.2 'Bit 1 von Abfrage setzen
Abfrage.2 = PinD.0
Abfrage.3 = PinD.5

Select Case Abfrage
Case 0 : tu dies
Case 1 : tu das
....
Case 15 : möp möp
End select
Abfrage = 0

Wenn Du statt 0 bis 15 lieber 1 bis 16 abfragen willst, einfach vor 
Select Case 1 hinzu addieren.

Gruß

Antwort schreiben

Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt. Bitte hier nur auf die ursprüngliche Frage antworten, für neue Fragen einen neuen Beitrag erstellen.

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.