Ejercicio 39

“CALIFICACIONES”

“CLASES”

' Gambas class file

PUBLIC SUB Button1_Click()

DIM D, Y, Z, C AS Integer

DIM A, B AS String

Y = TextBox3.Text

Z = TextBox4.Text

C = TextBox5.Text

A = TextBox1.Text

IF CStr(ComboBox1.Text) = "MEDICINA" THEN

D = ((Y + Z + C) / 3)

Boleta.Label6.Text = Y

Boleta.TextBox1.Text = Z

Boleta.TextBox2.Text = C

Boleta.Show

Clases.Hide

ELSE

Message("CITACION A LOS PADRES A UNA PLATICA")

Oficio.Show

Clases.Hide

ENDIF

END

PUBLIC SUB Button2_Click()

ComboBox1.Text = ""

TextBox1.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

TextBox5.Text = ""

END

PUBLIC SUB Button3_Click()

Form1.Hide

Clases.Show

END

“BOLETA”

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox1.Text = Boleta.Text

TextBox2.Text = Boleta.Text

TextBox3.Text = Boleta.Text

Label6.Text = Boleta.Text

END

PUBLIC SUB Button2_Click()

Clases.Show

Boleta.Hide

END

“OFICIO”

' Gambas class file

PUBLIC SUB Button1_Click()

Clases.Show

Oficio.Hide

END