MCGS的驱动开发问题 点击：5987 | 回复：16
发表于：2001-11-09 22:26:00
4楼
关于以上问题的解决方法：
1.当通过向导生成一个设备驱动后，在不再增加程序的前提下运行
当提示对象没有定义后，弹出窗口后，拉动滚动条到最底下，把标准串口父设备加上去，同样的，MCGS的驱动是基于ACTIVEX的，所以在VB下编程，需要把它的引用都加上去，安装完高级开发后，在VB下编程时，你可以在工具-》引用中发现许多MCGS的东西，选择你要的打上钩就可以了，没有干不下去的，多试几次即可，另外我不是MCGS的人，我也是一个用户，只是很早就和他们认识，比较熟，所以在此说几句话,如果有问题我们可以一起讨论。希望你能够做出来。
我的M——MAIL：liusshenwen@263.net
liushenwen2001@yahoo.com.cn
发表于：2002-02-06 16:05:00
6楼
对于上面的客户的问题，我们没有及时回复，是我们的错！
一直以来我们对电话咨询和上门技术咨询的问题回答比较好，但在网上的技术论坛中几乎没有及时回答。以后这样的事情不再会发生。
关于父设备的使用，下面简单介绍一下
父设备提供如下接口
1：Function ComAllInDat(InByte) As Long
该接口是把串口缓冲区中的数据全部读回来，不停留
2：Function ComMarkWrite(OutputByte, OutPutNum As Long) As Long
该接口用来写指定个数的字节到串口，校验方式是Mark，即第九位是1
3：Function ComOutDat(OutNum As Long, OutByte) As Long
该接口用来写指定个数的字节到串口，
4：Function ComOutInDat(OutByte, OutNum As Long, InputFlag As Long, InputNum As Long, InputChar As Long, DelayTime As Long) As Long
该接口用来写指定个数的字节到串口，并等待需要的信息
其中InputFlag是一个标志
=0时 表示要等待接收设备返回的数据，直到等到了一个字符为InputChar 为止，该方式一般用在ASCII码通讯的情况下，一般发送都有个结束标志，如用回车（13），换行（10）
当超过DelayTime指定的时间后也返回（单位是毫秒）
=1时 表示要等待接收设备返回的数据，直到等到了指定的字节个数的数据为止，一般用在知道发送什么命令设备会返回指定个字节的数据的情况
当超过DelayTime指定的时间后也返回（单位是毫秒）
=2时 表示要一直等待接收设备返回的数据，直到超过DelayTime指定的时间为止
4：Function ComOutInDatModem(OutByte, OutNum As Long, InputFlag As Long, InputNum As Long, InputChar As Long, DelayTime As Long, strPhone As String) As Long
该接口和ComOutInDat功能相同，只是通讯方式使用Modem，您只要指定电话号码就可以了，系统会自动拨号
6：Function ComSetBaudRate(lngBaudRate As Long) As Long
在通讯过程中修改通讯波特率
7：Function ComSetParity(lngParity As Long) As Long
在通讯过程中修改校验方式
8：Function ComSetRTS(lngRTS As Long) As Long
切换RTS，这个接口一般在半双工通讯时使用，如无线电台，当需要发送数据时，您必须置位RTS，当要开始接收数据时，必须复位RTS
参数lngRTS=0复位，=1置位
Function EditProperties() As Long
该接口在进行VB调试时使用，用来打开父设备属性编辑页
Function funcGetCD() As Long
判断CD灯是否点亮，一般用在MODEM通讯时，判断电话是否接通，若接通则返回1，否则返回0
Function funcGetSendTime() As Single
计算在当前的通讯参数下（波特率，数据位，停止位，校验方式），发送一个字节需要多少毫秒
Function GetComHandle() As Long
该接口用来得到当前串口的句柄
下面的接口可以用来获得Mcgs组态环境对象
Private Function GetMcgsSetObject(DatSetObj As Object,objMcgsSave as object,objCommParent as object) as long
On Error Resume Next
Dim lngIndex As Long
Err.Clear
Set DatSetObj = GetObject(, "McgsSet.DataCentre")
If Err.Number <> 0 Then
MsgBox "创建MCGS对象失败!请先启动MCGS组态环境.", 48, "注 意"
End
End If
Set DatSetObj= GetObject(, "McgsRun.DataCentre")
Set objMcgsSave = DatSetObj.SvrPackage
Set objCommParent = DatSetObj.GetDevComm()
得到了objCommParent对象后，您就可以使用上面介绍的接口函数了
若有需要咨询的请您电话连续
010-88097236，88097237，88099160
热门招聘
相关主题
- 关于S7-200编程软件
[2277] - MCGS组态软件通用版6.2版注册...[4323]
- 组态王软件中的一个系统变量...[4641]
- 自动化软件擂台第三期 自控软...[2224]
- 博图怎么使用电脑代替触触摸...[4044]
- 对维修人很有用的软件[3221]
- 关于codesys安装时遇到的问题...[2048]
- PID——比例积分微分作用的特征...[3888]
- 请对TraceMode与国内《工控王...[3170]
- wincc输入输出域如何输入负数...[3053]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
