منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

ارجو من الاخوة الافاضل حل هذا الاشكال من فضلكم 
اريد عند ادخال قيمة استهلاك الكهرباء في التكست1 فيتم توزيعها على لابل11  و لابل12  ولابل13  و لابل 14 حسب شزط الشطر 
وشكرا مسبقا

(03-09-24, 09:39 PM)AHMED213 كتب : [ -> ]ارجو من الاخوة الافاضل حل هذا الاشكال من فضلكم 
اريد عند ادخال قيمة استهلاك الكهرباء في التكست1 فيتم توزيعها على لابل11  و لابل12  ولابل13  و لابل 14 حسب شزط الشطر 
وشكرا مسبقا

الجزئية التالية ما المقصود بها؟

إقتباس :حسب شزط الشطر 

تفضل بعد التعديل

تفضل

(04-09-24, 03:58 AM)Zuhare كتب : [ -> ]تفضل

كود :

Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As EventArgs) Handles TextBox1.TextChanged
   Dim n As Integer = Val(Me.TextBox1.Text)
   Me.Label1.Text = If(n > 125, 125, n)
   n -= 125
   If n < 0 Then n = 0
   Me.Label2.Text = If(n > 125, 125, n)
   n -= 125
   If n < 0 Then n = 0
   Me.Label3.Text = If(n > 750, 750, n)
   n -= 750
   If n < 0 Then n = 0
   Me.Label4.Text = n
End Sub

---

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

(04-09-24, 12:38 AM)alachk كتب : [ -> ]تفضل بعد التعديل

شكراااااااااااااااااااااااا جزيلا اللهم اجعلها في ميزان حسناتك يا رب