Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: Ever Cerna en Septiembre 10, 2013, 01:13:38 am

Título: Consulta con este algoritmo
Publicado por: Ever Cerna en Septiembre 10, 2013, 01:13:38 am

Consulta muchachos, quisas sea uno de esos algoritmos faciles que dejan x alli :P no logro que me salga esta pregunta:

"Digite un numero que muestre uno de los sgtes msjs... par positivo , par negativo... impar positivo, impar negativo...según sea el caso"

Lo clasico usnado MOD es lo unico que logre hacer haber si me hechan una manito con esto :)

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val (Text1.text)

    If Numero Mod 2 = 0 Then
        MsgBox "Es Numero Par", 32, "error"
    Else
        MsgBox "Es Numero Impar", 32, "error"
    End If
End Sub

Gracias saludos

Título: Re:Consulta con este algoritmo
Publicado por: LeandroA en Septiembre 10, 2013, 01:31:05 am

Creo que esto seria lo mas clásico

Código: (vb) [Seleccionar]

Option Explicit

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val(Text1.Text)

    If Numero Mod 2 Then
        If Numero < 0 Then
            MsgBox "Es Numero Impar Negativo"
        Else
            MsgBox "Es Numero Impar Positivo"
        End If
    Else
        If Numero < 0 Then
            MsgBox "Es Numero Par Negativo"
        Else
            MsgBox "Es Numero Par Positivo"
        End If
    End If
End Sub

y después hay otra de operación binaria

Código: (vb) [Seleccionar]

Option Explicit

Private Sub Command1_Click()
    Dim Numero As Integer

    Numero = Val(Text1.Text)

    If (Numero And 1) Then
        If Numero And &H80000000 Then
            MsgBox "Es Numero Impar Negativo"
        Else
            MsgBox "Es Numero Impar Positivo"
        End If
    Else
        If Numero And &H80000000 Then
            MsgBox "Es Numero Par Negativo"
        Else
            MsgBox "Es Numero Par Positivo"
        End If
    End If
End Sub