Visual Basic .NET Language
Troosten

Console.ReadLine ()

Dim input as String = Console.ReadLine()

Console.ReadLine() leest de console-invoer van de gebruiker tot de volgende nieuwe regel wordt gedetecteerd (meestal bij indrukken van de Enter- of Return-toets). Code-uitvoering wordt gepauzeerd in de huidige thread totdat een nieuwe regel wordt verstrekt. Daarna wordt de volgende coderegel uitgevoerd.

Console.WriteLine ()

Dim x As Int32 = 128
Console.WriteLine(x) ' Variable '
Console.WriteLine(3) ' Integer '
Console.WriteLine(3.14159) ' Floating-point number '
Console.WriteLine("Hello, world") ' String '
Console.WriteLine(myObject) ' Outputs the value from calling myObject.ToString()

De methode Console.WriteLine() drukt het gegeven argument (en) af met een nieuwe regel aan het einde. Hiermee wordt elk geleverd object afgedrukt, inclusief maar niet beperkt tot tekenreeksen, gehele getallen, variabelen, getallen met drijvende komma.

Wanneer u objecten schrijft die niet expliciet worden aangeroepen door de verschillende overbelastingen van WriteLine (dat wil zeggen dat u de overbelasting gebruikt die een waarde van het type Object verwacht, gebruikt .ToString() methode .ToString() om een String te genereren om daadwerkelijk te schrijven. Uw aangepaste objecten moeten de .ToString methode .ToString en iets betekenisvollers produceren dan de standaardimplementatie (die meestal alleen de volledig gekwalificeerde typenaam schrijft).

Console.Write ()

Dim x As Int32 = 128
Console.Write(x) ' Variable '
Console.Write(3) ' Integer '
Console.Write(3.14159) ' Floating-point number '
Console.Write("Hello, world") ' String '

De methode Console.Write() is identiek aan de methode Console.WriteLine() , behalve dat het gegeven argument (en) wordt afgedrukt zonder dat er een nieuwe regel aan het einde is toegevoegd. Deze methode kan functioneel identiek worden gemaakt aan WriteLine door een nieuwe regel toe te voegen aan het einde van alle opgegeven argumenten:

Console.Write("this is the value" & Environment.NewLine)

Console.Read ()

Dim inputCode As Integer = Console.Read()

Console.Read() wacht op invoer van de gebruiker en retourneert bij ontvangst een geheel getal dat overeenkomt met de tekencode van het ingevoerde teken. Als de invoerstroom op een bepaalde manier wordt beëindigd voordat invoer kan worden verkregen, wordt in plaats daarvan -1 geretourneerd.

Console.ReadKey ()

Dim inputChar As ConsoleKeyInfo = Console.ReadKey()

Console.ReadKey() wacht op invoer van de gebruiker en retourneert bij ontvangst een object van klasse ConsoleKeyInfo , dat informatie bevat die relevant is voor het teken dat de gebruiker als invoer heeft opgegeven. Raadpleeg de MSDN-documentatie voor meer informatie over de verstrekte informatie.

Prototype van opdrachtregelprompt

Module MainPrompt
Public Const PromptSymbol As String = "TLA > "
Public Const ApplicationTitle As String = GetType(Project.BaseClass).Assembly.FullName
REM Or you can use a custom string
REM Public Const ApplicationTitle As String = "Short name of the application"

Sub Main()
    Dim Statement As String
    Dim BrokenDownStatement As String()
    Dim Command As String
    Dim Args As String()
    Dim Result As String

    Console.ForegroundColor = ConsoleColor.Cyan
    Console.Title = ApplicationTitle & " command line console"

    Console.WriteLine("Welcome to " & ApplicationTitle & "console frontend")
    Console.WriteLine("This package is version " & GetType(Project.BaseClass).Assembly.GetName().Version.ToString)
    Console.WriteLine()
    Console.Write(PromptSymbol)

    Do While True
        Statement = Console.ReadLine()
        BrokenDownStatement = Statement.Split(" ")
        ReDim Args(BrokenDownStatement.Length - 1)
        Command = BrokenDownStatement(0)

        For i = 1 To BrokenDownStatement.Length - 1
            Args(i - 1) = BrokenDownStatement(i)
        Next

        Select Case Command.ToLower
            Case "example"
                Result = DoSomething(Example)
            Case "exit", "quit"
                Exit Do
            Case "ver"
                Result = "This package is version " & GetType(Project.BaseClass).Assembly.GetName().Version.ToString
            Case Else
                Result = "Command not acknowldged: -" & Command & "-"
        End Select
        Console.WriteLine(" " & Result)
        Console.Write(PromptSymbol)
    Loop

    Console.WriteLine("I am exiting, time is " & DateTime.Now.ToString("u"))
    Console.WriteLine("Goodbye")
    Environment.Exit(0)
End Sub
End Module

Dit prototype genereert een eenvoudige opdrachtregelinterpreter.

Het krijgt automatisch de applicatienaam en -versie om met de gebruiker te communiceren. Voor elke invoerregel herkent het de opdracht en een willekeurige lijst met argumenten, allemaal gescheiden door een spatie.

Als een basisvoorbeeld begrijpt deze code de opdrachten ver , afsluiten en afsluiten .

De parameter Project.BaseClass is een klasse van uw project waar de assemblagegegevens worden ingesteld.