Über Dip Schalter eine Adresse festlegen

[elkokiller]

Hallo,

ich möchte über einen DIP Schalter eine Variable im Programm mit einer Adresse (Hex) belegen.
Hat jemand eine Idee wie ich soetwas relisieren kann?

Ich möchte damit die Module meines kleines RS485 Netzwerk adressieren.

[bertl100]

Das mach ich auch gerade.
Je nachdem wieviele Adressen du brauchst, musst du einen entsprechenden Dipschalter verlöten----> 8 Bit wären dann 256 mögliche Adressen.
In Bascom brauchst dann nur den Port abfragen

Dim Var as Byte
Pinx=Var

[vajk]

beachten: interne Pull-Ups aktivieren = Schalter gegen Masse - d.h. offener Schalter = 1, geschlossener Schalter = 0 ... oder externe Pulldowns nutzen, z.B. als Array und dan Schalter gegen +

[elkokiller]

benötige ich dann für jeden Schalter einen Port

[bertl100]

Jedes Bit ein Pin.
Wenn du einen 8 Bit breiten Adressraum benötigst dann z.B. Pinb=Var
Wenn du nur einzelne Pins abfragen willst dann Pinb.x=Var wobei Var dann als Bit definiert werden sollte.

[elkokiller]

o.k. !

Kannst du mir auch sagen, wie ich 3 Pins (z.B. PD3, PD4 und PD5) abfragen, und aus dem Ergebnis eine Hex Adresse basteln kann?

[bertl100]

Dim B As Byte

B.0 = Pind.3
B.1 = Pind.4
B.2 = Pind.5


Print Hex(b)