String in Zahl umwandeln und Prüfen

Übersicht BlitzBasic Beginners-Corner

Neue Antwort erstellen

 

Leodan

Betreff: String in Zahl umwandeln und Prüfen

BeitragSa, Feb 19, 2005 22:44
Antworten mit Zitat
Benutzer-Profile anzeigen
Moin

Ich bin Anfänger und und schreibe gerade mit der Escape GUI
ein Kleines Programm wo es nötig ist in ein Input Feld eine Zahl
einzugeben.

Den String der dabei herrauskommt wandle ich einfach in eine
Zahl um. Kein Problem soweit, doch will ich des sauberen
Programierens wegen überprüfen ob auch wirklich nur eine Zahl
eingegeben wurde.

meine idee wäre jetzt bei den String Zeichen für Zeichen zu untersuchen ob etwas anderes als eine Zahl ein Punkt oder ein Komma da steht.

Frage ? Gibt es da nicht einen Eleganteren Weg man sieht als Anfänger ja leider häufig den Wald vor lauter Bäumen nicht. Embarassed

Danke im vorraus
 

IonPainter

BeitragSa, Feb 19, 2005 23:11
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
A$ = Input("Zahl bitte:")

For i = 1 To Len(a$)

If Asc(Mid$(a$, i, 1)) > 57 Or Asc(Mid$(a$, i, 1)) < 48 Then

   Print "Bäbä es wurde keine Zahl eingegeben lala"
   ;Fehlerbehandlung goes Here!
   WaitKey
   End


EndIf

Next

Print "Es wurde eine Zahl eingegeben"
WaitKey
End



einfacher gehts leider nicht...
 

Leodan

BeitragSa, Feb 19, 2005 23:29
Antworten mit Zitat
Benutzer-Profile anzeigen
Danke für die schnelle antwort ist schon wesentlich kürzer
als meine idee Very Happy

Ließ sich leicht an meine Bedürfnisse anpassen auf die
Idee mit der ungleichung hät ich mal gleich kommen sollen
nochmal danke

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group