![]() |
|
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. |
|
![]() |
![]() |
|
|