+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : [سؤال] طلب مساعدة من المختصين (/showthread.php?tid=13374)
طلب مساعدة من المختصين - chaabane - 27-09-15
في البرنامج يحتوي علي slider و label
label تاخذ قيمت slider قيمة slider تتراوح بين (78000 و -78000) ايضا يوجد في البرنامج timer
المطلوب كلما تغيرت قيمة label في الاتجاه الاكبر تزيد سرعت timer و العكس كلما نقصت قيمة label تنخفض سرعة timer طبعا نضع label2=A
A=0
A=A+1
RE: طلب مساعدة من المختصين - أبو عمر - 28-09-15
PHP كود :
Add
Label
Time
Picture Box
Slider
Option Explicit
Dim C As Integer
Private Sub Form_Load()
Slider1.Max = 78000
Slider1.Min = -78000
End Sub
Private Sub Slider1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Label1.Caption = Slider1.Value
If Slider1.Value > 0 Then
Caption = 78000 / Slider1.Value
Timer1.Interval = 78000 / Slider1.Value
Else
Timer1.Interval = ((Slider1.Value / 100) * -1)
End If
End Sub
Private Sub Timer1_Timer()
Picture1.Cls
Picture1.Print C
C = C + 1
End Sub
RE: طلب مساعدة من المختصين - chaabane - 02-10-15
اشكرك احي علي المساعدة لقد اقتربت من المطلوب كثيرا شكرا لك