miércoles, 23 de junio de 2010

Ver si un número es par o Impar


' A partir de aqui declaramos lo que hace que el navegador web se ejecute.
Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Const SW_NORMAL = 1

Dim a As Double ' Declaramos a como double.
Private Sub Command1_Click()
a = Text1.Text ' Asignamos a a el valor de lo que se introduce en text1.
If (a Mod 2 = 0) Then ' Si el residuo de a entre 2 es 0.
Label2.Caption = ("Es Par") ' Label2 dice que es par.
Else ' Si ocurre lo contrario (el residuo no es 0).
Label2.Caption = ("No es Par")
End If
End Sub

Private Sub Label3_Click()
' Al dar click abre http://estoyprogramando.blogspot.com.
Dim X
X = ShellExecute(Me.hwnd, "Open", "http://estoyprogramando.blogspot.com/", &O0, &O0, SW_NORMAL)
End Sub


Pueden descargar el archivo aquí.

0 comentarios:

Publicar un comentario