Genau.... Betriebsspannung "VCC" ist. Das wär dann bei mir Y91(?)
Zu den Anzeigemöglichkeiten mit den 4 LEDs noch eine von mir:
... wäre ja vielleicht auch ganz lustig, die Zeit binär zu lesen ...Code:'Binäre Ausgabe aller Werte von 0 bis 255 mit den 4 LEDs: #Start for WERT = 0 to 255 gosub LED_LONIBBLE gosub LED_HINIBBLE next goto Start '---------------------------------------------------------------------- ' UNTERPROGRAMME: 'IIIIIIIIIIIIII Binärausgabe mit den 4 LEDs IIIIIIIIIIIIIII 'Die Variable WERT muss als BYTE oder WORD definiert sein. 'Ausgabe 1. Nibble (low): #LED_LONIBBLE gosub LEDSOFF: gosub LED1FLASH: gosub LED1FLASH gosub LED1FLASH: gosub LED1FLASH: gosub LED1FLASH if (WERT and &B1) <> 0 then gosub LED1ON if (WERT and &B10) <> 0 then gosub LED2ON if (WERT and &B100) <> 0 then gosub LED3ON if (WERT and &B1000) <> 0 then gosub LED4ON pause 100: return 'Ausgabe 2. Nibble (high): #LED_HINIBBLE gosub LEDSOFF: gosub LED2FLASH: gosub LED2FLASH gosub LED2FLASH: gosub LED2FLASH: gosub LED2FLASH if (WERT and &B10000) <> 0 then gosub LED1ON if (WERT and &B100000) <> 0 then gosub LED2ON if (WERT and &B1000000) <> 0 then gosub LED3ON if (WERT and &B10000000) <> 0 then gosub LED4ON pause 100: return #LED1FLASH gosub LED1ON: pause 5: gosub LED1OFF: pause 5: return #LED2FLASH gosub LED2ON: pause 5: gosub LED2OFF: pause 5: return 'Binär-Dezimal-Tabelle (4-Bit): ' WERT: 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 ' LED1-> 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 ' LED2-> 0 0 1 1 0 0 1 1 0 0 1 1 0 0 1 1 ' LED3-> 0 0 0 0 1 1 1 1 0 0 0 0 1 1 1 1 ' LED4-> 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 ' ' Der Dezimal-WERT kann in der 1. Zeile abgelesen werden, wenn ' man die zutreffende LED-Kombination aussucht (1->an, 0->aus). ' Der Wert des 2. Nibbles (high) kann genauso abgelesen werden, ' muss aber noch mit 16 multipliziert und zum 1. Nibble addiert ' werden, um den ganzen 8-Bit-Dezimalwert zu erhalten. '----------------------------------------------------------------------
Gruß Dirk







Zitieren

Lesezeichen