[princelovelorn]

تفضل الكود المطلوب لتنفيذ دالة الأكسل

كود :

Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
       If TextBox2.Text = "" Then
           Exit Sub
       End If

       Select Case CDbl(TextBox2.Text)

           Case CDbl(40) To CDbl(50)
               TextBox1.Text = CStr(CDbl(20))

           Case CDbl(70.01) To CDbl(80)
               TextBox1.Text = CStr(CDbl(30))

           Case CDbl(105.01) To CDbl(120)
               TextBox1.Text = CStr(CDbl(40))

           Case CDbl(165.01) To CDbl(180)
               TextBox1.Text = CStr(CDbl(60))

           Case CDbl(200.01) To CDbl(220)
               TextBox1.Text = CStr(CDbl(80))

           Case CDbl(250.01) To CDbl(270)
               TextBox1.Text = CStr(CDbl(100))

           Case CDbl(290.01) To CDbl(320)
               TextBox1.Text = CStr(CDbl(120))

           Case CDbl(360.01) To CDbl(400)
               TextBox1.Text = CStr(CDbl(140))

           Case CDbl(520.01) To CDbl(600)
               TextBox1.Text = CStr(CDbl(180))

           Case Is >= CDbl(1140.01)
               TextBox1.Text = CStr(CDbl(400))

           Case Else
               TextBox1.Text = "plz check Beat Package value again"
       End Select
   End Sub

* ملحوظة أخي بعد إذنك 

في حالة وجود أي إستفسار أو سؤال أو مشكلة لديك

ضع الموضوع في قسم اسئلة VB.NET

وذلك ليسهل على الأخوة معرفة نوعية الموضوع

وذلك سيسرع من الفترة المستغرقة في حل المشكلة

لان من سيرى الموضوع في أي قسم أخر لن يتوقع أنه سؤال

تمنياتي لك بالتوفيق والنجاح