[AHMED213]

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

[justforit]

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

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

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

[alachk]

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

[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

[AHMED213]

(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

---

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

[AHMED213]

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

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