Trích:
Nguyên văn bởi haoth2
Mình nhận được 1 đề tài thực tập vô cùng khó khăn là: mô phỏng hoạt động của đèn giao thông. Yêu cầu của thầy giáo là: phải có phần mềm (viết bằng C/C++ hoặc Pascal) + phần cứng (mạch, cáp máy in, đèn.., đủ thứ) để mô phỏng. Mà mình đâu phải dân kĩ thuật chuyên nghiệp đâu, nên vấn đề này vô cùng khó khăn. Mong các bạn giúp đỡ cho mình thiết kế được mạch, cũng như phần mềm. Có tài liệu hướng dẫn càng tốt. Cảm ơn nhiều!!!!!
|
Lâu quá không ghé forum, hôm nay rảnh tay gởi giúp bạn haoth2, tuy nhiên bài tập được viết bằng trình Basic và chỉ mang tính cách mô phỏng đơn giản mạch lạc.
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ó gởi kèm Source + Hex fileFile trong DenGiaoThong.Zip và PIC-NGHEO đã cho mạch chạy thử -> tốt !!!