Visual Basic Forum

thedarkside2 · Newbie Anmeldedatum: 09.05.2010 Beiträge: 1

Hallo, ich bin neu hier im Board. Leider hab ich nirgends einen Thread zum Lösen eines solch einfachen Problems gefunden.

Thematik:
Bitte geben Sie eine Zahl ein: (Beíspiel 5)
dann rechnet das Programm 1² + 2² + 3² + 4² + 5² = Ergebnis.
Dieser Prozedur soll solange laufen bis der Benutzer die Zahl 0 eingibt.
Dies hab ich ja bereits zum laufen gebracht.

Nun aber das eigentliche Problem. Ich will eine Abbruchbedingung einbauen. Sollte der Benutzer keine Eingabe machen (gleich mit enter bestätigen) oder sollte der Benutzer einen Buchstaben eingeben dann soll (WriteLine "Bitte geben Sie eine gültige Zahl ein") kommen.

ich hoffe ihr könnt mir helfen.

[code]Imports System.Console
Module Module1
Dim Anzahl As String
Dim Durchläufe As Integer
Dim ZwErg As Integer
Dim Summe As Integer
Dim numericCheck As Boolean

Sub Main()

Do
Summe = 0
WriteLine("Bitte geben Sie die Anzahl der Durchläufe ein")
Anzahl = ReadLine() ' nein, readline gibt Ihnen einen string zurück, aus dem müssen Sie eine Int machen
Durchläufe = CInt(Anzahl)
'If Durchläufe = "" Then WriteLine("Bitte gültige Zahl eingeben")
numericCheck = IsNumeric(Durchläufe)

If numericCheck = False Then WriteLine("Geben Sie eine gültige Zahl ein") ' damm müssen Sie nun aber auch eien gültige zahl erneut holen.
If Durchläufe = 0 Then
Exit Do
End If

For i = 1 To Durchläufe + 0 ' unschön, das sollte schon eine int sein
ZwErg = i ^ 2
Summe += ZwErg
Ausgabe(i)
Next
Endergebnis()
WriteLine()

'Warten()

Loop
WriteLine("Das Programm wird beendet")

End Sub

Sub Ausgabe(ByVal i)
Write(i & "²" & "+")
End Sub

'Sub Warten()
' ReadLine()
'End Sub

Sub Endergebnis()
WriteLine("=" & Summe)
End Sub

End Module
[code]

[b]sobal ich jetzt keine Eingabe mache oder einen Buchstaben eingebe dann flieg ich aus dem Programm und die Zeile
Durchläufe = CInt(Anzahl) wird unterringelt - es erscheint die Fehlermeldung: Ungültige Konvertierung von der Zeichenfolge k in Typ Integer.

ich dachte mit diesem CInt (wandle ich den String in einen Integer um).

Hoffe ihr könnt mir helfen.

Mit bestem Dank bereits im Voraus.,
_________________