;BPS #19
;Erstelle ein Programm, dass vom Benutzer Zahlen entgegen nimmt (beispielsweise via Input)
;und deren summe ausgibt, sobald der Benutzer eine leere eingabe tätigt.
;
;29.4.2o12 SpionAtom


Local summe# = 0
Local eingabe$

   ;Das Programm läuft in einer Schleife, da sich Eingabe und
   ;Verarbeitung (Prüfen der Eingabe und Aufsummieren) ständig wiederholen.
   ;Die Schleife wird verlassen, sobald eine leere Eingabe erfolgt
   Print "Leere Eingabe um fortzufahren"
   Repeat
      ;Eingabe entgegennehmen mittels Input
      Print "Bitte Zahl eingaben"
      eingabe$ = Input$()
      If eingabe$ = "" Then
      End If
      ;Prüfen, ob die Eingabe eine Zahl ist mittels der selbstgeschriebenen Funktion istZahl
      If istZahl(eingabe$) Then
         ;Summe um den Eingabewert erhöhen
         summe# = summe# + Float(eingabe$)
      Else
         ;Benutzer auf falsche Eingabe hinweisen
         Print "Keine gültige Zahl!"
      End If
   Until eingabe$ = ""
   ;Summe ausgeben und Programm beenden
   Print "Die Summe der eingegebenen Zahlen lautet:"
   Print summe#
   WaitKey
   End

WaitKey
End



;Prüft, ob der übergebene String eine Zahl ist
;( in den meisten Fällen würde es auch ausreichen, txt$ in einen Int oder Float zu casten,    )
;( und dann zu schauen, ob der Wert ungleich 0 ist. Die 0 würde dadurch aber nicht abgedeckt. )
Function istZahl(txt$)

   ;ist der String leer, wird gleich falsch zurückgegeben.
   ;Besteht der String nur aus einem Minuszeichen oder einem Punkt,
   ;so wird auch falsch zurückgegeben
   If txt$ = "" Or txt$ = "-" Or txt$ = "." Then
      Return False
   End If

   ;Gehe jedes Zeichen durch, und prüfe, ob es eine Ziffer ist
   ;Es gibt zwei Ausnahmen, die auch jeweils nur einmal vorkommen dürfen:
   ;   Ein Minuszeichen am Anfang
   ;   Ein Punkt
   Local position, zeichen$
   For position = 1 To Len(txt$)
      ;Hole das nächste Zeichen aus txt$
      zeichen$ = Mid(txt$, position, 1)
      
      ;Prüfe zunächst, ob das Zeichen keine Ziffer ist.
      ;Dies geht ganz gut mit Ascii Vergleichen, da die
      ;Ziffern 0-9 nacheinander in der Ascii-Tabelle vorkommen
      If Asc(zeichen$) < Asc("0") Or Asc(zeichen$) > Asc("9") Then

         ;ungültiges Zeichen in txt$ gefunden
         If zeichen$ <> "-" And zeichen <> "." Then
            Print "m"
            Return False
         End If

         ;Prüfe, ob Zeichen ein Minuszeichen ist nicht am Anfang steht
         If zeichen$ = "-" And position > 1 Then
            Return False
         End If

         ;Prüfe, ob Zeichen ein Punkt ist, und ob noch ein Punkt vorkommt
         If zeichen$ = "." And Instr(txt$, ".", position + 1) > 0 Then
            Return False
         End If

      End If
   Next

   ;ist die Schleife komplett durchgelaufen, so ist txt$ eine gültige Zahl
   Return True

End Function