Hallo,
Ich brauche eure Hilfe.

Ich muss als Hausaufgabe für Informatik ein Programm mit Gui schreiben, welches Die 1. Wurzel der eingegebenen Zahl zieht. und das in Visual Basic. Wir nutzen iner Schule und Ich Zuhause Microsoft Visual Studio 2008
Vorgaben sind: Textbox, Label, Button.
Ich wollte Die textbox zum eingeben der Zahl den Button zum Berechnen und das Label als Ausgabe der Wurzel.
Doch ich bekomme als ausgabe nur eine (0).

Mein btn_wurzelziehen Button code:

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Private Sub btn_wurzelziehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_wurzelziehen.Click         Dim Zahl As Double = txt_zahl.Text         Dim Ergebnis As Double         Dim Temp As Double         Dim Tempklein As Double         Dim Tempmittel As Double         Dim Tempgroß As Double         Tempgroß = Zahl / 2         Tempklein = 0         While Temp = Zahl             Tempmittel = (Tempgroß + Tempklein) / 2             Temp = Tempmittel * Tempmittel             If Temp <= Zahl Then                 Tempklein = Tempmittel             Else                 Tempgroß = Tempmittel             End If         End While         Ergebnis = Tempmittel         lbl_ergebnis.Text = Ergebnis       End Sub

Das Label heißt lbl_ergebnis
Die Textbox heiß txt_zahl
Der Button heißt btn_wurzelziehen

Bitte helft mir?

MeeriMomo

Kann mir denn keiner helfen?

es ist wirklich dringend.
Please help me?

MeeriMomo

wie wäre es denn mit sqr() und sqrt()?

B2T: "Temp" ist nicht definiert... deswegen gibs auch keine Whileschleife...

Zitat von Chumper

wie wäre es denn mit sqr() und sqrt()?

Weil wir die Funktion selber schreiben sollen, darum geht es ja primär in der Aufgabe

Zitat von Chumper

B2T: "Temp" ist nicht definiert... deswegen gibs auch keine Whileschleife...

Habe jetzt den Inhalt der While Schleife kopiert und davor gesetzt, jetzt bekomme ich zumindest ein Ergebnis, aber ein Falsches z.B. bei 9 müsste ja 3 rauskommen, es kommt aber 2,25 als ergebnis raus.

Woran kann das liegen?

p.s. Mein jetztieger Code

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Private Sub btn_wurzelziehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_wurzelziehen.Click         Dim Zahl As Double = txt_zahl.Text         Dim Ergebnis As Double         Dim Temp As Double         Dim Tempklein As Double         Dim Tempmittel As Double         Dim Tempgroß As Double         Tempgroß = Zahl / 2         Tempklein = 0           Tempmittel = (Tempgroß + Tempklein) / 2         Temp = Tempmittel * Tempmittel         If Temp <= Zahl Then             Tempklein = Tempmittel         Else             Tempgroß = Tempmittel         End If           While Temp = Zahl             Tempmittel = (Tempgroß + Tempklein) / 2             Temp = Tempmittel * Tempmittel             If Temp <= Zahl Then                 Tempklein = Tempmittel             Else                 Tempgroß = Tempmittel             End If         End While         Ergebnis = Tempmittel         lbl_ergebnis.Text = Ergebnis       End Sub

Du musst nur "Temp" definieren und die Bedingung für die Whileschleife ändern.
Und zwar auf: "While Temp != Zahl"

Habe jetzt Temp definiert und die While Bedingung geändert,
doch ich bekomme bei der While Bedingung immer die Fehler Meldung "Bezeichner erwartet"

MeeriMomo

da verweise ich mal eben hierrauf:
http://www.tutorials.de/forum/visual...h-zeichen.html

und korrigiere mich selber:
"While Temp <> Zahl"

Muss an die Stelle nicht eigentlich das Gleich Zeichen?

Weil Temp ist ja nur das Ergebnis der umkehr Probe.

MeeriMomo

Du hast die Funktion doch geschrieben.
Du sagst doch, dass das Quadrat von "Tempmittel" "Temp" zugewiesen werden soll.
Dann prüfst du, ob "Temp" = "Zahl" ist.
Demzufolge muss mMn die Schleife solange durchlaufen werden, wie "Temp" <> "Zahl" ist.

€dit: Der Kopf der Whileschleife definiert nicht den Zeitpunkt, an dem die Schleife abgebrochen wird, sondern an dem sie fortgesetzt wird.