[أسامة]

كلانا نعلو او استخدمنا الفروم لو عندنة Textbox يكون الكود مثل هذا

كود :

If TextBox1.Text = "one" Then
            MsgBox(0)
        Else
            TextBox1.Clear()
        End If

لاكن الذى اريده فى console application لو المستخدم كتب كلمة معين تظهر كلمة معينة مثل هذا
لو المستخدم كتب احمد و يوجد فى الكود احمد مثل Textbox باستخدام if لو كتب محمد لايظهر شيء
يظهر احمد = لو كتب 1 يظهر

كود :

MsgBox(1)

لو كتب 0 يظهر

كود :

MsgBox(0)

لو كتب حاجة غير 0 و 1 لايظهر شيء
بعد كده يتم الانتقال لى سطر جديد
لو كتب محمود نفس الكلام

[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

بالتوفيق

[أسامة]

وعليكم السلام ورحمة الله وبركاتة
بارك الله فيك شكرآ جزيلآ
اخى ممكن تسعدنى فى هذا الموضوع كونت ابحث عن طريقة لى تغير حجم الخط وجت هذا الموضوع فى هذا الرابط هنا
لاكن لا اعرف ما هى المشكله ممكن تساعدنى اذا امكن؟