[اليوم السابع]

عندي بالفورم TrackBar1 
ولدي متغير من نوع   Integer
يحمل قيمه افتراضيه  Dim timup As Integer = 30000

وفي حدث تغير الTrackBar1 
اضع هذا الكود 

كود :

 timup += 3000
           Label3.Text = timup

لزياده قيمه المتغير في كل مره يتغير فيها قميه ال TrackBar1 
ولكن لاحظت ان عند زياده الTrackBar1 يزيد قيمه المتغير وعند نقص ال TrackBar1 يزيد كذالك قيمه المتغير 
لا تنقص

[Anas Mahmoud]

السطر ده بيزود قيمة المتغير كل ما يتغير التراك بار ، سواء التغير كان زيادة او نقص

كود :

 timup += 3000

اللي انت محتاج تعمله هو انك تربط قيمة المتغير بقيمة التراك بار :

في حدث اللود اظبط قيمة التراك بار على قيمة المتغير ، وكمان اصغر واكبر قيمة :

كود :

TrackBar1.Minimum = 10000
TrackBar1.Maximum = 60000
TrackBar1.Value = timup

دلوقتي في حدث تغير قيمة التراك بار اكتب :

كود :

timup = TrackBar1.value
Label3.Text = timup