Strl() wandelt eine Variable in einen String ( = Folge von Asciizeichen) um.
Str() ist das Gegenteil von Val()
Str() benutzt die lokale Sprache ihrer Maschine ( hier also deutsch ), die in "locales" festgelegt wurde.
Sie können Ihre Einstellung mit folgendem Konsolenbefehl überprüfen: "locales" oder "echo $LANG".
Auf einer deutschen Maschine erhält man : de_DE@euro
Vorsicht: Mit Kommazahlen und der Ländereinstellung !!
Wollen Sie eine Zahl wieder in einen deutschen Text verwandeln ,
dann nutzen Sie str(zahl) zum umwandeln.
Es ist ein kleiner Rechentrainer , zur Übung der Subtraktion:
Der Code:
PUBLIC a AS Integer
PUBLIC b AS Integer
PUBLIC c AS Integer
PUBLIC d AS Integer
PUBLIC SUB Form_Open()
Textbox1.Text = ""
Textbox5.Text = ""
Textbox6.Text = ""
END
PUBLIC SUB Button1_Click()
ME.Close
END
PUBLIC SUB Button2_Click()
Randomize()
' Rem Zähler für die Zahl der Aufgaben
a = Int(Rnd(1) * 10)
'Rem Zufalls Zahl holen
c = Int(Rnd(1) * 10)
'Rem zweite Zufallszahl holen
b = a - c
textbox1.Text = " Subtrahiere " & Str$(a) & " minus " & Str$(b) & " und überprüfe das Ergebnis"
END
PUBLIC SUB Button3_Click()
d = Val(Textbox5.text)
bewertung
CATCH
IF ERROR THEN message.Info("Bitte geben Sie ihr Ergebnis in der Textbox neben dem Button TESTEN ein!")
END
SUB bewertung ()
IF d = c THEN textbox6.Text = "Richtig: " & Str$(a) & " - " & Str$(b) & " = " & Str(c)
IF d <> c THEN textbox6.Text = "Falsch !! Richtig wäre gewesen "
IF d <> c THEN textbox6.Text = textbox6.Text & Str$(a)& " - " & Str$(b) & " = " & Str$(c)
END
Theorie