Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren
INFO - FAQ - CC2-Forum - CCPro-Forum 

 Re: byte binär ausgeben Kategorie: Programmierung Basic (von J. Christoph - 23.05.2005 15:29)
 Als Antwort auf Re: byte binär ausgeben von Henrik - 21.05.2005 18:32
Hallo

Vom Prinzip her wie das mit den 8 Print, erzeugt jedoch
etwas kompakteren Code. Pro Anweisung wird entweder
'0' ausgegeben oder '1'. Hinweis: Das Minus statt dem
Plus ist dadurch bedingt, dass das Ergebnis des
Ausdrucks ((mybyte AND &H80)<>0)  entweder 0 oder -1
ist, und nicht 0 oder 1. Und &H30 - (-1) ist eben &H31

define mybyte byte

PUT &H30 - ((mybyte AND &H80)<>0)
PUT &H30 - ((mybyte AND &H40)<>0)
PUT &H30 - ((mybyte AND &H20)<>0)
PUT &H30 - ((mybyte AND &H10)<>0)
PUT &H30 - ((mybyte AND &H08)<>0)
PUT &H30 - ((mybyte AND &H04)<>0)
PUT &H30 - ((mybyte AND &H02)<>0)
PUT &H30 - ((mybyte AND &H01)<>0)

 Antwort schreiben

Bisherige Antworten: