Brauche Hilfe beim Umrechnen

[a4b68e]

Danke.
Werde ich später ausprobieren, muss jetzt Reifen wechseln.

Falls es noch Vorschläge gibt, her damit.

Gruss

[Michael]

Ascii-Ausgabe in Bascom:

Print Asc(variable)

Gruß, Michael

[Sauerbruch]

Ascii-Ausgabe in Bascom:
Print Asc(variable)

Man muss allerdings beachten, dass (variable) erstens ein String sein muss, und zweitens nur das erste Zeichen des Strings umgewandelt wird. So schreibt´s zumindets die Bascom-Hilfe:

Assigns a numeric variable with the ASCII value of the first character of a string.

Aber wie man eine mehrstellige Zahl in Ziffern zerlegt hat radbruch ja schon vorgeschlagen, und die Umwandlung in Strings sollte ja auch kein größeres Problem sein.

Werde jetzt übrigens auch mal Reifen wechseln

[peterfido]

Dafür ist der LookUp Befehl recht gut geeignet. Ungetestet aus dem Kopf:

Umrechnen:
   If A > 10 Then
      Z1 = A Mod 10
      Z2 = A - z1
      Z2 = Z2 / 10
      Zeichen1 = Lookup(z1 , Werte)
      Zeichen2 = Lookup(z2 , Werte)
   Else
      Zeichen1 = Lookup(a , Werte)
      Zeichen2 = 0
   End If
Return

Werte:
Data &H30 , &H31 , &H32 , &H33 , &H34 , &H35 , &H36 , &H37 , &H38 , &H39

Okok - war wohl doch ein zu langer Tag:

Umrechnen:
   If A > 10 Then
      Z1 = A Mod 10
      Z2 = A - z1
      Z2 = Z2 / 10
      Zeichen1 = Z1 + &H30
      Zeichen2 = Z2 + &H30

   Else
      Zeichen1 = A + &H30
      Zeichen2 = 0
   End If
Return