Visual Basic .NET Language
कंसोल

Console.ReadLine ()

Dim input as String = Console.ReadLine()

Console.ReadLine() उपयोगकर्ता से कंसोल इनपुट को पढ़ेगा, जब तक कि अगली नई रेखा का पता नहीं चलता (आमतौर पर एंटर या रिटर्न कुंजी दबाने पर)। कोड निष्पादन को वर्तमान थ्रेड में रोक दिया जाता है जब तक कि एक नई रूपरेखा प्रदान नहीं की जाती है। बाद में, कोड की अगली पंक्ति निष्पादित की जाएगी।

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()

Console.WriteLine() विधि दी गई दलील को अंत में संलग्न एक नई पंक्ति के साथ मुद्रित करेगी। यह आपूर्ति की गई किसी भी वस्तु को प्रिंट करेगा, जिसमें शामिल हैं, लेकिन सीमित नहीं हैं, तार, पूर्णांक, चर, फ्लोटिंग-पॉइंट संख्या।

जब विभिन्न WriteLine अधिभार द्वारा स्पष्ट रूप से नहीं बुलाया गया है कि वस्तुओं को लिखने (यानी, आप प्रकार Object का एक मूल्य की उम्मीद है कि अधिभार का उपयोग कर रहे हैं, WriteLine वास्तव में लिखने के लिए एक String उत्पन्न करने के लिए .ToString() विधि का उपयोग करेगा। आपका कस्टम वस्तुओं को ओवरराइट .ToString डिफ़ॉल्ट कार्यान्वयन (जो आमतौर पर बस पूरी तरह से योग्य प्रकार का नाम लिखते हैं) की तुलना में अधिक सार्थक विधि और उत्पादन कुछ।

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 '

Console.Write() विधि के समान है Console.WriteLine() को छोड़कर यह दिया तर्क (रों) एक नई पंक्ति के अंत में संलग्न बिना प्रिंट कि विधि। इस विधि को दिए गए किसी भी तर्कों के अंत में एक नई स्ट्रिंग जोड़कर WriteLine समान कार्यात्मक बनाया जा सकता है:

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

Console.Read ()

Dim inputCode As Integer = Console.Read()

Console.Read() उपयोगकर्ता से इनपुट की प्रतीक्षा करता है और, रसीद पर, दर्ज किए गए वर्ण के वर्ण कोड के साथ एक पूर्णांक मान देता है। यदि इनपुट स्ट्रीम प्राप्त करने से पहले किसी तरह से समाप्त हो जाता है, तो इसके बजाय -1 लौटा दिया जाता है।

Console.ReadKey ()

Dim inputChar As ConsoleKeyInfo = Console.ReadKey()

Console.ReadKey() उपयोगकर्ता से इनपुट की प्रतीक्षा करता है और, प्राप्त होने पर, क्लास ConsoleKeyInfo का एक ऑब्जेक्ट देता है, जो उस चरित्र के लिए प्रासंगिक जानकारी रखता है, जिसे उपयोगकर्ता इनपुट के रूप में प्रदान करता है। प्रदान की गई जानकारी के बारे में विस्तार के लिए, MSDN प्रलेखन पर जाएँ।

कमांड लाइन प्रॉम्प्ट का प्रोटोटाइप

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

यह प्रोटोटाइप एक मूल कमांड लाइन दुभाषिया उत्पन्न करता है।

यह स्वचालित रूप से उपयोगकर्ता से संवाद करने के लिए एप्लिकेशन नाम और संस्करण प्राप्त करता है। प्रत्येक इनपुट लाइन के लिए, यह कमांड और तर्कों की एक मनमानी सूची को पहचानता है, जो सभी अंतरिक्ष से अलग हो गए हैं।

एक बुनियादी उदाहरण के रूप में इस कोड को ver समझते हैं, छोड़ दिया और बाहर निकलने के आदेशों।

पैरामीटर Project.BaseClass आपके प्रोजेक्ट का एक वर्ग है जहाँ असेंबली का विवरण सेट किया गया है।