منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[كود] كود معادله تطبق في الفيجوال دوت نت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] كود معادله تطبق في الفيجوال دوت نت (/showthread.php?tid=28583)

كود معادله تطبق في الفيجوال دوت نت - محمد مسافر - 12-02-19

الاخوة جميعاً :

المشروع عباره عن معادله في الاكسل اريد تطبيقها في الفيجوال دوت نت موضح لكم التفاصيل في المرفقات .

RE: كود معادله تطبق في الفيجوال دوت نت - princelovelorn - 12-02-19

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

كود :
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
وذلك ليسهل على الأخوة معرفة نوعية الموضوع
وذلك سيسرع من الفترة المستغرقة في حل المشكلة
لان من سيرى الموضوع في أي قسم أخر لن يتوقع أنه سؤال

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


RE: كود معادله تطبق في الفيجوال دوت نت - محمد مسافر - 12-02-19

شكراً اخي
فقط  استفسار اريد بدايه المشروع يكون اداه التحديد الكتابه محدد في التاكس واحد يكون اسهل بحيث اكتب القيمه مباشره تظهر في التاكس 2  موضح توضيخ في الصوره

بخصوص ملاحظتك حاضر ولايهمك ان شاء الله اعمل بها فقط هذي المره .


مقدر تعاونك الدائم وتحيه لك .

RE: كود معادله تطبق في الفيجوال دوت نت - princelovelorn - 12-02-19

الحمد لله والشكر لله
جزاك الله خيرا

أستعمل الكود التالي
لجعل التركيز على الاداة التي تريدها
في حدث formload 
كود :
  TextBox1.Focus()


أو تضغط على قائمة view ثم tab Order  هايظهر مربعات على الادوات الموجودة على الفورم   اضغط بالماوس على الادوات بالترتيب الذي تريده
بحيث كل مره هاتضغط زر tab اثناء تشغيل البرنامج  هايتبع نفس الترتيب اللى انت وضعته بالماوس



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

RE: كود معادله تطبق في الفيجوال دوت نت - محمد مسافر - 12-02-19

كود :
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Focus()
   End Sub
End Class

جربت مامشي الحال بحثت عن القائمه tab Order  من قائمه view ماظهرت في حل اخر

RE: كود معادله تطبق في الفيجوال دوت نت - princelovelorn - 12-02-19

(12-02-19, 09:14 PM)محمد مسافر كتب :
كود :
   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       TextBox1.Focus()
   End Sub
End Class

جربت مامشي الحال بحثت عن القائمه tab Order  من قائمه view ماظهرت في حل اخر

هاتظهر لو انت فاتح نافذة الفورم وليس محرر الاكواد
فعلا دالة foucse لا تعمل لدي ايضا 

مرفق المثال بعد عمل الترتيب عن طريق view  ثم tab order

ممكن تغيير رقم الاندكس  tabindex في خصائص الكنترول المطلوب التركيز عليه في بداية فتح الفورم  الى رقم 0

RE: كود معادله تطبق في الفيجوال دوت نت - محمد مسافر - 12-02-19

غيرت القيمه الى صفر في الـ     tabIndex

وعمل المشروع تمام 100%   

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

RE: كود معادله تطبق في الفيجوال دوت نت - princelovelorn - 12-02-19

(12-02-19, 10:16 PM)محمد مسافر كتب : غيرت القيمه الى صفر في  الـ     tabIndex

وعمل المشروع تمام 100%   

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

الحمد لله والشكر لله


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