Fungoval tento zápis části programu** EDIT** v Bascomu: EDIT/
dim a$ as string *1
…
dim h$ as string *1
dim cislo as byte
a$ = “1”
b$ = “1”
…
h$=“0”
cislo = binval(a$ + b$ + c$ +d$ +e$ + f$ + g$ + h$)
Fungoval tento zápis části programu** EDIT** v Bascomu: EDIT/
dim a$ as string *1
…
dim h$ as string *1
dim cislo as byte
a$ = “1”
b$ = “1”
…
h$=“0”
cislo = binval(a$ + b$ + c$ +d$ +e$ + f$ + g$ + h$)
Jelikož nejsme jasnovidci, tak nám musíš říci pro jaký překladač to má být.
A píšeš, že ten kód fungoval, tak v čem je problém?
Omlouvám se, nějak mě nedošlo, že existuje více jazyků, je to pro Basicom.
Bascom nemá rád složité výrazy na pravé straně.
Zkus
[code]Dim Cislo$ As String * 8
Dim Cislo As Byte
Cislo$ = A$ + B$ + C$ + D$ + E$ + F$ + G$ + H$
Cislo = Binval(cislo$)
[/code]