منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كلانا نعلو او استخدمنا الفروم لو عندنة 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 لايظهر شيء
بعد كده يتم الانتقال لى سطر جديد
لو كتب محمود نفس الكلام

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

أخي الكريم
تختلف طريقة إدخال البيانات في 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

بالتوفيق

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

أسامة

sooriaty03

أسامة