تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[كود] التنقل بين الدول في الكمبو بوكس ليعطيني النتائج مباشرة
#1
سلام عليكم يا شباب


عملت برنامج يساعد الشركة ويساعد الموظفين في احتساب التعرفة ولكن بقي لي شي الخيار الاول في الكمبوبوكس تمام عند تحديد التعرفة بالوحدات او الريال كويس ولكن عندما انتقل

الى الدول الثانية لا تطلع النتائج مباشرة كما في الاول وهكذاء بالنسبة لبقية الدول


اتمنى المساعدة وشكراً لكم وهذاء هو المشروع
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#2
الحدث المحدد خطا
استخدم حدث ComboBox1_SelectedIndexChanged

احذف الاكواد التي ضمن Radiobutton1 و Radiobutton2
والصق هذا الكود في حدث ComboBox1_SelectedIndexChanged 

كود :
 If RadioButton1.Checked Then

           If ComboBox1.Text = "دول مجلس التعاون" Then

               TextBox1.Text = "42.5"
               TextBox2.Text = "20"
               TextBox3.Text = "53.5"
               TextBox4.Text = "0"
               TextBox5.Text = "10"
               TextBox6.Text = "18"
               TextBox7.Text = "0.4"

           ElseIf ComboBox1.Text = "البلدان العربية" Then

               TextBox1.Text = "46"
               TextBox2.Text = "20"
               TextBox3.Text = "53.5"
               TextBox4.Text = "0"
               TextBox5.Text = "10"
               TextBox6.Text = "21"
               TextBox7.Text = "0.4"



           ElseIf ComboBox1.Text = "دول اوروبا ، تركيا ، امريكا وكندا" Then

               TextBox1.Text = "62"
               TextBox2.Text = "20"
               TextBox3.Text = "65"
               TextBox4.Text = "0"
               TextBox5.Text = "10"
               TextBox6.Text = "28"
               TextBox7.Text = "0.4"

           ElseIf ComboBox1.Text = "بقية دول العالم" Then

               TextBox1.Text = "68"
               TextBox2.Text = "20"
               TextBox3.Text = "72.5"
               TextBox4.Text = "0"
               TextBox5.Text = "10"
               TextBox6.Text = "32"
               TextBox7.Text = "0.4"

           ElseIf ComboBox1.Text = "شبكات الأقمار الصناعية كالثريا وغيرها" Then

               TextBox1.Text = "100"
               TextBox2.Text = "85"
               TextBox3.Text = "115"
               TextBox4.Text = "0"
               TextBox5.Text = "23"
               TextBox6.Text = "155"
               TextBox7.Text = "1"

           End If


       ElseIf RadioButton2.Checked Then
           If ComboBox1.Text = "دول مجلس التعاون" Then

               TextBox1.Text = "425.00"
               TextBox2.Text = "200"
               TextBox3.Text = "535.00"
               TextBox4.Text = "0.00"
               TextBox5.Text = "100.00"
               TextBox6.Text = "180.00"
               TextBox7.Text = "4.00"



           ElseIf ComboBox1.Text = "البلدان العربية" Then

               TextBox1.Text = "460.00"
               TextBox2.Text = "200.00"
               TextBox3.Text = "535.00"
               TextBox4.Text = "0.00"
               TextBox5.Text = "100.00"
               TextBox6.Text = "210.00"
               TextBox7.Text = "4.00"




           ElseIf ComboBox1.Text = "دول اوروبا ، تركيا ، امريكا وكندا" Then

               TextBox1.Text = "620.00"
               TextBox2.Text = "200.00"
               TextBox3.Text = "650.00"
               TextBox4.Text = "0.00"
               TextBox5.Text = "100.00"
               TextBox6.Text = "280.00"
               TextBox7.Text = "4.00"

           ElseIf ComboBox1.Text = "بقية دول العالم" Then

               TextBox1.Text = "680.00"
               TextBox2.Text = "200.00"
               TextBox3.Text = "725.00"
               TextBox4.Text = "0.00"
               TextBox5.Text = "100.00"
               TextBox6.Text = "320.00"
               TextBox7.Text = "4.00"

           ElseIf ComboBox1.Text = "شبكات الأقمار الصناعية كالثريا وغيرها" Then

               TextBox1.Text = "1000.00"
               TextBox2.Text = "850.00"
               TextBox3.Text = "1150.00"
               TextBox4.Text = "0.00"
               TextBox5.Text = "230.00"
               TextBox6.Text = "1550.00"
               TextBox7.Text = "10.00"
           End If
       End If

