CHương trình điều khiển đèn LED bằng máy tính qua cổng COM

[TheGunner]

Mình đang làm đồ án về Điều khiển 5 đèn LED qua cổng COM viết bằng C#. Ai có những thông tin liên quan đến đồ án của mình thì cho mình Xin với. Mình sắp phải bảo vệ rồi.
Xin cám ơn !!

[kidteam]

ý tưởng là bạn sẽ gửi các ký tự thông qua cổng COM
MCU khi nhận được các ký tự tương ứng sẽ điều khiển LED
mình không dùng C# nên không thạo lắm
mình dùng VB
OK

[mast090]

VB thì nó hỗ trợ đầy đủ quá rồi, mình cũng đang cần tìm về C#, ai có share chút tài liệu nhỉ, k biết có khác nhiều so vs VB ko

[nguyenphutuc]

thấy mấy a thạo vb cho em hỏi cái dữ liệu mình truyền xuống vxl rồi từ vxl truyền lên tren vb nhận kiểu dữ liệu gì???

[kidteam]

C# hay C++ cũng có nhiều hướng dẫn mà bạn
bạn xem hướng dẫn của anh Ngô Hải Bắc ấy
http://www.ngohaibac.net/huong-dan-l...g-visual-c-60/

[mast090]

thấy mấy a thạo vb cho em hỏi cái dữ liệu mình truyền xuống vxl rồi từ vxl truyền lên tren vb nhận kiểu dữ liệu gì???

khi chuyển dữ liệu lên PC sẽ xảy ra sự kiện oncom, kiểm tra sự kiện này bạn sẽ lấy đc dữ liệu gửi lên

[kidteam]

thực ra tất cả là binary

[kidteam]

tiện đây các bác cho em hỏi giả sử em không dùng giao thức truyền thông nối tiếp tích hợp sẵn trong 89c51 mà chỉ dùng phần mềm
bác nào có thể viết code cho 89c51 gửi hoặc nhận dữ liệu không ạ (gửi theo giao thức truyền nối tiếp 1 start 8 data 1 stop)

[nguyenphutuc]

den1 bit p2.0
den2 bit p2.1
den3 bit p2.2
den4 bit p2.3
den5 bit p2.4
den6 bit p2.5
den7 bit p2.6
den8 bit p2.7

org 0000h
ljmp setup
org 0023h
lcall ngat_noitiep

org 0030h
setup:
mov tmod,#20h ;timer 1 mode 2
mov scon,#52h ;port noi tiep mode 1
mov th1,#-3 ;9600 baud
setb tr1 ;timer 1 chay
mov p2,#00h
mov ie,#10010000b

ngat_noitiep:
jnb ri,$ ;doi nhan du lieu
mov a,sbuf ;lay du lieu
clr ri

kiemtra:
cjne a,#255,lap0
mov a,#255
ljmp exit

lap0: cjne a,#1,lap ;neu la yeu cau mo den 1
setb p2.0 ;mo den 1
mov a,p2
ljmp exit
lap:
cjne a,#2,lap1
clr p2.0
mov a,p2
ljmp exit
lap1:
cjne a,#3,lap2
setb p2.1
mov a,p2
ljmp exit
lap2:
cjne a,#4,lap3
clr p2.1
mov a,p2
ljmp exit
lap3:
cjne a,#5,lap4
setb den3
mov a,p2
ljmp exit
lap4:
cjne a,#6,lap5
clr den3
mov a,p2
ljmp exit
lap5:
cjne a,#7,lap6
setb den4
mov a,p2
ljmp exit
lap6:
cjne a,#8,lap7
clr den4
mov a,p2
ljmp exit
lap7:
cjne a,#9,lap8
setb den5
mov a,p2
ljmp exit
lap8:
cjne a,#10,lap9
clr den5
mov a,p2
ljmp exit
lap9:
cjne a,#11,nhay1
setb den6
mov a,p2
ljmp exit
nhay1:
cjne a,#12,nhay2
clr den6
mov a,p2
ljmp exit
nhay2:
cjne a,#13,nhay3
setb den7
mov a,p2
ljmp exit
nhay3:
cjne a,#14,nhay4
clr den7
mov a,p2
ljmp exit
nhay4:
cjne a,#15,nhay5
setb den8
mov a,p2
ljmp exit
nhay5:
cjne a,#16,lapall1
clr den8
mov a,p2
ljmp exit
lapall1:
cjne a,#101,lapall2
setb den1
setb den2
setb den3
setb den4
mov a,p2
ljmp exit
lapall2:
cjne a,#102,lapall3
clr den1
clr den2
clr den3
clr den4
mov a,p2
ljmp exit
lapall3:
cjne a,#103,lapall4
setb den5
setb den6
setb den7
setb den8
mov a,p2
mov 20h,p2
ljmp exit
lapall4:
cjne a,#104,exit
clr den5
clr den6
clr den7
clr den8
mov a,p2
ljmp exit

exit:
jnb ti,$
clr ti
mov sbuf,a ;goi du lieu ve

reti
ljmp setup
end

cho em hỏi khi em mov a,p2 để truyền lên vb.nhưng trên vb lại k nhận được là sao z mấy a? nhưng khi em mov 1 giá trị bất kỳ thì được ví dụ như mov a,#100 hoặc mov a,#'a'
dưới đây là đoạn mã nhận của em.
Private Sub MSComm1_OnComm()
Dim nhan As String
If MSComm1.CommEvent = comEvReceive Then
Label19.Caption = "Da Ket Noi Voi Thiet Bi!"
nhan = MSComm1.Input
Text2.Text = Text2.Text + nhan
Text2.SelStart = Len(Text2.Text)
End If

[TheGunner]

