[sooriaty03]

السلام عليكم ورحمة الله وبركاته

أخي الكريم
تختلف طريقة إدخال البيانات في ConsoleApplication
فإدخال البيانات فيه يكون عن طريق الكلاس Console
والكود التالي سيقوم بعمل حلقة تكرارية وفي كل مرة يطلب من المستخدم إدخال كلمة معينة فإذا قام بإدخال one فإنه سيظهر رسالة مكتوب فيها الرقم واحد وإذا قام بإدخال الكلمة zero فستظهر رسالة مكتوب فيها الرقم صفر وإذا قام بإدخال الكلمة exit فإنه سيقوم بالخروج من الحلقة التكرارية وبالتالي من البرنامج وما عدا هذه الكلمات فلن يظهر البرنامج أي رسالة...

كود :

Module Module1

    Sub Main()
        Do
            Dim Word As String = Console.ReadLine().ToLower
            If Word = "one" Then
                MsgBox(1)
            ElseIf Word = "zero" Then
                MsgBox(0)
            ElseIf Word = "exit" Then
                Exit Sub
            End If
        Loop
    End Sub

End Module

بالتوفيق