vb [Source] Calculadora - Xtibia

[fsg 230]

Oláa pessoal! Esta source é referente a mais nova versão 3.0, então espero que gostem...

Eu fiz ela em Visual Basic 2008.

 

Public Class Form1
   Dim primeira, segunda, resultado As Double


   Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       primeira = CDbl(txtprimeiro.Text)
       segunda = CDbl(txtsegundo.Text)

       If txtequacao.Text = "+" Then
           resultado = primeira + segunda
       ElseIf txtequacao.Text = "-" Then
           resultado = primeira - segunda
       ElseIf txtequacao.Text = "*" Then
           resultado = primeira * segunda
       Else
           resultado = primeira / segunda
       End If
       txtresult.Text = resultado
   End Sub

   Private Sub mais_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
       txtequacao.Text = "+"
   End Sub

   Private Sub vezes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles x.Click
       txtequacao.Text = "*"
   End Sub

   Private Sub dividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       txtequacao.Text = "/"
   End Sub

   Private Sub menos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       txtequacao.Text = "-"
   End Sub

   Private Sub SairToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SairToolStripMenuItem.Click
       End
   End Sub

   Private Sub logoxtibia_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
       Process.Start("www.xtibia.com")
   End Sub

   Private Sub CréditosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CréditosToolStripMenuItem.Click
       Form3.Show()
       Me.Hide()
   End Sub
End Class

 

É bem simples, porém para quem quer aprender é muito bom!

Espero que gostem...

[curruwilliam 28]

Pow cara obg por compartilhar..

Vou tentar faser uma

[fsg 230]

Cara, quaisquer dúvida pode postar que irei ajudar!

Depois te ajudo em algumas coisas