تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] التنقل بين الراديو بوتون
#1
Rainbow 
سلام عليكم

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


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


الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

انت كتبت الكود في حدث 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.ObjectByVal e As System.EventArgsHandles ComboBox2.SelectedIndexChanged
        Call LoadText
()
    
End Sub

    
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.ObjectByVal e As System.EventArgsHandles RadioButton1.CheckedChanged
        Call LoadText
()
    
End Sub

    
Private Sub RadioButton2_CheckedChanged(sender As System.ObjectAs System.EventArgsHandles RadioButton2.CheckedChanged
        Call LoadText
()
    
End Sub 

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


الملفات المرفقة
.rar   التجوال الدولي.rar (الحجم : 127.88 ك ب / التحميلات : 98)
Big Grin
<---------------------------------------------------------------->

الرد
تم الشكر بواسطة: محمد مسافر , vbnet
#3
الشكر الكثير لك فعلاً انت لك دور كبير في مساعدة الاخرين فلك جزيل الشكر والامتنان وبالفعل مكسب للمنتدى وللاخرين
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد
تم الشكر بواسطة: vbnet , Easy4ever


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [VB.NET] برمجة أزرار التنقل بين السجلات أبو خالد الشكري 3 394 03-01-22, 05:06 AM
آخر رد: سعود
  كود ايقاف صوت المعالج عند التنقل برز enter بسام محمدغانم 2 577 23-10-21, 01:32 AM
آخر رد: بسام محمدغانم
  [سؤال] كود التنقل بين صفوف الجريد فيو حسن الجلب 1 615 19-03-21, 09:21 AM
آخر رد: سامي محمد
  مشكله فى التنقل بين السجلات من خلال الداتاجريد فيو سلام و محبه 0 799 29-01-21, 11:15 PM
آخر رد: سلام و محبه
  [VB.NET] التنقل بين صفوف datagrid عبدالكريم برشدان 1 747 20-01-21, 10:30 PM
آخر رد: moosa_alabri
  مساعده فى ازرار التنقل سلام و محبه 4 867 31-12-20, 01:14 AM
آخر رد: سلام و محبه
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 3 1,734 28-10-20, 12:46 PM
آخر رد: Anas Mahmoud
  سؤال حول التنقل بالاسهم من لوحة المفاتيح Lathe1 2 838 08-10-20, 02:00 PM
آخر رد: Lathe1
  الى خبراء الدوت نت (داتا جريد فيو) التنقل التلقائي في خلايا الداتا جريد ismaeel 0 964 10-08-20, 03:38 PM
آخر رد: ismaeel
  التنقل بين حقول textbox paveldida 11 2,319 02-05-20, 11:28 AM
آخر رد: WaeLx

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم