一段代码,仅供参考: MSComm_Mifare.InputMode = comInputModeBinary
MSComm_Mifare.Settings = "9600,n,8,1"
MSComm_Mifare.InBufferSize = 2048
MSComm_Mifare.OutBufferSize = 512
MSComm_Mifare.CommPort = 1
MSComm_Mifare.InputLen = 0
If MSComm_Mifare.PortOpen = True Then MSComm_Mifare.PortOpen = False
MSComm_Mifare.PortOpen = True Dim ArrClearOut(2) As Byte
Dim ArrClearIn() As Byte
On Error GoTo LabelWrong
ArrClearOut(0) = &H1
ArrClearOut(1) = &H2
ArrClearOut(2) = &H5
MSComm_Mifare.Output = ArrClearOut
Do Until MSComm_Mifare.OutBufferCount = 0
DoEvents
Loop
Exit Function
LabelWrong:
MsgBox Err.Description, vbInformation, "信息提示"
MSComm_Mifare.Settings = "9600,n,8,1"
MSComm_Mifare.InBufferSize = 2048
MSComm_Mifare.OutBufferSize = 512
MSComm_Mifare.CommPort = 1
MSComm_Mifare.InputLen = 0
If MSComm_Mifare.PortOpen = True Then MSComm_Mifare.PortOpen = False
MSComm_Mifare.PortOpen = True Dim ArrClearOut(2) As Byte
Dim ArrClearIn() As Byte
On Error GoTo LabelWrong
ArrClearOut(0) = &H1
ArrClearOut(1) = &H2
ArrClearOut(2) = &H5
MSComm_Mifare.Output = ArrClearOut
Do Until MSComm_Mifare.OutBufferCount = 0
DoEvents
Loop
Exit Function
LabelWrong:
MsgBox Err.Description, vbInformation, "信息提示"
解决方案 »
- 上传资料有误,如何删除?
- 问如何删除WebBrowser空间加载的document的一些 tag对象?
- 用VB调用批处理文件并获取其运行结果
- 如何窗体不取得焦点,同时置顶,使用了“SetWindowPos”,但
- Word中的VBA问题:在记录集里取出的列中文数据内容是乱码?
- rwpublic ,可以把你的程序源码发到我信箱吗?我想看一看mscomm的控件的用法。谢谢。[email protected]
- 如何把textbox中显示的路径保存到数据库?
- CreateRemoteThread可否直接调用远程函数?
- 请教一个内存拷贝的问题。。
- 长文件名问题?(command函数)我有3500分
- 我遇到的最不好解决的问题,大家帮我(不够分数再加,up有分)
- 请问要想用VB写游戏(3D 和 2D)要掌握哪些基本知识?
如C中的 _intp(); _outp()函数
有这样的动态连接库,我以前用过,是在一个英文网站下载的
有98版和nt版(nt版有保护模式,多了一个.sys文件),几十K而已吧
一时找不到了,是其他语言编写的DLL,可以用vb调用,我忘了下载地址了
在一个VB串口编程(清华出的那本)里面有个地方提到过,有下载网址
你是要做数据采集板卡的程序吗?
“I/O的DLL下载”,里面应该有,自己找吧,
http://music.sc.cninfo.net/download/list.jsp?sort=sof_sdk&page=1
32位端口I/O DLL For Win95 的
NT 的和这个不一样
如C中的 _intp(); _outp()函数那样直接对端口操作,vb里如何做?
不想通过其它的DLL,行吗?
想VB,PB这样的语言都作不到,但C++可以,里面有函数!
用其他语言作好的DLL(里面有函数可以调用),就像用API函数一样
具体地址我忘了,你自己找吧
2.端口读函数
unsigned char inportbyte(unsigned short port):读Byte(8bit)
unsigned short inportword(unsigned short port):读Word(16bit)
unsigned long inportdword(unsigned short port):读Double Word(32bit)
3.端口写函数
void outportbyte(unsigned short port,unsigned char data):读Byte(8bit)
void outportword(unsigned short port,unsigned short data):读Word(16bit)
void outportdword(unsigned short port,unsigned long data):读Double Word(32bit)
请大家帮忙阿!!
[email protected]
[email protected]
谢了!
只有调用其它言语写的DLL.
到其它网站下在DLL然后调用了就OK了