ساخت چهار راه * لطفا کمک کنید *

[hasan0be]

من سه عدد Label به عنوان چراغ ها استفاده کرده ام چگونه به تایمر تعریف کنم که این کار پشت سر هم تکرار شود .
یعنی روشن خاموش شدن چراغ ها .

با تشکر

Private Sub Timer5_Timer()
Static a As Long
a = a + 1
If a = 3 Then Label1.BackColor = vbRed
If a = 110 Then Label1.BackColor = &H8000000F
If a = 110 Then Timer5.Enabled = False
If Timer5.Enabled = False Then Timer6.Enabled = True
End Sub


Private Sub Timer6_Timer()
Static b As Long
b = b + 1
If b = 1 Then Label2.BackColor = &HFFFF&
If b = 20 Then Label2.BackColor = &H8000000F
If b = 20 Then Timer6.Enabled = False
If Timer6.Enabled = False Then Timer7.Enabled = True
End Sub

Private Sub Timer7_Timer()
Static b As Long
c = c + 1
If c = 1 Then Label3.BackColor = vbGreen
If c = 100 Then Label3.BackColor = &H8000000F
If c = 100 Then Timer7.Enabled = False


End Sub

دوستان این کد تا حالا درست است .

[amirxbest]

فکر کنم تو زیادی پیچوندیش.از فرشید جان بخواه اگه امکان داره برات سورس رو بزاره تا کامل برات جا بیفته.

ولی اینجورم میشه
اون متغیر ای ایستا(static) که تعریف کردی رو تو تایمر یکی بهش اضاف کن اینجوری:

static a as byte
a=a+1

بعدم با یه if چک کن اینجوری:

if a =3 then
timer1.enabled=false
timer2.enabled=true
a=0
end if

بعدم تو اون 2تا تایمر هم همینجوری.
به همین سادگی
بعد واسه هر رنگ یه تایمر جدا بزاری که هم گیج نشی هم کد خوانا تر باشه.
موفق باشید

[hasan0be]

»ن این کار را انجام دادم ولی دوباره (چراغ سبز/ زرد / قرمز میشود و بعد دیگر تکرار میشود ) دوستان لطفا من را راهنمایی کنید .

[sadeghbarout]

دوست عزیز فکر کنم مشکل شما سز چراغ راهنماییه ،نه؟


اینم برنامه چراغ راهنمایی:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

امیدوارم مشکلت حل بشه

[hasan0be]

من تازه vb را شروع کردم و بعضی کدهایی که نوشته بودید را نفهیمدم چی هستند .
اگر میشه یک کد راحت تر برای من بگذارید.

[sadeghbarout]

اصل کد برنامه این بود:

Private Sub Timer1_Timer()
Shape1(a).Visible = False
If a = 2 Then a = 0 Else a = a + 1
Shape1(a).Visible = True
End Sub

این کد چیش سخته؟
visible یعنی نمایش داده شدن اگه true باشه شی نشون داده میشه و اگر false باشه نشون داده نمیشه

[hasan0be]

خیلی خیلی ممنون

[farshidshd]

اگه به جواب نرسیدی بگو تا بیشتر کمکت کنم . کدی که من نوشتم حلقه ی Select Case هست.

[hasan0be]

خیلی ممنون
اگر میشود در چراغ قرمز ها من را کمک کنید چگونه چراغ ها را به هم متصل کنیم یعنی اگر یک دور چرخید دور بعد هم همینطور ادامه پیدا کند.
اگر میشود کمکم کنید * selsect cas * یا *if*

---------- Post added at 10:58 PM ---------- Previous post was at 10:56 PM ----------

آگر میتوانید کد یکی از چراغ قرمز ها را بگذارید .
متشکرم

[farshidshd]

اول توی فرم لود مینویسی :

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

g چراغ سبز
Y چراغ زرد
r چراغ قرمز

اول که فرم لود میشه چراغ به مدت 20 ثانیه ( تایمر ) قرمز هست بعد به مدت 3 ثانیه زرد میشه و بد به مدت 20 ثانیه سبز هست


حالا برای تکرار مثلا چراغ قرمز ::

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

کد فکر کنم کاملا واضح باشه
اگه جاییش سوال داشتی بپرس

همینطور case2 و case 3 و ...

clock مدت زمان رو که از 20 به پایین میره نشون میده

-1 هست چون میخوام کم بشه 20,19,18,17 و... ( نزولی )