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: Hex Kategorie: Programmierung Basic (von Windt H.J. - 2.02.2006 18:50)
 Als Antwort auf Hex von Michael - 2.02.2006 17:47
Hello,
Try this out.
Greetings,
H.J. Windt

define nr byte[1]
define loop byte[2]
define variable word[2]


for nr = 0 to 5
looktab cheksum, nr, variable
gosub print_hex
next
end

#print_hex
put &h26 : put &h68
for loop = 0 to 15
if (variable shr 12) = loop then if loop < 10 then put loop + &h30 else put loop + &h37
next
for loop = 0 to 15
if ((variable shr 8) - (variable shr 12 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37
next
for loop = 0 to 15
if ((variable shr 4) - (variable shr 8 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37
next
for loop = 0 to 15
if (variable - (variable shr 4 shl 4)) = loop then if loop < 10 then put loop + &h30 else put loop + &h37
next
print""
return

Table cheksum &H0123 &H4567 &H89AB &HCDEF 65535 0
tabend

 Antwort schreiben

Bisherige Antworten:

Re: Hex (von Achim - 2.02.2006 23:34)
    Re: Hex (von Windt H.J. - 3.02.2006 0:30)
        Re: Hex (von Achim - 3.02.2006 11:13)
            Re: Hex (von Windt H.J. - 4.02.2006 18:09)
        Re: Hex (von Michael - 3.02.2006 8:37)