Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form4
- Dim OP As String
- Dim a, b, resultado, resp, pi As Double
- Private Sub Bt1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt1.Click
- TxtCalc.Text = TxtCalc.Text + "1"
- End Sub
- Private Sub Bt2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt2.Click
- TxtCalc.Text = TxtCalc.Text + "2"
- End Sub
- Private Sub Bt3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt3.Click
- TxtCalc.Text = TxtCalc.Text + "3"
- End Sub
- Private Sub Bt4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt4.Click
- TxtCalc.Text = TxtCalc.Text + "4"
- End Sub
- Private Sub Bt5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt5.Click
- TxtCalc.Text = TxtCalc.Text + "5"
- End Sub
- Private Sub Bt6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt6.Click
- TxtCalc.Text = TxtCalc.Text + "6"
- End Sub
- Private Sub Bt7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt7.Click
- TxtCalc.Text = TxtCalc.Text + "7"
- End Sub
- Private Sub Bt8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt8.Click
- TxtCalc.Text = TxtCalc.Text + "8"
- End Sub
- Private Sub Bt9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt9.Click
- TxtCalc.Text = TxtCalc.Text + "9"
- End Sub
- Private Sub Bt0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bt0.Click
- TxtCalc.Text = TxtCalc.Text + "0"
- End Sub
- Private Sub BtPonto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtPonto.Click
- TxtCalc.Text = TxtCalc.Text + ","
- End Sub
- Private Sub BtC_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtC.Click
- TxtCalc.Text = ""
- End Sub
- Private Sub Btsoma_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsoma.Click
- a = TxtCalc.Text
- TxtCalc.Text = " "
- OP = "Suma"
- End Sub
- Private Sub Btmenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btmenos.Click
- a = TxtCalc.Text
- TxtCalc.Text = " "
- OP = "Menos"
- End Sub
- Private Sub Btdividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btdividir.Click
- a = TxtCalc.Text
- TxtCalc.Text = " "
- OP = "Div"
- End Sub
- Private Sub Btmulti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btmulti.Click
- a = TxtCalc.Text
- TxtCalc.Text = " "
- OP = "Multi"
- End Sub
- Private Sub Btigual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btigual.Click
- b = Val(TxtCalc.Text)
- Select Case OP
- Case "Suma"
- resultado = a + b
- TxtCalc.Text = resultado
- Case "Menos"
- resultado = a - b
- TxtCalc.Text = resultado
- Case "Multi"
- resultado = a * b
- TxtCalc.Text = resultado
- Case "Div"
- resultado = a / b
- TxtCalc.Text = resultado
- Case "Elevado"
- resultado = Math.Pow(a, b)
- TxtCalc.Text = resultado
- Case "Porcento"
- resp = b / 100
- resultado = resp * a
- TxtCalc.Text = resultado
- End Select
- End Sub
- Private Sub LimparToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimparToolStripMenuItem.Click
- TxtCalc.Text = ""
- End Sub
- Private Sub CorDeFundoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CorDeFundoToolStripMenuItem.Click
- Dim cores As New ColorDialog()
- If cores.ShowDialog() = Windows.Forms.DialogResult.OK Then
- Me.BackColor = cores.Color
- End If
- End Sub
- Private Sub FecharToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FecharToolStripMenuItem.Click
- Me.Close()
- End Sub
- Private Sub Btraiz_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btraiz.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Sqrt(a)
- End Sub
- Private Sub Btcos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcos.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Cos(a)
- End Sub
- Private Sub Btsen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btsen.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Sin(a)
- End Sub
- Private Sub Bttan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bttan.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Tan(a)
- End Sub
- Private Sub Btlog10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btlog10.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Log10(d:=Val(a))
- End Sub
- Private Sub Btln_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btln.Click
- a = TxtCalc.Text
- TxtCalc.Text = Math.Log(d:=Val(a))
- End Sub
- Private Sub Btx2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btx2.Click
- a = TxtCalc.Text
- TxtCalc.Text = a * a
- End Sub
- Private Sub Btx3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btx3.Click
- a = TxtCalc.Text
- TxtCalc.Text = a * a * a
- End Sub
- Private Sub Btxy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btxy.Click
- a = TxtCalc.Text
- TxtCalc.Text = ""
- OP = "Elevado"
- End Sub
- Private Sub BtMM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtMM.Click
- TxtCalc.Text = -+TxtCalc.Text
- End Sub
- Private Sub Btpi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btpi.Click
- 'valor de pi
- 'TxtCalc.Text = Math.PI.ToString()
- 'pi = "3,14159265358979323846264338327950288"
- 'TxtCalc.Text = TxtCalc.Text + pi
- End Sub
- Private Sub Btcento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btcento.Click
- OP = "Porcento"
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement