Bueno yo soy un amante de las calculadoras y hago una cada vez que me voy a dedicar varios meses a un lenguaje hasta ahora me he dedicado bastante a dos y aqui les traigo la que esta hecha en vb6
Private Sub Command1_Click()
Text2 = "+"
End Sub
Private Sub Command10_Click()
If Option1.Value = True Then
Text5 = Text5 + "5"
End If
If Option2.Value = True Then
Text3 = Text3 + "5"
End If
End Sub
Private Sub Command11_Click()
If Option1.Value = True Then
Text5 = Text5 + "4"
End If
If Option2.Value = True Then
Text3 = Text3 + "4"
End If
End Sub
Private Sub Command12_Click()
If Option1.Value = True Then
Text5 = ""
End If
If Option2.Value = True Then
Text3 = ""
End If
End Sub
Private Sub Command13_Click()
Text4 = ""
End Sub
Private Sub Command14_Click()
If Option1.Value = True Then
Text5 = Text5 + "7"
End If
If Option2.Value = True Then
Text3 = Text3 + "7"
End If
End Sub
Private Sub Command15_Click()
If Option1.Value = True Then
Text5 = Text5 + "8"
End If
If Option2.Value = True Then
Text3 = Text3 + "8"
End If
End Sub
Private Sub Command16_Click()
If Option1.Value = True Then
Text5 = Text5 + "9"
End If
If Option2.Value = True Then
Text3 = Text3 + "9"
End If
End Sub
Private Sub Command17_Click()
If Option1.Value = True Then
Text5 = Text5 + "0"
End If
If Option2.Value = True Then
Text3 = Text3 + "0"
End If
End Sub
Private Sub Command18_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
Text2 = "*"
End Sub
Private Sub Command3_Click()
Text2 = "-"
End Sub
Private Sub Command4_Click()
Text2 = "/"
End Sub
Private Sub Command5_Click()
If Text5 = "" Or Text3 = "" Or Text2 = "" Then
Beep
MsgBox "Te falta algunos de los Datos requeridos para operar"
End If
If Text5 <> "" Then
If Text3 <> "" Then
If Text2 = "+" Then
Text4 = Abs(Text5) + Abs(Text3)
End If
If Text2 = "-" Then
Text4 = Text5 - Text3
End If
If Text2 = "*" Then
Text4 = Text5 * Text3
End If
If Text2 = "/" Then
Text4 = Text5 / Text3
End If
End If
End If
End Sub
Private Sub Command7_Click()
If Option1.Value = True Then
Text5 = Text5 + "2"
End If
If Option2.Value = True Then
Text3 = Text3 + "2"
End If
End Sub
Private Sub Command8_Click()
If Option1.Value = True Then
Text5 = Text5 + "3"
End If
If Option2.Value = True Then
Text3 = Text3 + "3"
End If
End Sub
Private Sub Command9_Click()
If Option1.Value = True Then
Text5 = Text5 + "6"
End If
If Option2.Value = True Then
Text3 = Text3 + "6"
End If
End Sub
Private Sub Form_Load()
veces = 1
End Sub
Private Sub Command6_Click()
If Option1.Value = True Then
Text5 = Text5 + "1"
End If
If Option2.Value = True Then
Text3 = Text3 + "1"
End If
End Sub
Ahora quiero aclarar que cuando estaba haciendo la calculadora uno de los textbox no se donde quedo xD y tube que poner otro entonces el primer numero quedo en el textbox5 en vez de textbox uno xD
Aqui un pantallaso!
Bueno hasta ahora he aprendido el lenguaje intuitivamente sin ver ningun manual
VB6 =
Autor