VB Fußgesteuerte Schleifen

  • Hi,

    ich schreib morgen ne Arbeit und ich habe mir gerade die fußgesteuerten Schleifen genauer angeguckt und bin jetzt etwas unsicher.

    Do while = Führe Schleife aus während die Bedingung = True
    Do until = Führe die Schleife aus bis die Bedingung = True

    Aber:

    Loop while = Führe ENDE der Schleife aus während Bedingung = True
    oder
    Loop while = Führe die SCHLEIFE nochmal aus während Bedingung = True?

    Ich hoffe ihr versteht meine frage.

    danke im vorraus

    mfg

  • Ausserdem gibts aufm Übungsblatt ne Aufgabe, wo man den Zinseszins berechnen muss und in ein seperates Textfeld anzeigen lassen muss. Aber wie mache ich das, also den Zinseszins vom Grundbetrag und normalen Zins zu trennen?

  • is cool, wie früh du damit ankommst!!
    eigentlich müsste man sagen : sieh zu!!!

    ne fußgesteuerte schleife wird mindetens einmal ausgeführt, weil erst danach festgestellt wird, ob die bedingung fürs weitere ausführen erfüllt ist.

  • Also cih hab jetzt so ziemlich alles verstanden denke ich.

    nur ein problem gibts noch:

    Code:
    ______________________________________________________
    Dim Betrag As Integer
    Dim Zinsen As Integer
    Dim zähler As Integer
    Dim Tilgung As Integer
    Dim Ratenbetrag As Integer

    Private Sub cmd_Berechnen_Click()
    Betrag = txt_darlehen.Text
    Ratenbetrag = (Betrag / 100 * txt_Zinssatz.Text) + (Betrag / 100 * txt_tilgungssatz.Text)
    Do Until Endbetrag <= 0
    Zinsen = Betrag / 100 * txt_Zinssatz
    Tilgung = Ratenbetrag - Zinsen
    Betrag = Betrag - Tilgung
    zähler = zähler + 1
    Loop
    txt_laufzeit.Text = zähler
    End Sub
    __________________________________

    Das Problem liegt bei "Ratenbetrag = (Betrag / 100 * txt_Zinssatz.Text) + (Betrag / 100 * txt_tilgungssatz.Text)". Und zwar zeigt er mir wenn ich auf den command button drücke an "Runtime Error 424 -> Object required". Woran liegt das?

  • vb hat doch nen schönen debugger. lass doch den mal drüber laufen.
    spontan würd ich sagen, dir fehlt hier "txt_Zinssatz" ein .Text...