[محمد مسافر]

سلام عليكم

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


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

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

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

[princelovelorn]

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

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

كود :

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

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

[محمد مسافر]

السلام عليكم

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

[princelovelorn]

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

 

كود :

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

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

[محمد مسافر]

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

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

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

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

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

[princelovelorn]

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

كود :

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

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

[محمد مسافر]

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