Imports System

'MENU DE LONGITUD DE METROS A :PIES,YARDAS Y PULGADAS

'REALIZADO POR :AYLEEN SAMAYOA

Public Module Module1

    Public Sub Main()

        Console.WriteLine("MENU DE LONGITUD")

        Console.WriteLine("1. PIES")

        Console.WriteLine("2.YARDAS")

        Console.WriteLine("3.PULGADAS")

        DIM OPCION AS INTEGER

        DIM RESPUESTA AS INTEGER

        RESPUESTA = 1

        WHILE RESPUESTA = 1

        OPCION = CONSOLE.ReadLine()

            RESPUESTA =CONSOLE.ReadLine()

        SELECT OPCION

        CASE 1

            PIES

        CASE 2

            YARDAS

        CASE 3

            PULGADAS

        CASE ELSE

            CONSOLE.WriteLine("INGRESE OPCION VALIDA")

        END SELECT

        END WHILE

    End Sub

    PRIVATE SUB PIES

        'PIES = PIES*METRO

        DIM P AS DOUBLE

        DIM M AS INTEGER

        CONSOLE.WriteLine("INGRESE LONGITUD EN METROS:")

        M = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE LONGITUD EN PIES:")

        P = CONSOLE.ReadLine()

        IF P>0 AND M>0 THEN

            P=3.28*M

            CONSOLE.WriteLine("LA LONGITUD ES: " &P &"METROS" )

        ELSE

        CONSOLE.WriteLine("INGRESE VARIABLES MAYORES QUE CERO")

        END IF 

    END SUB

    PRIVATE SUB YARDAS

        'Y = YARDAS*METRO

        DIM Y AS DOUBLE

        DIM M AS INTEGER

        CONSOLE.WriteLine("INGRESE LONGITUD EN METROS:")

        M = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE LONGITUD EN YARDAS:")

        Y = CONSOLE.ReadLine()

        IF Y>0 AND M>0 THEN

            Y=1.094*M

            CONSOLE.WriteLine("LA LONGITUD ES: " &Y &"METROS" )

        ELSE

            CONSOLE.WriteLine("INGRESE VARIABLES MAYORES QUE CERO")

            END IF

        END SUB

    PRIVATE SUB PULGADAS

        'P= PULGADAS*METRO

        DIM P AS DOUBLE

        DIM M AS INTEGER

        CONSOLE.WriteLine("INGRESE LONGITUD EN METROS:")

        M = CONSOLE.ReadLine()

        CONSOLE.WriteLine("INGRESE LONGITUD EN PULGADAS:")

        P = CONSOLE.ReadLine()

        IF P>0 AND M>0 THEN

            P =39.37*M

            CONSOLE.WriteLine("LA LONGITUD ES: " &P &"METROS")

        ELSE

            CONSOLE.WriteLine("INGRESE VARIABLES MAYORES QUE CERO")

            END IF

        dim respuesta as integer

     CONSOLE.WriteLine("DESEA CONTIBUAN: 1.SI 2.NO")

                RESPUESTA = CONSOLE.ReadLine()

        if respuesta = 1

            main()

        end iF

​

        END SUB

End Module