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

التنقل بين الراديو بوتون

بدأه محمد مسافر في 14 فبراير 2014 · 4 رد · 473 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
سلام عليكم

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


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

التعرفة.rar

#2

السلام عليكم...

يمكن التعديل فى الكود كالتالى:

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
        ComboBox1.SelectedIndex = 0
        

    End Sub

   

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        ComboBox2.Items.Clear()

        If ComboBox1.Text = "Saudi Arabia" Then
            ComboBox2.Items.Add("Saudi Telecom Company (STC)")
            ComboBox2.Items.Add("Saudi GlobalStar")
            ComboBox2.Items.Add("Mobily")
            ComboBox2.Items.Add("Zain")


        ElseIf ComboBox1.Text = "Bahrain" Then
            ComboBox2.Items.Add("MTC (Zain)")
            ComboBox2.Items.Add("BATELCO")
            ComboBox2.Items.Add("Viva")


        ElseIf ComboBox1.Text = "Egypt" Then
            ComboBox2.Items.Add("MobiNil")
            ComboBox2.Items.Add("Vodafone")
            ComboBox2.Items.Add("EtisalatMisr")




        ElseIf ComboBox1.Text = "Iraq" Then
            ComboBox2.Items.Add("Asiacell")
            ComboBox2.Items.Add("ORASCOM IRAQNA")
            ComboBox2.Items.Add("Zain")

        ElseIf ComboBox1.Text = "Jordan" Then
            ComboBox2.Items.Add("MobileCom (Orange)")
            ComboBox2.Items.Add("FastLink (Zain)")
            ComboBox2.Items.Add("Xpress")
            ComboBox2.Items.Add("Umniah")

        ElseIf ComboBox1.Text = "Kuwait" Then
            ComboBox2.Items.Add("Wataniya")
            ComboBox2.Items.Add("MTCNet (Zain)")
            ComboBox2.Items.Add("KTC (VIVA)")

        ElseIf ComboBox1.Text = "Lebanon" Then
            ComboBox2.Items.Add("FTML")
            ComboBox2.Items.Add("LibanCell")
            ComboBox2.Items.Add("Alfamobile")

        ElseIf ComboBox1.Text = "Libya" Then
            ComboBox2.Items.Add("Al-Madar")


        ElseIf ComboBox1.Text = "Morocco" Then
            ComboBox2.Items.Add("Medi Telecom S.A. (MediTel)")
            ComboBox2.Items.Add("IAM (Morocco Telecom)")

        ElseIf ComboBox1.Text = "Oman" Then
            ComboBox2.Items.Add("OmanTel")
            ComboBox2.Items.Add("Nawras")
            ComboBox2.Items.Add("Oman Mobile")

        ElseIf ComboBox1.Text = "Qatar" Then
            ComboBox2.Items.Add("Q-tel")
            ComboBox2.Items.Add("Vodafone")


        ElseIf ComboBox1.Text = "Algeria" Then
            ComboBox2.Items.Add("Djezzy")
            ComboBox2.Items.Add("AMN")


        ElseIf ComboBox1.Text = "Sudan" Then
            ComboBox2.Items.Add("MobilTel")
            ComboBox2.Items.Add("Areeba")
            ComboBox2.Items.Add("Zain")


        ElseIf ComboBox1.Text = "Syria" Then
            ComboBox2.Items.Add("SyriaTel Holding S.A")
            ComboBox2.Items.Add("Areeba (MTN)")



        ElseIf ComboBox1.Text = "Tunisia" Then
            ComboBox2.Items.Add("Tunisie Telecom")
            ComboBox2.Items.Add("Orascom")

        ElseIf ComboBox1.Text = "UAE" Then
            ComboBox2.Items.Add("Thuraya Satellite")
            ComboBox2.Items.Add("Etisalat")
            ComboBox2.Items.Add("DU")




        End If
        ComboBox2.SelectedIndex = 0
        RadioButton1.Checked = True 'كود لأختيار الخيار الأول عند تحديد دولة أخرى
        Call RadioButton1_Click(Nothing, Nothing) 'كود استدعاء إجراء الخيار الأول بسبب وقوع الاختيار عليه في الكود السابق

        
    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged
        If RadioButton1.Checked Then

            Call RadioButton1_Click(Nothing, Nothing)
        Else

            Call RadioButton2_Click(Nothing, Nothing)
        End If
        Exit Sub
       

    End Sub

   

    Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click

        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"


        ElseIf ComboBox2.Text = "Mobily" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "25.2"
            TextBox3.Text = "51.12"
            TextBox4.Text = "98.96"
            TextBox5.Text = "214.50"
            TextBox6.Text = "214.50"
            TextBox7.Text = "11.40"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "25.02"
            TextBox3.Text = "51.12"
            TextBox4.Text = "98.67"
            TextBox5.Text = "100.10"
            TextBox6.Text = "100.10"
            TextBox7.Text = "11.44"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "MTC (Zain)" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "13.41"
            TextBox3.Text = "22.12"
            TextBox4.Text = "81.01"
            TextBox5.Text = "204.47"
            TextBox6.Text = "40.89"
            TextBox7.Text = "4.02"
            TextBox8.Text = "0.00"



        ElseIf ComboBox2.Text = "BATELCO" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "3.49"
            TextBox3.Text = "18.77"
            TextBox4.Text = "25.45"
            TextBox5.Text = "77.09"
            TextBox6.Text = "25.45"
            TextBox7.Text = "3.49"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Viva" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "5.63"
            TextBox3.Text = "50.63"
            TextBox4.Text = "96.27"
            TextBox5.Text = "235.32"
            TextBox6.Text = "135.49"
            TextBox7.Text = "12.84"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "MobiNil" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "20.42"
            TextBox3.Text = "60.91"
            TextBox4.Text = "67.95"
            TextBox5.Text = "163.72"
            TextBox6.Text = "63.37"
            TextBox7.Text = "8.10"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Vodafone" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "20.24"
            TextBox3.Text = "60.91"
            TextBox4.Text = "89.08"
            TextBox5.Text = "188.36"
            TextBox6.Text = "72.88"
            TextBox7.Text = "8.10"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "EtisalatMisr" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "20.42"
            TextBox3.Text = "60.73"
            TextBox4.Text = "66.89"
            TextBox5.Text = "163.36"
            TextBox6.Text = "63.02"
            TextBox7.Text = "8.10"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Asiacell" Then

            TextBox1.Text = "13.29"
            TextBox2.Text = "14.75"
            TextBox3.Text = "49.60"
            TextBox4.Text = "406.21"
            TextBox5.Text = "406.21"
            TextBox6.Text = "406.21"
            TextBox7.Text = "5.36"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "ORASCOM IRAQNA" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "8.04"
            TextBox3.Text = "53.63"
            TextBox4.Text = "00.00"
            TextBox5.Text = "00.00"
            TextBox6.Text = "00.00"
            TextBox7.Text = "9.38"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "13.43"
            TextBox2.Text = "13.86"
            TextBox3.Text = "97.00"
            TextBox4.Text = "138.58"
            TextBox5.Text = "554.31"
            TextBox6.Text = "554.31"
            TextBox7.Text = "5.54"
            TextBox8.Text = "0.00"



        ElseIf ComboBox2.Text = "MobileCom (Orange)" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "32.49"
            TextBox3.Text = "60.81"
            TextBox4.Text = "81.48"
            TextBox5.Text = "248.95"
            TextBox6.Text = "61.04"
            TextBox7.Text = "10.79"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "FastLink (Zain)" Then

            TextBox1.Text = "23.94"
            TextBox2.Text = "26.35"
            TextBox3.Text = "54.58"
            TextBox4.Text = "108.97"
            TextBox5.Text = "268.08"
            TextBox6.Text = "66.92"
            TextBox7.Text = "9.35"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Xpress" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "5.63"
            TextBox3.Text = "17.16"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "2.95"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Umniah" Then
            TextBox1.Text = "9.00"
            TextBox2.Text = "26.35"
            TextBox3.Text = "53.57"
            TextBox4.Text = "83.43"
            TextBox5.Text = "210.78"
            TextBox6.Text = "57.08"
            TextBox7.Text = "9.88"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Wataniya" Then
            TextBox1.Text = "20.58"
            TextBox2.Text = "24.13"
            TextBox3.Text = "48.27"
            TextBox4.Text = "159.28"
            TextBox5.Text = "488.46"
            TextBox6.Text = "53.09"
            TextBox7.Text = "14.48"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "MTCNet (Zain)" Then

            TextBox1.Text = "28.31"
            TextBox2.Text = "24.13"
            TextBox3.Text = "38.61"
            TextBox4.Text = "144.80"
            TextBox5.Text = "501.98"
            TextBox6.Text = "57.92"
            TextBox7.Text = "13.51"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "KTC (VIVA)" Then

            TextBox1.Text = "20.58"
            TextBox2.Text = "24.13"
            TextBox3.Text = "57.92"
            TextBox4.Text = "168.94"
            TextBox5.Text = "289.60"
            TextBox6.Text = "289.60"
            TextBox7.Text = "14.48"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "FTML" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "16.00"
            TextBox3.Text = "31.56"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "7.37"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "LibanCell" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "11.80"
            TextBox3.Text = "11.80"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "11.80"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Alfamobile" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "11.80"
            TextBox3.Text = "20.80"
            TextBox4.Text = "11.99"
            TextBox5.Text = "256.17"
            TextBox6.Text = "45.55"
            TextBox7.Text = "7.37"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Al-Madar" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "21.41"
            TextBox3.Text = "64.24"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "10.71"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Medi Telecom S.A. (MediTel)" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "35.19"
            TextBox3.Text = "105.56"
            TextBox4.Text = "175.94"
            TextBox5.Text = "175.94"
            TextBox6.Text = "175.94"
            TextBox7.Text = "12.68"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "IAM (Morocco Telecom)" Then

            TextBox1.Text = "42.80"
            TextBox2.Text = "42.25"
            TextBox3.Text = "84.50"
            TextBox4.Text = "211.25"
            TextBox5.Text = "422.49"
            TextBox6.Text = "253.49"
            TextBox7.Text = "15.21"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "OmanTel" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "26.99"
            TextBox3.Text = "93.86"
            TextBox4.Text = "93.86"
            TextBox5.Text = "376.91"
            TextBox6.Text = "253.85"
            TextBox7.Text = "10.46"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Nawras" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "26.99"
            TextBox3.Text = "93.86"
            TextBox4.Text = "93.86"
            TextBox5.Text = "390.51"
            TextBox6.Text = "390.51"
            TextBox7.Text = "10.46"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Oman Mobile" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "26.99"
            TextBox3.Text = "93.86"
            TextBox4.Text = "93.86"
            TextBox5.Text = "376.91"
            TextBox6.Text = "93.86"
            TextBox7.Text = "10.46"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Q-tel" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "26.89"
            TextBox3.Text = "48.62"
            TextBox4.Text = "82.00"
            TextBox5.Text = "254.13"
            TextBox6.Text = "33.88"
            TextBox7.Text = "4.42"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Vodafone" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "23.94"
            TextBox3.Text = "62.61"
            TextBox4.Text = "58.93"
            TextBox5.Text = "220.98"
            TextBox6.Text = "220.98"
            TextBox7.Text = "9.21"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Djezzy" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "10.62"
            TextBox3.Text = "52.66"
            TextBox4.Text = "82.80"
            TextBox5.Text = "82.80"
            TextBox6.Text = "82.80"
            TextBox7.Text = "10.19"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "AMN" Then

            TextBox1.Text = "17.71"
            TextBox2.Text = "10.89"
            TextBox3.Text = "54.44"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "7.26"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "MobilTel" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "13.94"
            TextBox3.Text = "43.17"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "6.97"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Areeba" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "10.34"
            TextBox3.Text = "22.29"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "5.72"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "14.48"
            TextBox3.Text = "45.05"
            TextBox4.Text = "80.44"
            TextBox5.Text = "80.44"
            TextBox6.Text = "64.35"
            TextBox7.Text = "9.65"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "SyriaTel Holding S.A" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "10.53"
            TextBox3.Text = "19.95"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "5.54"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Areeba (MTN)" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "11.04"
            TextBox3.Text = "22.78"
            TextBox4.Text = "55.75"
            TextBox5.Text = "199.62"
            TextBox6.Text = "85.73"
            TextBox7.Text = "5.81"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Tunisie Telecom" Then

            TextBox1.Text = "37.17"
            TextBox2.Text = "63.37"
            TextBox3.Text = "95.06"
            TextBox4.Text = "123.23"
            TextBox5.Text = "844.98"
            TextBox6.Text = "844.98"
            TextBox7.Text = "17.60"
            TextBox8.Text = "0.00"


        ElseIf ComboBox2.Text = "Orascom" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "17.60"
            TextBox3.Text = "30.28"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "5.28"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Thuraya Satellite" Then

            TextBox1.Text = "44.73"
            TextBox2.Text = "80.44"
            TextBox3.Text = "80.44"
            TextBox4.Text = "160.88"
            TextBox5.Text = "160.88"
            TextBox6.Text = "53.63"
            TextBox7.Text = "26.81"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "Etisalat" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "24.24"
            TextBox3.Text = "58.41"
            TextBox4.Text = "292.4"
            TextBox5.Text = "189.82"
            TextBox6.Text = "189.82"
            TextBox7.Text = "13.87"
            TextBox8.Text = "0.00"

        ElseIf ComboBox2.Text = "DU" Then

            TextBox1.Text = "9.00"
            TextBox2.Text = "21.90"
            TextBox3.Text = "39.42"
            TextBox4.Text = "265.75"
            TextBox5.Text = "265.75"
            TextBox6.Text = "265.75"
            TextBox7.Text = "12.41"
            TextBox8.Text = "0.00"

        End If

    End Sub

   

    Private Sub RadioButton2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton2.Click
        If ComboBox2.Text = "Saudi Telecom Company (STC)" Then

            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"

        ElseIf ComboBox2.Text = "Saudi GlobalStar" Then

            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"


        ElseIf ComboBox2.Text = "Mobily" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.05"
            TextBox3.Text = "2.14"
            TextBox4.Text = "4.14"
            TextBox5.Text = "8.97"
            TextBox6.Text = "8.97"
            TextBox7.Text = "0.48"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.05"
            TextBox3.Text = "2.14"
            TextBox4.Text = "4.13"
            TextBox5.Text = "4.19"
            TextBox6.Text = "4.19"
            TextBox7.Text = "0.48"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "MTC (Zain)" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.56"
            TextBox3.Text = "0.92"
            TextBox4.Text = "3.39"
            TextBox5.Text = "8.55"
            TextBox6.Text = "1.71"
            TextBox7.Text = "0.17"
            TextBox8.Text = "0"



        ElseIf ComboBox2.Text = "BATELCO" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.15"
            TextBox3.Text = "0.78"
            TextBox4.Text = "1.06"
            TextBox5.Text = "3.22"
            TextBox6.Text = "1.06"
            TextBox7.Text = "0.15"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Viva" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.24"
            TextBox3.Text = "2.12"
            TextBox4.Text = "4.03"
            TextBox5.Text = "9.84"
            TextBox6.Text = "5.67"
            TextBox7.Text = "0.54"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "MobiNil" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.85"
            TextBox3.Text = "2.55"
            TextBox4.Text = "2.84"
            TextBox5.Text = "6.85"
            TextBox6.Text = "2.65"
            TextBox7.Text = "0.34"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Vodafone" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.85"
            TextBox3.Text = "2.55"
            TextBox4.Text = "3.72"
            TextBox5.Text = "7.88"
            TextBox6.Text = "3.05"
            TextBox7.Text = "0.22"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "EtisalatMisr" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.85"
            TextBox3.Text = "2.54"
            TextBox4.Text = "2.80"
            TextBox5.Text = "6.83"
            TextBox6.Text = "2.64"
            TextBox7.Text = "0.34"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Asiacell" Then

            TextBox1.Text = "0.60"
            TextBox2.Text = "0.62"
            TextBox3.Text = "2.07"
            TextBox4.Text = "16.99"
            TextBox5.Text = "16.99"
            TextBox6.Text = "16.99"
            TextBox7.Text = "0.22"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "ORASCOM IRAQNA" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.34"
            TextBox3.Text = "2.24"
            TextBox4.Text = "00.00"
            TextBox5.Text = "00.00"
            TextBox6.Text = "00.00"
            TextBox7.Text = "0.39"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "0.61"
            TextBox2.Text = "0.58"
            TextBox3.Text = "4.06"
            TextBox4.Text = "00.0"
            TextBox5.Text = "00.0"
            TextBox6.Text = "00.0"
            TextBox7.Text = "0.23"
            TextBox8.Text = "0"



        ElseIf ComboBox2.Text = "MobileCom (Orange)" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.36"
            TextBox3.Text = "2.54"
            TextBox4.Text = "3.41"
            TextBox5.Text = "10.41"
            TextBox6.Text = "2.55"
            TextBox7.Text = "0.45"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "FastLink (Zain)" Then

            TextBox1.Text = "1.09"
            TextBox2.Text = "1.10"
            TextBox3.Text = "2.28"
            TextBox4.Text = "4.56"
            TextBox5.Text = "11.21"
            TextBox6.Text = "2.80"
            TextBox7.Text = "0.39"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Xpress" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.24"
            TextBox3.Text = "0.72"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.12"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Umniah" Then
            TextBox1.Text = "0.41"
            TextBox2.Text = "1.10"
            TextBox3.Text = "2.24"
            TextBox4.Text = "3.49"
            TextBox5.Text = "8.81"
            TextBox6.Text = "2.39"
            TextBox7.Text = "0.41"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Wataniya" Then
            TextBox1.Text = "0.94"
            TextBox2.Text = "1.01"
            TextBox3.Text = "2.02"
            TextBox4.Text = "6.66"
            TextBox5.Text = "20.43"
            TextBox6.Text = "2.22"
            TextBox7.Text = "0.61"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "MTCNet (Zain)" Then

            TextBox1.Text = "1.29"
            TextBox2.Text = "1.01"
            TextBox3.Text = "1.61"
            TextBox4.Text = "6.06"
            TextBox5.Text = "20.99"
            TextBox6.Text = "2.42"
            TextBox7.Text = "0.57"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "KTC (VIVA)" Then

            TextBox1.Text = "0.94"
            TextBox2.Text = "1.01"
            TextBox3.Text = "2.42"
            TextBox4.Text = "7.06"
            TextBox5.Text = "12.11"
            TextBox6.Text = "12.11"
            TextBox7.Text = "0.61"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "FTML" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.67"
            TextBox3.Text = "1.32"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.31"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "LibanCell" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.49"
            TextBox3.Text = "0.49"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.49"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Alfamobile" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.49"
            TextBox3.Text = "0.87"
            TextBox4.Text = "0.50"
            TextBox5.Text = "10.71"
            TextBox6.Text = "1.90"
            TextBox7.Text = "0.31"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Al-Madar" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.90"
            TextBox3.Text = "2.69"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.45"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Medi Telecom S.A. (MediTel)" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.47"
            TextBox3.Text = "4.41"
            TextBox4.Text = "7.36"
            TextBox5.Text = "7.36"
            TextBox6.Text = "7.36"
            TextBox7.Text = "0.53"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "IAM (Morocco Telecom)" Then

            TextBox1.Text = "1.95"
            TextBox2.Text = "1.77"
            TextBox3.Text = "3.53"
            TextBox4.Text = "8.83"
            TextBox5.Text = "17.67"
            TextBox6.Text = "10.60"
            TextBox7.Text = "0.64"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "OmanTel" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.13"
            TextBox3.Text = "3.93"
            TextBox4.Text = "3.93"
            TextBox5.Text = "15.76"
            TextBox6.Text = "14.76"
            TextBox7.Text = "0.44"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Nawras" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.13"
            TextBox3.Text = "3.93"
            TextBox4.Text = "3.93"
            TextBox5.Text = "16.33"
            TextBox6.Text = "16.33"
            TextBox7.Text = "0.44"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Oman Mobile" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.13"
            TextBox3.Text = "3.93"
            TextBox4.Text = "3.93"
            TextBox5.Text = "15.76"
            TextBox6.Text = "3.93"
            TextBox7.Text = "0.44"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Q-tel" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.12"
            TextBox3.Text = "2.03"
            TextBox4.Text = "3.43"
            TextBox5.Text = "10.36"
            TextBox6.Text = "1.42"
            TextBox7.Text = "0.18"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Vodafone" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.00"
            TextBox3.Text = "2.62"
            TextBox4.Text = "2.46"
            TextBox5.Text = "9.24"
            TextBox6.Text = "9.24"
            TextBox7.Text = "0.39"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Djezzy" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.44"
            TextBox3.Text = "2.20"
            TextBox4.Text = "3.46"
            TextBox5.Text = "3.46"
            TextBox6.Text = "3.46"
            TextBox7.Text = "0.43"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "AMN" Then

            TextBox1.Text = "0.81"
            TextBox2.Text = "0.46"
            TextBox3.Text = "2.28"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.30"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "MobilTel" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.58"
            TextBox3.Text = "1.81"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.29"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Areeba" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.43"
            TextBox3.Text = "0.93"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.24"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Zain" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.61"
            TextBox3.Text = "1.88"
            TextBox4.Text = "3.36"
            TextBox5.Text = "3.36"
            TextBox6.Text = "2.69"
            TextBox7.Text = "0.40"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "SyriaTel Holding S.A" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.44"
            TextBox3.Text = "0.83"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.23"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Areeba (MTN)" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.46"
            TextBox3.Text = "0.95"
            TextBox4.Text = "2.33"
            TextBox5.Text = "8.35"
            TextBox6.Text = "3.58"
            TextBox7.Text = "0.24"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Tunisie Telecom" Then

            TextBox1.Text = "1.69"
            TextBox2.Text = "2.65"
            TextBox3.Text = "3.98"
            TextBox4.Text = "5.15"
            TextBox5.Text = "35.34"
            TextBox6.Text = "35.34"
            TextBox7.Text = "0.74"
            TextBox8.Text = "0"


        ElseIf ComboBox2.Text = "Orascom" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.74"
            TextBox3.Text = "1.27"
            TextBox4.Text = "0.00"
            TextBox5.Text = "0.00"
            TextBox6.Text = "0.00"
            TextBox7.Text = "0.22"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Thuraya Satellite" Then

            TextBox1.Text = "2.03"
            TextBox2.Text = "3.36"
            TextBox3.Text = "3.36"
            TextBox4.Text = "6.73"
            TextBox5.Text = "6.73"
            TextBox6.Text = "2.24"
            TextBox7.Text = "1.12"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "Etisalat" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "1.01"
            TextBox3.Text = "2.44"
            TextBox4.Text = "12.21"
            TextBox5.Text = "7.94"
            TextBox6.Text = "7.94"
            TextBox7.Text = "0.58"
            TextBox8.Text = "0"

        ElseIf ComboBox2.Text = "DU" Then

            TextBox1.Text = "0.41"
            TextBox2.Text = "0.92"
            TextBox3.Text = "1.65"
            TextBox4.Text = "11.11"
            TextBox5.Text = "11.11"
            TextBox6.Text = "11.11"
            TextBox7.Text = "0.52"
            TextBox8.Text = "0"

        End If
    End Sub
