الادخال والإخراج في فيجوال بيسك .نت

أولاً : الاخراج في فيجوال بيسك .نت

للاخراج نستخدم الفئة Console مع الطريقة (الدالة) WriteLine ونضع الجملة التي نريد طباعتها بين علامتي التنصيص " " , مثال :

Console.WriteLine("Welcome to my program")

يمكنك طباعة المتغيرات بنفس الطريقة ولكن لا تضعها بين علامتي التنصيص , مثال :

Console.WriteLine(myVariable)

أيضاً تستطيع طباعة جملة ومتغير في نفس الوقت فقط قم بالربط بينهما باستخدام المعامل '&' , مثال :

Console.WriteLine("My variable is " & myVariable)

بنفس الطريقة يمكنك الربط بين جملتين , مثال :

Console.WriteLine("the first statment " & " the second statment")

أما إن أردت إدراج سطر جديد فيمكنك ذلك ببساطة باستخدام الثابت vbNewLine (هذا الثابت معرف مسبقاً في فيجوال بيسك .نت وهو يقوم بادراج سطر جديد ويستخدم مع السلاسل الحرفية Strings) , ولا تنس استخدام المعامل & :

Console.WriteLine("First line" & vbNewLine & "Second line")

ثانياً : الادخال في فيجوال بيسك .نت

للادخال نستخدم الفئة Console مع الطريقة ReadLine والتي تقوم بقراءة مايكتبه المستخدم وتقوم بحفظه في المتغير الذي تسند إليه , انظر لهذا المثال :

Dim myName As String

myName = Console.ReadLine()

حيث ترجع الدالة ()ReadLine مايكتبه المستخدم (أي أن قيمة الدالة تساوي ما قام المستخدم بكتابته) , ثم بواسطة معامل الاسناد '=' قمنا بوضع قيمة الدالة في المتغير myName .

ثالثاً : التعليقات في فيجوال بيسك .نت

التعليقات في البرمجة ماهي إلا ملاحظات يقوم المبرمج بكتابتها ليشرح جزءاً غير مفهوم في الكود البرمجي أو لتكون مرجعاً له عند عودته للكود مرة أخرى , والتعليقات في فيجوال بيسك .نت تدرج بواسطة علامة التنصيص ( ' ) :

'هذا عبارة عن تعليق

'سطر تعليق آخر

البرنامج التالي سيوضح كل ما ذكرناه سابقاً , ووظيفته أنه يجعل المستخدم يكتب اسمه ثم يطبع له رسالة ترحيبية , ثم يطلب منه ادخال رقمين ويقوم بحساب مجموعهما , ثم يقوم بتوديع المستخدم :

Module Module1

    Dim Name As String 'متغير سلسلة حرفية سنضع فيه الاسم

    Dim firstNumber, secondNumber As Double

    Dim Result As Double 'متغير سنضع فيه نتيجة الجمع

    Sub Main()

        Console.WriteLine("What is your name?") 'طلب ادخال الاسم

        Name = Console.ReadLine() 'انتظار المستخدم ليدخل الاسم

        Console.WriteLine("Welcome " & Name & vbNewLine) 'رسالة الترحيب

        Console.WriteLine("Enter the first number:")

        firstNumber = Console.ReadLine()

        Console.WriteLine("Enter the second number:")

        secondNumber = Console.ReadLine()

        Result = firstNumber + secondNumber

        'طباعة النتيجة

        Console.WriteLine("Result = " & Result)

        'توديع المستخدم

        Console.WriteLine(vbNewLine & "Good Bye " & Name) 

        Console.ReadKey()

    End Sub

End Module