www.mikrocontroller.net

Forum: Mikrocontroller und Digitale Elektronik BASCOM: einzelne Pins in Byte speichern


Autor: Karl Schleicher (Gast)
Datum:

Bewertung
0 lesenswert
nicht 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

Autor: Matthias Lipinsky (lippy)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
>Adresse von 1-16

1..16 oder 0..15?

Du nimmst den gesamten Eingangsport und Maskierst die unteren 4Bits aus:


0..15:
adresse = ( port & 15 );


1..16:
adresse = ( port & 15 ) + 1;

Autor: Karl Schleicher (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Und wie mache ich das genau, wenn die Pins an denen der DIP-Schalter 
hängt mitten im Port sind?

Also PinD.2/PinD.3/PinD.4/PinD.5

Wie schaut der Bascom Befehel aus?

Danke schonmal.

Autor: Der Stack (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Bascom Manual lesen.

Autor: Thomas Baer (tombaer)
Datum:

Bewertung
0 lesenswert
nicht 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

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
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.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.