Gambas: Beispielprogramme

Zurück zum Gambas-Inhaltsverzeichnis.

Erweiterter Taschenrechner

Formular

' Gambas class file
PUBLIC ergebnis AS Variant
PUBLIC speicher AS Variant
PUBLIC rechz AS Byte

PUBLIC SUB Button1_Click()
 Textbox1.Text = textbox1.Text & "1"
END
PUBLIC SUB Button2_Click()
 Textbox1.Text = textbox1.Text & "2"
END
PUBLIC SUB Button3_Click()
 Textbox1.Text = textbox1.Text & "3"
END
PUBLIC SUB Button7_Click()
 Textbox1.Text = textbox1.Text & "4"
END
PUBLIC SUB Button8_Click()
 Textbox1.Text = textbox1.Text & "5"
END
PUBLIC SUB Button9_Click()
 Textbox1.Text = textbox1.Text & "6"
END
PUBLIC SUB Button13_Click()
 Textbox1.Text = textbox1.Text & "7"
END
PUBLIC SUB Button14_Click()
 Textbox1.Text = textbox1.Text & "8"
END
PUBLIC SUB Button15_Click()
 Textbox1.Text = textbox1.Text & "9"
END
PUBLIC SUB Button18_Click()
 Textbox1.Text = textbox1.Text & "0"
END

PUBLIC SUB Button19_Click()
 Textbox1.Text = textbox1.Text & ","
END

PUBLIC SUB Button4_Click()
 rechz=1
 ergebnis=Val(Textbox1.Text)
 Textbox1.Text=" "
END

PUBLIC SUB Button10_Click()
 rechz=2
 ergebnis=Val(Textbox1.Text)
 Textbox1.Text=" "
END

PUBLIC SUB Button16_Click()
 rechz=3
 ergebnis=Val(Textbox1.Text)
 Textbox1.Text=" "
END

PUBLIC SUB Button21_Click()
 rechz=4
 ergebnis=Val(Textbox1.Text)
 Textbox1.Text=" "
END

PUBLIC SUB Button22_Click()
 rechz=5
 ergebnis=Val(Textbox1.Text)
 Textbox1.Text=" "
END

PUBLIC SUB Button20_Click()
 IF rechz=1 THEN
   ergebnis=ergebnis + Val(Textbox1.Text)
   textbox1.Text=ergebnis
 ELSE IF rechz=2 THEN
   ergebnis=ergebnis - Val(Textbox1.Text)
   textbox1.Text=ergebnis
 ELSE IF rechz=3 THEN
   ergebnis=ergebnis * Val(Textbox1.Text)
   textbox1.Text=ergebnis
 ELSE IF rechz=4 THEN
   ergebnis=ergebnis / Val(Textbox1.Text)
   textbox1.Text=ergebnis
 ELSE IF rechz=5 THEN
   ergebnis=ergebnis ^ Val(Textbox1.Text)
   textbox1.Text=ergebnis
 CATCH
 message.Error("Bitte nicht durch 0 teilen!")
 END IF
END

PUBLIC SUB Button12_Click()
 ME.Close
END

PUBLIC SUB Button5_Click()
 speicher=" "
 textbox2.BackColor=&HD9ECEB&
END

PUBLIC SUB Button11_Click()
 textbox1.Text=speicher
END

PUBLIC SUB Button6_Click()
 rechz=0
 ergebnis=" "
 textbox1.Text=" "
END

Berechnung der Miete

‘Gambas class file
PUBLIC SUB Button1_Click()
 DIM a1 AS Integer
 a1 = Val(textbox1.Text)
 IF rb1.Value=TRUE THEN
  a1=a1*4
 ELSE IF rb2.Value=TRUE THEN
  a1=a1*7
 ELSE IF rb3.Value=TRUE THEN
  a1=a1*10
 END IF
 textlabel7.Text=a1
END
PUBLIC SUB Button3_Click()
  ME.Close
END
PUBLIC SUB Button2_Click()
 Textlabel7.Text=” “
 textbox1.Text=” “
 rb3.Value=TRUE
END
PUBLIC SUB Form_Open()
 ME.Caption=”Berechnung der Miete”  --- Überschrift des Fensters
END