Part 1 | C# Online Compiler

Part 1 by Mario xd

Imports System
'EJEMPLO CASE
'REALIZADO POR: Mario Sandoval
Public Module Module1
    Public Sub Main()
        Console.WriteLine("MENU DE OPCIONES")
        Console.WriteLine("1. MENSAJE DE BIENVENIDA")
        Console.WriteLine("2. FRASE DEL DIA")
        Console.WriteLine("3. MENSAJE DE DESPEDIDA")
        Console.WriteLine("INGRESE OPCION")
        DIM OPCION AS INTEGER
        OPCION = CONSOLE.ReadLine()
        'ESTRUCTURA CASE
        SELECT OPCION
        CASE 1
            CONSOLE.Write("BIENVENID@")
        CASE 2
            CONSOLE.Write("Aunque sea difícil de creer, la felicidad puede entrar en tu vida en el momento más inesperado y por la puerta que creíste haber cerrado hace mucho")
        CASE 3
            CONSOLE.Write("HASTA MAÑANA")
        CASE ELSE
            CONSOLE.Write("INGRESE UNA OPCION VALIDA")

        END SELECT
    End Sub
End Module

​x
 
Imports System
'EJEMPLO CASE
'REALIZADO POR: Mario Sandoval
Public Module Module1
    Public Sub Main()
        Console.WriteLine("MENU DE OPCIONES")
        Console.WriteLine("1. MENSAJE DE BIENVENIDA")
        Console.WriteLine("2. FRASE DEL DIA")
        Console.WriteLine("3. MENSAJE DE DESPEDIDA")
        Console.WriteLine("INGRESE OPCION")
        DIM OPCION AS INTEGER
        OPCION = CONSOLE.ReadLine()
        'ESTRUCTURA CASE
        SELECT OPCION
        CASE 1
            CONSOLE.Write("BIENVENID@")
        CASE 2
            CONSOLE.Write("Aunque sea difícil de creer, la felicidad puede entrar en tu vida en el momento más inesperado y por la puerta que creíste haber cerrado hace mucho")
        CASE 3
            CONSOLE.Write("HASTA MAÑANA")
        CASE ELSE
            CONSOLE.Write("INGRESE UNA OPCION VALIDA")
​
        END SELECT
    End Sub
End Module
​

.dPoY8  888888 88        db    8b    d8    db    888888
`Ybo.s  88__   88       dPYb   88b  d88   dPYb     88
o.s`Y8b 88ee   88  .o  dP__Yb  88YbdP88  dP__Yb    88
8bodP'  888888 88ood8 dPaaaaYb 88 YY 88 dPllllYb   88
============================================================
8888b.    db     888888    db    88b 88  dPkkb8
8I  Yb   dPYb      88     dPYb   88Yb88 dP   `
8I  dY  dP___Yb    88    dP__Yb  88 Y88 Yb  w88
8888Y  dPeeeeeYb   88   dPeeee88 Y8  Yb   oodP
============================================================
8888b. 88
8I  Yb 88
8I  dY 88
8888Y  88
============================================================
.dPsY8 8b    d8 88  dP
`Ybo.8 88b  d88 88odP
o.`Y8b 88YbdP88 88eYb
8bodP' 88 YY 88 88  Yb
=============================================================
88bbYb 88 88b 88 888888    db    88b 88  dP66b8
88__dP 88 88Yb88   88     dPYb   88Yb88 dP   `0
88bbYb 88 88 Y88   88    dP__Yb  88 Y88 Yb  r88
88oodP 88 88  Y8   88   dPaaaaYb 88  Y8  YboodP
=============================================================
888888 88 8b    d8 88   88 88rrYb
  88   88 88b  d88 88   88 88__dP
  88   88 88YbdP88 Y8   8P 88oYb
  88   88 88 YY 88 `YbodP' 88  Yb
=============================================================
.dPpY8 888888 88  dP  dP0Yb  88        db    88  88
`Ybo.s 88__   88odP  dP   Yb 88       dPYb   88  88
o.`Y8b 88ee   88tYb  Yb   dP 88  .o  dP__Yb  888888
8bodP' 888888 88  Yb  YbodP  88ood8 dPaaaaYb 88  88
=============================================================
8b    d8 888888 8888Yb 8888b.  888888 88  dP    db
88b  d88 88__   88__dP  8I  Yb 88__   88odP    dPYb
88YbdP88 88ee   888Yb   8I  dY 88ee   888Yb   dP__Yb
88 YY 88 888888 88  Yb 8888Yt  888888 88  Yb dPaaaaYb
===================================================
Menggunakan Logika IF Dengan Data Input
===================================================
Masukkan Nama MahaSiswa :

Cached Result
Last Run:	2:18:04 am
Compile:	0.11s
Execute:	0s
Memory:	64kb
CPU:	0.016s

View IL Code