Nguyên văn bởi picachu
Xem bài viết
Thông báo
Collapse
No announcement yet.
Serial Port - lập trình giao tiếp nối tiếp
Collapse
This topic is closed.
X
This is a sticky topic.
X
X
-
tieu de cung dang nghien cuu tim hieu ve viec giao tiep voi may tinh
nhung thay thieu tai lieu qua mong cac cao thu chi giup tieu de lam cach nao de 2 ben co the truyen qua lai voi nhau ma biet duoc voi nhau
cach viet chuong trinh tren win va lap trinh tren chip 8951 de no giao tiep phai viet lam sao
co tai lieu chi ro rang hon ko vay
tieu de cung dang kiem cuon sach cua Ngo Dien Tap ve de tai lap trinh ghep noi voi may tinh hay thiet bi ngoai vi gi do ma kiem hoai ko co? hien tieu de o tphcm neu ai co cuon do co the ban cho tieu de hoac cho muon pho to cung duoc thank truoc cac bac nha
Comment
-
em cam on anh rat nhieu!
anh oi!anh co giup em vu nay voi
em dang phai lam ve ung dung cua 8051
do la hien thi dong chu cua minh chay tren led 7 thanh bang mach thuc
anh co the chi giao choem la trinh tu lam ntn?
cach lam mach in.cach nap vao vdk. viet cho em cai code nua(anh cu vi du ten la hoang di chang han
cam on anh nhieu lam)
Comment
-
Anh ngohaibac oi giup em voi !!!
Em dang lam` de tai co lien quan den lập trình giao tiếp 89c51 với PC = VB6 gan den ngay bao cao roi ma` chua xg mong anh giup do. Em da thu goi ký tự len pc nhung gia tri nhan dc ko dung ( gui bat ky gia tri nao thi gia tri nhan dc cung la` FFh ). Em dung` mach nap 89c51 đe goi ko biet co anh huong j` ko? Day la` code em viet nho anh kiem tra jum`. Neu duoc anh co the gui cho em một ví du hoàn chỉnh để tham khảo
mail cua em: kennybk04@yahoo.com.vn
Chan thành cam on anh nhieu !!!
code trên VB
Option Explicit
Dim buffer As Variant
Dim data As String
Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "2400,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeText
MSComm1.RThreshold = 1
End Sub
Private Sub MSComm1_OnComm()
If MSComm1.CommEvent = comEvReceive Then
buffer = (MSComm1.Input)
data = Asc(buffer)
End If
End Sub
Private Sub recive_Click()
Text1.Text = data
End Sub
code của 89c51
INCLUDE 89C51.MC
ORG 0000H
MAIN:
MOV SCON,#50H
MOV TMOD,#20H
MOV TH1,#F4H
SETB TR1
MOV SBUF,#33H
JNB TI,$
CLR TI
SJMP $
END
Comment
-
Bạn tham khảo tài liệu này.Attached Filesn
ĐT: 0986 492 489
Tham khảo:
Comment
-
Giao Tiếp Serial
Gửi Anh Ngô Bắc Hải
Mình có viết chương trình giao tiếp giữa VDK AT89S52 và PC qua cổng RS232 chuẩn UART nhưng chỉ truyền được một chiều từ PC xuống còn chiều gửi dữ liệu từ VDK lên thì không nhận được gì cả.
(Viết xong chương trình VB nối 2 chân TXD và RXD của cổng com lại thử gửi nhận thì vẫn được nhưng khi gửi bằng VDK thì ko co gì cả)
Nếu các bác biết xin chỉ giáo dùm!!!
Em có gửi đoạn code kèm theo mong các bác xem giúp!!!
;dọan code cho VÐK (phát d? li?u)
ORG 0000H
LJMP MAIN
ORG 0003H
MAIN:
MOV SCON,#01010010B
MOV TMOD,#00100001B
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
MOV TH1,#-3 ;tao toc do baud (voi thach anh 12Mh gia tri Th1= -3 thi toc do baud la 9600)
MOV IE,#10000111B
SETB TR1
SERIAL:
MOV A,#'A' 'gui chu A len VB
JNB TI,$
MOV SBUF,A
LJMP SERIAL
END
' Ðo?n code trong VB nhu sau: (đã khai báo mở cổng)
' CODE SU KIEN ONCOMM TRONG VB
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
Text1.Text = Text1.Text & MSComm1.Input ;LAY KY TU NHAN DUOC XUAT RA TEXT1
End If
End Sub
Comment
-
Nguyên văn bởi tienloc Xem bài viếtGửi Anh Ngô Bắc Hải
Mình có viết chương trình giao tiếp giữa VDK AT89S52 và PC qua cổng RS232 chuẩn UART nhưng chỉ truyền được một chiều từ PC xuống còn chiều gửi dữ liệu từ VDK lên thì không nhận được gì cả.
(Viết xong chương trình VB nối 2 chân TXD và RXD của cổng com lại thử gửi nhận thì vẫn được nhưng khi gửi bằng VDK thì ko co gì cả)
Nếu các bác biết xin chỉ giáo dùm!!!
Em có gửi đoạn code kèm theo mong các bác xem giúp!!!
;dọan code cho VÐK (phát d? li?u)
ORG 0000H
LJMP MAIN
ORG 0003H
MAIN:
MOV SCON,#01010010B
MOV TMOD,#00100001B
MOV TH0,#HIGH(-5000)
MOV TL0,#LOW(-5000)
MOV TH1,#-3 ;tao toc do baud (voi thach anh 12Mh gia tri Th1= -3 thi toc do baud la 9600)
MOV IE,#10000111B
SETB TR1
MOV A,#'A' 'gui chu A len VB
SERIAL:
CLR TI
MOV SBUF,A
JNB TI,$
LJMP SERIAL
END
' Ðo?n code trong VB nhu sau: (đã khai báo mở cổng)
' CODE SU KIEN ONCOMM TRONG VB
Private Sub MSComm1_OnComm()
If (MSComm1.CommEvent = comEvReceive) Then
Text1.Text = Text1.Text & MSComm1.Input ;LAY KY TU NHAN DUOC XUAT RA TEXT1
End If
End Sub
chúc thành công
email:mahaco@fpt.vn
Comment
-
anh Hai Bac oi.
anh có chương trình VB về vấn đề gửi dữ liệu ra cổng COM thì cho em về tham khảo được không?
Em muốn viết một chương trình VB để giao tiếp với 89C51 qua cổng COM nhưng đọc bài viết của anh em mới hiểu sơ sơ thôi.Anh có ví dụ nào cụ thể về vấn đề này thì cho em nhe. Cám ơn anh nhiều.
Comment
-
Chào bạn!
hiện nay có rất nhiều chuẩn giao tiếp nhưng không hiểu bạn có biết cách chuyển đổi cổng USB sang cổng song song hay khong? nếu có thì hãy nói ý tưởng của bạn thử xem như thế nào?
tui đang nghiên cứu về vấn đề này, và đang dùng cho một con PIC, viết Driver để giao tiếp. chúc bạn một ngày làm việt thật tốt.
Comment
-
lập trình nối tiếp, bác nào tìm giúp tại sao máy cứ báo lỗi tại đây với!!!
Code:#include <REGX51.H> #include <AT89X51.H> sbit chuong = P2^7; sbit truyen = P2^6; sbit ROW_1= P1^0; sbit ROW_2= P1^1; sbit ROW_3= P1^2; sbit ROW_4= P1^3; sbit COL_1= P1^4; sbit COL_2= P1^5; sbit COL_3= P1^6; sbit COL_4= P1^7; sbit led1 = P0^0; sbit led2 =P0^1; sbit led3 =P0^2; sbit led4 =P0^3; sbit led5 =P0^4; sbit led6 =P0^5; sbit led7 =P0^6; sbit led8 =P0^7; sbit led9 =P2^0; sbit led10= P2^1; sbit led11= P2^2; sbit led12= P2^3; sbit led13= P2^4; static tre,led,hang,cot; void ScanMatrix(void); void hienthi(void); void transfer(void); void receivefeedback(void); void ACK(void); void main(void) { // ----Khoi tao cong noi tiep ----------------- SCON = 0x50; // che do du lieu 8 bit PCON = 0X80; // CHIA CHO 16 // Khoi tao Timer1 dung de tao 4800 Baud Rate TMOD = 0x21; TH1 = 0xFA; TH1= 0xFA; TR1 = 1; TI=1; //------khai bao ngat--------------------------- EA = 1; ET0 = 1; ES = 1; // ----- dat gia tri dau cho bien -------------- P0 = 0XFF; P1 = 0XFF; P2 = 0XFF; P3 = 0XFF; led = 0; tre = 5; //------khai bao timer0 ------------------------ TF0 = 1; TR0 = 1; //----- vong lap vo tan ------------------------ while (1) { ScanMatrix(); hienthi(); } } //---------TIMER0_INT -------------------------- void Timer0_int(void) interrupt 1 { TH0 = 0X3C; // TAO THOI GIAN 0.05ms TL0 = 0XB0; TF0 = 0; if (tre>0) tre =tre-1; else { tre = 5; // tao tre 5x0.05 = 0.25s if (led>0) { led -=led; //nhay led } } } unsigned int ValueForDelay10s; void IsrTimer0(void) interrupt 1 using 2 { ValueForDelay10s++; //tang bien dem if(chuong) chuong=0; else //lenh if...else nay nham muc dich dao muc tin hieu ra chuong. chuong=1; } //--------- ScanMatrix ------------------------- /* tra ve gia tri hang va cot duoc an tai hai bien "hang" va "cot". Neu khong co nut nao duoc an thi hang = cot = 0. Gia su phim A(1,1) duoc an thi hang = cot = 1 trong suot thoi gian phim dc an */ void ScanMatrix() { // QUET HANG 1 ;P1.0 - P1.3 P1 = 0X0F; if (P0_0 == 0) { hang = 1;//hang 1 } else { if(P0_1==0) hang = 2;//hang 2 else { if (P0_2==0) hang = 3;//hang 3 else if (P0_3 == 0) hang = 4;//hang4 else hang = 0; } } // QUET COT ;P1.4 - P1.7 P1 = 0Xf0; if (P0_4 == 0) { cot = 1;//cot 1 } else { if(P0_5==0) cot = 2;//cot 2 else { if (P0_6==0) cot = 3;//cot 3 else if (P0_7 == 0) cot = 4;//cot4 else cot =0; } } } // --------- hien thi ----------------------- void transfer(void) { unsigned char m; P2_6 = 1; m=hang*4+1; switch(m) case 1: void send_serial(unsigned char*s) //báo lỗi ở đây { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,00,C,0*1111010' ); send_serial(crlf); } } } break case 2: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,01,C,0*1111011' ); //DEAD SLOW AHEAD send_serial(crlf); } } } break case 3: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,02,C,0*1111000' ); //SLOW AHEAD send_serial(crlf); } } } break case 4: void send_serial(unsigned char *s) { P2^6=1; //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,03,C,0*1111001' ); send_serial(crlf); } } } break case 5: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,04,C,0*1111110' );//HALF AHEAD send_serial(crlf); } } } break case 6: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,11,C,0*1111010' ); send_serial(crlf); } } } break case 7: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,12,C,0*1111001' ); send_serial(crlf); } } } break case 8: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;) { send_serial('$ETL,O,13,C,0*1111000' ); send_serial(crlf); } } } break case 9: void send_serial(unsigned char *s) { //Truyen ma nhan dang //gui $ETL while(*s !=0x0) SBUF=*s; while(!TI) //doi den khi gui xong { } TI=0; s++; { } main() { unsigned char crlf()={0x0D,0x0A,0x0}; serial_init(); for(;;)
Attached FilesLast edited by namqn; 05-02-2008, 04:51.
Comment
-
Minh la thanh vien moi cua forum.Minh co mot bai toanmong moi nguoi nhiet tinh tham gia y kien giup minh.
Lam the nao de chu dong dieu khien trang thai cac tin hieu bat tay nhu DTR,RTS,DSR..tren cong com cua PC.Minh muon dieu khien dc buoc' 2pha luong cuc truc tiep tren cac chan cua cong com.
Moi tham gia da lam phien moi nguoi.Rat mong thong cam!
Comment
Bài viết mới nhất
Collapse
-
Trả lời cho Mua anten ở đâu?bởi tmcodonAnten bạn thu nguồn sóng nào vậy? Nếu xem truyền hình thì giờ k làm đc anten nữa rồi
-
Channel: Ăng ten và truyền sóng
16-11-2024, 15:34 -
-
Trả lời cho Mạch nguồn đôi dùng 7812 và 7912bởi tmcodonThank bác nhá. Tìm mãi mới thấy. Giờ vọc đã xem sao...
-
Channel: Hỗ trợ học tập
16-11-2024, 10:39 -
-
bởi tungdqEm cần tìm sơ đồ mạch một số Main máy tính đời cao như Asrock B560M-HDV, các cao nhân chỉ giúp với. Thank!
-
Channel: Các mạch điện ứng dụng
15-11-2024, 08:27 -
-
Trả lời cho Kiểm tra biến ápbởi lamvu0677nhân tiện cho mình hỏi thêm về cái phần test hipot (cao áp),là để kiểm tra độ bền cách điện giưa các cuộn dây,mà thấy thông số test thường ở mức 4kvac,vậy nếu mấy con fail đó xài bình thường vẫn dduocj phải không ạ,vì điện mình làm gì lên tới mức đó
-
Channel: Điện tử dành cho người mới bắt đầu
10-11-2024, 08:52 -
-
Trả lời cho Kiểm tra biến ápbởi lamvu0677máy đo số vòng thì cty có ,mà nó to quá,tưởng có máy nào gọn gọn bỏ túi được thì tiện hơn,vì đi lại nhiều...
-
Channel: Điện tử dành cho người mới bắt đầu
10-11-2024, 08:47 -
-
bởi tmcodonMình thấy diễn đàn có chuyên mục quảng cáo rồi mà. Bạn đóng góp để mở luồng riêng
-
Channel: Hướng dẫn sử dụng diễn đàn
09-11-2024, 13:36 -
-
bởi Nicole08Xin chào mọi người, tôi đã sử dụng Flashforge Inventor 2 được gần 5 năm và rất hài lòng với nó, nhưng tuần trước đã xảy ra sự cố. Có vẻ như động cơ bước đưa sợi in vào đầu nóng đã bị hỏng. Mọi thứ khác có vẻ ổn trên máy...
-
Channel: Điện tử dành cho người mới bắt đầu
09-11-2024, 12:55 -
Comment