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
-
bởi bqvietServo cuối cùng vẫn chỉ là điều chỉnh tốc độ và đọc phản hồi vị trí
Qua cổng song song LPT cổ
https://www.electronicsforu.com/elec...eed-controller
Qua cổng USB - xem thêm đám FT232RL-
Channel: Điện tử công nghiệp
22-11-2024, 15:56 -
-
bởi thiennam0703Em đang tìm hiểu cách xây dựng chương trình điều khiển động cơ Servo Yaskawa bằng máy tính tuy nhiên khi tìm kiếm trên mạng các hướng dẫn thì thường là điều khiển bằng vi điều khiển hoặc điều khiển bằng PLC hay điều khiển động cơ...
-
Channel: Điện tử công nghiệp
22-11-2024, 15:32 -
-
Trả lời cho Tổng hợp các thông tin về mạch nạp cho AVRbởi bacthoMình cũng bị như vậy mà chưa biết ở đâu
-
Channel: Vi điều khiển AVR
21-11-2024, 21:00 -
-
Trả lời cho Xin hỏi về màn hình laptopbởi nhathung1101Câu trả lời là không dùng được.
Hai lớp dán mặt trước và mặt sau, gọi là film phân cực. Muốn hiểu rõ về nó thì chịu khó search nhé. Ở đây có rất nhiều chó cứ ngửi thấy phân là sủa nhặng, nên không giải thích nhiều....-
Channel: Thiết bị điện tử cá nhân
21-11-2024, 16:20 -
-
Comment on Tổng hợp các thông tin về mạch nạp cho AVRbởi Memem
-
Channel: Vi điều khiển AVR
21-11-2024, 15:10 -
-
Trả lời cho Tổng hợp các thông tin về mạch nạp cho AVRbởi MememMọi người ơi cho em hỏi cái này ạ, hiện tại em đang làm btl về hiển thị giá trị nhiệt độ trên led 7 thanh sử dụng atmega16, code em chạy trên mô phỏng rất oke nhưng khi lắp qua mạch thực thì bị lỗi ở led đầu tiên bị lỗi như thế này...
-
Channel: Vi điều khiển AVR
21-11-2024, 15:10 -
-
bởi mantruongepuNhờ cả nhà tìm giúp mình thông tin IC này với, thấy ghi 943B W58BAL mà mình tìm mấy ngày nay không được, nó được đóng gói dạng TSSOP 8. Cám ơn cả nhà....
-
Channel: Điện tử dành cho người mới bắt đầu
20-11-2024, 14:40 -
-
bởi TherulCảm ơn bạn đã chia sẻ câu chuyện và quá trình phát triển sản phẩm của mình. Trước tiên, thật may mắn khi bạn vượt qua tai nạn và vẫn giữ được niềm đam mê cũng như khả năng sáng tạo trong lĩnh vực kỹ thuật. Việc bạn tiếp tục...
-
Channel: từ PIC tới dsPIC
20-11-2024, 07:20 -
-
Trả lời cho Em muốn hỏi mọi người về nguyên lý hoạt động, tần số của mạch công suất trong máy rửa siêu âm ạ.bởi nguyendinhvanBạn nên nghiên cứu cái chấn lưu đèn ống Compact fluorescent lamp hay đèn compact trước đã. Nó rẻ đỡ tốn kém.
Sau khi hiểu rõ rồi thì chuyển sang cái mạch này.
Ở cái chấn lưu, tần số của nó linh tinh lắm, tùy điện áp nguồn, tùy...-
Channel: Hỗ trợ học tập
19-11-2024, 22:44 -
Comment