/ Dinh gia tri cho Timerl tao foc do baud
11.12ĐẶC TÍNH (PROPERTY):
Thành phần Comm được bổ sung vào biểu mẫu (form) bất cứ lúc nào cần
c truyền thông nối tiếp. co Si
đến vi
Ni E}1524LAK0) đứt
Hình bên đây chỉ ra các đặc tính của nó .Theo mặc định ,cổng thứ nhất tạo ra đối tượng có tên MSComml ,đối tượng ứng với cổng thứ hai
CommEort...1 ¡Tre được gọi là MSComm2 ,..Có thể nhìn thấy các
nh ¡Ð - comhlone ị đặc tính chính của đối tượng là : CommPort
pn : ,DTREnable ,EOFEnable ,HandShaking
'0 - cominputMod „InBufferSize ,Index ;ÍnputLen ,ÍÏnputmode k ñ ;Left ,Name ,NullDiscard ,OutBufferSize
;ParityReplace ,RThreshold,R TSEnable
„Settings ,SThreshold ,Tag ,Top .Ta thấy điều
khiển truyền thông có nhiều đặc tính ,nhưng để có thể làm việc với điểu khiển truyền thông trước hết ta cần hiểu kỹ các đặc tính chính
được liệt kê trong bảng sau .
Hình 11.1.2: Các đặc tính của điều khiển MSComm
Các đặc tính Sự mô tả
CommPort Đặt và trả lại số cổng truyển thông
Input(nhập vào) Trả lại và loại bỏ các ký tự khói bộ đệm nhận Output(xuất ra) Viết một xâu ký tự tới vào bộ đệm truyền
PortOpen Mở/Đóng một cổng (tuỳ thuộc vào thông số) và đặt thông số cho cổng .
Settings Đặt và trả lại các tham số truyền thông như :tốc độ truyền theo bit .chẵn lẻ .số các bit dữ Hiệu ....
Bảng 11.1.2_ Đặc tính truyền thông cổng com
Thí dụ sau đây chỉ ra cách truyền thông qua cổng nối tiếp có thể được tiến hành như thế nào bằng cách sử dụng một MODEM.
Private sub Form_loadQ
“biến để lưu giữ chuỗi nhập vào
Dim Instring as String “sử dụng COMI
MSComm1.ComPort = 1
“9600 baud,no parity ,8 bửữ data,Ì stop bít MSComm1.Settings = ”9600 ,N,8,1”
“ra lệnh cho điều khiển MSComưn đọc hết bộ đệm nhận khi dùng lệnh Input (adsbygoogle = window.adsbygoogle || []).push({});
MSComm1.InputLen = 0
'mở cổng
MSComm].PortOpen = True
“gửi lệnh atention tới MODEM
MSComm1.Output = “ATV1Q0” & Chr$(13) “để chắc rằng MODEM trả lời *OK”
'đợi dữ liệu trả lời gửi về cổng nối tiếp
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$ ,, “OK” &vbCRLF) “đọc dữ liệu trả lời *OK”
'đóng cổng nối tiếp
MSCommI1.PortOpen = False End Sub
gan
†_-F..——————-——————————--nnr-...>—————————————
PHẠM THỊ DƯNG & HUỲNH NHƯ LONG Trang 63