محاسبه عدد در بازه تعیین شده و انجام عملیات مطابق شرط موحود در بازه عددی

[djhooman]

با سلام و عرض خسته نباشید ....

در بخشی از برنامه نیاز هستش که ما بابت مقدار فیلد عددی که داریم بیایم اون فیلد رو در بین مثلا 10 تا بازه عددی چک کنیم اگر در یکی از اون بازه ها قرار داشت بیاد شرط موجود در اون بازه رو انحام بده .

مثال :

فیلدی داریم به عنوان متراژ زمین

حالا اگر مقدار فیلد متراژ زمین = 500 شد و اگر این مقدار فیلد متراژ بین عدد 400 الی 600 بود ، بصورت خودکار مقدار 10000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 700 شد و اگر این مقدار فیلد متراژ بین عدد 601 الی 750 بود ، بصورت خودکار مقدار 12000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 800 شد و اگر این مقدار فیلد متراژ بین عدد 751 الی 850 بود ، بصورت خودکار مقدار 13000000 رو در تکست باکس قرار بده .
و اگر مقدار فیلد متراژ زمین = 900 شد و اگر این مقدار فیلد متراژ بین عدد 851 الی 999 بود ، بصورت خودکار مقدار 14000000 رو در تکست باکس قرار بده .

من خودم با این کد رفتم جلو اما کار نکرد و هر متراژی وارد میشد رو آخرین مقدار رو در تکست باکس درج میکرد . یعنی اگه مثلا مقدار فیلد متراژ 238 بود ، مقدار 8000000 رو انتخاب میکرد که اصلا تو اون بازه قرار نداشتش عدد من !!!!

                Dim MetrazhZamin As Integer = Convert.ToInt32(ZaminMetrazhtxt.Text)



                If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 0 And MetrazhZamin < 100 Then

                    FinalMablagh.Text = "2000000"

                    'End If



                If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 101 And MetrazhZamin < 200 Then

                    FinalMablagh.Text = "4000000"

                    'End If



                If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 201 And MetrazhZamin < 350 Then

                    FinalMablagh.Text = "6000000"

                    'End If



                If NoeDarkhastCMB.Text = "ABCD" And MetrazhZamin > 351 And MetrazhZamin < 500 Then

                    FinalMablagh.Text = "8000000"

                    'End If

ممنون میشم راهنمایی کنید

[محمد آشتیانی]

سلام
بر اساس تکه کد شما ، به اینصورت میشه

       Dim noeDarkhast As String = NoeDarkhastCMB.Text

        Dim metrazhZamin As Integer = Convert.ToInt32(MetrazhTXT.Text)

        Dim finalMablagh As Integer





        If noeDarkhast = "ABCD" Then





            Select Case metrazhZamin

                Case 0 To 100

                    finalMablagh = 2000000

                Case 101 To 200

                    finalMablagh = 4000000

                Case 201 To 350

                    finalMablagh = 6000000

                Case 351 To 500

                    finalMablagh = 8000000

            End Select





        End If





        FinalMablaghTXT.Text = finalMablagh.ToString()

موفق باشید