Ejercicio 35

“CLASES”

' Gambas class file

PUBLIC SUB Button1_Click()

DIM X AS Integer

X = ((TextBox3.Text + TextBox4.Text + TextBox5.Text) / 3)

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

Boleta. Show

Clases. Hide

Boleta. Text = X

ELSE

Message("OFICIO DE CITACION A LOS PADRES INVITANDO A UNA PLATICA AMISTOSA")

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()

FMain.Show

Clases. Hide

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