Mạch chuyển đổi RS232<=>RS485 tự động chuyển mạch

**nhuythuy** · 21-05-2011, 09:33 PM

Mình quên về cách code chân RTS. Đây là đoạn code trên Delphi bạn có thể thực hiện tương tự trên VB hay VC

mcComm.FlushInBuffer();
mcComm.RTS := False;
mcComm.RS485Mode := False;
mcComm.PutString(sRequest);
mcComm.RS485Mode := True;
mcComm.RTS := True;

Mình vừa mò lại bằng VB, có vẻ code như thế này

mcComm.RTSEnable = True
mcComm.Output = sRequest
mcComm.RTSEnable = False

Ðiều Chỉnh
Tạo trang in Email trang này
Xếp Bài
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

21-05-2011, 09:33 PM	#1
nhuythuy Đệ tử 1 túi Tham gia ngày: Aug 2008 Bài gửi: 12 :	Mình quên về cách code chân RTS. Đây là đoạn code trên Delphi bạn có thể thực hiện tương tự trên VB hay VC mcComm.FlushInBuffer(); mcComm.RTS := False; mcComm.RS485Mode := False; mcComm.PutString(sRequest); mcComm.RS485Mode := True; mcComm.RTS := True; Mình vừa mò lại bằng VB, có vẻ code như thế này mcComm.RTSEnable = True mcComm.Output = sRequest mcComm.RTSEnable = False