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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=50266)

طلب مساعدة - AHMED213 - 03-09-24

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

RE: طلب مساعدة - justforit - 04-09-24

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

الجزئية التالية ما المقصود بها؟
إقتباس :حسب شزط الشطر 


RE: طلب مساعدة - alachk - 04-09-24

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

RE: طلب مساعدة - Zuhare - 04-09-24

تفضل
كود :
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


RE: طلب مساعدة - AHMED213 - 04-09-24

(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
شكرا شكرا شكرااااااااااااااا جزيلا هذا هو المطلوب
اما بخصوص شزط الشطر فلدي عمى الحروق اعذرني. بارك الله فيك و شكزااااااااااا جزيلا
اتصدقني انا الذي كتبتها ولم استطع فهمها

RE: طلب مساعدة - AHMED213 - 04-09-24

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

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