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 Lê Gia TứMình muốn tìm mua đồng hồ vạn năng giá khoảng 200k có đo tần số cao khoảng 0~1mhz mọi người tư vấn giúp mình với
-
Channel: Điện tử dành cho người mới bắt đầu
Hôm qua, 15:47 -
-
Trả lời cho Mạch tự động bật nguồnbởi davidcopyChỉ cần dùng R C mắc vô phím power là ok....
-
Channel: Điện tử gia dụng
18-01-2025, 20:47 -
-
Trả lời cho Hỏi cách điều chế xungbởi davidcopydùng mach khuếch opamp...
-
Channel: Kỹ thuật điện tử tương tự
18-01-2025, 20:42 -
-
Trả lời cho Thắc mắc về hạ áp cho adapter laptopbởi davidcopy
-
Channel: Điện tử dành cho người mới bắt đầu
18-01-2025, 18:56 -
-
bởi bqvietĐấy gọi là cái "điểm gãy" trong đồ thị điện áp - dung lượng còn lại. Dùng điện áp hở cực để xác định sắp hết hoặc gần đầy thì vẫn tạm ổn. Dùng để đo SOC/DOD thì đừng. Ngay cả số km đã đi cũng chả xác định được...
-
Channel: Điện tử dành cho người mới bắt đầu
17-01-2025, 21:36 -
-
Trả lời cho Giúp em về mạch MPPT và Solar Panel với!?bởi dinhthuong80Vâng, em cũng nghĩ thế khi search được hãng ấy là SRNE, nên em test luôn những cái còn lại, và kết quả đều như nhau.
Nhận thấy kết quả khó chấp nhận, em cũng phân vân có nên mail cho họ để họ thử kiểm tra mã đó không; giữa...-
Channel: Điện tử công suất
17-01-2025, 11:33 -
-
Trả lời cho Giúp em về mạch MPPT và Solar Panel với!?bởi dinhthuong80Xin cảm ơn bác bqviet luônnhiệt tình cho biết nhiều thông tin quí báu, cảm ơn bạn mèomướp có ví dụ đơn giản và dễ hiểu, cảm ơn tất cả đã bớt chút thời gian quí báu vào đây đọc bài.
Cảm ơn bác nhathung1101 cho thông tin và chúc mừng bác mua được những tấm pin NLMT cực tốt theo...-
Channel: Điện tử công suất
17-01-2025, 11:22 -
-
Trả lời cho Giúp em về mạch MPPT và Solar Panel với!?bởi mèomướpDạ chú nhat... cứ coi pin mặt trời như 1 cái ắc qui nhìu ngăn mắc nối tiếp ấy ạ. Khi 1 ngăn yếu thì cả cái ắc qui yếu luôn ạ. Nó có nhìu bộ nối tiếp mắc song song nên bị che 1 khoảng nhỏ ảnh hưởng nhìu nhưng chắc ko đến nỗi mất 50% đâu ạ...
-
Channel: Điện tử công suất
17-01-2025, 06:36 -
-
Trả lời cho Giúp em về mạch MPPT và Solar Panel với!?bởi nhathung1101Nếu nói bị cái lá che sáng mà giảm 50% thì tôi càng không tin, bởi trên vườn tôi mặc kệ ông trời làm vệ sinh.
Tức là lá tự rụng, gió tự dọn. Ai hơi đâu mà leo lên dọn. Nếu phải như thế thì tôi dek thèm lắp làm gì.-
Channel: Điện tử công suất
16-01-2025, 21:44 -
Comment