INT in ein BOOL Array schreiben

Hallo Matze,

ein Binärausgang ist doch nichts anderes als ein BOOL Array. Wenn du die Ausgänge in einer Forschleife zuweist hast du es. Geht bestimmt auch noch schöner

Gruß
Andreas

Zitat von MaBo

....
Damit steht in den Array folgendes.

bArray[1]=0
bArray[2]=1

Das geht nichts... keine 0 oder 1 fuer BOOL (alle Werte muessen TRUE oder FALSE sein).

Aber man kann ganz einfach Int2Bits.src erstellen (Sub, keine Funktion):

DEF Int2Bits(i:in,ba:out)
	DECL INT i
	DECL BOOL ba[]

	ba[1]= (i b_and 'B00000001') <> 0
	ba[2]= (i b_and 'B00000010') <> 0
	ba[3]= (i b_and 'B00000100') <> 0
	ba[4]= (i b_and 'B00001000') <> 0
	ba[5]= (i b_and 'B00010000') <> 0
	ba[6]= (i b_and 'B00100000') <> 0
	ba[7]= (i b_and 'B01000000') <> 0
	ba[8]= (i b_and 'B10000000') <> 0
END

Beispiel:

Int2Bits(5,bArray[])

Oder mit etwas weniger Schreibarbeit könnte es auch so funktionieren, und wäre schnell erweiterbar:

DEF Int2Bits(i:in,ba:out)
	DECL INT i
	DECL BOOL ba[]
  decl int j,k
       j=1
       for k=1 to 8
	ba[k]= (i b_and j) <> 0
        j=j*2
      endfor
END

noch einfacher:

Signal l_temp $out[1] to $out[16]

l_temp=wertAlsInteger

for l_idx=1 to 16
boolArry[l_idx]=out[l_idx]
endfor