Private Sub cmdcambiar_click()
lbltexto.Caption = "fabioandressaenz"
lbltexto.Visible = True
lbltexto.Appearance = 0
lbltexto.BackColor = &HC0C000
End Sub
viernes, 30 de marzo de 2012
jueves, 29 de marzo de 2012
taller visual basic
codigo:
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 = "+" Then
lblresultado.Caption = Val(txtval1.Text) + Val(txtval2.Text)
Else
If lbloperacion = "-" Then
lblresultado.Caption = Val(txtval1.Text) - Val(txtval2.Text)
Else
If lbloperacion = "*" Then
lblresultado.Caption = Val(txtval1.Text) * Val(txtval2.Text)
Else
If lbloperacion = "/" Then
lblresultado.Caption = Val(txtval1.Text) / Val(txtval2.Text)
End If
End If
End If
End If
End Sub
Private Sub cmdsuma_Click()
lbloperacion.Caption = "+"
End Sub
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 = "+" Then
lblresultado.Caption = Val(txtval1.Text) + Val(txtval2.Text)
Else
If lbloperacion = "-" Then
lblresultado.Caption = Val(txtval1.Text) - Val(txtval2.Text)
Else
If lbloperacion = "*" Then
lblresultado.Caption = Val(txtval1.Text) * Val(txtval2.Text)
Else
If lbloperacion = "/" Then
lblresultado.Caption = Val(txtval1.Text) / Val(txtval2.Text)
End If
End If
End If
End If
End Sub
Private Sub cmdsuma_Click()
lbloperacion.Caption = "+"
End Sub
jueves, 22 de marzo de 2012
jueves, 15 de marzo de 2012
miércoles, 7 de marzo de 2012
jueves, 1 de marzo de 2012
Suscribirse a:
Entradas (Atom)