Calculadora Basica Con Codigo.. Visual Basic

 

Private Sub cmddivision_Click()
lbloperacion.Caption = "/"
End Sub

Private Sub cmdmultiplicacion_Click()
lbloperacion.Caption = "*"
End Sub

Private Sub cmdresta_Click()
lbloperacion.Caption = "-"
End Sub

Private Sub cmdresultado_Click()
If lbloperacion.Caption = "+" Then
lblresultado.Caption = Val(txtval1.Text) + Val(txtval2.Text)
Else
If lbloperacion.Caption = "-" Then
lblresultado.Caption = Val(txtval1.Text) - Val(txtval2.Text)
Else
If lbloperacion.Caption = "*" Then
lblresultado.Caption = Val(txtval1.Text) * Val(txtval2.Text)
Else
If lbloperacion.Caption = "*" Then
lblresultado.Caption = Val(txtval1.Text) * Val(txtval2.Text)
Else
End If
End If
End If
End If
End Sub



Private Sub cmdsuma_Click()
lbloperacion.Caption = "+"

Crucigrama De Visual Basic.........

Codigo Proyecto 1.. Visual Basic

Private Sub cmdcambiar_Click()
lbltexto.Caption = "mi primer proyecto en visual basic"
lbltexto.Visible = True
lbltexto.Appearance = 1
lbltexto.BackColor = &H80000003

End Sub

Private Sub cmdcambiar_Click()
lbltexto.Caption = "mi primer proyecto en visual basic"
lbltexto.Visible = True
lbltexto.Appearance = 1
lbltexto.BackColor = &H80000003

End Sub

Private Sub lbltexto_Click()

End Sub

Proyecto 1.. Visual Basic

Actividad Informatica..Sopa De Letras..

Botones De Visual Basic