End Class
2

VB.NET and C# Comparison

http://www.harding.edu/fmccown/vbnet_csharp_comparison.html

002.gif

=-=-=-=-=-=-=
ذو العلم يشقى فى النعيم بعلمه .:. واخو الجهالة فى الشقاوة ينعم
=-=-=-=-=-=-=
يا من بدنياه اشتغل . قد غره طول الأمل . فالموت يأتى بغتة . والقبر صندوق العمل
=-=-=-=-=-=-=
ان لم تستطع ان تجد ما تفعله فافعل ما لم تسطع ان تجده

screen_shot_2011-05-19_at_12.44.49_pm.pn

#3

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

1
#4

طريقة أخرى من شأنها إختصار أسطر إضافة العناصر لـ ComboBox وListBox وغيرها...

If ComboBox1.Text = "Saudi Arabia" Then
    ComboBox2.Items.AddRange(New String() {"Saudi Telecom Company (STC)", "Saudi GlobalStar", "Mobily", "Zain"})

ElseIf ComboBox1.Text = "Bahrain" Then
    ComboBox2.Items.AddRange(New String() {"MTC (Zain)", "BATELCO", "Viva"})

ElseIf ComboBox1.Text = "Egypt" Then
    ComboBox2.Items.AddRange(New String() {"MobiNil", "Vodafone", "EtisalatMisr"})

وأيضاً إنشاء دوال مخصصة يختصر الكثير مثل التالي

Private Sub ViewData(ByVal d1 As String, ByVal d2 As String, ByVal d3 As String, ByVal d4 As String, ByVal d5 As String, ByVal d6 As String, ByVal d7 As String, ByVal d8 As String)
    TextBox1.Text = d1
    TextBox2.Text = d2
    TextBox3.Text = d3
    TextBox4.Text = d4
    TextBox5.Text = d5
    TextBox6.Text = d6
    TextBox7.Text = d7
    TextBox8.Text = d8
End Sub

Private Sub RadioButton1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RadioButton1.Click

    If ComboBox2.Text = "Saudi Telecom Company (STC)" Then
        ViewData("9.00", "25.02", "51.12", "100.10", "286.00", "143.00", "11.44", "0.00")

    ElseIf ComboBox2.Text = "Saudi GlobalStar" Then
        ViewData("20.78", "17.45", "23.67", "0.00", "0.00", "0.00", "0.00", "0.00")

    ElseIf ComboBox2.Text = "Mobily" Then
        ViewData("9.00", "25.2", "51.12", "98.96", "214.50", "214.50", "11.40", "0.00")

    ElseIf ComboBox2.Text = "Zain" Then
        ViewData("9.00", "25.02", "51.12", "98.67", "100.10", "100.10", "11.44", "0.00")

تم تعديل هذه المشاركة بواسطة vbnetvbnet في 16 فبراير 2014 في 16:18

1

.

أقوال مميزة من منتدى الفريق العربي للبرمجة (قيد التحديث)

 

الأستاذ: محمد طلال بدوي كتب:

إن صحبة الناجحين تصيب بعدوى النجاح، ويا لها من عدوى جميلة، تشعرك بجو من الحماسة والمنافسة، وتبقيك مشتعلا في بحث مستمر عن المراكز الأولى.

الدكتورة: زهرة (أم عهود) كتب:

والله لا نريد من هذه الدنيا شيء إلا ان نكون اخوة متحابين في الله يجمعنا طلب العلم ومساعدة الآخرين لوجه الله تعالى.

.
#5

اعتقد ان وجود قاعدة بيانات تحتوي علي كل هذه المتغيرات يكون افصل واسهل في الكود حتي لو ملف xml

1

سبحانه الله وبحمده سبحانه الله العظيم

 
if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");
 
Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet
 
الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

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