Programador Novato

En este tutorial vamos dividir nuestras clases en diferentes archivos y a llamar nuestras clases desde otros archivos en Visual Basic.NET haciendo los siguiendo estos pasos:

• Vamos al explorador de soluciones y damos click a nuestro proyecto “HolaMundo”
• Click en agregar y seleccionamos nuevo elemento.
• Seleccionamos un archivo de tipo “Clase de Visual Basic” y damos click en agregar.
• Borramos todo y pegamos ahí nuestra clase Auto y agregamos using System;
• Guardamos y compilamos desde la clase principal.

Codigo para llamar nuestras clases desde otros archivos en Visual Basic.NET: https://github.com/programadornovato/VisualBasic/commit/d19f36abf43e75232b232296947d1291c5e84336

Class Auto
    Private color = ""
    Private modelo = 0
    Private marca = ""
    Private acceso = False
    Public Sub meterLlave(llave As String)
        If llave = "123456" Then
            acceso = True
            Console.WriteLine("Llave correcta")
        Else
            acceso = False
            Console.WriteLine("Llave incorrecta")
        End If
    End Sub
    Public Sub mando(accion As String)
        If acceso = True Then
            If accion = "enciende" Then
                enciende()
            End If
            If accion = "acelera" Then
                acelera()
            End If
            If accion = "frena" Then
                frena()
            End If
        Else
            Console.WriteLine("No se puede realizar la accion " & accion & " porque el acceso es falso")
        End If
    End Sub
    Private Sub enciende()
        Console.WriteLine("El auto ha encendido run run")
    End Sub
    Private Sub acelera()
        Console.WriteLine("El auto acelera")
    End Sub
    Private Sub frena()
        Console.WriteLine("El auto frena")
    End Sub
End Class

Imports System

'Autor: Programador Novato
'Fecha: 01/01/2021
'Este modulo sirve para ense�ar como funciona Visual Basic.NET
Module Program
    'Este codigo escribe un texto en amarillo con fondo azul
    Public Sub Main(args As String())
        Console.WriteLine("Vocho")
        Dim vocho1 = New Auto()
        vocho1.meterLlave("123456")
        vocho1.mando("enciende")
        Console.WriteLine("Beatle")
        Dim beattle = New Auto()
        beattle.meterLlave("123456")
        beattle.mando("enciende")
        beattle.mando("acelera")
        Console.Read()
    End Sub
End Module

Curso de VB.NET⛓️: https://www.youtube.com/watch?v=aiquJHzxNWw&list=PLCTD_CpMeEKSFwAFjvrfpvSwxmbs2maMo&ab_channel=programadornovato
[CURSO] C##️⃣: https://www.youtube.com/watch?v=NKPMGY6NCko&list=PLCTD_CpMeEKQSOU8Vf9VHXrZa2rc8X0X5&index=1&t=3s&ab_channel=programadornovatoprogramadornovato
[CURSO] C# CON FORMULARIOS#️⃣: https://www.youtube.com/watch?v=l0_U4oyOuns&list=PLCTD_CpMeEKTBih1VgeunCjc83ZQ6UBMI&index=1&ab_channel=programadornovatoprogramadornovato
[Curso] C# MYSQL#️⃣: https://www.youtube.com/watch?v=-5CXNXHIzWk&list=PLCTD_CpMeEKR_4q0-7BxGHXqH0bgpqw5q&ab_channel=programadornovato
[CURSO] C++ DE 0 A HEROE 🦸: https://www.youtube.com/watch?v=APN8aCyPvww&list=PLCTD_CpMeEKTofxs7iottRxJ5YPM7BOcc&ab_channel=programadornovato
[Curso] Java Netbeans GUI Completo☕: https://www.youtube.com/watch?v=18UA7X2ss8g&list=PLCTD_CpMeEKThfXo8D-RXOGu5FarO7_qv&ab_channel=programadornovato

Anterior tutorial Siguiente tutorial