EJERCICIOS DE PROGRAMACION EN GAMBAS

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