الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Order Abc

بدأه fly في 19 يناير 2010 · 3 رد · 695 مشاهدة · في قسم تكنولوجيا Microsoft .NET العام
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لوسمحتم انا في صدد عمل لعبه ترتيب الكلمات باللغه الانجليزيه للاطفال بvb.net ,فمثلا هنا كلمه "cat"وضعت ثلاث بوتون وتكست واحد كل بوتون يحتوي على حرف معين يتم الادخال في التكست عن طريق الضغط على البوتون ومن ثم اخفاءه اذا كان الادخال صحيح يتم تلوين الكلمه بالاخضر واذا كان خاطئ يتم تلوينه بالاحمر وثم ينتقل للفورم الاخرى

هذا الكود تحت التكست :

[[if TextBox1.Text = "" Then Exit Sub

If TextBox1.Text = "cat" Then

TextBox1.ForeColor = Color.Green

AxWindowsMediaPlayer1.URL = "Excellent.mp3"

PictureBox2.Visible = True

End If

If TextBox1.Text = "act" Or TextBox1.Text = "atc" Or TextBox1.Text = "cta" Or TextBox1.Text = "tca" Or TextBox1.Text = "cta" Then

TextBox1.ForeColor = Color.Red

AxWindowsMediaPlayer1.URL = "try again.mp3"

Button1.Refresh() : Button2.Refresh() : Button3.Refresh()

End If]

هناك عده مشاكل واجهتني :wacko: :

1- اذا كان الادخال خاطئ لاترجع البوتون تظهر للمحاوله مره اخرى , استخدمت داله refrash لكن لم تضبط .

2- اذ ا كان الادخال قراءه فقط read only =true ماتتلون الكلمه .

وفي المرفقات مثال على ذالك .

ارجو المساعد ضرووووووووري جدا جدا الله يجزاكم خير

order ABC.rar

#2
fly كتب:

1- اذا كان الادخال خاطئ لاترجع البوتون تظهر للمحاوله مره اخرى , استخدمت داله refrash لكن لم تضبط .

هذه الدالة لا تقوم بما تريد. الصحيح هو عكس العملية التي استخدمتها للإخفاء. أي:

Button1.Visible = True

fly كتب:

2- اذ ا كان الادخال قراءه فقط read only =true ماتتلون الكلمه .

وضح هذه النقطة أكثر. مالذي تحاول فعله بالضبط؟

* ملاحظة أخرى:

كود فحص صحة الجواب فيه مشاكل. الكود الأصلي:

        If TextBox1.Text = "cat" Then
            TextBox1.ForeColor = Color.Green
            AxWindowsMediaPlayer1.URL = "Excellent.mp3"
            PictureBox2.Visible = True
        End If
        If TextBox1.Text = "act" Or TextBox1.Text = "atc" Or TextBox1.Text = "cta" Or TextBox1.Text = "tca" Or TextBox1.Text = "cta" Then
            TextBox1.ForeColor = Color.Red
            AxWindowsMediaPlayer1.URL = "try again.mp3"
            Button1.Refresh() : Button2.Refresh() : Button3.Refresh()

        End If

المشكلة هنا أنك تقوم بفحص كل إدخال خاطئ. فتفحص لـtca و cta ... إلخ. هذه الطريقة غير مجدية لأنك ستضطر بهذه الطريقة إلى كتابة جميع الإجابات الخاطئة المحتملة. الأسهل و الأسلم هو ضم جملتي الشرط في جملة واحدة.

        If TextBox1.Text = "cat" Then

            TextBox1.ForeColor = Color.Green
            AxWindowsMediaPlayer1.URL = "Excellent.mp3"
            PictureBox2.Visible = True

        Else

            TextBox1.ForeColor = Color.Red
            AxWindowsMediaPlayer1.URL = "try again.mp3"
            Button1.Refresh() : Button2.Refresh() : Button3.Refresh()

        End If
#3
System Down كتب:

هذه الدالة لا تقوم بما تريد. الصحيح هو عكس العملية التي استخدمتها للإخفاء. أي:

Button1.Visible = True

اشتخدمت Button1.Visible = True يظهر عند الادخال الخطأ البوتون الحرفين الاولى دون الثالث وانا اريد ان تظهر جميعها .. مالعمل ؟!

وضح هذه النقطة أكثر. مالذي تحاول فعله بالضبط؟

المقصود بredd only جعل text box قراءه فقط اي يتم الادخال ولاتستطيع التعديل والمسح للكلمه ذالك لاجباره الادخال من البوتون

* ملاحظة أخرى:

المشكلة هنا أنك تقوم بفحص كل إدخال خاطئ. فتفحص لـtca و cta ... إلخ. هذه الطريقة غير مجدية لأنك ستضطر بهذه الطريقة إلى كتابة جميع الإجابات الخاطئة المحتملة. الأسهل و الأسلم هو ضم جملتي الشرط في جملة واحدة.

هذه الطريقه ضم جملتي الشرط في جمله واحده تجعل اللعبه ممله بعض الشي ء اي بمجرد الضغطه الاولى لاي بوتون يظهر الصوت مباشره وهو لم يكمل البقيه

ارجو المساعده ضرورري ان تظهر البوتون جمعيها عند الادخال الخاطئ.

#4
fly كتب:

اشتخدمت Button1.Visible = True يظهر عند الادخال الخطأ البوتون الحرفين الاولى دون الثالث وانا اريد ان تظهر جميعها .. مالعمل ؟!

أرني كيف استخدمتها في الكود

fly كتب:

المقصود بredd only جعل text box قراءه فقط اي يتم الادخال ولاتستطيع التعديل والمسح للكلمه ذالك لاجباره الادخال من البوتون

ما دام المستخدم لن يدخل بيانات عليها مباشرة استخدم Label بدلاً منها.

fly كتب:

هذه الطريقه ضم جملتي الشرط في جمله واحده تجعل اللعبه ممله بعض الشي ء اي بمجرد الضغطه الاولى لاي بوتون يظهر الصوت مباشره وهو لم يكمل البقيه

إذن افحص طول الجملة قبل الدخول في الجملة الشرطية بدل الفحص عن قيمة فارغة.

مواضيع مشابهة