Visual Basic Forum

Max · Newbie Anmeldedatum: 10.02.2010 Beiträge: 5

hallo wir nehmen gerade Visual Basic im Informatik Unterricht durch und ich wollt da mal etwas fragen.

ich hab diesen If befehl hier

If gross Or klein <= 0 Then
Label3.Text = (" du Blöde Banane !!!!!!!")

Else
Label3.Text = (" Alles im Grünen Bereich ")
End If

gross und klein sind beides double speicher

jetzt hab ich das problem egal was in gross oder klein drinne ist es kommt immer du Blöde Banane im Label3.text :S

auch wenn gross und klein eigentlich größer als 0 sind :S

was könnte ich falsch gemacht haben ?
_________________

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

hi
ganz easy ^^

If gross <= 0 Or klein <= 0 Then

kleiner fehler große wirkung
lg

Max · Newbie Anmeldedatum: 10.02.2010 Beiträge: 5

hey vielen dank das hatt mein Problem behoben leider habe ich jetzt ein anderes Problem also hier ist nochmal das ganze gewirr !

Public Class Form1
Dim gross, klein, zwischen As Double

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

gross = TextBox1.Text
klein = TextBox2.Text

If gross <= 0 Or klein <= 0 Then

Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !")
End If

If gross > 0 And klein > 0 Then

Label3.Text = (" Alles im Grünen Bereich ")
End If

If gross < klein Then
zwischen = gross
gross = klein
klein = zwischen
End If

Label1.Text = gross
Label2.Text = klein

End Sub
End Class

das soll eine kleine aplikation zum finden des GGT zweier zahlen werden und durch die warn Nachricht soll gesagt werden das keine zahlen die kleiner sind als 0 oder 0 sind

also meine Form ist so aufgebaut das sich da 2 textboxen befinden für die Zahlen (von denen später der GGT errechnet wird)
und unter jeder Textbox 1 Label ist welches dann nochmal die Zahlen anzeigt (verlangt unser lehrer)

wenn ich in die rechte Textbox die größere Zahl schreibe von den beiden ordnet der die nochmal in dem er die größere zahl immer ins linke label packt und die kleinere ins rechte label Smile

okay soweit sogut mein Loop befehl soll da jetzt irgendwo rein und soll einfach nur folgendes machen !!!!

wenn ich eine Negative Zahl oder die 0 da eingebe und dann den Knopf drücke soll nur die Fehler meldung auftauchen und die zahlen sollen NICHT geordnet werden

allerdings hängt sich das irgendwie immer auf wenn der Loop befehl irgendwo drin ist :S

naja hoffe ihr könnt mir helfen !

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536

was heisst dein loop befehl hängt da irgendwo drin?

ich sehe nix von loop
...
aber schau
der code wird zeile für zeile abgearbeitet
wenn du jetzt
wie z.b.
If gross <= 0 Or klein <= 0 Then

Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !")
End If

da hast
wird weiter gearbeitet.
wennst jetzt aber noch hinschreibst exit sub
also

If gross <= 0 Or klein <= 0 Then

Label3.Text = ("Bitte nur Positive zahlen die größer als 0 sind !")
exit sub
End If

dann wird die ganze prozedur abgebrochen wenn die zahl kleiner als 0 ist
vl hilft dir dass bei deinem problem weiter lg

Max · Newbie Anmeldedatum: 10.02.2010 Beiträge: 5

du bist mein verdammter Held vielen dank Smile

_________________

christopher.g · Überflieger Anmeldedatum: 03.05.2008 Beiträge: 536