[5000]

أضف الكود التالي في الفورم

Private Sub Text_TextChanged(sender As Object, e As EventArgs) _
Handles ComboBox2.TextChanged, ComboBox3.TextChanged, TextBox3.TextChanged, TextBox8.TextChanged
ccc()
End Sub

Private Sub ccc()
Dim A6 = Val(ComboBox2.Text) ' first pk: Main
Dim C6 = Val(TextBox3.Text) ' first pk: Used
Dim F6 = A6 - C6 ' first pk: Remaining
Dim H6 = F6 ' first pk: Carry Over

Dim A7 = Val(ComboBox3.Text) ' sec pk: Main
Dim B7 = A7 + H6 ' sec pk: B7
Dim C7 = Val(TextBox8.Text) ' sec pk: Used
Dim D7 = A6 - C7 ' sec pk: D7
Dim E7 = D7 + A7 ' sec pk: E7
Dim F7 = If(H6 = 0, D7, E7) ' sec pk: Remaining
Dim G7 = F7 - D7 ' sec pk: G7
Dim H7 = If(F7 >= A6, A6, F7) ' sec pk: Carry Over

TextBox4.Text = F6 ' first pk: Remaining
TextBox5.Text = H6 ' first pk: Carry Over

TextBox7.Text = F7 ' sec pk: Remaining
TextBox2.Text = H7 ' sec pk: Carry Over
End Sub