miércoles, 19 de enero de 2011

CALCULADORA EN GAMBAS

REALIZAR UNA CALCULADORA CON LAS OPERACIONES BASICAS




PUBLIC SUB _new()

END

PUBLIC SUB Form_Open()

END

PUBLIC SUB ToggleButton1_Click()

TextBox3.Text = Val(TextBox1.text) + Val(TextBox2.text)
END

PUBLIC SUB ToggleButton2_Click()

  TextBox3.text = Val(TextBox1.text) - Val(TextBox2.text)

END

PUBLIC SUB ToggleButton3_Click()

    TextBox3.text = Val(TextBox1.text) * Val(TextBox2.text)

END

PUBLIC SUB ToggleButton4_Click()
TextBox3.text = Val(TextBox1.text) / Val(TextBox2.text)
 

END

PUBLIC SUB ToggleButton5_Click()

  END



PUBLIC SUB ToggleButton6_Click()

TextBox1.TEXT = ""
 
TextBox2.TEXT = ""
TextBox3.TEXT = ""

END