BÀN PHÍM THU THẬP số LIỆU BÌNH GAS DÙNG CHUẨN RS 485

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 : 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  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 kác STROBE, AUTOFED ( AF), INIT SELECT IN (SLCTIN) Khi trao đổi thông tin với máy in, đường dẫn có chức xác đònh Thí dụ, INIT = thực trình khởi động lại (Reset) máy in, STROBE có nhiệm vụ ghi bit liệu gửi từ máy in xung Low vào nhớ máy in  Cổng máy in có đường dẫn lối vào, nhờ mà bắt (chéo) tay máy tính máy in thực Chẳng hạn, mà máy in không đủ chỗ nhớ máy in gửi đến máy tính bit trạng thái (BUSY = 1); điều có nhgóa máy in thời điểm bận, không nên gửi thêm byte liệu khác đến nữa.Khi hết giấy máy in máy tính thông báo PAPER EMPTY (PE) Đường dẫn lối vào ACKNOWLEDGE (ACK), SELECT (SLCT) ERROR Tổng cộng máy tính PC có lối vào hướng tới máy in Sự trao đổi với đường dẫn tín hiệu: Các tín hiệu trao đổi qua cổng song song thông qua ghi:  ghi liệu  ghi trạng thái  ghi điều khiển  Thanh ghi liệu Được đònh vò đòa sở cổng Datenregister(Basicaddress) D7 D6 D5 D4 D3 D2 D1 D0 Pin Pin Pin Pin Pin Pin Pin Pin  Thanh ghi trạng thái Đònh vò đòa sở +1 Đây ghi đọc, CPU dùng để thu trạng thái dòng tín hiệu từ máy in hay thiết bò tới máy tính bit thấp đặt Các bit khác lại đặt hình vẽ: Statsregister(Basicaddress +1) D7 D6 D5 D4 D3 0 Pin 15 (ERROR) Pin 13 (SLCT) Pin 12 (PE) Pin 10 (ACK) Pin 11 (BUSY)  Thanh ghi điều khiển Đònh vò đòa sở +2 Controlregister (Basicaddress =2) D7 D6 D5 D4 D3 D2 D1 D0 1 2 Pin (STROBE) Pin 14 (AUTOFEED) Pin 16 (INIT) Pin 17 (SLCTIN) IRQ-ENABLE Ở máy tính PC chế tạo gần đây, đòa cổng máy in xếp sau: LPT1 (Cổng máy in thứ nhất) LPT2 (Cổng máy in thứ hai) ⇒ Đòa = 378H ⇒ Đòa = 278H Các đòa cổng máy incủa máy tính PC đặt đòa nhớ xác đònh đọc chương trình viết phần mềm Đòa LPT1 giá trò 16 bit cất nhớ có đòa 408H 409H, 40AH 40BH chứa đụng đòa LPT2 Rãnh cắm mở rộng: Rãnh cắm mở rộng nói đến Bus để sẵn mạch Từ trước đến có đến tám kiểu Bus mở rộng sử dụng cho máy tính cá nhân (gần có thêm bus AGV) Việc phân loại Bus mở rộng thường dựa sô bit liệu ,à chúng xử lý đồng thời Đó bus  Bus PC(còn gọi ISA bit)  Bus EISA(32 bit)  Bus VESA Local(32bit)  Bus SCSI(16/32bit)  Bus ISA(16bit)  Bus MCA(32 bit)  Bus PCI(32/64 bit)  Bus PC/MCA(16 bit) Tuy nhiên, nay, phần lớn card ghép nối dùng kỹ thuật đo lường điều khiển 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 card cắm vào đường tín hiệu chia thành nhóm đường tín hiệu, đường đòa đường điều khiển Rãnh cắm 62 chân: Các chân card Chức Chức Phía mạch in GND B01 Phía linh kiện A01 /IOCHCK RESET DRV B02 A02 SD7 +5V B03 A03 SD6 IRQ2 B04 A04 SD5 -5V B05 A05 SD4 DRQ2 B06 A06 SD3 -12V B07 A07 SD2 DỰ TRỮ B08 A08 SD1 +12V B09 A09 SD0 GND B10 A10 /OICHRDY /SMEMW B11 A11 AEN /SMEMR B12 A12 A19 /IOW B13 A13 A18 /IOR B14 A14 A17 /DACK3 B15 A15 A16 DRQ3 B16 A16 A15 /DACK1 B17 A17 A14 DRQ1 B18 A18 A13 /DACK0 B19 A19 A12 CLK B20 A20 A11 IRQ7 B21 A21 A10 IRQ6 B22 A22 A9 IRQ5 B23 A23 A8 IRQ4 B24 A24 A7 IRQ3 B25 A25 A6 /DACK2 B26 A26 A5 TC B27 A27 A4 BALE B28 A28 A3 +5V B29 A29 A2 OSC B30 A30 A1 GND B31 A31 A0 Về sau, máy tính PC/AT đời, chúng có thêm rãnh thứ hai nằm thẳng hàng với rãnh bit kể có 36 chân Trên rãnh có chứa tín hiệu 16 bit nên rãnh gọi chung rãnh 16 bit Ngoài ra, sau người ta chế tạo thêm rãnh cắm từ 32 bit trở lên Rãnh dùng để ghép thêm vào card có chất lượng cao Rãnh cắm 16 bit bao gồm rãnh cắm bit có thêm rãnh cắm thứ hai Sau xếp chân rãnh cắm thứ hai: Rãnh cắm bit mở rộng: Chức /MEMCS16 /IOCS16 IRQ10 IRQ11 IRQ12 IRQ13 IRQ14 /DACK0 DRQ0 /DACK5 DRQ5 /DACK6 DRQ6 /DACK7 DRQ7 +5V /MASTER GND Chân Phía mạch in D01 D02 D03 D04 D05 D06 D07 D08 D09 D10 D11 D12 D13 D14 D15 D16 D17 D18 Chân Phía linh kiện C01 C02 C03 C04 C05 C06 C07 C08 C09 C10 C11 C12 C13 C14 C15 C16 C17 C18 Chức SBHE LA23 LA22 LA21 LA20 LA19 LA18 LA17 /MEMR /MEMW SD8 SD9 SD10 SD11 SD12 SD13 SD14 SD15 Chức ý nghóa đường tín hiệu rãnh: A0 ÷ A19 : đường tín hiệu đòa chỉ, xuất đòa đònh đòa bus hệ thống gán vào thiết bò ô nhớ I/O, cho phép truy cập 1Mbyte nhớ BALE mức cao cài ỏ cạnh xuống BALE Bằng cách sử dụng lệnh xuất nhập, xử lý đònh đòa 64K đòa cổng I/O Do đường từ A10 ÷ A16 không dùng, PC dùng đường từ A0 ÷ A9 để đònh vò đòa cổng nên đòa hợp lệ bus hệ thống PC 300H ÷ 3F1H LA17 ÷ LA23 : đường đòa có giá trò BALE mức cao, kết hợp với đường dòa A0 ÷ A19 truy cập 16 Mbyte nhớ RESET DRV : khởi động máy bật nguồn hay nhấn RESET SD0 ÷ SD15 : đường liệu 16 bit, truyền chiều BALE : Bus Address Latch Enable cho phép cài đòa AEN : DMA phát dùng ngăn cản Slave DMA diễn CLK : xung đồng hồ (6/8MHz 14.3MHz) ALE : chốt đòa hợp lệ /IOW : cho phép xuất liệu I/O /IOR : cho phép đọc liệu từ I/O /IOCHCK : kiểm tra lỗi xuất nhập (parity) /OCHRDY : báo kênh I/O sẵn sàng /MEMW, /MEMR : ghi đọc nhớ nhóm tín hiệu phân xử bus /SMEMW, /SMEMR : ghi đọc nhớ, tác động vùng nhớ < 1Mb SBHE : Bus High Enable _ báo truyền liệu bit cao DRQ0 ÷ DRQ3 : Direct Memory Access Request _ yêu cầu DMA DRQ5 ÷ DRQ7 truyền liệu trực tiếp với nhớ /DACK : DMA Acknoledge _ DRQ yêu cầu, máy tính trả lời qua /DACK MASTER : chân điều khiển để ngoại vi chiếm tuyến CPU /MEMCS16 : báo chu kỳ truy cập nhớ 16 bit data /IOCS16 : báo chu kỳ truy cập ngoại vi 16 bit data TC : đếm kết thúc DMA phát _ Terminal Count OSC : dao động dùng cho ứng dụng đònh tổng quát IRQ : tạo yêu cầu ngắt cho CPU Ưu tiên IRQ 9÷ IRQ12, IRQ 14÷ IRQ15, IRQ 3÷ IRQ7 /REFRESH : báo chu kỳ làm tươi nhớ động OWS : Zero Wait State _ báo không cần thêm chu kỳ chờ Các chu kỳ bus: Chu kỳ đọc cổng I/O Trong kỳ đọc cổng I/O, đường /MEMR, /MEMW, /IOW không tích cực Chu kỳ đọc lần chu kỳ xung CLOCK Giản đồ thời gian: CLOCK ALE A0÷A9 Valid memmory address MEMR MEMW IOR IOW D0÷D7 Chu kỳ ghi cổng I/O: Valid Data end; procedure TForm1.New1Click(Sender: TObject); begin Timer1.Enabled:=true; Load.Enabled:=false; end; end unit Unit2; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Menus; type TForm2 = class(TForm) Grid1: TStringGrid; MainMenu1: TMainMenu; File1: TMenuItem; New1: TMenuItem; Save1: TMenuItem; Load1: TMenuItem; N1: TMenuItem; Son1: TMenuItem; Kiemdinh1: TMenuItem; N2: TMenuItem; Exit1: TMenuItem; Help1: TMenuItem; exit2: TMenuItem; procedure Son1Click(Sender: TObject); procedure New1Click(Sender: TObject); procedure Kiemdinh1Click(Sender: TObject); 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'; 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' 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; 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); 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 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, 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; 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); 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 } 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]); 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 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+'' 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); 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 [...]... dụng máy tính Từ chuẩn RS- 232 ban đầu đó cho đến nay EIA đă phát hành thêm nhiều chuẩn truyền thông khác mang họ RS như RS- 422, RS- 423, RS- 485, các giao diện này đều có những ưu nhược khác nhau mà tùy theo điều kiện sản xuất mà có những áp dụng khác nhau Do đó tất cả các chuẩn này vẫn tồn tại song song II Đặc tính giữa các chuẩn RS- 232C, RS- 422, RS- 423, RS- 485 : 1 Bảng thông số: Thông số Cable Length(max)... Chú ý rằng không cần nối đất giữa thiết bò thu và thiết bò phát Các IC lái RS- 422A hầu hết hoạt động với điện áp nguồn +5V như các chip logic Với chuẩn này tốc độ truyền, khoảng cách truyền được cải thiện rất nhiều Chuẩn RS- 485 : Giao tiếp EIA RS_ 485 dựa trên chuẩn RS- 422A , nó là một cải tiến của chuẩn này Đặc tính điện của nó giống như RS_ 422A RS- 485 là chuẩn truyền vi sai, sử dụng hai dây cân bằng,... RS- 485 : VA –Vb = -1.5V -5V : mức logic 1 VA –VB= +1.5V+5V : mức logic 0  Hình vẽ minh họa : RS2 32 /RS4 85 RS- 485 Kít vi xử lỳ RS- 485 Kít vi xử lý CHƯƠNG VI : 1 Giới thiệu: Chuẩn RS- 485 Khi hệ thống cần truyền một khối thông tin nhỏ ở khoảng cách xa, thông thường người ta chọn RS- 485 Mạng sử dụng chuẩn RS- 485 rất đa dạng: ta có thể giao tiếp giữa PC với nhau, hoặc giữa PC với Vi Xử Lý , hoặc bất kỳ... Chuyển đổi từ chuẩn RS- 232 sang RS- 485 để có thể truyền tín hiệu trên khoảng cách lớn khoảng 1.2km o Chuyển đổi từ RS- 485 sang RS- 485 sang TTL để phù hợp với áp vào của vi xử lý  Mức điện áp: o RS- 232 truyền theo kiểu không cân bằng ( áp lệch so với đất ) o RS- 485 truyền theo kiểu cân bằng ( điện áp sai lệch giữa hai dây) o RS- 232 : -3V  -12V : mức logic 1 +3V +12V :mức logic 0 o RS- 485 : VA –Vb... 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 tín hiệu sai... giao diện truyền thông theo những chuẩn khác thì giao diện RS- 485 đơn giản và giá thành thấp hơn nhiều Theo nhận đònh của em ( đối với truyền khối dữ liệu nhỏ ) thì chuẩn RS- 485 rất linh động Ta có thể chọn số lượng bộ điều khiển ( Master ), bộ nhận ( Slave ), chiều dài cáp, tốc độ truyền, số node cần giao tiếp, và rất tiết kiệm năng lượng 2 Một số đặt điểm của RS- 485: Giá thành thấp: Các bộ điều khiển... hành tiêu chuẩn RS2 32 áp dụng cho cổng nối tiếp Các chữ RS viết tắt từ Recommended Standard(Tiêu chuẩn đã giới thiệu) Có 2 phiên bản RS- 232 được lưu hành trong thời gian tương đối dài là RS- 232B va RS- 232C Cho đến nay chỉ còn RS- 232C còn tồn tại mà chúng ta quen gọi là RS- 232 Ngày nay, hầu hết các máy tính đều trang bò một hoặc hai cổng nối tiếp RS- 232, và tất cả đều có khả năng sử dụng RS- 232, ít... sang TTL: a) Song công ( Full-Duplex ): RS- 485 được thiết kế để dùng cho hệ thống nhiều node ( multi-drop) Hầu hết mạng RS- 485 là bán song công sử dụng nhiều bộ phát và bộ thu, cùng chia sẽ một đường truyền tín hiệu Nhưng chúng ta cũng có thể sử dụng RS- 485 ở dạng song công, ở đó mỗi hướng sẽ có đường truyền tín hiệu riêng của nó Việc chuyển đổi mạng RS- 232 sang RS- 485 song công dễ dàng thực hiện bằng... này ta có thể sử dụng SN75179B ở hai đầu bộ phát và bộ thu Mạng này gồm 1 bộ phát dùng chuyển đổi 5V TTL sang RS- 485 và một bộ thu dùng chuyển RS- 485 sang 5V TTL Đây là một giải pháp đơn giản khi ta muốn tạo một mạng song công, khoảng cách xa giữa các vi điều khiển Các chip giao tiếp RS- 485 nhỏ hơn, đơn giản và rẻ hơn trong việc chuyển đổi sang RS- 232 NODE 0 NODE 1 O O O NODE 2 O O O NODE 3 O O Hình... sự khác biệt quan trọng của RS- 485 là nó cung cấp đến 32 drivers Và 32 reicever trên cùng 1 đường truyền Điều này cho phép tạo ra một mạng cục bộ Để có khả năng như vậy thì ngõ ra của driver RS- 485 là ngõ ra trạng thái Nó có thể ở mức tổng trở cao để bus không bò chập khi có một driver truyền Card giao tiếp RS_ 485 với PC được chế tạo sẳn và sử dụng kết nối DB9 như chuẩn RS4 22A Trên car có 1 tín hiệu ... công Thiết kế bàn phím thu thập, hiển thò số liệu: 1) Sơ đồ khối bàn phím: data Phím bấm Bảng Led data Bộ sử lý trung tâm data PC Sơ đồ khối bàn phím i Khối phím bấm: • Phần cứng: Khối phím bấm bao... truyền, khoảng cách truyền cải thiện nhiều Chuẩn RS- 485 : Giao tiếp EIA RS_ 485 dựa chuẩn RS- 422A , cải tiến chuẩn Đặc tính điện giống RS_ 422A RS- 485 chuẩn truyền vi sai, sử dụng hai dây cân bằng,... hiển thò số bình thường Led đoạn Những số hiển thò số liệu thông số  Các phím thông số bình GAS sau bấm hiển thò LED ma trận dạng ký hiệu qui ước trước  Các phím đặc biệt bao gồm: - Phím end