Ü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: