elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.
 
Inicio Ayuda Buscar Ingresar Registrarse
28 Mayo 2012, 04:33  


Tema destacado: [AIO elhacker.NET] Compilación herramientas análisis y desinfección malware

+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (Moderador: [D4N93R])
| | | |-+  Ayudas o sugerencias - programa signo zodiaco		 0 Usuarios y 2 Visitantes están viendo este tema.
Páginas: 1 [2] Ir Abajo Respuesta Imprimir
Autor Tema: Ayudas o sugerencias - programa signo zodiaco  (Leído 9,240 veces)
Xhushito

Desconectado Desconectado

Mensajes: 97


Ver Perfil
SOLUCIÓN !!!
« Respuesta #15 en: 3 Junio 2009, 03:44 »
Bien para los interesados aquí está el código, como todavía veo que la prgunta está abierta, entonces posteo el código, OJO que esto es en modo consola, M@deb lo realizó en form, pero yo lo adapté a consola. En fin...

Código:
Imports system.console

Module module1
    Sub main()

        Dim dia As Integer
        Dim mes As String
        Dim feberror As Integer = 29

        Const horoaries As String = "hoy tendrás un gran día"
        Const horotauro As String = "hoy tendrás un gran día"
        Const horogeminis As String = "hoy tendrás un gran día"
        Const horocancer As String = "hoy tendrás un gran día"
        Const horoleo As String = "hoy tendrás un gran día"
        Const horovirgo As String = "hoy tendrás un gran día"
        Const horolibra As String = "hoy tendrás un gran día"
        Const horoescorpio As String = "hoy tendrás un gran día"
        Const horosagitario As String = "hoy tendrás un gran día"
        Const horocapricornio As String = "hoy tendrás un gran día"
        Const horoacuario As String = "hoy tendrás un gran día"
        Const horopiscis As String = "hoy tendrás un gran día"

        Writeline("Por favor, ingrese el dia de nacimiento")
        Dia = readline()
        If dia = (dia < 1) Or (dia > 31) Then
            WriteLine("Error, los meses solo contienen dias entre 1 y 31")
            ReadLine()
        Else
            WriteLine("Ahora ingrese el mes de nacimiento")
            mes = ReadLine()
            If mes = ("febrero") And (dia > 29) Then
                WriteLine("Oh, Oh!!!, febrero no tiene " & dia & " días, se le asignará 29 como valor")
                ReadLine()
                dia = 29
            Else
            End If
            mes = UCase(mes)
            Select Case mes
                Case "ENERO"
                    If dia < 21 Then
                        WriteLine("CAPRICORNIO " & horocapricornio)
                        ReadLine()
                    Else : WriteLine("ACUARIO " & horoacuario)
                        ReadLine()
                    End If
                Case "FEBRERO"
                    If dia < 20 Then
                        WriteLine("ACUARIO " & horoacuario)
                        ReadLine()
                    Else : WriteLine("PISCIS " & horopiscis)
                        ReadLine()
                    End If
                Case "MARZO"
                    If dia < 21 Then
                        WriteLine("PISCIS " & horopiscis)
                        ReadLine()
                    Else : WriteLine("ARIES " & horoaries)
                        ReadLine()
                    End If
                Case "ABRIL"
                    If dia < 21 Then
                        WriteLine("ARIES " & horoaries)
                        ReadLine()
                    Else : WriteLine("TAURO " & horotauro)
                        ReadLine()
                    End If
                Case "MAYO"
                    If dia < 21 Then
                        WriteLine("TAURO " & horotauro)
                        ReadLine()
                    Else : WriteLine("GEMINIS " & horogeminis)
                        ReadLine()
                    End If
                Case "JUNIO"
                    If dia < 21 Then
                        WriteLine("GEMINIS " & horogeminis)
                        ReadLine()
                    Else : WriteLine("CANCER " & horocancer)
                        ReadLine()
                    End If
                Case "JULIO"
                    If dia < 24 Then
                        WriteLine("CANCER " & horocancer)
                        ReadLine()
                    Else : WriteLine("LEO " & horoleo)
                        ReadLine()
                    End If
                Case "AGOSTO"
                    If dia < 24 Then
                        WriteLine("LEO " & horoleo)
                        ReadLine()
                    Else : WriteLine("VIRGO " & horovirgo)
                        ReadLine()
                    End If
                Case "SETIEMBRE"
                    If dia < 24 Then
                        WriteLine("VIRGO " & horovirgo)
                        ReadLine()
                    Else : WriteLine("LIBRA " & horolibra)
                        ReadLine()
                    End If
                Case "OCTUBRE"
                    If dia < 24 Then
                        WriteLine("LIBRA " & horolibra)
                        ReadLine()
                    Else : WriteLine("ESCORPIO " & horoescorpio)
                        ReadLine()
                    End If
                Case "NOVIEMBRE"
                    If dia < 22 Then
                        WriteLine("ESCORPIO " & horoescorpio)
                        ReadLine()
                    Else : WriteLine("SAGITARIO " & horosagitario)
                        ReadLine()
                    End If
                Case "DICIEMBRE"
                    If dia < 22 Then
                        WriteLine("SAGITARIO " & horosagitario)
                        ReadLine()
                    Else : WriteLine("CAPRICORNIO " & horocapricornio)
                        ReadLine()
                    End If
                Case Else
                    Write("Oh, oh!!!, ... Ha ocurrido un error los datos ingresados no son válidos")
                    ReadLine()
            End Select
            End If
    End Sub
