Mensajes

me parece dayofweek, no es un miembro de visual, o donde lo ubico, ayudenme xfis

Código [Seleccionar] Expandir


Imports System.Console
Module Module2
    Sub main()
        Title = "Calculando cumpleaños"
        ForegroundColor = ConsoleColor.Cyan

        'variables
        'Dim diac#
        Dim fecha As Date

        'entradas
        Write("Ingresar fecha de cumpleaños (dd/mm/aa): ") : fecha = ReadLine()

        'proceso
        'fecha = DateAdd(DateInterval.Month, 12, fecha2)

        'WriteLine("Cumpleaños dentro de 10 años: {0}", fecha.ToString("ddd dd/MMM/yy"))
        WriteLine("Días: {0}", DateDiff(DateInterval.dayofweek, fecha, Now) * 10)
        ReadKey()

    End Sub

End Module


me bota error...

  me confundi este es mi avance...jej

Código [Seleccionar] Expandir


Imports System.Console
Module Module2
    Sub main()
        Title = "Calculando cumpleaños"
        ForegroundColor = ConsoleColor.Cyan

        'variables
        'Dim diac#
        Dim fecha, fecha2 As Date

        'entradas
        Write("Ingresar fecha de cumpleaños (dd/mm/aa): ") : fecha = ReadLine()

        'proceso
        fecha = DateAdd(DateInterval.Month, 12, fecha2)

        WriteLine("Cumpleaños dentro de 10 años: {0}", fecha.ToString("ddd dd/MMM/yy"))
        ReadKey()
    End Sub

End Module


amigos como calcular qué día será mi cumpleaños de aquí en 10 años? ayudenme xfas
aqui les dejo mi avance

Código [Seleccionar] Expandir


2. Qué día será mi cumpleaños de aquí en 10 años?


Qtal amigos, ps quiero aprender como conectar a una base de datos en visual.net, quisiera que me explicaran desde lo más básico porfas, un ejemplito basico y chico me falicitaría bastante ... 

gracias eh saludos 

qtal amigos ps quiero que me yuden con esto, es que no se como usar en este ejemplo el select case, ya que me dan una tabla indicando los años,meses y tambien hombre mujeres, para esto lo estaba poniendo como genero, para que ingresen como femenino y masculino, abajo esta el enunciado para q me entiendadn mejor

Código [Seleccionar] Expandir


Imports System.Console
Module Module6
    Sub main()
        Title = "Nivel de Hemoglobina"
        ForegroundColor = ConsoleColor.Cyan

        'variables
        Dim edad#, genero$, nivelhemoglobina#
        Dim mes$
        'entradas
        Write("Ingresar su edad: ") : edad = ReadLine()
        Write("Ingresar su género: ") : genero = ReadLine()
        Write("Ingresar su nivel de Hemoglobina: ") : nivelhemoglobina = ReadLine()

        'proceso

        Select Case edad
            Case 0 To 1 : nivelhemoglobina = 13
            Case > 1 and <=6 :nivelhemoglobina=10
            Case > 6 and < = 12 años : nivelhemoglobina=11
            Case > 1 and < = 5 años : nivelhemoglobina=11.5
            Case > 5 and < = 10 años : nivelhemoglobina=12.6
            Case > 10 and < = 15 años : nivelhemoglobina=13
            Case mujeres > 15 años : nivelhemoglobina=12
            Case hombres > 15 años : nivelhemoglobina=14

                'Tomando como base los resultados obtenidos en un laboratorio de
                'análisis clínicos, un medico determina si una persona tiene anemia
                'o no, lo cual depende de su nivel de hemoglobina en la sangre, de su edad
                ' y de su sexo. Si el nivel de hemoglobina que tiene una persona es menor que
                ' el rango que le corresponde, se determina su resultado como positivo y en caso
                'contrario como negativo. La tabla en la que el medico se basa para obtener el resultado es
                'la(siguiente):

                '0 - 1 mes     13    - 26 g%
                '> 1 y < = 6 meses 10    - 18 g%
                '> 6 y < = 12 meses 11    - 15 g%
                '> 1 y < = 5 años 11.5 - 15 g%
                '> 5 y < = 10 años 12.6 - 15.5 g%
                '> 10 y < = 15 años 13    - 15.5 g%
                'mujeres > 15 años 12    - 16 g%
                'hombres > 15 años 14    - 18 g%

        End Select

        'salida

    End Sub

End Module


  GRAcias

ps si .... GRACIAS!!!! era tan sencillo, nose como me pude compllicar la vida x eso
los use ambos -->Imports System.Math o usarlo así Math.Abs()

Código [Seleccionar] Expandir


Imports System.Console
Imports System.Math
Module Module2
    Sub main()
        Title = "Valor absoluto de un número"
        ForegroundColor = ConsoleColor.Cyan

        'entradas
        Dim x As Integer


        'variables
        Write("Ingresa un número: ") : x = ReadLine()

        'proceso

        Math.Abs(x) 'x es ahora de 2

        'salida
        WriteLine("El valor absoluto es: {0}", x) : WriteLine()
        ReadKey()



    End Sub

End Module


hize todo lo q me dijeron, vi todo acerca del abs, lo implemento en mi codigo, pero me dice q tengo que declarar ABS y nose como hacer, me confunde ....

Código [Seleccionar] Expandir


Imports System.Console
Module Module2
    Sub main()
        Title = "Valor absoluto de un número"
        ForegroundColor = ConsoleColor.Cyan

        'entradas
        Dim x#
        Dim ABS#

        'variables
        Write("Ingresa un número: ") : x = ReadLine()

        'proceso

        x = ABS(2) 'x es ahora de 2

        'salida
        WriteLine("El valor absoluto es: {0}", x) : WriteLine()
        ReadKey()



    End Sub

End Module


ah... ps avance asi, pero me sale error ayudenme xfis

Código [Seleccionar] Expandir

Imports System.Console
Module Module2
    Sub main()
        Title = "Valor absoluto de un número"
        ForegroundColor = ConsoleColor.Cyan

        'entradas
        Dim a#, b#

        'variables
        Write("Ingresa un número: ") : a = ReadLine()

        'proceso

        a = 10
        b = a < 0 And -a = a

        'salida
        WriteLine("El valor absoluto es: {0}", b) : WriteLine()
        ReadKey()

    End Sub

End Module