• 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

Điều hành viên: tungblt

manhngavn
Thành viên chính thức
Thành viên chính thức
Bài viết: 10
Ngày tham gia: T.Ba 10/01/2012 6:14 pm

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

Gửi bàigửi bởi manhngavn » T.Ba 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 .



Hình đại diện của người dùng
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 385
Ngày tham gia: T.Năm 11/08/2011 9:32 am
Đến từ: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 time
Been thanked: 63 time
Liên hệ:

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

Gửi bàigửi bởi hongtamtk » T.Ba 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
Bài viết: 7
Ngày tham gia: T.Năm 17/11/2011 11:35 pm
Has thanked: 3 time

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

Gửi bàigửi bởi my_win » T.Ba 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
Bài viết: 10
Ngày tham gia: T.Ba 10/01/2012 6:14 pm

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

Gửi bàigửi bởi manhngavn » T.Tư 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
Bài viết: 10
Ngày tham gia: T.Ba 10/01/2012 6:14 pm

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

Gửi bàigửi bởi manhngavn » T.Tư 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 !

Hình đại diện của người dùng
vb6.0
Thành viên năng nổ
Thành viên năng nổ
Bài viết: 99
Ngày tham gia: T.Năm 06/10/2011 1:20 pm
Đến từ: Quế Long- Quế Sơn- Quảng Nam
Been thanked: 17 time
Liên hệ:

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

Gửi bàigửi bởi vb6.0 » T.Tư 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/

Hình đại diện của người dùng
xuanha
Guru
Guru
Bài viết: 1230
Ngày tham gia: T.Năm 19/08/2010 4:25 pm
Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 time
Been thanked: 380 time
Liên hệ:

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

Gửi bàigửi bởi xuanha » T.Tư 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.  

Hình đại diện của người dùng
Kasper
Guru
Guru
Bài viết: 1063
Ngày tham gia: T.Sáu 16/05/2008 10:54 am
Has thanked: 2 time
Been thanked: 76 time
Liên hệ:

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

Gửi bàigửi bởi Kasper » T.Tư 11/01/2012 11:12 am

Tặng bạn nè
Tập tin đính kèm
gd.gif
gd.gif (23.74 KiB) Đã xem 3308 lần
DenGT.rar
(84.72 KiB) Đã tải 899 lần
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
Bài viết: 10
Ngày tham gia: T.Ba 10/01/2012 6:14 pm

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

Gửi bàigửi bởi manhngavn » T.Sáu 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 !

Hình đại diện của người dùng
xuanha
Guru
Guru
Bài viết: 1230
Ngày tham gia: T.Năm 19/08/2010 4:25 pm
Đến từ: Ban Tổ chức Thành uỷ Hưng Yên, tỉnh Hưng Yên
Has thanked: 13 time
Been thanked: 380 time
Liên hệ:

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

Gửi bàigửi bởi xuanha » T.Sáu 13/01/2012 4:39 pm

manhngavn đã viết: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.

Hình đại diện của người dùng
hongtamtk
Thành viên tâm huyết
Thành viên tâm huyết
Bài viết: 385
Ngày tham gia: T.Năm 11/08/2011 9:32 am
Đến từ: Trường Cao đẵng KT - KT Quãng Nam !! C:\Program Files\Microsoft Visual Studio\VB98\VB6.EXE
Has thanked: 13 time
Been thanked: 63 time
Liên hệ:

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

Gửi bàigửi bởi hongtamtk » T.Sáu 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
Bài viết: 10
Ngày tham gia: T.Ba 10/01/2012 6:14 pm

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

Gửi bàigửi bởi manhngavn » T.Bảy 14/01/2012 11:10 pm

xuanha đã viết:
manhngavn đã viết: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
Bài viết: 2
Ngày tham gia: T.Ba 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

Gửi bàigửi bởi NguyenThanhNhan96 » T.Ba 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


Quay về “Visual Basic 6 và Visual Basic Script (VB & VBS)”

Đang trực tuyến

Đang xem chuyên mục này: Không có thành viên nào trực tuyến.7 khách