[norhan]

(01-03-16, 12:00 AM)ahmedabdelaliem كتب : السلام عليكم

انسخي هذه الاكواد الى برنامج

PHP كود :

Private Sub Text10_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text11_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text12_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text4_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text5_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text6_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text7_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + Val(Text8.Text) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text8_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub

Private Sub Text9_Change()
Text34.Text = (Val(Text4.Text) * 20) + (Val(Text5.Text) * 20) + (Val(Text6.Text) * 20) + (Val(Text7.Text) * 20) + (Val(Text8.Text) * 20) + (Val(Text9.Text) * 20) + (Val(Text10.Text) * 20) + (Val(Text11.Text) * 20) + (Val(Text12.Text) * 20)
End Sub 


بالتوفيق

---

وهذا برنامجك بعد التعديل

المشكلة كانت في text8  راجعيها هتلاقي الفرق هو عدم ضرب قيمة text8 * 20


بالتوفيق

اشكرك على الرد لكن اعلم جيدا انى وضعت قيم text8  لكن اختفت بعد التشغيل لاادرى لماذا ولكن .... اكرر الشكر على الافاده