• Vui lòng đọc nội qui diễn đàn để tránh bị xóa bài viết
  • Tìm kiếm trước khi đặt câu hỏi

Lập trình đèn giao thông trên VB 6.0

Góc trao đổi, hỏi đáp của ngôn ngữ Visual Basic 6 và Visual Basic Script

Moderator: tungblt

manhngavn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Tue 10/01/2012 6:14 pm

Lập trình đèn giao thông trên VB 6.0

Postby manhngavn » Tue 10/01/2012 10:14 pm

Bác nào làm giúp em bài này với . Càng sớm càng tốt nhé !

Đề bài :
Hãy lập trình chương trình điều khiển hệ thống đèn giao thông thỏa mãn yêu cầu sau :
-Ấn start chương trình bắt đầu hoạt động :
+ Đèn xanh sáng trong 25s , label đếm ngược từ 25 về 0 .
+ Đèn vàng sáng trong 5s , label đếm ngược từ 5 về 0.
+ Đèn đỏ sáng trong 30s , label đếm ngược từ 30 về 0.
- Ấn stop ngừng hệ thống .
-Ấn exit thoát chương trình .
P/S : chương trình chạy liên tục đến khi ấn stop thì dừng ,
dùng 3 timer nhé các bác .



User avatar
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 385
Joined: Thu 11/08/2011 9:32 am
Location: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 times
Been thanked: 64 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby hongtamtk » Tue 10/01/2012 11:23 pm

Cái gì đây, biểu người khác làm luôn cho 1 chương trình. cái này đơn giản tự làm cho quen, nếu ko biết chổ nào hỏi chổ đó.
Hãy ghé thăm blog của tôi tại http://gaduaxe.com nơi chia sẽ những kiến thức về website!

my_win
Posts: 7
Joined: Thu 17/11/2011 11:35 pm
Has thanked: 3 times

Re: Lập trình đèn giao thông trên VB 6.0

Postby my_win » Tue 10/01/2012 11:45 pm

phải làm đi. Vướng đâu thì hỏi thôi bạn à.

manhngavn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Tue 10/01/2012 6:14 pm

Re: Lập trình đèn giao thông trên VB 6.0

Postby manhngavn » Wed 11/01/2012 3:52 am

Vì mới làm quen với VB nên chưa hiểu hết .
Bác nào chỉ cho em cách làm cho label đém ngược từ 25 về không được không , và làm thế nào để chương trình chạy liên tục
Em bị mắc ở 2 chỗ đó

manhngavn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Tue 10/01/2012 6:14 pm

Re: Lập trình đèn giao thông trên VB 6.0

Postby manhngavn » Wed 11/01/2012 4:28 am

Em đã làm được quá trình lặp rùi .
Bác nào có thể chỉ cho em cách làm label đếm ngược về 0 là ok rùi !

User avatar
vb6.0
Thành viên năng nổ
Thành viên năng nổ
Posts: 98
Joined: Thu 06/10/2011 1:20 pm
Location: Quế Long- Quế Sơn- Quảng Nam
Been thanked: 17 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby vb6.0 » Wed 11/01/2012 6:48 am

Dim i As Long
Private Sub Command1_Click()
Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
Text2.Text = Str(Val(Text1.Text) - i)
i = i + 1
If Trim(Text2.Text) = "0" Then
Timer1.Interval = 0
End If
End Sub
Chúc vui nhé \m/

User avatar
xuanha
Guru
Guru
Posts: 1230
Joined: Thu 19/08/2010 4:25 pm
Location: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 times
Been thanked: 380 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby xuanha » Wed 11/01/2012 8:55 am

  1. Private Sub Form_Load()
  2. Gio.Text = 25
  3. Do1.BackColor = &HFF&
  4. Timer1.Enabled = True
  5. Timer2.Enabled = False
  6. Timer3.Enabled = False
  7. End Sub
  8.  
  9. Private Sub Timer1_Timer()
  10. If Do1.BackColor = &HFF& And Val(Gio.Text) > 0 Then
  11. Gio.Text = Val(Gio.Text) - 1
  12. Else
  13. Gio.Text = 20
  14. Do1.BackColor = &H80000007
  15. Vang.BackColor = &HFFFF&
  16. Timer2.Enabled = True
  17. Timer1.Enabled = False
  18. End If
  19. End Sub
  20.  
  21. Private Sub Timer2_Timer()
  22. If Vang.BackColor = &HFFFF& And Val(Gio.Text) > 0 Then
  23. Gio.Text = Val(Gio.Text) - 1
  24. Else
  25. Gio.Text = 20
  26. Xanh.BackColor = &HFF00&
  27. Vang.BackColor = &H80000007
  28. Timer3.Enabled = True
  29. Timer2.Enabled = False
  30. End If
  31. End Sub
  32.  
  33. Private Sub Timer3_Timer()
  34. If Xanh.BackColor = &HFF00& And Val(Gio.Text) > 0 Then
  35. Gio.Text = Val(Gio.Text) - 1
  36. Else
  37. Gio.Text = 20
  38. Do1.BackColor = &HFF&
  39. Xanh.BackColor = &H80000007
  40. Timer1.Enabled = True
  41. Timer3.Enabled = False
  42. End If
  43. End Sub
  44.  
  45.  

