Luận Văn Chuẩn RS-485 Và Ứng Dụng PC Vào Điều Khiển Tự Động

Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa I.1 Sơ lược PC ứng dụng PC Điều Khiển Tự Động: Vào năm 40 kỷ XX, kiện quan trọng lónh vực điện toán xảy đời máy tính chữ số chạy điện đời biết đến tên gọi “Aniac” “Aniac” tổng cộng phải dùng đến 18000 chi tiết điện điện tử, có 1500 chi tiết điện loại linh kiện khác, tổng thể tích khoảng 90 m3 , 30 tấn, chiếm diện tích 170 m Nếu đem so sánh với máy tính ngày cỗ máy khổng lồ Cũng mà vào thời điểm người ta chưa thể thấy hết tầm quan trọng việc Nhưng đến tháng 12 năm 1981, IBM công bố máy tính cá nhân họ Máy thiết kế máy tính để bàn vừa phải, dùng vi xử lý Intel 8088 Model chuẩn dược bán với giá $3000 Máy gồm 64K RAM (bộ nhớ truy cập ngẫu nhiên) mạch chính, mở rộng lên tới 256 K mạch hệ thống, 40K ROM (bộ nhớ đọc) Phần lớn ROM thiết kế để lưu chương trình hỗ trợ hệ thống gọi làhệ thống nhập/xuất bản, hay BIOS Máy PC có ổ đóa mật độ kép mặt Các ổ đóa đòng dạng có khả lưu trữ 180K liệu Phần mềm hệ điều hành ban đầu cung cấp hãng Microsoft Corporation Và từ đến nay, khoảng thời gian ngắn, máy tính – PC – trở thành thiết bò quan trọng hàng đầu tất lónh vực kinh tế, sản xuất, sinh hoạt đặc biệt ngàng công nghiệp đại Trong lónh vực điều khiển tự động máy tính lại đặc biệt quan trọng Nó trực tiếp gián tiếp “ông chủ”, hay “giám sát viên” dây truyền tự động quy trình sản xuất Nhưng để làm điều PC cần phải lập trình trước hay nói cách khác người biết sử dụng Một yếu tố quan trọng hàng đẩu việc đưa PC vào dây truyền tự động ta phải “giao tiếp” với Có nghóa ta phải lập trình PC trao đổi liệu với thiết bò ngoại vi khác Để từ ta có thề dùng PC để điều khiển thiết bò ngoại vi Các thiết bò ngoại vi hay mạng NuDam, vi xử lý(uP), PLC mạng PC khác… SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa Có nhiều phương thức để giao tiếp máy tính vói thiếi bò ghép nối bên ngoài, cách có ưu, nhược điểm khác Tùy theo mục đích, điều kiện sử dụng mà người ta sử dụng phương cách khác cho có hiệu qủa Sau ba phương thức sử dụng phổ biến  Kết nối máy tính cách sử dụng card giao tiếp đïc cắm trực tiếp lên slot mainboard cùa máy tính Có nhiều loại Bus khác loại Bus có ưu điểm khác nhau, loại bus sử dụng phổ biến : ISA, PCIø, AGP, PC, MCA, EISA… Phương pháp có ưu điểm bật trao đổi liệu với dung lượng lớn, tốc độ cao Nhưng có nhược điểm can thiệp nhiều vào phẩn cứng PC dễ “nguy hiểm” linh kiện tương đố đắt tiền Một nhược điểm hệ thống vận hành ta khó can thiệp vào phần cứng  Kết nối máy tính thông qua cổng song song hay cổng máy in Loại có ưu điểm qúa trình giao tiếp trao đổi liệu với tốc độ cao so sánh với phương pháp truyền nối tiếp Nhưng phương pháp có nhược điểm lớn khả trống nhiễu thấp, truyền xa đườc  Kết nối máy tính thông qua cổng nối tiếp hay cổng COM Loại có nhược diểm trao đổi liệu với tốc độ không cao Nhưng lại có ưu điểm bật phương thức giao tiếp đơn giản dễ sử dụng Linh kiện lắp đặt phải dễ mua Không can thiệp nhiều vào phần cứng máy tính tháo lắp dễ dàng hệ thống hoạt động Khả chốn gnhiễu so với phng thức truyền song song cao nhiều Phương thức truyền tương đối xa Trong ba phương thức trên, phương thức giao tiếp máy tính qua cổng nối tiếp đáp ứng yêu cầu lónh vực điều khiển tự động Đó đòi hỏi phải xác, đặt hàng đầu, đơn giản lónh vực vận hành I.2 Chuẩn RS-485 đề tài giao:  Trong việc giao tiếp nối tiếp hay gọi truyền thông nối tiếp có nhiều phương cách khác Được sử dụng rộng rãi chuẩn giao tiếp EIA(Electronics Industries Association) gọi tắt tên RS-232,RS-422,RS423,RS-485…Trong chuẩn RS-485 có nhiều ưu điểm : - Chuẩn RS-485 phát triển dành cho hệ thống multi-droped, giao tiếp tốc độ cao khoảng cách dài Chuẩn RS-485 hoạt động tốc độ lên đến 10Mbps chiều dài cable 1.200m (4000feet) - RS-485 hỗ trợ đến 32 điều khiển nhận đường truyền Điều cho phép dùng ứng dụng mạng hệ thống ngang (multidrop) SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa  Chính nhờ ưu điểm đó, RS-485 sử dụng rộng rãi nhiều dây truyền tự động khác RS-485 đề tài nghiên cứu luận văn em Như đề cập trên, RS-485 không xa lạ với tất người thuộc lónh vực “Điều Khiển Tự Động” Nhưng với ưu điểm vượt trội đề tài không cũ Có thể nói hành trang cần thiết cho kỹ sư nghành Tự Động trường Chính em trọn RS-485 làm chủ đề cho luận văn Việc ứng dụng giao tiêp máy tính với kit vi xử lý dùng chuẩn RS-485 để làm công việc minh họa muôn hình muôn vẻ Có nhiều đề tài anh chò trước làm, làm lại không tránh khỏi trùng lặp, nghiên cứu đề tài với thờ gian cho phép không dài việc mạo hiểm Việc ứng dụng làm bàn phím đa em mặt lý thuyết Nhưng với 40 phím minh họa, có nhiều phím trức đặc biệt để giao tiếp độc lập với máy tính vấn đề thực hành quan trọng Để hoàn thành tốt công việc cần phải sử dụng thành thạo lập trình vi xử lý ngôn ngữ lập trình máy tính để từ kết hợp thật tốt giũa máy tính với kit vi xử lý thông qua RS-485 II Công Việc Được Giao: Do điều kiện sản xuất xương thử bình gas ẩm ướt, ồn độ rung động lớn… để máy tính quản lý liệu xưởng lên công ty Sài Gòn Petro cần hệ thống quản lý số liệu sơn, thử bình ga Hệ thống bao gồm : _Bàn phím:Bao gồm ba bàn phím dùng để truy xuất số liệu bình ga(số sêri, tải trọng, hãng sản xuất…) đặt phân xưởng làm việc kết nối với máy tính _Máy tính đặt văn phòng quản lý số liệu cách phân xưởng quản lý khoảng 100 m Máy tính có nhiệm vụ thống kê tạo 01 biểu mẫu dạng “lý lòch bình ga” Thống kê đưa bảng biểu thông số quản lý yêu cầu Kiểm tra cảnh báo có thông số bất thường lập trình sẵn… III Chi tiết kỹ thuật thiết bò : Bàn phím có số lượng tối đa khoảng 45 phím, thò hiển thò led có led matrận dùng để hiển thò thông số nhập, led dơn dùng để hiển thò số liệu thông số nhập Các số liệu bảng kiểm tra thử bình ga gồm có thông số: • Nhóm thông số bình ga: Ngày tháng thử, sở hữu chủ, dung tiùch thử lần thứ, số sêri, năm sản xuất, noi sản xuất, khối lượng bì, chiều dày • Nhóm kiểm tra tình trạng bình đạt,không đạt: cổ, khối lượng, cắt đục đào lõm, phình , ăn mòn, chiều dày , rò rỉ, cháy • Nhóm tình trạng kiểm đònh loại bình : Đến hạn kiểm đònh, chưa đến hạn kiểm đònh yêu cầu sơn , loại 12kg loại 50 kg SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp IV GVHD:Thầy Nguyễn Chí Nghóa Mô tả hoạt động hệ thống • Nhập nhóm Thông Số Bình Gas : - Nhấn phím ngày tháng thử: Nhấn phím Date, số đầu chữ:DA Nhập ngày tháng vào liên tục số theo thứ tự ngày tháng năm: 14 08 01 - Khi phập sai số, dùng CE để xóa số nhập - Phím CHECK dùng để xem toàn lý lòch bình hữu dòng một, nhấn CHECK sau nhấn thêm phím thông số giá trò tương ứng thông số lên Nhấn CHECK lần thoát khỏi tình trạng kiểm đònh - Nhấn phím ENTER giá trò truyền máy tính - Nhấn phím RESET trở lại trạng thái sẵn sàng nhập giá trò • Nhập nhóm Tình Trạng Kiểm Đònh : - Nhấn phím rò rỉ LE [leak] thò LE - Nhấn OK đạt (hiện số 1) - Nhấn NOTOK không đạt (hiện số 0) - Các thông số khác nhập tương tự • Tính chất thò: - Khi nhập số liệu đẩy dần từ phải sang trái, phập sai nhấn phím CE để nhập lại - Đèn báo hiệu sẵn sàng nhập - Đèn báo lỗi đường truyền… - V Giải công việc: Tuy thực tế công việc đòi hỏi phải có ba bàn phím ba bàn phím mặt kỹ thuật hoàn toàn giống lên em làm bàn phím mang tính chất mô , lý làm bàn phím tốn SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa data data PC Bàn phím data data data Khối RS-485 Bàn phím data data data data Bàn phím Sơ đồ hệ thống SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa ground TXD RXD PC ground A Tín hiệu visai B Max-232 / RS-485 ground TXD RXD TTL / RS-485 Bàn Phím Sơ đồ thi công SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp SVTH: Nguyễn Quang Huy GVHD:Thầy Nguyễn Chí Nghóa Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa CHƯƠNG I: Giới thiệu số phương pháp truyền thông A GIỚI THIỆU TỔNG QUÁT VỀ MẠNG MÁY TÍNH I Tổng quát: Mạng máy tính tập hợp máy tính nối với đường truyền vật lý theo kiến trúc Và ngày mạng máy tính trở thành lónh vực nghiên cứu phát triển ngày ứng dụng rộng rãi sống Đøng truyền vật lý kiến trúc mạng: Đường truyền vật lý: Đường truyền vật lý dùng để truyền tín hiệu điện tử máy tính Các tính hiệu điện tử biểu thò giá trò liệu dạng xung nhò phân Tất tín hiệu truyền máy tính thuộc dạng sóng điện từ đó, trải từ tần số radio tới sóng cực ngắn(vi ba) tia hồng ngoại Tuỳ theo tần số sóng điện từ dùng đường truyền vật lý khác để truyền tín hiệu Các tần số radio truyền cáp điện ( dây đôi xoắn đồng trục ) phương tiện quảng bá (radio broadcasting) o Sóng cực ngắn (vi ba) thường dùng để truyền trạm mặt đất vệ tinh o Tia hồng ngoại lý tưởng nhiều loại truyền thông mạng Nó dùng để truyền hai điểm hay từ điểm đến nhiều máy thu o Khi xem xét lựa chọn đường truyền cần ý đến đặc trưng : giải thông , độ suy hao, độ nhiễm từ Kiến trúc mạng: Kiến trúc mạng máy tính thể qua cách nối máy tính với tập hợp quy tắc mà tất thực thể tham gia truyền thông mạng phải tuân theo mạng hoạt động tốt Cách kết nối máy tính gọi hình trạng(topology), quy tắc quy ước truyền thông gọi giao thức (protocol)  Topology mạng : có hai kiểu nối mạng chủ yếu point-to-point quảng bá theo kiểu point-to-point, đưởng truyền nối thành cặp nút với nút có trách nhiệm lưu trữ tạm thời sau chuyển liệu đích Theo kiểu quảng bá, tất nút phân chia chung đường truyền vật lý Dữ liệu gởi từ nút tiếp nhận tất nút lại Nơi nhận kiểm tra xem đòa đích gởi đến có phải hay không để tiếp tục thực việc giao tiếp hay không giao tiếp  Giao thức mạng : SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa Việc truyền tín hiệu mạng cần phải tuân theo quy tắc, quy ước nhiều mặt, từ khuôn dạng (cú pháp, ngữ nghóa) liệu tới thủ tục gởi, nhận liệu kiểm soát có hiệu chất lượng truyền tin xử lý lỗi cố Tập hợp tất quy tắc gọi giao thức (protocol) mạng Phân loại mạng máy tính: Có nhiều cách phân loại mạng khác tuỳ thuộc vào yếu tố làm tiêu phân loại mạng Nếu lấy khoảng cách làm tiêu phân loại mạng ta có loại sau:  Mạng cục bộ: Là mạng cài đặt phạm vi tương đối nhỏ với khoảng cách lớn máy tính vài chục km trở lại Một mạng cục bao gồm phần cứng phần mềm Phần mềm bao gồm chương trình điều khiển hệ điều hành mạng Còn phần cứng bao gồm : o Máy chủ (File server-FS ) o Các trạm làm việc o Các thiết bò ngoại vi o Card mạng  Mạng đô thò: ( Metropolian Area Networds-MAN ) mạng sử dụng (cài đặt ) phạm vi đô thò hay trung tâm kinh tế –chính trò xã hội có bán kính phạm vi khoảng 100km trở lại  Mạng diện rộng: (Wide Area Networds-WAN ) Có phạm vi vượt biên giới quốc gia  Mạng toàn cầu: (Global Area Networds-GAN ) phạm vi mạng trải khắp bề mặt trái đất B Giao tiếp máy tính với ngoại vi: Như ta biết, để ghép nối với máy tính ta có ba khả để trọn: i Ghép nối qua cổng máy in hay gọi cổng song song ii Ghép nối qua rãnh cắm mở rộng mạch iii Ghép nối qua cổng nối tiếp Mỗi phương pháp có ưu nhược điểm riêng lên đến tất phương pháp tồn Tùy theo kinh nghiệm , công việc khác mà ta có lưa trọn khác Ở phần em giới thiệu qua hai phương pháp đầu sâu vào phương pháp thứ ba I Cổng song song: Cấu trúc cổng song song: Cổng song song có loại :  Ổ cắm 36 chân SVTH: Nguyễn Quang Huy Trang Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa  cắm 26 chân Ngày hầu hết máy tính PC trang bò cổng song song 25 chân nên ta cần quan tâm đến cổng 25 chân Ở dạng truyền song song, bit liệu truyền đồng thời đường khác Ưu điểm lớn việc truyền song song tốc độ truyền cao, đường dẫn tương thích TTL Nhược điểm dễ bò nhiễu Sơ đồ chân: 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 Bảng mô tả bố trí chân cổng nối với máy in: CHÂN 2÷9 10 11 12 13 14 15 16 17 18 ÷ 25 KÝHIỆU STROBE D0 ÷ D7 ACK BUSY PE SLCT AF ERROR INIT SLCTIN GND CHIỀU Lối Lối Lối vào Lối vào Lối vào Lối vào Lối Lối vào Lối Lối MÔ TẢ BYTE in Đường liệu D0 ÷ D7 Acknowledge (Xác nhận) Logic 1: Máy in bận Hết giấy Select ( lựa chọn) Auto feed ( tự nạp) Error ( lỗi) Logic 0: Đặt lại máy in Select in Nối đất Hinh 1: Bảng mô tả bố trí chân cổng nối với máy in   Cổng nối với máy in hay thường gọi giao diện Centronics Cổng không nối với máy in mà ghép nối với thiết bò ngoại vi sử dụng máy tính vào mục đích đo lường điều khiển Cổng có 25 chân Ngoài bit liệu có đường dẫn tín hiệu khác, tổng cộng trao đổi cách riêng biệt với 17 đường dẫn, gồm 12 đường dẫn đường dẫn vào đường dẫn liệu D0 ÷ D7 đường dẫn hai chiều tất loại máy tính nên bảng mô tả xem lối Các lối SVTH: Nguyễn Quang Huy Trang :10 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa procedure exit2Click(Sender: TObject); procedure N2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form2: TForm2; implementation uses thu, Unit3, Unit4, Unit5; {$R *.DFM} procedure TForm2.Son1Click(Sender: TObject); begin Form3.show; end; procedure TForm2.New1Click(Sender: TObject); var hoso:textFile; cot:array[1 20]of String[20]; rowNums,i,j,t:integer; s:string; begin AssignFile(hoso,'C:\My Documents\hoso.txt'); reset(hoso); rowNums:=0; Grid1.Cells[1,0]:='So Seri'; Grid1.Cells[2,0]:='ngay nhap'; Grid1.Cells[3,0]:='so huu chu'; Grid1.Cells[4,0]:='Dung tich'; SVTH: Nguyễn Quang Huy Trang :147 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa Grid1.Cells[5,0]:='Thu lan thu'; Grid1.Cells[6,0]:='Nam san xuat'; Grid1.Cells[7,0]:='Noi san xuat'; Grid1.Cells[8,0]:='Khoi luong binh'; Grid1.Cells[9,0]:='Be day'; Grid1.Cells[10,0]:='co'; Grid1.Cells[11,0]:='Khoi luong vo'; Grid1.Cells[12,0]:='Cat duc dao lom'; Grid1.Cells[13,0]:='Phi ra'; Grid1.Cells[14,0]:='an mon'; Grid1.Cells[15,0]:='Ro ri'; Grid1.Cells[16,0]:='Kiem dinh'; Grid1.Cells[17,0]:='Son'; try begin While not eof(hoso) begin readln(hoso,cot[1],cot[2],cot[3],cot[4],cot[5],cot[6], cot[7],cot[8],cot[9],cot[10],cot[11],cot[12], cot[13],cot[14],cot[15],cot[16],cot[17]) ; inc(rowNums); Grid1.RowCount:=rowNums; Grid1.Cells[0,rowNums]:=IntToStr(rownums); for i:=1 to Grid1.Cells[i,rownums]:=cot[i]; Grid1.Cells[3,rownums]:='SGPETRO'; Grid1.Cells[4,rownums]:=cot[4]+'.l'; for i:=5 to Grid1.Cells[i,rownums]:=cot[i]; Grid1.Cells[8,rownums]:=cot[8]+'.kg'; Grid1.Cells[9,rownums]:=cot[9]+'.cm'; Grid1.Cells[10,rownums]:=cot[10]+'.cm'; Grid1.Cells[11,rownums]:=cot[11]+'.kg'; for i:=12 to 15 if cot[i][1]='0' then Grid1.Cells[i,rownums]:='khong dat' SVTH: Nguyễn Quang Huy Trang :148 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa else if cot[i][1]='1' then Grid1.Cells[i,rowNums]:='dat'; if cot[16][1]='1' then Grid1.Cells[16,rowNums]:='khong&kd'; if cot[16][1]='0' then Grid1.Cells[16,rowNums]:='phai&kd'; if cot[17][1]='1' then Grid1.Cells[17,rowNums]:='khong&son'; if cot[17][1]='0' then Grid1.Cells[17,rowNums]:='phai& son'; for j:=1 to 17 begin s:=''; for t:=1 to length(Grid1.Cells[j,rownums]) if Grid1.Cells[j,rownums][t]=' ' then s:=s+'' else if Grid1.Cells[j,rownums][t]='&' then s:=s+' ' else s:=s+ Grid1.Cells[j,rownums][t]; Grid1.Cells[j,rownums]:=' '+s; end; end; inc(rowNums); Grid1.RowCount:=rowNums; end; Grid1.FixedRows:=1; finally CloseFile(hoso); end; end; SVTH: Nguyễn Quang Huy Trang :149 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa procedure TForm2.Kiemdinh1Click(Sender: TObject); begin Form4.show; end; procedure TForm2.exit2Click(Sender: TObject); begin close(); end; procedure TForm2.N2Click(Sender: TObject); begin form5.showmodal; end; end unit Unit3; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, Menus; type TForm3 = class(TForm) Grid1: TStringGrid; MainMenu1: TMainMenu; File1: TMenuItem; New1: TMenuItem; Save1: TMenuItem; Exit1: TMenuItem; Help1: TMenuItem; procedure New1Click(Sender: TObject); procedure Exit1Click(Sender: TObject); SVTH: Nguyễn Quang Huy Trang :150 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa private { Private declarations } public { Public declarations } end; var Form3: TForm3; implementation {$R *.DFM} procedure TForm3.New1Click(Sender: TObject); var hoso:textFile; cot:array[1 20]of String[20]; rowNums,i,binh:integer; temp:string; begin AssignFile(hoso,'C:\My Documents\hoso.txt'); reset(hoso); rowNums:=0; binh:=0; Grid1.RowCount:=rowNums; Grid1.Cells[0,0]:='stt'; Grid1.Cells[1,0]:='so se ri'; try begin While not eof(hoso) begin readln(hoso,cot[1],cot[2],cot[3],cot[4],cot[5],cot[6], cot[7],cot[8],cot[9],cot[10],cot[11],cot[12], cot[13],cot[14],cot[15],cot[16],cot[17]) ; temp:=''; for i:=1 to Length(cot[17]) if cot[17][i]=' ' then SVTH: Nguyễn Quang Huy Trang :151 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa temp:=temp+'' else temp:=temp+ cot[17][i]; if temp='0' then begin inc(rowNums); Grid1.RowCount:=rowNums; Grid1.cells[1,rownums]:=cot[1]; Grid1.Cells[0,rowNums]:=IntToStr(rownums); end else inc(binh); end; inc(rowNums); Grid1.RowCount:=rowNums; end; Grid1.FixedRows:=1; finally CloseFile(hoso); end; end; procedure TForm3.Exit1Click(Sender: TObject); begin close(); end; end unit Unit4; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, SVTH: Nguyễn Quang Huy Trang :152 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa Menus, Grids; type TForm4 = class(TForm) MainMenu1: TMainMenu; File1: TMenuItem; New1: TMenuItem; Save1: TMenuItem; Load1: TMenuItem; N1: TMenuItem; exit1: TMenuItem; Help1: TMenuItem; Grid1: TStringGrid; procedure New1Click(Sender: TObject); procedure exit1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form4: TForm4; implementation {$R *.DFM} procedure TForm4.New1Click(Sender: TObject); var hoso:textFile; cot:array[1 20]of String[20]; rowNums,i,binh:integer; temp:string; SVTH: Nguyễn Quang Huy Trang :153 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa begin AssignFile(hoso,'C:\My Documents\hoso.txt'); reset(hoso); rowNums:=0; binh:=0; Grid1.RowCount:=rowNums; Grid1.Cells[0,0]:='stt'; Grid1.Cells[1,0]:='so se ri'; try begin While not eof(hoso) begin readln(hoso,cot[1],cot[2],cot[3],cot[4],cot[5],cot[6], cot[7],cot[8],cot[9],cot[10],cot[11],cot[12], cot[13],cot[14],cot[15],cot[16],cot[17]) ; temp:=''; for i:=1 to Length(cot[16]) if cot[16][i]=' ' then temp:=temp+'' else temp:=temp+ cot[16][i]; if temp='0' then begin inc(rowNums); Grid1.RowCount:=rowNums; Grid1.cells[1,rownums]:=cot[1]; Grid1.Cells[0,rowNums]:=IntToStr(rownums); end else inc(binh); end; // temp:=temp+ cot[16][i]; inc(rowNums); Grid1.RowCount:=rowNums; //Grid1.cells[1,rownums]:=cot[1]; //Grid1.Cells[0,rowNums]:=IntToStr(rownums); SVTH: Nguyễn Quang Huy Trang :154 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa end; Grid1.FixedRows:=1; finally CloseFile(hoso); end; end; procedure TForm4.exit1Click(Sender: TObject); begin close(); end; end unit Unit5; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm5 = class(TForm) Edit1: TEdit; Edit2: TEdit; OK: TButton; Cancel: TButton; Label1: TLabel; Label2: TLabel; procedure OKClick(Sender: TObject); procedure CancelClick(Sender: TObject); private { Private declarations } SVTH: Nguyễn Quang Huy Trang :155 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa public { Public declarations } end; var Form5: TForm5; implementation uses Unit2, Unit6; {$R *.DFM} procedure TForm5.OKClick(Sender: TObject); var i,t,k:integer; temp,temp1,temp2,s:string; Procedure binhgas(j:integer); var lylich:textFile; t:integer; s:array[1 20]of string; begin AssignFile(lylich,'c:\My Documents\lylich.txt'); Rewrite(lylich); try for t:=1 to form2.grid1.colcount s[t]:=form2.Grid1.Cells[t,j]; Writeln(lylich,' Ly lich binh gas'); writeln(lylich,''); writeln(lylich,' Số sê ri',' :',s[1]); writeln(lylich,' Ngày nhập',' :',s[2]); writeln(lylich,' Sở hữu chủ',' :',s[3]); writeln(lylich,' Dung tích bình',' :',s[4]); writeln(lylich,' Thử lần thứ',' :',s[5]); writeln(lylich,' Năm sản xuất',' :',s[6]); writeln(lylich,' Nơi sản xuất',' :',s[7]); SVTH: Nguyễn Quang Huy Trang :156 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa writeln(lylich,' Khối lượng bình',' :',s[8]); writeln(lylich,' Chiều dày',' :',s[9]); writeln(lylich,' Cổ',' :',s[10]); writeln(lylich,' Khối lượng vỏ',' :',s[11]); writeln(lylich,' Cắt đục đào lõm',' :',s[12]); writeln(lylich,' Phì ra',' :',s[13]); writeln(lylich,' Ăn mòn',' :',s[14]); writeln(lylich,' Rò rỉ,',' :',s[15]); writeln(lylich,' Kiểm đònh',' :',s[16]); writeln(lylich,' Sơn',' :',s[17]); finally CloseFile(lylich); Form6.Show; end; end; begin k:=0; temp1:=edit2.text; temp2:=edit1.text; temp:=''; for i:=1 to length(temp1) if temp1[i]=' ' then temp:=temp+'' else temp:=temp+temp1[i]; temp1:=temp; temp:=''; for i:=1 to length(temp2) if temp2[i]=' ' then temp:=temp+'' else temp:=temp+temp2[i]; temp2:=temp; if temp1'*' then SVTH: Nguyễn Quang Huy Trang :157 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa begin for i:=1 to form2.Grid1.Rowcount begin s:=''; for t:=1 to length(form2.Grid1.Cells[2,i]) if form2.Grid1.Cells[2,i][t]=' ' then s:=s+'' else s:=s+ form2.Grid1.Cells[2,i][t]; if temp1=s then begin s:=''; for t:=1 to length(form2.Grid1.Cells[1,i]) if form2.Grid1.Cells[1,i][t]=' ' then s:=s+'' else s:=s+ form2.Grid1.Cells[1,i][t]; if temp2=s then begin k:=1; binhgas(i); end; end; end; if k=0 then ShowMessage('Khong co binh hay thu lai '); end; if temp1='*' then begin for i:=1 to form2.Grid1.Rowcount begin s:=''; for t:=1 to length(form2.Grid1.Cells[1,i]) if form2.Grid1.Cells[1,i][t]=' ' then s:=s+'' SVTH: Nguyễn Quang Huy Trang :158 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa else s:=s+ form2.Grid1.Cells[1,i][t]; if temp2=s then begin binhgas(i); k:=1; end; end; if k=0 then ShowMessage('Khong co binh '); end; end; procedure TForm5.CancelClick(Sender: TObject); begin close(); end; end unit Unit6; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls, Menus; type TForm6 = class(TForm) Memo1: TMemo; Edit1: TEdit; MainMenu1: TMainMenu; File1: TMenuItem; Help1: TMenuItem; procedure Memo1Change(Sender: TObject); SVTH: Nguyễn Quang Huy Trang :159 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa procedure FormCreate(Sender: TObject); procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form6: TForm6; implementation {$R *.DFM} procedure TForm6.Memo1Change(Sender: TObject); begin //Memo1.Lines.LoadFromFile(edit1.text); end; procedure TForm6.FormCreate(Sender: TObject); begin //Memo1.Lines.LoadFromFile(edit1.text); end; procedure TForm6.FormActivate(Sender: TObject); begin Memo1.Lines.LoadFromFile(edit1.text); end; end SVTH: Nguyễn Quang Huy Trang :160 Luận Văn Tốt Nghiệp SVTH: Nguyễn Quang Huy GVHD:Thầy Nguyễn Chí Nghóa Trang :161 [...]... hết các mạch sử dụng truyền cân bằng, ngược lại ta sử dụng truyền không cân bằng Với chuẩn RS-449, tốc độ truyền có thể trên 20Kbps Với chuẩn RS-423, tốc độ truyền có thể lên tới 100Kbps và khoảng cách truyền lên đến 1km Tiêu chuẩn này sử dụng các IC kích phát, thu MC3488 và MC3486 Chuẩn RS-422A : Một cải tiến nữa của chuẩn RS-232 là chuẩn RA-422A Với chuẩn này độ lợi được gia tăng và sử dụng việc truyền... các thanh ghi MSB và LSB của số chia Tốc độ truyền được tính nhờ vào việc chọn xung đồng hồ vào Xtal 1 và việc chọn số chia của tần số này( để tại thanh ghi MSB và LSB ) Ví dụ, nếu ta dùng tần số 1.8432 Mhz tại X-tal 1 , ta muốn tốc độ phát là 9600 baud ta tìm số chia để ghi vào LSB và MSB như sau : Số chia = tần số vào /( tốc độ phát x 16) = 1.8432x10 6 /(9600x16) =12  Thanh ghi điều khiển đường truyền... yêu cầu ngắt, và cần xét các bit ( Bit 1, bit 2 ) để xác đònh nguồn gốc của yêu cầu ngắt Thứ tự ưu tiên ngắt từ thấp đến cao theo thứ tự từ trên xuống dưới theo bảng ở dưới : Bit Bit 6:7 Bit 5 Bit 4 Bit 3 Ghi chú Bit 6 Bit 7 Cho trạng thái bộ đệm vào trước ra trước 0 0 Không vào trước ra trước 0 1 Cho phép vào trước ra trước nhưng không dùng 1 1 Cho phép vào trước ra trước Cho phép vào trước ra trước... tiên ký tự đó sẽ được đưa vào thanh ghi đợi truyền ( Transmit Holding Register ), sau đó được đưa qua thanh ghi dòch của bộ phát ( transmit Shift Register ) Sau khi ký tự trước đã truyền xong, từng bit của ký tự đươcï truyền sẽ dòch vào kênh dữ liệu  Khi nhận một ký tự, đầu tiên các bit của nó lần lượt được nạp vào thanh ghi dòch của bộ thu ( Transmit Shift Register), sau đó chúng được đưa vào thanh... thu Có yêu cầu ngắt Không có  Thanh ghi điều khiển Modem: ( Modem control register : MCR ) : Thanh ghi điều khiển modem là thanh ghi đọc ghi Thanh ghi còn được gọi là thanh ghi điều khiển các tín SVTH: Nguyễn Quang Huy Trang :30 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa hiệu ra của modem bởi vì nó cho phép ta điều khiển các tín hiệu tại các chân DTR và RTS của mạch UART Dạng thức của nó được... trước khi phát đi và tách các bit này ra khỏi ký tự nhận được  Bảo đãm các bit kỳ tự truyền đi với tốc độ được lập trình trước, kiểm tra để phát hiện lỗi tương ứng : lỗi ký tự, lỗi parity o Set tín hiệu bắt tay phần cứng thích hợp và cho biết trạng thái của tín hiệu 1 Các thanh ghi của UART :  Các thanh ghi điều khiển chính (Control Register : CR ) nhận được lệnh từ CPU o Thanh ghi điều khiển đường truyền... nhiên, cho tới nay, phần lớn các card ghép nối dùng trong kỹ thuật đo lường và điều khiển đều được chế tạo theo tiêu chuẩn ISA  Rãnh cắm theo tiêu chuẩn ISA: Thông thường rãnh cắm có 62 đường tín hiệu dùng cho thông tin với một card cắm vào về cơ bản các đường tín hiệu này chia thành 3 nhóm đường tín hiệu, đường đòa chỉ và đường điều khiển Rãnh cắm 62 chân: Các chân trên card Chức năng Phía mạch in Chức... liệu ) và DCE ( Data Communications Equipment : thiết bò cuối kênh dữ liệu ) (ví dụ giữa 1 máy tính và một modem) Chuẩn này sử dụng đầu nối 25 chân, tuy nhiên chỉ có 1 số ít chân là cần thiết cho việc liên kết Về phương diện điện, chuẩn này quy đònh mức logic 1 và mức logic 0 tương SVTH: Nguyễn Quang Huy Trang :19 Luận Văn Tốt Nghiệp GVHD:Thầy Nguyễn Chí Nghóa ứng với các mức điện áp nhỏ hơn –3V và lớn... UART sẳn sàng phát ký tự o Bằng bit 2, bit 1 của thanh ghi MCR chúng ta có thể điều khiển chân OUT1 và OUT 2 tích cực hay không tích cực o Bit 4 của thanh ghi MCR cho phép mạch 8250A làm việc ở chế độ nối vòng cục bộ để kiểm tra chức năng của UART o Các chân điều khiển vào của modem ( DSR , CTR , RI , RLSD ) không được nối ra ngoài mà được nối bên trong mạch với các chân điều khiển ra của modem( DTR... 1 0 1 0 0 1 1 Một trong những vấn đề cần lưu ý khi sử dụng RS-232 là mạch thu phát không cân bằng ( đơn cực, tức là điện áp vào so với đất ) Chuẩn RS-489 và RS-423A : Vào năm 1978-1979, EIA đưa ra 2 chuẩn giao tiếp mới để khắc phục các nhượt điểm trên của RS-232 là RS-444 ( cân bằng ) và RS-423 (không cân bằng) Sự chọn lựa giữa truyền cân bằng và không cân bằng được quyết đònh bởi tốc độ truyền tín