المرفق بعد التعديل


الملفات المرفقة
.zip   التعرفة.zip (الحجم : 560.39 ك ب / التحميلات : 97)
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: العزابي , raoe-041 , محمد مسافر , sami2015
#3
شكراً لك ابو سعود

عندي استفسار بسيط البرنامج شبة جاهز المشكلة المشكلة عندي هي في RadioButton2 التى مكتوب فيها تعرفة التجوال للفواتير بالريال  عندما اكون محدد هذاء الخيار واختار الدول ينتقل المؤشر مباشرة الى RadioButton1  التى مكتوب فيها تعرفة التجوال للدفع المسبق بالوحدات  لاا اريد هذاء


باختصار ياشباب:

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

المشكلة في الرادية بوتون 2 اريدةها تكون بنفس الفكرة للرادية بوتون 1 بحيث اناء محدد راديو بوتون 2 واختار اي دولة تطلع لى التعرفة مش يعكس الراديو بوتون الى الرقم 1


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


الرد }}}
تم الشكر بواسطة:
#4
انت ماسويت التعديل اللي قلت لك عليه يااخي الكريم الراديو له فقط حالتان الاولى اما نشطة او غير نشطة افتراضيا فما تنفع تستخدمها
عدل مثل ماقلت لك وتشوف النتيجة
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة:
#5
لم يتضح لي من وين التعديل هل ممكن لو تكرمت تعدل على البرنامج وترفقة لي حتى يتضح لي واكرر شكري لك
اللهمّ بعلمك الغيب وقدرتك على الخلق، أحييني ما علمت الحياة خيراً لي، وتوفّني ما علمت الوفاة خيراً لي.


الرد }}}
تم الشكر بواسطة:
#6
(05-02-15, 03:19 PM)محمد مسافر كتب : لم يتضح لي من وين التعديل هل ممكن لو تكرمت تعدل على البرنامج وترفقة لي حتى يتضح لي واكرر شكري لك

اخي الكريم ظننت انك اطلعت على ردي السابق والمرفق هناك يحتوي التعديل.
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
الرد }}}
تم الشكر بواسطة: محمد مسافر


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] تكست بوكس EMADW 3 455 09-05-25, 05:09 PM
آخر رد: princelovelorn
  [سؤال] اريد طباعة تقرير ريبورت فيو مباشرة فور عرض التقرير mh66 1 565 22-03-25, 09:59 AM
آخر رد: mh66
  كود لتغير لون الخط فى التكست بوكس خالد كامل1 1 348 31-01-25, 06:22 PM
آخر رد: أبو خالد الشكري
  [كود] كود تغيير حجم النص في التكست بوكس hassan 8 8,805 30-01-25, 02:33 AM
آخر رد: خالد كامل1
  مساعدة في استيراد البيانات من الليست بوكس fireswored1 4 485 22-01-25, 08:43 PM
آخر رد: fireswored1
  تقريب الأعداد العشرية إلى الرقم الأعلى مباشرة العيدروس 2 376 20-01-25, 12:51 AM
آخر رد: العيدروس
  [VB.NET] تعبئة كومبو بوكس بقواعد البيانات الموجوده علي السيرفر Mustafa Shaker 6 4,122 23-12-24, 03:59 PM
آخر رد: aljzazy
  [VB.NET] جيك بوكس muaamar 3 394 23-11-24, 09:00 PM
آخر رد: rdxdz
  كتابه عدد معين من الارقام داخل تيكست بوكس modymody300894 3 565 07-11-24, 09:15 PM
آخر رد: modymody300894
  كيفيه التعامل مع ملفات الدروب بوكس عن طريق api ackore 3 470 22-08-24, 06:13 AM
آخر رد: ackore

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


يقوم بقرائة الموضوع: