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

[hasan0be]

سلام خدمت شما دوستان عزیز که من را راهنمایی میکنید دوستان من clock را هنوز در مدرسه یاد نگرفته ام اگر میشود مقداری من را راهنمایی کنید.

[Mohsen.Sh_PC]

Clock فقط یک لیبله(Label)
که مقداری که کم میشه رو توی فرم نشون میده با استفاده از مشخصه Caption

[IfkUbch]

سلام دوستان فکر کنم اگه سورس این برنامه را بگذارید من هم بهتر متوجه بشم تا تکه تکه، ممنون .خواهشا سورس رو قرار بدین .

[IfkUbch]

تروخدا این سورس رو برای من بگذارید .جون هرکی دوست دارید .

[farshidshd]

سلام خدمت شما دوستان عزیز که من را راهنمایی میکنید دوستان من clock را هنوز در مدرسه یاد نگرفته ام اگر میشود مقداری من را راهنمایی کنید.

Clock فقط یک لیبله(Label)
که مقداری که کم میشه رو توی فرم نشون میده با استفاده از مشخصه Caption

---------------------------------------------------------------------------------------------------------------

[hasan0be]

سلام خدمت تمامی دوستان که من را راهنمایی کردید . دوستان من این برنامه را تا حدی درست کردم لطفا ببینید این برنامه مشکل دارد یا نه .


دانلود فایل

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

کد :

Private Sub Command1_Click()
Timer1.Enabled = True
Timer2.Enabled = True
Timer3.Enabled = True
Timer4.Enabled = True

End Sub

Private Sub Form_Load()
result = MsgBox("به شبيه ساز چهار راه راهنمايي و رانندگي خوش آمديد", vbInformation + vbOKOnly + vbDefaultButton1, "خوش آمدديد")
End Sub

Private Sub Timer1_Timer()
Static a As Long
a = a + 1
If a = 6 Then Shape3.Visible = True
If a = 60 Then Shape3.Visible = False
If a = 61 Then Shape2.Visible = True
If a = 71 Then Shape2.Visible = False
If a = 72 Then Shape1.Visible = True
If a = 126 Then Shape1.Visible = False
If a = 126 Then a = 0
End Sub

Private Sub Timer2_Timer()
Static b As Long
b = b + 1
If b = 6 Then Shape6.Visible = True
If b = 60 Then Shape6.Visible = False
If b = 61 Then Shape5.Visible = True
If b = 71 Then Shape5.Visible = False
If b = 72 Then Shape4.Visible = True
If b = 126 Then Shape4.Visible = False
If b = 126 Then b = 0
End Sub

Private Sub Timer3_Timer()
Static c As Long
c = c + 1
If c = 6 Then Shape7.Visible = True
If c = 60 Then Shape7.Visible = False
If c = 61 Then Shape9.Visible = True
If c = 115 Then Shape9.Visible = False
If c = 116 Then Shape8.Visible = True
If c = 126 Then Shape8.Visible = False
If c = 126 Then c = 0
End Sub

Private Sub Timer4_Timer()
Static d As Long
d = d + 1
If d = 6 Then Shape10.Visible = True
If d = 60 Then Shape10.Visible = False
If d = 61 Then Shape12.Visible = True
If d = 115 Then Shape12.Visible = False
If d = 116 Then Shape11.Visible = True
If d = 126 Then Shape11.Visible = False
If d = 126 Then d = 0
End Sub

متشکرم

[hasan0be]

دوستان یک سوال تخصصی دارم .
دوستان من اگر تعریف کنم که اگر چراغ قرمز بود ماشین به ایستد ماشین امکان دارد در حین مسیر توقف کند .
چگونه باید تعریف کرد که اگر قرمز بود برو و بر روی پشت خط عابر به ایست.
لطفا جواب بدید.

متشکرم

[sadeghbarout]

میتونی یه if بذاری که اگه top اون بیشتر از اون مقدار خطوط عابر بود و چراغ قرمز شد اونوقت برگرده یا ادامه بده

درضمن چرا فقط فایل اجرایی برنامه رو گذاشته بودی
اگه فایل کاملش رو بذاری شاید بهتر بتونیم کمک کنیم
ولی برنامه قشنگیه آفرین

[hasan0be]

دوستان اگر میشود بیشتر راهنمایی کنید.

[sadeghbarout]

حسن آقا شما که هنوز کد های ماشین ها رو ننوشتی که بتونیم بهت بگیم چطور تغییرشون بدی
شما بسم الله بگو ما کمکت میکنیم