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

Gast #662654
Lesenswert?

--> 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 #663634
Lesenswert?

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.
#663651
Lesenswert?

@ 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
Gast #663835
Lesenswert?

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

Antwort schreiben

Bitte melde dich an, um einen Beitrag zu schreiben.

oder

Mit Google-Account einloggen

Die Registrierung ist kostenlos und dauert nur eine Minute.

Jetzt registrieren