End Module
En línea
h0oke


Desconectado Desconectado

Mensajes: 2.058


Coder ~


Ver Perfil WWW
Re: Ayudas o sugerencias - programa signo zodiaco
« Respuesta #16 en: 3 Junio 2009, 03:52 »
Código
        Const horoaries As String = "hoy tendrás un gran día"
        Const horotauro As String = "hoy tendrás un gran día"
        Const horogeminis As String = "hoy tendrás un gran día"
        Const horocancer As String = "hoy tendrás un gran día"
        Const horoleo As String = "hoy tendrás un gran día"
        Const horovirgo As String = "hoy tendrás un gran día"
        Const horolibra As String = "hoy tendrás un gran día"
        Const horoescorpio As String = "hoy tendrás un gran día"
        Const horosagitario As String = "hoy tendrás un gran día"
        Const horocapricornio As String = "hoy tendrás un gran día"
        Const horoacuario As String = "hoy tendrás un gran día"
        Const horopiscis As String = "hoy tendrás un gran día"

Una pregunta.. ¿Por qué declaras tantas veces lo mismo? No daría igual que uses:

Código
Const Horoscopo As String= "Hoy tendrás un gran dia"
En línea
Xhushito

Desconectado Desconectado

Mensajes: 97


Ver Perfil
Re: Ayudas o sugerencias - programa signo zodiaco
« Respuesta #17 en: 6 Junio 2009, 18:26 »
Cierto ... tu lógica es aplastante, pero sabes, yo consideré la oportunidad de decirle a cada signo una cosa distinta, y como ves no soy bueno con eso de los horóscopos, imagina que en tu variable coloques "Hoy te amputaran la pierna", ¿a todos los signos les dirás lo mismo?, solo era cuestión de modificar el texto a distintas predicciones para cada signo, eso fue lo que yo consideré, pero como digo ... no soy bueno en eso, será que jamás creo en la suerte.  ;D
En línea
h0oke


Desconectado Desconectado

Mensajes: 2.058


Coder ~


Ver Perfil WWW
Re: Ayudas o sugerencias - programa signo zodiaco
« Respuesta #18 en: 6 Junio 2009, 18:38 »
 :D Entonces... no dije nada...  ::) Es verdad lo que dices, pero yo pensé que habias presentado de esa manera el programa.
En línea
seba123neo


Desconectado Desconectado

Mensajes: 3.214



Ver Perfil WWW
Re: Ayudas o sugerencias - programa signo zodiaco
« Respuesta #19 en: 7 Junio 2009, 00:44 »
Hola, mira este codigo yo lo habia realizado cuando tuve que hacer algo parecido...es una funcion que se encarga de calcular el signo...y te ahorras todos esos SELECT CASE que no me gustan cuando son muchos...

Código
Imports system.console
 
