ARIAS DE LOS TRIANGULOS
PUBLIC SUB Frame4_MouseDown()
END
PUBLIC SUB Button1_Click()
TextBox3.Text = (TextBox1.Text *
TextBox2.Text) / 2
END
PUBLIC SUB Button2_Click()
DIM A AS Float
A = 3.14
TextBox5.Text = A * TextBox4.Text *
TextBox4.Text
END
PUBLIC SUB Button3_Click()
TextBox7.Text = TextBox6.Text ^ 2 +
TextBox6.Text ^ 2
END
PUBLIC SUB Frame1_MouseDown()
END
ECUACIONES
PUBLIC SUB Button1_Click()
TextBox2.Text = CInt(5 *
TextBox1.Text * TextBox1.Text + 3 * TextBox1.Text * TextBox1.Text -
TextBox1.Text)
TextBox5.Text = CInt(TextBox3.Text *
TextBox3.Text + 4 * TextBox4.Text * 2 + TextBox4.Text)
END
CLAIFICACIONES
' Gambas class file
PUBLIC SUB Label5_MouseDown()
END
PUBLIC SUB Button1_Click()
TextBox4.Text = CInt(TextBox1.Text +
TextBox2.Text + TextBox3.Text) / 3
END
PUBLIC SUB TextBox4_KeyPress()
END
EJERCICIO CON COMBOBOX
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text
TextBox2.Text = ComboBox2.Text
TextBox3.Text = ComboBox3.Text
END
PUBLIC SUB TextBox3_KeyPress()
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
Label1.Text = InputBox("INGRESE
EL VALOR DE X", "")
END
PUBLIC SUB Button2_Click()
TextBox2.Text = CInt(Label1.Text *
Label1.Text * Label1.Text - Label1.Text * Label1.Text + 2 - 3)
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button4_Click()
QUIT
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
ComboBox1.Text = ""
TextBox1.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox1.Text = ComboBox1.Text *
ComboBox1.Text * ComboBox1.Text - 7 * ComboBox1.Text * ComboBox1.Text
+ 2
END
Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB PictureBox1_MouseDown()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
ComboBox1.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox1.Text = -4 + 5 *
ComboBox1.Text * ComboBox1.Text - 4 * ComboBox1.Text * ComboBox1.Text
* ComboBox1.Text + 5 * 10
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
TextBox1.Text = (7 * ComboBox1.Text *
ComboBox1.Text - 4 * ComboBox1.Text / 2)
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox2.Text = CInt(5 *
TextBox1.Text * TextBox1.Text + 3 * TextBox1.Text * TextBox1.Text -
TextBox1.Text)
END
PUBLIC SUB TextBox1_KeyPress()
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox3.Text = CInt(TextBox1.Text *
TextBox1.Text + 3 * TextBox2.Text * TextBox2.Text * TextBox2.Text *
TextBox2.Text * TextBox1.Text + TextBox1.Text)
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Label3_MouseDown()
END
PUBLIC SUB Label4_MouseDown()
END
PUBLIC SUB Button1_Click()
Label4.Text = "RESPUESTA"
TextBox3.Text = CInt(TextBox1.Text *
TextBox1.Text + 4 * TextBox2.Text * 2 + TextBox1.Text)
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button3_Click()
QUIT
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox3.Text = CInt(TextBox1.Text *
TextBox1.Text + 2 * TextBox2.Text * 4 + TextBox1.Text -
TextBox2.Text)
END
PUBLIC SUB TextBox1_KeyPress()
END
Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
TextBox4.Text = (2 * TextBox1.text +
3 * TextBox3.text - 4 * TextBox3.text - 2)
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.text = ""
TextBox2.text = ""
TextBox3.text = ""
TextBox4.text = ""
END
Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button2_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
PUBLIC SUB Button1_Click()
TextBox3.Text = CInt(TextBox1.Text +
TextBox2.Text)
Message("LA SUMA ES CORRECTA")
END
Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
TextBox1.Text = 5 * ComboBox1.Text *
ComboBox1.Text - 3 * ComboBox1.Text + 5
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
DIM A AS Float
A = 3.1416
TextBox2.text = (A) * TextBox1.text *
TextBox1.text
END
PUBLIC SUB TextBox2_KeyPress()
END
Gambas class file
PUBLIC SUB Button1_Click()
TextBox3.Text = TextBox4.Text *
TextBox5.Text
IF CInt(TextBox3.Text) > 500 THEN
Form3.Hide
Form4.Show
ELSE
Form3.Hide
Form5.Show
ENDIF
END
PUBLIC SUB Button2_Click()
FMain.Show
Form3.Hide
END
PUBLIC SUB Button3_Click()
END
PUBLIC SUB Form_Open()
END
' Gambas class file
PUBLIC SUB Button1_Click()
IF CInt(TextBox1.Text) > 100 THEN
Message("EL MUNERO ES MAYOR Q
100")
ELSE
Message("EL NUMERO ES MENOR Q
100")
ENDIF
END
PUBLIC SUB Button2_Click()
FMain.Show
Form1.Hide
END
' Gambas class file
PUBLIC SUB Label4_MouseDown()
END
PUBLIC SUB ProgressBar1_MouseDown()
END
'Public CI AS String
PUBLIC SUB Button1_Click()
'CI= TextBox1.text
IF CStr(ComboBox1.Text) =
"ECUATORIANO" THEN
Form10.Label6.Text =
Form9.TextBox1.Text
Form10.Label7.Text =
Form9.TextBox2.Text
Form10.Label8.Text =
Form9.TextBox3.Text
Form10.Label9.Text =
CInt(Form9.TextBox2.Text * Form9.TextBox3.Text)
ENDIF
END
PUBLIC SUB Form_Open()
END
Gambas class file
PUBLIC SUB Button1_Click()
IF CheckBox1.Value <> 0 THEN
TextBox1.Text = 2 * 2 - 3 * 2 + 2
ENDIF
IF CheckBox2.Value <> 0 THEN
TextBox1.Text = 5 * 5 - 3 * 5 + 2
ELSE
IF CheckBox1.Value = 0 THEN
Message("No a elegido ningun
valor")
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
FMain.Show
Form1.Hide
END
PUBLIC SUB Button3_Click()
QUIT
END
PUBLIC SUB Button4_Click()
TextBox1.Text = ""
END
' Gambas class file
PUBLIC SUB Button1_Click()
DIM Numero, v, r, t, t1 AS Integer
t = Val(TextBox2.Text)
t1 = Val(TextBox3.Text)
FOR Numero = t TO t1
v = Val(TextBox1.Text)
r = (Numero * TextBox1.Text)
ListBox1.Add(Numero & "*"
& v & "=" & r)
NEXT
END
PUBLIC SUB Button2_Click()
Form1.Show
Form2.Hide
END
PUBLIC SUB Button3_Click()
QUIT
END
Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
IF CheckBox10.Value <> 0 THEN
Message("ES FFFF")
ENDIF
IF CheckBox1.Value <> 0 THEN
Message("ES HOMBRE")
ENDIF
IF CheckBox2.Value <> 0 THEN
Message("ES MUJER")
ENDIF
IF CheckBox3.Value <> 0 THEN
Message("SU SEXO ES OTRO")
ENDIF
IF CheckBox1.Value = 0 THEN
Message("NO INGRESADO")
ENDIF
END
PUBLIC SUB CheckBox4_Click()
END
' Gambas class file
PUBLIC SUB Button1_Click()
DIM A AS Integer
A = 1
REPEAT
ListBox1.Add("NARCISA")
A = A + 1
UNTIL A <= 10
END
Gambas class file
PUBLIC SUB Button1_Click()
DIM A, B, C AS Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
WHILE B <= C
ListBox1.Add(A & "" &
"/" & B & " =" & (A / B))
B = B + 1
WEND
END
PUBLIC SUB Button2_Click()
Form1.Hide
Form2.Show
END
PUBLIC SUB Button3_Click()
DIM A, B, C AS Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
REPEAT
B = B + 1
ListBox2.Add(A & "" &
"/" & B & " =" & (A / B))
UNTIL B <= C
END
PUBLIC SUB TextBox1_KeyPress()
END
Gambas class file
PUBLIC SUB Button1_Click()
DIM A, B, C AS Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
WHILE B <= C
ListBox1.Add(A & "" &
"*" & B & " =" & (A * B))
B = B + 1
WEND
END
PUBLIC SUB Button2_Click()
Form2.Hide
Form3.Show
END
Gambas class file
PUBLIC SUB Button1_Click()
DIM A, B, C AS Integer
A = Val(TextBox1.Text)
B = Val(TextBox2.Text)
C = Val(TextBox3.Text)
WHILE B <= C
ListBox1.Add(A & "" &
"-" & B & " =" & (A - B))
B = B + 1
WEND
END
PUBLIC SUB Button2_Click()
Form2.Hide
Form3.Show
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
DIM a, b, c AS Integer
a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
c = Val(TextBox3.Text)
IF CInt(a > b) AND (a > c) THEN
Message("el numero mayor es"
& a)
ENDIF
IF CInt(b > a) AND (b > c) THEN
Message("el numero mayor es"
& b)
ENDIF
IF CInt(c > a) AND (c > b) THEN
Message("el numero mayor es"
& c)
ENDIF
IF CInt(a = b) AND (b = c) AND (c = a)
Message("los numeros son iguales")
ENDIF
END
PUBLIC SUB Button2_Click()
QUIT
END
PUBLIC SUB Button3_Click()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
MovieBox1.Path = "jjjj.gif "
MovieBox1.Playing = TRUE
END
PUBLIC SUB Button2_Click()
MovieBox2.Path = "GIF25hjjjjj9.gif
"
MovieBox2.Playing = TRUE
END
PUBLIC SUB MovieBox2_MouseDown()
END
' Gambas class file
PUBLIC SUB Button1_Click()
IF CInt(TextBox1.Text) > 50 THEN
Message("EL NUMERO ES MAYOR")
IF CInt(TextBox1.Text) MOD 3 = 0
Message("ES MULTIPLO DE 3")
ELSE
Message("NO ES MULTIPLO DE 3")
ENDIF
ELSE
Message("NO ES MAYOR")
IF CInt(TextBox1.Text) MOD 3 = 0
Message("ES MULTIPLO DE 3")
ELSE
Message("NO ES MULTIPLO DE 3")
ENDIF
ENDIF
END
PUBLIC SUB Button2_Click()
QUIT
END
PUBLIC SUB TextBox1_KeyPress()
END
' Gambas class file
PUBLIC SUB Button1_Click()
FMain.Show
Form1.Hide
END
PUBLIC SUB Frame2_MouseDown()
END
PUBLIC SUB Button2_Click()
TextBox3.Text = CInt(TextBox1.text +
TextBox2.Text)
END
PUBLIC SUB Button3_Click()
TextBox6.Text = CInt(TextBox4.tex -
TextBox5.Text)
END
' Gambas class file
PUBLIC SUB Button1_Click()
DIM Numero, v, r, t, t1 AS Integer
t = Val(TextBox2.Text)
t1 = Val(TextBox3.Text)
FOR Numero = t TO t1
v = Val(TextBox1.Text)
r = (Numero * TextBox1.Text)
ListBox1.Add(Numero & "*"
& v & "=" & r)
NEXT
END
PUBLIC SUB Button2_Click()
Form1.Show
Form2.Hide
END
PUBLIC SUB Button3_Click()
QUIT
END
' Gambas class file
PUBLIC SUB Button1_Click()
DIM Numero, Y AS Integer
FOR Numero = -5 TO 15
Y = (5 * Numero * Numero + 8 * Numero
- 7)
ListBox1.Add("EL RESULTADO CON
EL NUMERO" & " " & Numero & " "
"ES" & " " & "=" & Y)
NEXT
END
PUBLIC SUB Button2_Click()
ListBox1.Clear
END
PUBLIC SUB Button3_Click()
Form1.Hide
Form2.Show
END
' Gambas class file
PUBLIC SUB _new()
END
PUBLIC SUB Form_Open()
END
PUBLIC SUB Button1_Click()
DIM Numero, v, r AS Integer
FOR Numero = 1 TO 12
v = Val(TextBox1.Text)
r = (Numero * TextBox1.Text)
ListBox1.Add(Numero & "*"
& v & "=" & r)
NEXT
END
PUBLIC SUB Button2_Click()
FMain.Hide
Form1.Show
END
PUBLIC SUB Button3_Click()
ListBox1.Clear
END