[سؤال] التنقل بين الراديو بوتون

[سؤال] التنقل بين الراديو بوتون - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] التنقل بين الراديو بوتون (/showthread.php?tid=1913)

التنقل بين الراديو بوتون - محمد مسافر - 14-02-14

سلام عليكم

اخواني مشروعي هو تعرفة اتصالات والمشروع جاهز ولكن هناك مشكلة او كود ناقص من حيث انة لايتم التغيير مابين RadioButton1 وكذلك الـ RadioButton2

بحيث يتم التبديل والتغيير عند اختيار الدولة مثلاً نجد ان البوتون واحد الذي هو الدفع مسبق شغال تمام , ولكن عند تحديد البوتون 2 الذي هو الفواتير واختيار الدولة نجد ان القيم لا تتغير في التاكس بوكس المشكلة باختصار زملائي لايوجد تبديل بين البوتون 1 والبوتون 2 من والى ارجوء كتابة الكود الناقص ولكم خالص الشكر والتقدير والله لا يضيع اجر من احسن عملا.

RE: التنقل بين الراديو بوتون - Easy4ever - 15-02-14

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

أخي الكريم
أولا :-
عند وضع الكود يجب أختيار الحدث المناسب للكود

انت كتبت الكود في حدث Click حق الراديو بوتن يوجد حدث أكثر دقه وهو CheckedChanged
وهذا الحدث يعني عند حصول تغيير في الاختيار إي انك إذا اخترت " الدفع المسبق " وبعده قمت بأختيار " الفواتير " هنا حدث تغيير في الاختيار يقوم بتنفيذ الامر

ثانيا :-
يوجد طريقه سهله لأختصار الكود بدلا ما تقوم بكتبة الكود في الليست بوكس ومن ثم إعادة كتابته في الراديو بوكس
تستطيع إن شاء إجراء ووضع الكود هناك ومن ثم تستدعي الإجراء من كل مكان فمثلا
أريد أضافة هذا الكود في التكس بوكس الاول و الثاني

PHP كود :

TextBox1.Text = "محمد"
TextBox2.Text = "20" 

واريد هذا الكود يتنفذ في اكثر من مكان اقوم بإنشاء إجراء بإي اسم اريده وليكن " LoadText "

PHP كود :

Sub LoadText()

End Sub 

هذا هو الإجراء الان سأضيف له الكود

PHP كود :

Sub LoadText()

TextBox1.Text = "محمد"
TextBox2.Text = "20"

End Sub 

الان استطيع منادات هذا الإجراء من إي حدث اريد
وهذا كود نداء الإجراء

PHP كود :

Call LoadText() 

Call واسم الإجراء
بكذا اختصرت أكواد كثيره بدل ما تعيدها
طبقت هذا الشيء في مثالك وقمت بعديله

ثالثا :-
في كودك التالي

PHP كود :

If ComboBox2.Text = "Saudi Telecom Company (STC)" Then
                TextBox1.Text = "9.00"
                TextBox2.Text = "25.02"
                TextBox3.Text = "51.12"
                TextBox4.Text = "100.10"
                TextBox5.Text = "286.00"
                TextBox6.Text = "143.00"
                TextBox7.Text = "11.44"
                TextBox8.Text = "0.00"
       ElseIf ComboBox2.Text = "Saudi GlobalStar" Then
               TextBox1.Text = "20.78"
                TextBox2.Text = "17.45"
                TextBox3.Text = "23.67"
                TextBox4.Text = "0.00"
                TextBox5.Text = "0.00"
                TextBox6.Text = "0.00"
                TextBox7.Text = "0.00"
                TextBox8.Text = "0.00"
End If 

قمت بتخيره من جانب واحد لما لا تقوم بتخيره من جانبين لتشمل جميع الإحتمالات
يعني أجعل الكود كتالي

PHP كود :

If ComboBox2.Text = "Saudi Telecom Company (STC)" Then
            If RadioButton1.Checked = True Then
                TextBox1.Text = "9.00"
                TextBox2.Text = "25.02"
                TextBox3.Text = "51.12"
                TextBox4.Text = "100.10"
                TextBox5.Text = "286.00"
                TextBox6.Text = "143.00"
                TextBox7.Text = "11.44"
                TextBox8.Text = "0.00"
            Else
                TextBox1.Text = "0.41"
                TextBox2.Text = "1.05"
                TextBox3.Text = "2.14"
                TextBox4.Text = "4.19"
                TextBox5.Text = "11.96"
                TextBox6.Text = "5.98"
                TextBox7.Text = "0.48"
                TextBox8.Text = "0"

            End If

        ElseIf ComboBox2.Text = "Saudi GlobalStar" Then
            If RadioButton1.Checked = True Then

                TextBox1.Text = "20.78"
                TextBox2.Text = "17.45"
                TextBox3.Text = "23.67"
                TextBox4.Text = "0.00"
                TextBox5.Text = "0.00"
                TextBox6.Text = "0.00"
                TextBox7.Text = "0.00"
                TextBox8.Text = "0.00"
            Else
                TextBox1.Text = "0.94"
                TextBox2.Text = "0.73"
                TextBox3.Text = "0.99"
                TextBox4.Text = "0.00"
                TextBox5.Text = "0.00"
                TextBox6.Text = "0.00"
                TextBox7.Text = "0.00"
                TextBox8.Text = "0"
            End If
End If 

لو لاحظت بتلقى تم إضافة هذا الكود

PHP كود :

If RadioButton1.Checked = True Then 

ومن ثم وضع قيم الفاتورة
في هذا الكود يقوم بسأل هل هو مسبق الدفع إذا كان نعم يقوم بأخذ معلومات مسبق الدفع خلاف هذا يأخذ معلومات الفاتوره
بكذا بتشمل كل شيء بدون إي مشاكل

وإجعل الكود بإجراء مستقل مثل ما وضحت لك في النقطه الثانيه
وقم بستدعائها في الاحداث التالي

PHP كود :

Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        Call LoadText()
    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
        Call LoadText()
    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged
        Call LoadText()
    End Sub 

رابعا:- المشروع بعد التعديل في المرفق

RE: التنقل بين الراديو بوتون - محمد مسافر - 16-02-14

الشكر الكثير لك فعلاً انت لك دور كبير في مساعدة الاخرين فلك جزيل الشكر والامتنان وبالفعل مكسب للمنتدى وللاخرين