Tweet
Port.dll là thư viện liên kết động hỗ trợ các hàm vào/ra cổng nối tiếp và song song. (chạy trên Win98 và Win ME). Copy file này vào thư mục system của windows.
Trong Visual Basic để sử dụng các hàm trong port.dll ta phải khai báo 1 module ,ví dụ module1.bas và viết trong đó các khai báo như sau:
Declare Function OPENCOM Lib "port.dll "(Byval A$) as Integer
Declare Sub CLOSECOM Lib "port.dll" ()
Declare Sub SENDBYTE Lib "port.dll "(Byval b%)
Declare Function READBYTE Lib "port.dll "() as Integer
Declare Sub DELAY Lib "port.dll" (byval b%)
Declare Sub DELAYUS Lib "port.dll" (byval l as long)
Declare Sub OUTPORT Lib "port.dll "(Byval a%,Byval b%)
Declare Function INPORT Lib "port.dll "(Byval p%) as Integer
.......
Đọc thêm trong sách " Lập trình ghép nối máy tính trong Windows của Ngô Diên Tập
Trong chương trình chính việc sử dụng các hàm rất đơn giản :
VD: OPENCOM ("COM2,9600,N,8,1")--> Thiết lập cấu hình cổng COM
SENDBYTE(100)---> Gửi 1 byte ra cổng COM
DIM response
response=READBYTE---> Đọc 1 byte từ cổng COM
OUTPORT &H378,12---->Gửi dữ liệu ra cổng máy in.
Trong Visual Basic để sử dụng các hàm trong port.dll ta phải khai báo 1 module ,ví dụ module1.bas và viết trong đó các khai báo như sau:
Declare Function OPENCOM Lib "port.dll "(Byval A$) as Integer
Declare Sub CLOSECOM Lib "port.dll" ()
Declare Sub SENDBYTE Lib "port.dll "(Byval b%)
Declare Function READBYTE Lib "port.dll "() as Integer
Declare Sub DELAY Lib "port.dll" (byval b%)
Declare Sub DELAYUS Lib "port.dll" (byval l as long)
Declare Sub OUTPORT Lib "port.dll "(Byval a%,Byval b%)
Declare Function INPORT Lib "port.dll "(Byval p%) as Integer
.......
Đọc thêm trong sách " Lập trình ghép nối máy tính trong Windows của Ngô Diên Tập
Trong chương trình chính việc sử dụng các hàm rất đơn giản :
VD: OPENCOM ("COM2,9600,N,8,1")--> Thiết lập cấu hình cổng COM
SENDBYTE(100)---> Gửi 1 byte ra cổng COM
DIM response
response=READBYTE---> Đọc 1 byte từ cổng COM
OUTPORT &H378,12---->Gửi dữ liệu ra cổng máy in.
Comment