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

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

كود معادله - محمد مسافر - 14-02-19

سلام عليكم

الموضوع 3 تاكس بوكس


الاول تاكس بوكس وهي القيمه

الثاني تاكس بوكس = القيمه المدخله في التاكس بوكس واحد = مثال = 100 في 2 قسمه 100 = 2

الثالث تاكس بوكس القيمه بعد خصم الرسوم 2 % = 100 ناقص 2 = 98

RE: كود معادله - princelovelorn - 15-02-19

وعليكم السلام ورحمة الله وبركاته

تفضل الكود المطلوب
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
             Dim x As Double
        Dim y As Double
        Dim z As Double

        x = CDbl(TextBox1.Text)
        y = CDbl(TextBox2.Text)

        z = x * y / 100

        TextBox3.Text = CStr(x - z)
   End Sub

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


RE: كود معادله - محمد مسافر - 15-02-19

السلام عليكم

اقصد عند ادخال اي قيمه في التاكس بوكس 1 مباشره تظهر القيم الاخرى مباشره في التاكس بوكس 2 وتاكس بوكس 3 .
موضح لكم صوره لمااقصده مع البرنامج

RE: كود معادله - princelovelorn - 15-02-19

تفضل الكود كما تطلب
 
كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       If TextBox1.Text = "" Then Exit Sub

       Dim x As Double
       Dim y As Double
       Dim z As Double

       ' قيمة رسوم التحويل  
       y = 2
       TextBox3.Text = y

       x = CDbl(TextBox1.Text)
       z = x * y / 100
       TextBox2.Text = CStr(x - z)
   End Sub

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


RE: كود معادله - محمد مسافر - 15-02-19

التاكس بوكس الاول صحيح
التاكس بوكس الثاني صحيح

التاكس بوكس الثالث غير صحيح 
الفكره في هذا التكس الثالث اما يكون القيمه في التكس بوكس تكون القيمه اي قيمه في 2 قسمه  100 او طرح البوكس 1من تاكس بوكس 2 تطلع النتيجه في التاكس بوكس الثالث

مثلاً القيمه في التكس بوكس 1  مثلاً  600

تكون في التكس بوكس الثاني = 588

التكس بوكس الثالث  = 12

RE: كود معادله - princelovelorn - 15-02-19

تفضل الكود المطلوب


كود :
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

       If TextBox1.Text = "" Then Exit Sub

       Dim x As Double
       Dim y As Double
       Dim z As Double

       y = 2

       x = CDbl(TextBox1.Text)
       z = x * y / 100
       TextBox3.Text = z
       TextBox2.Text = CStr(x - z)

   End Sub


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


RE: كود معادله - محمد مسافر - 16-02-19

صحيح 100% والمعادله صحيحه