Module module1
    Private Enum MESES
        ENERO = 1
        FEBRERO = 2
        MARZO = 3
        ABRIL = 4
        MAYO = 5
        JUNIO = 6
        JULIO = 7
        AGOSTO = 8
        SEPTIEMBRE = 9
        OCTUBRE = 10
        NOVIEMBRE = 11
        DICIEMBRE = 12
    End Enum
 
    Const horoaries As String = "hoy tendrás un gran día"
    Const horotauro As String = "hoy tendrás un gran día"
    Const horogeminis As String = "hoy tendrás un gran día"
    Const horocancer As String = "hoy tendrás un gran día"
    Const horoleo As String = "hoy tendrás un gran día"
    Const horovirgo As String = "hoy tendrás un gran día"
    Const horolibra As String = "hoy tendrás un gran día"
    Const horoescorpio As String = "hoy tendrás un gran día"
    Const horosagitario As String = "hoy tendrás un gran día"
    Const horocapricornio As String = "hoy tendrás un gran día"
    Const horoacuario As String = "hoy tendrás un gran día"
    Const horopiscis As String = "hoy tendrás un gran día"
 
    Sub main()
 
        Dim dia As Integer
        Dim mes As String
        Dim feberror As Integer = 29
        Dim vMes As MESES
 
        WriteLine("Por favor, ingrese el dia de nacimiento")
        dia = ReadLine()
 
        If dia = (dia < 1) Or (dia > 31) Then
            WriteLine("Error, los meses solo contienen dias entre 1 y 31")
            ReadLine()
        Else
            WriteLine("Ahora ingrese el mes de nacimiento")
            mes = ReadLine()
 
            If mes = ("febrero") And (dia > 29) Then
                WriteLine("Oh, Oh!!!, febrero no tiene " & dia & " días, se le asignará 29 como valor")
                ReadLine()
                dia = 29
            Else
            End If
 
            mes = UCase(mes)
 
            Dim a() As String = System.Enum.GetNames(vMes.GetType)
            Dim vIndiceMes As Integer
            For i As Integer = 0 To a.Length - 1
                If mes = a.GetValue(i) Then
                    vIndiceMes = i + 1
                    WriteLine(Zodiaco(vIndiceMes & dia))
                    ReadLine()
                    Exit Sub
                End If
            Next
 
            WriteLine("Oh, oh!!!, ... Ha ocurrido un error los datos ingresados no son válidos")
            ReadLine()
        End If
    End Sub
 
    Private Function Zodiaco(ByVal Fecha As Integer) As String
        If Fecha <= 219 And Fecha >= 121 Then
            Zodiaco = "ACURARIO " & horoacuario
        ElseIf Fecha <= 320 And Fecha >= 220 Then
            Zodiaco = "PISCIS " & horopiscis
        ElseIf Fecha <= 420 And Fecha >= 321 Then
            Zodiaco = "ARIES " & horoaries
        ElseIf Fecha <= 521 And Fecha >= 421 Then
            Zodiaco = "TAURO " & horotauro
        ElseIf Fecha <= 621 And Fecha >= 522 Then
            Zodiaco = "GEMINIS " & horogeminis
        ElseIf Fecha <= 722 And Fecha >= 622 Then
            Zodiaco = "CANCER " & horocancer
        ElseIf Fecha <= 822 And Fecha >= 723 Then
            Zodiaco = "LEO " & horoleo
        ElseIf Fecha <= 923 And Fecha >= 823 Then
            Zodiaco = "VIRGO " & horovirgo
        ElseIf Fecha <= 1023 And Fecha >= 924 Then
            Zodiaco = "LIBRA " & horolibra
        ElseIf Fecha <= 1122 And Fecha >= 1024 Then
            Zodiaco = "ESCORPIO " & horoescorpio
        ElseIf Fecha <= 1221 And Fecha >= 1123 Then
            Zodiaco = "SAGITARIO " & horosagitario
        Else
            Zodiaco = "CAPRICORNIO " & horocapricornio
        End If
    End Function
End Module

saludos.
« Última modificación: 7 Junio 2009, 00:47 por seba123neo » En línea
Mucha gente, especialmente la ignorante desea castigarte por decir la verdad, por ser correcto, por ser tú. Nunca te disculpes por ser correcto, o por estar años delante de tu tiempo.
Si estas en lo cierto, y lo sabes, que hable tu razón. Incluso si eres una minoria de uno solo, la verdad sigue siendo la verdad. M. Gandhi
cobolitros

Desconectado Desconectado

Mensajes: 3


Ver Perfil
Re: Ayudas o sugerencias - programa signo zodiaco
« Respuesta #20 en: 4 Mayo 2011, 14:27 »

Disculpen pero como se podria obtener el Signo zodiacal pero con vectores
En línea
Páginas: 1 [2] Ir Arriba Respuesta Imprimir 

Ir a:  
Powered by SMF 1.1.16 | SMF © 2006-2008, Simple Machines