Apuntes

COMPARA LETRAS O NUMEROS

[pic]



Private Sub Command1_Click()
Dim cadena As String
cadena = InputBox("Teclea una letra o un número")
Label3.Caption = ""
Label3.Caption = cadena
If cadena= "a" Or cadena = "e" Or cadena = "i" Or cadena = "o" Or cadena = "u" Then
Label3.Caption = "Tecleaste una vocal"
Label2.Caption = cadena
Else
If cadena >= "0" And cadena 6 ThenMsgBox "OPCION INCORRECTA!!! ", vbInformation
Else

If elige < 0 Then
MsgBox "OPCION INCORRECTA!!! ", vbInformation
End If
End If
End If
End If
End If
End If
EndIf
End If
End Sub

MENU NO. 2

[pic]

Private Sub Check1_Click()
If Check1.Value = 1 Then
Form2.Show
End If
End Sub

Private Sub Check2_Click()
If Check2.Value = 1 Then
Form3.ShowEnd If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Form4.Show
End If
End Sub
CALCULADORA


















Private Sub Command1_Click()
Text3.Text =Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub

Private Sub Command3_Click()
Text3.Text = Val(Text1.Text) *Val(Text2.Text)
End Sub

Private Sub Command4_Click()
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
Text3.Text = Val(Text1.Text) Mod Val(Text2.Text)
End SubPrivate Sub Command6_Click()
Text3.Text = Val(Text1.Text) ^ Val(Text2.Text)
End Sub


Private Sub Command7_Click()
Text3.Text = Val(Text1.Text) \ Val(Text2.Text)
End Sub

Private SubCommand9_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text1.SetFocus
End Sub

PAR O IMPAR

[pic]


Private Sub Command1_Click()
If (Val(Text1.Text) Mod 2) = 0 Then
MsgBox "EL NUMERO ESPAR", vbExclamation, "COMPARA"
Else
MsgBox "EL NUMERO ES IMPAR", vbExclamation, "COMPARA"
End If
End Sub



SHAPE

[pic]

Private Sub Timer1_Timer()
If Shape1.Shape = 5 Then...