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 Xin hỏi về màn hình laptopbởi yname11vg, cám ơn bác...........
-
Channel: Thiết bị điện tử cá nhân
Hôm qua, 14:37 -
-
bởi khoine9899
Em chào các anh và mọi người.
Hiện em đang có 1 con bơm màng trong thiết bị y tế đang gặp tình trạng yếu dần hoặc ngừng hoạt động sau thời gian sử dụng
Sau khi tìm hiểu về thông tin của bơm trên mạng thì em được biết...-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 11:22 -
-
Trả lời cho Cần mọi người giúp mạch tạo sóng siêu âm máy rửabởi bqviet
-
Channel: Điện tử công suất
27-11-2024, 20:26 -
-
bởi Minhdai95Em chào mọi người, e đang sửa mạch tạo sóng siêu âm cho máy rửa mà chưa có tài liệu để tham khảo sửa, mọi người cho e xin tài liệu ạ...
-
Channel: Điện tử công suất
27-11-2024, 11:37 -
-
bởi pia2k1Cùng câu hỏi và cần được giải đáp thêm ạ...
-
Channel: Hướng dẫn sử dụng diễn đàn
27-11-2024, 11:28 -
-
Trả lời cho Công thức điện tửbởi mèomướpDạ thời thế giờ thay đổi theo hướng tích cực hơn rồi chú trung sĩ ạ. Kiến thức được chia sẻ ngày càng nhìu nên làm ăn gian dối ko còn dễ dàng như trước đâu ạ. Những thợ nhỏ rồi sẽ thành công nhân sản xuất đồ mới hết thay vì sửa chữa lặt vặt...
-
Channel: Tâm tình dân kỹ thuật
26-11-2024, 21:21 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi mèomướpDạ cùng chuẩn tín hiệu thì chắc chắn là nhận ạ. Vì bản chất oled hay lcd thì đều phải có mạch chuyển đổi trên thanh gỗ rồi chuyển sang những chip xử lý hàng nghìn chân gắn trên những tab mỏng dính rồi mới ra các điểm ảnh theo hàng...
-
Channel: Thiết bị điện tử cá nhân
26-11-2024, 20:31 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11Ok , thanks bác đã chỉ...
-
Channel: Thiết bị điện tử cá nhân
26-11-2024, 15:06 -
-
bởi nguyendinhvanSau bao năm nghiên cứu cái dtvn. Tôi phát hiện công thức này. Các anh em xem đúng bao nhiêu phần trăm nhé !
Chập thì thay. Cháy thì tháo
Làm thì láo. Báo thì hay
May thì khoe. Rủi thì bỏ
Thành tích nhỏ. Báo thành to
Làm cho có. Báo chi li
Sai cả li. Báo...-
Channel: Tâm tình dân kỹ thuật
26-11-2024, 00:35 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi yname11có chắc ko b, màn lcd phải có cao áp mới sáng, màn led thì ko có, ko có cáp chuyển đổi thì lắp thế nào đc ??...
-
Channel: Thiết bị điện tử cá nhân
25-11-2024, 22:31 -
Comment