[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

---

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