Tutorials de Visual Basic: 4 exemples bàsics

Enviado por Chuletator online y clasificado en Diseño e Ingeniería

Escrito el 1 de Diciembre de 2024 en catalán con un tamaño de 4,94 KB

Mòdul 1: Divisió de dos nombres

Introducció

Aquest programa realitza la divisió de dos nombres introduïts per l'usuari.

Declaració de variables

Dim Nombre_4 As Integer
Dim Nombre_2 As Integer
Dim Resultat As Integer

Codi

Sub Main()    Console.WriteLine("Aquest programa fa la divisió de nombres")    Console.WriteLine()    Console.WriteLine("Entra el primer nombre")    Nombre_4 = Console.ReadLine()    Console.WriteLine("Entra el segon nombre")    Nombre_2 = Console.ReadLine()    Resultat = Nombre_4 / Nombre_2    Console.WriteLine("El resultat de la divisió és " & Resultat)    Console.ReadLine()End Sub

Mòdul 2: Calculadora senzilla

Funcionalitats

Aquesta calculadora permet sumar, restar, multiplicar i dividir dos nombres.

Declaració de variables

Dim Numero_1 As Integer
Dim Numero_2 As Integer
Dim Resultat As Integer
Dim Opcio As Integer

Codi

Sub Main()    Console.WriteLine("Soc una calculadora")    Console.WriteLine()    Console.WriteLine("Opcions")    Console.WriteLine("0- Sortir")    Console.WriteLine("1- Sumar")    Console.WriteLine("2- Restar")    Console.WriteLine("3- Multiplicar")    Console.WriteLine("4- Dividir")    Opcio = Console.ReadLine()    If Opcio = 1 Then        Console.WriteLine("Entra el primer número")        Numero_1 = Console.ReadLine()        Console.WriteLine("Entra el segon número")        Numero_2 = Console.ReadLine()        Resultat = Numero_1 + Numero_2        Console.WriteLine("El resultat de la suma és " & Resultat)        Console.ReadLine()        GoTo Menu    End If    If Opcio = 2 Then        Console.WriteLine("Entra el primer número")        Numero_1 = Console.ReadLine()        Console.WriteLine("Entra el segon número")        Numero_2 = Console.ReadLine()        Resultat = Numero_1 - Numero_2        Console.WriteLine("El resultat de la resta és " & Resultat)        Console.ReadLine()        GoTo Menu    End If    If Opcio = 3 Then        Console.WriteLine("Entra el primer número")        Numero_1 = Console.ReadLine()        Console.WriteLine("Entra el segon número")        Numero_2 = Console.ReadLine()        Resultat = Numero_1 * Numero_2        Console.WriteLine("El resultat de la multiplicació és " & Resultat)        Console.ReadLine()        GoTo Menu    End If    If Opcio = 4 Then        Console.WriteLine("Entra el primer número")        Numero_1 = Console.ReadLine()        Console.WriteLine("Entra el segon número")        Numero_2 = Console.ReadLine()        Resultat = Numero_1 / Numero_2        Console.WriteLine("El resultat de la divisió és " & Resultat)        Console.ReadLine()        GoTo Menu    End If    Console.ReadLine()End Sub

Mòdul 3: Joc d'endevinar un nombre

Objectiu

L'usuari ha d'endevinar un nombre entre 1 i 20.

Declaració de variables

Dim Numero_1 As String
Dim Numero_2 As Integer

Codi

Sub Main()    Console.WriteLine("Introduir número amagat")    Console.WriteLine()    Numero_1 = Console.ReadLine()    Console.WriteLine("El nombre es troba entre 1 i 20, introdueix el nombre")    Numero_2 = Console.ReadLine()    If Numero_1 = Numero_2 Then        Console.WriteLine("Congratulations, el número ocult és " & Numero_1)        Console.ReadLine()        GoTo Menu    Else        Console.WriteLine("Fallaste, intenta-ho de nou")        If Numero_1 < Numero_2 Then            Console.WriteLine("Casi, el número ocult és més petit que " & Numero_1)            GoTo Menu        End If        If Numero_1 > Numero_2 Then            Console.WriteLine("Casi, el número ocult és més gran que " & Numero_2)            GoTo Menu        End If    End IfEnd Sub

Mòdul 4: Simulació d'aparcament

Funcionalitats

Simula l'entrada i sortida de vehicles d'un aparcament.

Declaració de variables

Dim Plaza As String
Dim Vehicle As String

Codi

Sub Main()    Console.WriteLine("Entrar o Sortir")    Console.ReadLine()    If Vehicle = "E" Then        If Plaza = "10" Then            Console.WriteLine("Complet")            GoTo Menu        End If        Plaza = Plaza + 1        Console.WriteLine("Tens " & Plaza & " places al parking")        Console.ReadLine()        GoTo Menu    End If    If Vehicle = "S" Then        If Plaza = 0 Then            Console.WriteLine("Està buit")            GoTo Menu        End If        Plaza = Plaza - 1        Console.WriteLine("Tens " & Plaza & " places al parking")        Console.ReadLine()        GoTo Menu    End IfEnd Sub

Entradas relacionadas:

Etiquetas: