+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] مشكله في استخدام التايمر (/showthread.php?tid=52449)
مشكله في استخدام التايمر - ahmed36101 - 28-03-25
مبتدئ وتعلمت القليل من صفحاتكم
فكره فورم فيه 5 تايمر مع الضعط علي المفتاح بيتفعل التايمر
timer1,enabled
وضبطت التايمر intervalعلي 5000 ل5 ثواني
وداخل التايمر عاوز اضهر الصوره بعد 5 ثوانى
picture.show
لكن مش متاح show
اعملها ازاى ولو 5 صور عاوزهم يتعرضوا بفرق 5 ثوانى الاولي تختفي والتانيه تعرض مكانها
ياريت الافاده وشكرا
RE: مشكله في استخدام التايمر - Taha Okla - 29-03-25
لو عندك 5 صور اسم كل صورة على رقم محدد مثلا 1 - 2 3 4 5 مع الاحقة اللي هي jpg
فقط تحتاج :
زر واحد
صورة واحدة
تايمر واحد
بتحتاج تكتب الكود :
في قسم التصريحات العامة بتعرف عن متغير ليأخذ الرقم S من نوع Integer
في حدث إقلاع النافذة بتسند قيمة ابتدائية للمتغير لتكن 1
في حدث الأمر بتكتب كود تفعيل التايمر ..
في حدث التك لـ التايمر بتكتب كود تبديل الصور مع شرط يرجع يعد لما يصل لقيمة محدد
بالتاللي بيكون عندك الكود هو (ع أساس أن الصور موجودات في مجلد اسمه TA على سطح القرص C) :
كود :
Dim s As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Form_Load()
s = 1
End Sub
Private Sub Timer1_Timer()
Timer1.Interval = 5000
Picture1.Picture = LoadPicture("C:\TA\" & s & ".jpg")
s = s + 1
If s > 5 Then s = 1
End Subأتركك من هذه اللغة المنقرضة واذهب وتعلم شي أفضل لك ولوقتك
مثلا لغات الدوت نت ..
VB.Net
C#.net هذه أنصحك بها كثيرا - يوجد عشرات القنوات على اليوتيوب من كل اللغات متخصصة بشرح هذه اللغة بشكل موسع فوق كل ما تتصور
Python
أي شي لسا فيك تجد له تحديثات ومهتمين يقدروا يساعدوك لما توقف عند نقطة محددة