Stránka 1 z 1
Hledám program pro převod textu na binární kód
Napsal: 05 led 2013 14:46
od dapro
Ahoj nevíte kde bych mohl stáhnout program na převod textudo binárního kodu ?
Hledal jsem na internetu, ale nic jsem nenašel.
Re: Binární kod
Napsal: 05 led 2013 15:24
od 121jirkus
Re: Binární kod
Napsal: 05 led 2013 20:34
od faraon
Přímo tady, v BASICu:
Kód: Vybrat vše
10 input "Zadej text: ",t$
20 for i=1 to len(t$)
30 m=128
40 z=asc(mid$(t$,i,1))
50 if m>z then goto 90
60 print "1";
70 z=z-m
80 goto 100
90 print "0";
100 m=int(m/2)
110 if m>0 then goto 50
120 print " ";
130 next i
140 print
150 exit
Re: Binární kod
Napsal: 05 led 2013 21:49
od dapro
faraon a s jakou koncovkou to mám uložit v PB ?
Re: Binární kod
Napsal: 05 led 2013 22:32
od faraon
Co je PB? Já to mám v souboru asc2bin.bas a spouštím to v Chipmunk Basicu, ale když na konci místo exit dáš system, tak to vezme i QBasic, jen na vstupu můžeš mít řetězec dlouhý maximálně 255 znaků.
01010100 01101111 01101000 01101100 01100101 00100000 01101010 01100101 00100000 01101101 01100001 01101100 01111001 00100000 01110100 01100101 01110011 01110100 00101110