Mình cũng có chương trình điều khiển rồi, Nhưng chỉ điều khiển được 2 led thôi. Cho thêm led thứ 3 thì nó ko sáng nữa

Code đây:


org 00H
jmp main
org 30h
main:
mov SCON, #52h ;Port noi tiep mode 1
mov TMOD, #20h ;Timer 1 mode 2
mov TH1,#0Fdh ;9600 baud
setb TR1
loop:
jnb RI, $ ;doi nhan du lieu
clr RI
mov A, SBUF ;lay du lieu
kt_mo_led0:
cjne A, #'p', kt_tat_led0 ;neu la yeu cau mo led 0
clr P0.0 ;mo led 0(mo led muc 0)
jmp main
kt_tat_led0:
cjne A, #'q', kt_mo_led1 ;Neu la yeu cau tat led 0
setb P0.0 ;Tat Led 0
jmp main
kt_mo_led1:
cjne A, #'a', kt_tat_led1 ;Neu la yeu cau mo led 1
clr P0.1 ;Mo Led 1
jmp main
kt_tat_led1:
cjne A,#'b', tinh_cong ;Neu la yeu cau tat led 1
setb P0.1
jmp main

jmp loop
end


Nhờ mọi người xem giúp với.

[mast090]

thực ra tất cả là binary

thực chất thì cái nào chả như cái nào, nhưng cách sử dụng các phần mềm lập trình do nhà sx cái phần mềm đó quy định, tất nhiên nó cũng phải theo chuẩn, thế nên mới cần phải cần có tài liệu học cách sử dụng nó
@TheGuner:theo mình việc điều khiển led tắt sáng thì nó cũng là việc khá đơn giản nên ở đây bạn ghép vs cổng com mà đã đk đc 2 con led thì ko có lý gì khi có lỗi vs 3 con, nhiều khi mắc lỗi rất ngỡ ngẩn trong code, bạn kiểm tra lại nhé, mình theo C nên k giúp đc

[nguyenphutuc]

Code đây:


org 00H
jmp main
org 30h
main:
mov SCON, #52h ;Port noi tiep mode 1
mov TMOD, #20h ;Timer 1 mode 2
mov TH1,#0Fdh ;9600 baud
setb TR1
loop:
jnb RI, $ ;doi nhan du lieu
clr RI
mov A, SBUF ;lay du lieu
kt_mo_led0:
cjne A, #'p', kt_tat_led0 ;neu la yeu cau mo led 0
clr P0.0 ;mo led 0(mo led muc 0)
jmp main
kt_tat_led0:
cjne A, #'q', kt_mo_led1 ;Neu la yeu cau tat led 0
setb P0.0 ;Tat Led 0
jmp main
kt_mo_led1:
cjne A, #'a', kt_tat_led1 ;Neu la yeu cau mo led 1
clr P0.1 ;Mo Led 1
jmp main
kt_tat_led1:
cjne A,#'b', tinh_cong ;Neu la yeu cau tat led 1
setb P0.1
jmp main

jmp loop
end



sao phần code của bạn k thấy led thứ 3. bạn viết ra thì mới biết sai chổ nào được.

[TheGunner]

Đây là code 2 led mình làm thì sáng rồi, nhưng khi cho thêm led thứ 3 cũng viết tương tự như câu lệnh trên nhưng ko thấy sáng !! ko hiểu tại sao lại vậy?

[nguyenphutuc]

mình có code này cho bạn tham khảo. mình điều khiển 8 led

den1 bit p2.0
den2 bit p2.1
den3 bit p2.2
den4 bit p2.3
den5 bit p2.4
den6 bit p2.5
den7 bit p2.6
den8 bit p2.7

org 0000h
ljmp setup
org 0023h
lcall ngat_noitiep
org 0030h
setup:
mov tmod,#20h
mov scon,#52h
mov th1,#-3
mov p2,#00h
mov p1,#00h
setb tr1 ;timer 1 chay
mov p2,#00h
mov p1,#00h
mov ie,#10010000b


ngat_noitiep:
jnb ri,$
mov a,sbuf
clr ri
cjne a,#255,kiemtra
ljmp exit
kiemtra:
cjne a,#1,lap
setb p2.0
ljmp exit
lap:
cjne a,#2,lap1
clr p2.0
ljmp exit
lap1:
cjne a,#3,lap2
setb p2.1
ljmp exit
lap2:
cjne a,#4,lap3
clr p2.1
ljmp exit
lap3:
cjne a,#5,lap4
setb den3
ljmp exit
lap4:
cjne a,#6,lap5
clr den3
ljmp exit
lap5:
cjne a,#7,lap6
setb den4
ljmp exit
lap6:
cjne a,#8,lap7
clr den4
ljmp exit
lap7:
cjne a,#9,lap8
setb den5
ljmp exit
lap8:
cjne a,#10,lap9
clr den5
ljmp exit
lap9:
cjne a,#11,nhay1
setb den6
ljmp exit
nhay1:
cjne a,#12,nhay2
clr den6
ljmp exit
nhay2:
cjne a,#13,nhay3
setb den7
ljmp exit
nhay3:
cjne a,#14,nhay4
clr den7
ljmp exit
nhay4:
cjne a,#15,nhay5
setb den8
ljmp exit
nhay5:
cjne a,#16,lapall1
clr den8
ljmp exit
lapall1:
cjne a,#101,lapall2
setb den1
setb den2
setb den3
setb den4
ljmp exit
lapall2:
cjne a,#102,lapall3
clr den1
clr den2
clr den3
clr den4
ljmp exit
lapall3:
cjne a,#103,lapall4
setb den5
setb den6
setb den7
setb den8

ljmp exit
lapall4:
cjne a,#104,exit
clr den5
clr den6
clr den7
clr den8
ljmp exit

exit:


reti
ljmp setup
end