![]() |
|
Tài trợ cho PIC Vietnam |
||||||||
| PIC - Thiết kế và Ứng dụng Ý tưởng cho các sản phẩm sử dụng PIC/dsPIC và các sản phẩm của Microchip |
|
|
Ðiều Chỉnh | Xếp Bài |
|
|
#5 | |
|
Đệ tử 2 túi
Tham gia ngày: Jun 2005
Bài gửi: 28
: |
Mô phỏng đèn giao thông
Trích:
To Bang chủ F : Xin lỗi về cái vụ hót, vì PIC-NGHEO phải đi làm nên không còn thời gian quản lý SEVER, và việc Down Sever không báo cho các ban hay là PIC-NGHEO có lỗi Code:
'****************************************************************
'* Ten Tui : PIC-NGHEO *
'* DE Tai : mo phong den giao thong *
'* PIC : 16F84A *
'* OSC : 4 M *
'* Ket noi PIC : Chan 4 = +5V ( chan reset) chan 5 = GND *
'* Chan 14 = +5V ( Chan nguon nuoi PIC) *
'* Chan 15 va 16 noi vao hai chan ngoai cua Thach anh 4 M *
'* chan giua cua thach anh 4M noi voi GND ( " Mat Dat") *
'* Date : 11/16/2006 *
'* Notes : Mach mang tinh cach mo phong *
'* Trinh bien dich : PICBasic Pro *
'****************************************************************
' Bai tap chi mang tinh cach mo phong Logic tuy nhien chi can xac dinh lai thoi gian cho thay doi hieu ung
' la co the mang ra duong pho xu dung ...Tam thoi !!!
' Huong di 1
Den_do_1 var portb.1 'Chan thu 7 cua PIC noi voi Chan + LED Do 1 qua R han dong 470 omh
Den_vang_1 var portb.2 'Chan thu 8 cua PIC noi voi Chan + LED Vang 1 qua R han dong 470 omh
Den_xanh_1 var portb.3 'Chan thu 9 cua PIC noi voi Chan + LED Xanh 1 qua R han dong 470 omh
' Huong di 2
Den_do_2 var portb.4 'Chan thu 10 cua PIC noi voi Chan + LED Do 2 qua R han dong 470 omh
Den_vang_2 var portb.5 'Chan thu 11 cua PIC noi voi Chan + LED Vang 2 qua R han dong 470 omh
Den_xanh_2 var portb.6 'Chan thu 12 cua PIC noi voi Chan + LED Xanh 2 qua R han dong 470 omh
' Chan con lai cua tat ca cac LED la chan - noi xuong GND
Trisb = %00000000 ' Dat che do All PortB = OutPut
Portb = 0 ' Tat ca ngo ra cua PortB luc dau deu = 0 -> tuong ung den tat het
' 1 = Sang den , 0 = Tat den
loop: ' Bat dau bat dien
'1-Huong 1 cam di = Huong 2 duoc di
Den_do_1 = 1 ' sang
Den_do_2 = 1 ' sang
Den_vang_1 = 0 ' tat
Den_vang_2 = 0 ' tat
Pause 500 ' Thoi gian(500ms)cho sang cua den xanh huong 2 sang -> de phong co chu'... vuot den do !
Den_do_2 = 0 ' tat
Den_xanh_1 = 0 ' tat
Den_xanh_2 = 1 ' sang
pause 6000 ' ...cho mot thoi gian luu thong, mo phong = 6000ms
'2-Huong 2 chuan bi cam di = den vang 2 sang
Den_do_1 = 1 ' sang
Den_do_2 = 0 ' tat
Den_vang_1 = 0 ' tat
Den_vang_2 = 1 ' sang
Den_xanh_1 = 0 ' tat
Den_xanh_2 = 0 ' tat
pause 1000 ' Cho'` cho ba con chuan bi ngung va chuan bi di tu hai huong mo phong = 1000ms
'3-Huong 2 cam di = Huong 1 duoc di
Den_do_1 = 1 ' Sang
Den_do_2 = 1 ' Sang
Den_vang_1 = 0 ' tat
Den_vang_2 = 0 ' tat
Pause 500 ' Thoi gian(500ms)cho sang cua den xanh huong 1 sang
Den_do_1 = 0 ' Tat
Den_xanh_1 = 1 ' sang
Den_xanh_2 = 0 ' tat
Pause 6000 ' ...cho mot thoi gian luu thong, mo phong = 6000ms
'4-Huong 1 chuan bi cam di = den vang 1 sang
Den_do_1 = 0 ' tat
Den_do_2 = 1 ' sang
Den_vang_1 = 1 ' sang
Den_vang_2 = 0 ' tat
Den_xanh_1 = 0 ' tat
Den_xanh_2 = 0 ' tat
pause 1000
Goto loop ' Quay tro lai ban dau
End
__________________
..::Được che chở có đáng gì? Được tự do mới quý::.. thay đổi nội dung bởi: PIC-NGHEO, 17-11-2006 lúc 02:09 PM. |
|
|
|
|
|
|