User avatar
Kasper
Guru
Guru
Posts: 1063
Joined: Fri 16/05/2008 10:54 am
Has thanked: 2 times
Been thanked: 76 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby Kasper » Wed 11/01/2012 11:12 am

Tặng bạn nè
Attachments
gd.gif
gd.gif (23.74 KiB) Viewed 6491 times
DenGT.rar
(84.72 KiB) Downloaded 1057 times
Lành tợ tòng, ác tợ hoa,
Nhà hòa muôn việc đều nên.

manhngavn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Tue 10/01/2012 6:14 pm

Re: Lập trình đèn giao thông trên VB 6.0

Postby manhngavn » Fri 13/01/2012 4:04 pm

Cám ơn các bác đã giúp đỡ .
Nhưng yêu cầu của bài là dùng label để chạy còn đèn thì sáng chứ không phải dùng text !

User avatar
xuanha
Guru
Guru
Posts: 1230
Joined: Thu 19/08/2010 4:25 pm
Location: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 times
Been thanked: 380 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby xuanha » Fri 13/01/2012 4:39 pm

manhngavn wrote:Cám ơn các bác đã giúp đỡ .
Nhưng yêu cầu của bài là dùng label để chạy còn đèn thì sáng chứ không phải dùng text !


Bạn không đọc kỹ bài trả lời và cũng không áp dụng thử. Trong các bài viết trên, không có bài nào dùng Textbox để hiển thị đèn cả, chỉ dùng để đếm thời gian thôi.

User avatar
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Posts: 385
Joined: Thu 11/08/2011 9:32 am
Location: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 times
Been thanked: 64 times
Contact:

Re: Lập trình đèn giao thông trên VB 6.0

Postby hongtamtk » Fri 13/01/2012 6:12 pm

Trời Label cũng như Text thôi, mình cũng xem bài rồi, trong đó làm gì có text trời, mới học nên học cái căn bản trước đã.
Hãy ghé thăm blog của tôi tại http://gaduaxe.com nơi chia sẽ những kiến thức về website!

manhngavn
Thành viên chính thức
Thành viên chính thức
Posts: 10
Joined: Tue 10/01/2012 6:14 pm

Re: Lập trình đèn giao thông trên VB 6.0

Postby manhngavn » Sat 14/01/2012 11:10 pm

xuanha wrote:
manhngavn wrote:Cám ơn các bác đã giúp đỡ .
Nhưng yêu cầu của bài là dùng label để chạy còn đèn thì sáng chứ không phải dùng text !


Bạn không đọc kỹ bài trả lời và cũng không áp dụng thử. Trong các bài viết trên, không có bài nào dùng Textbox để hiển thị đèn cả, chỉ dùng để đếm thời gian thôi.



Em xin lỗi . Tại thấy các dùng text nên em cứ nghĩ là các bác dùng text để đếm thời gian ! Thành thật sorry mọi người . tại em mới học VB nên hơi gà .
Lần sau em sẽ rút kinh nghiệm

NguyenThanhNhan96
Posts: 2
Joined: Tue 18/09/2018 10:18 am

Re: Lập trình giao diện điều khiển 8 led sáng đuổi VB 2010

Postby NguyenThanhNhan96 » Tue 18/09/2018 10:39 am

Cho em hỏi làm thế nào để lập trình giao diện led khi lấy biểu tượng từ visual basic power pack. Em mới học VB còn yếu lắm. mong m.n giúp đỡ ạ. Giao diện như video bên dưới ạ.
https://www.youtube.com/watch?v=dnxoDe0YnbU


Return to “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Who is online

Users browsing this forum: No registered users and 5 guests