BASCOM-Einsteiger --> Bin-Zahl an Port ausgeben

[Sven Scholz (Gast)]

--> BASCOM-AVR

Hallo,

ich würde ganz gerne den Wert der Variable Minute (Byte) über den Port.B 
meines ATMEGA8 ausgeben. Der Port steuert einfache LEDs, die mir den 
Wert dann also in binärer Form darstellen.
Geht das zum Beispiel so für den Wert 100?

Dim Minute As Byte
Minute = Bin(100)

Portb.0 = Minute.0
Portb.1 = Minute.1
Portb.2 = Minute.2
Portb.3 = Minute.3
Portb.4 = Minute.4
Portb.5 = Minute.5

Die Dezimale Zahl werde ich ja bestimmt vorher Konvertieren müssen mit 
Bin() oder?

Vielen DANK.

[Gast (Gast)]

Der Simulator ist Dein Freund :-) Das Byte speichert Werte von 0 bis 255 
-> von gar keine bis alle LEDs AN. Den Port als Ausgang definieren Du 
auch mußt..

[Sven Scholz (Gast)]

Das ist mir schon klar...
Hast du vielleicht ein konkretes Codebeispiel für mich?
Was ist mit dem obigen Code? Ist das NONSENSE?

DANKE.

[Bucho (Gast)]

Config Portb = output
Minute=100
Portb = Minute

Dann erscheint an Portb die Zahl 100 in binärer Form.

[Sven Scholz (Gast)]

Sehr schön das funktioniert ja tatsächlich...

Wie schaffe ich es nun, dass die 100 nicht an Port.B sondern die 8 Bit 
über individuell zusammengestellte Pins etwa B4, B5, B6, B7, C0, C1, D0, 
D1 ausgegeben werden?

Vielen Dank schon einmal.

[Falk B. (falk)]

@ Sven Scholz (Gast)

>Wie schaffe ich es nun, dass die 100 nicht an Port.B sondern die 8 Bit
>über individuell zusammengestellte Pins etwa B4, B5, B6, B7, C0, C1, D0,
>D1 ausgegeben werden?

Das musst du ausdekodieren. Etwa so (Syntax ohne Gewähr, bin kein 
BASCOMer)

if (Minute.0=1) then portb.3 = 1 else portb.3=0

MFG
Falk

[Klaus (Gast)]

z,B. so:

Config Portb = output
Config Portc = output
Config Portd = output
Minute=100
Portb.4 = Minute.0
Portb.5 = Minute.1
Portb.6 = Minute.2
Portb.7 = Minute.3
Portc.0 = Minute.4
Portc.1 = Minute.5
Portd.0 = Minute.6
Portd.1 = Minute.7