EJERCICIO 23

EJERCICIOS CON EL SELECT CASE

SELECT CASE ComboBox1.Text

CASE ("+")

Form4.Hide

Form5.Show

CASE ("-")

Form4.Hide

Form6.Show

CASE ("*")

Form4.Hide

Form7.Show

CASE ("/")

Form4.Hide

Form8.Show

END SELECT

END

SEXTO FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

Form5.Hide

Form4.Show

END

PUBLIC SUB Button2_Click()

TextBox3.Text = (TextBox1.Text) + (TextBox2.Text)

END

PUBLIC SUB Button3_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END

SEPTIMO FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = (TextBox1.Text) - (TextBox2.Text)

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END

PUBLIC SUB Button3_Click()

Form6.Hide

Form4.Show

END

OCTAVO FORMULARIO

' Gambas class file

PUBLIC SUB Button1_Click()

TextBox3.Text = (TextBox1.Text) * (TextBox2.Text)

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END

PUBLIC SUB Button3_Click()

Form7.Hide

Form4.Show

END

NOVENO FORMULARIO

' Gambas class file

PUBLIC SUB Button3_Click()

Form8.Hide

Form4.Show

END

PUBLIC SUB Button1_Click()

TextBox3.Text = (TextBox1.Text) / (TextBox2.Text)

END

PUBLIC SUB Button2_Click()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

END