Gambas: Beispielprogramme4

Zurück zum Gambas-Inhaltsverzeichnis.

Es folgen zwei Beispiele zur Schleifenprogrammierung an Hand der Zinsrechnung.

Einfache Schleife

' Gambas class file
PUBLIC kapital AS Float
PUBLIC zins AS Float
PUBLIC dauer AS Integer
PUBLIC SUB Button3_Click()
 ME.Close  
END
PUBLIC SUB Button2_Click()
 Textbox1.text = ""  
 Textbox2.text = ""
 Textbox3.text = ""
END
PUBLIC SUB Button1_Click()
 DIM X AS Integer
 kapital=textbox1.Text
 zins=textbox2.text
 dauer=textbox3.Text
 FOR x = 1 TO dauer STEP 1
   kapital= kapital+(kapital*zins/100)
 NEXT
 label1.Text= "Endkapital " &  Round (kapital,-2) & " Euro"
END
PUBLIC SUB Label1_MouseDown() 
END
PUBLIC SUB Form_Open()
END

Erweitere Schleife

PUBLIC euro AS Float
PUBLIC prozent AS Float
PUBLIC SUB Button3_Click()
  ME.Close
END
PUBLIC SUB Button2_Click()
 Textbox1.Text = ""
 Textbox2.Text = ""
END
PUBLIC SUB Button1_Click()
 DIM Jahre AS Integer
 euro=Val(Textbox1.Text)
 prozent=Val(Textbox2.Text)
 DO WHILE euro < 1000000
   euro = euro+(euro*prozent/100) 
   Jahre=Jahre+1
 LOOP
 textlabel5.Text= "Nach " & Jahre & " Jahre sind sie Millionaer und haben ein Kapital von " & euro & " Euro."
END
PUBLIC SUB TextBox1_KeyPress()
END