Trabalho

TRABALHO DE VISUAL BASIC

TÉCNICO INFORMÁTICA 3° PERÍODO

PROF: RONIELY
ALUNOS(AS): ELÔ E SILVANE

'TRABALHO REALIZADO ROMARIO ANACLETO DAMASCENO
'MÁQUINA DE CALCULAR
'TÉCNICO DE INFORMÁTICA 3° PERÍODO
'DATA: 15/09/2011

Public Class CALCULADORA Public valor As Single Public operacao As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click text1.Text = text1.Text + "1" End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click text1.Text = text1.Text + "2" End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click text1.Text = text1.Text + "3" End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles text1.TextChanged

End Sub

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

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click text1.Text = text1.Text + "5" End Sub

Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click text1.Text = text1.Text + "6" End Sub

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click text1.Text = text1.Text + "7" End Sub

Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click text1.Text = text1.Text + "8" End Sub

Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click