Gambas Test

 

Gambas 起動画面
どのようなソフトを作るかを聞いてくる。 Command aprrication　　　Database apprication Graphic apprication　　　　GTK+ 2 apprication GTK+ 3 apprication　　　　QT apprication SDL apprication　　　　　　Web apprication Web form apprication　　　Subversion apprication が選択できるようになっています。
「Graphic Apprication 」を選択してください。
できた電卓。

 

 

 

' Gambas class file Private a As Single Private b As Single Private c As Single 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 Button4_Click() TextBox1.Text = TextBox1.Text & "4" End Public Sub Button5_Click() TextBox1.Text = TextBox1.Text & "5" End Public Sub Button6_Click() TextBox1.Text = TextBox1.Text & "6" End Public Sub Button7_Click() TextBox1.Text = TextBox1.Text & "7" End Public Sub Button8_Click() TextBox1.Text = TextBox1.Text & "8" End Public Sub Button9_Click() TextBox1.Text = TextBox1.Text & "9" End Public Sub Button14_Click() TextBox1.Text = TextBox1.Text & "." End Public Sub Button13_Click() TextBox1.Text = TextBox1.Text & "0" End Public Sub Button10_Click()   c = 1   a = Val(TextBox1.text)   TextBox1.text = "" End Public Sub Button11_Click()   c = 2   a = Val(TextBox1.text)   TextBox1.text = "" End Public Sub Button12_Click()   c = 3   a = Val(TextBox1.text)   TextBox1.text = "" End Public Sub Button15_Click()   c = 4   a = Val(TextBox1.text)   TextBox1.text = ""   End Public Sub Button16_Click()   b = Val(TextBox1.Text) If c = 1 Then     TextBox1.text = a + b          Else If c = 2 Then       TextBox1.text = a - b            Else If c = 3 Then       TextBox1.text = a * b     Else If c = 4 Then       TextBox1.text = a / b          Else      Message.errore("Invalid")      Endif End Public Sub Button17_Click() TextBox1.Text = "" End