ScriptName "Convert"
ScriptAuthor "(dA) St"
ScriptVersion "(1)"
// Beschreibung:
Var l:Long;
Var b:Buffer[10];
Var w:Word;
Var WConst1:Word;

MoveConst(b[0], "1234");
MoveConst(WConst1, 1);

// Pfad: math -> data conversion
// Convert ( v1 , ByteQ , v3 , ByteZ ) ;
// v1 = Q-Typ
// ByteQ = Quelladr
// v3 = Z-Typ
// ByteZ = xPtr_Zieladr

// Feldbus-Seite ->
// RS-Seite ->
// Intern -> Ja

// min value =
// max value =

// Beispiel:
// Vorher
Convert ( b[0] , ASCII_HEX_4 , w , Word ) ;
// => b = 1234H = 4660 (dec)
// Nacher


Convert ( b[0] , ASCII_DEZ_4 , w , Word ) ;
// => b = 1234 (dec)

Convert ( w , Word, b[0], ASCII_HEX_4) ;
// => w = "04D2" : 0x4D2 = 1234 (dec)

Convert ( w , Word, b[0], ASCII_DEZ_4) ;
// => w = "1234"

CalculateWord ( w , WConst1 , add , w ) ;
// =  Ink(w)