Trabalho

Disponível somente no TrabalhosFeitos
  • Páginas : 3 (509 palavras )
  • Download(s) : 0
  • Publicado : 2 de junho de 2012
Ler documento completo
Amostra do texto
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ÉCNICODE 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 AsSystem.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) HandlesButton2.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 SubButton3_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 AsSystem.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.Clicktext1.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 SubButton7_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...
tracking img