سلام عليكم
الموضوع 3 تاكس بوكس
الاول تاكس بوكس وهي القيمه
الثاني تاكس بوكس = القيمه المدخله في التاكس بوكس واحد = مثال = 100 في 2 قسمه 100 = 2
الثالث تاكس بوكس القيمه بعد خصم الرسوم 2 % = 100 ناقص 2 = 98
وعليكم السلام ورحمة الله وبركاته
تفضل الكود المطلوب
كود :
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 .
موضح لكم صوره لمااقصده مع البرنامج
تفضل الكود كما تطلب
كود :
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
تفضل الكود المطلوب
كود :
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% والمعادله صحيحه