没有合适的资源?快使用搜索试试~ 我知道了~
eDNA-实时数据库-API函数VB-VC部分.doc
1.该资源内容由用户上传,如若侵权请联系客服进行举报
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
2.虚拟产品一经售出概不退款(资源遇到问题,请及时私信上传者)
版权申诉
0 下载量 69 浏览量
2021-10-03
09:12:53
上传
评论
收藏 947KB DOC 举报
温馨提示
试读
64页
eDNA-实时数据库-API函数VB-VC部分.doc
资源推荐
资源详情
资源评论
- -
作者 陈鑫 2006年9月1日
修改记录:
序号 修改人员 修改时间
1
陈鑫 2007年4月16日
2
陈鑫、徐立博 2007年9月29日
3
4
5
6
目 录
DISTRIBUTED NETWORK ARCHITECTURE...........................................................................1
1 VB 环境 EDNA API 使用的准备工作............................................................................................1
1.1
设置
host
文件
........................................................................................................................................................1
HOST 文件设置方法..........................................................................................................................1
1.2
安装
eDNA SDK.....................................................................................................................................................3
1.3
在
VB
环境中引用函数
..........................................................................................................................................5
2EDNA API 函数说明.........................................................................................................................8
2.1 读取实时函数..............................................................................................................................................8
DNAGetRTAll...............................................................................................................................................................8
函数名称:
DNAGetRTAll...........................................................................................................................................8
DIM POINT AS STRING..................................................................................................................9
DIM VALUE AS DOUBLE................................................................................................................9
DIM TIME AS STRING * 20, STATUS AS STRING * 20.............................................................9
DIM DESC AS STRING * 30, UNITS AS STRING * 10................................................................9
POINT = "EDNAVB.PUSHSERV.TEST1001"................................................................................9
IF RET = 0 THEN...............................................................................................................................9
ELSE....................................................................................................................................................9
MSGBOX "FAILURE", VBOKONLY............................................................................................9
END IF.................................................................................................................................................9
- word.zl-
- -
DNAGetRTAllUTC.....................................................................................................................................................10
函数名称:
DNAGetRTAllUTC.................................................................................................................................10
DECLARE FUNCTION DNAGETRTALLUTC..........................................................................10
DIM POINT AS STRING................................................................................................................11
DIM VALUE AS DOUBLE..............................................................................................................11
DIM TIME AS STRING * 20, STATUS AS STRING * 20...........................................................11
DIM DESC AS STRING * 30, UNITS AS STRING * 10..............................................................11
DIM STRTIME AS STRING * 20...................................................................................................11
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................11
IF RET = 0 THEN.............................................................................................................................11
UCTTOSTRINGTIME TIME, STRTIME, LEN(STRTIME).....................................................11
ELSE..................................................................................................................................................11
MSGBOX "FAILURE", VBOKONLY...........................................................................................11
END IF...............................................................................................................................................11
DNAGetRTValue.........................................................................................................................................................12
函数名称:
DNAGetRTValue.....................................................................................................................................12
DECLARE FUNCTION DNAGETRTVALUE.............................................................................12
DIM VALUE AS DOUBLE..............................................................................................................12
IF RET = 0 THEN.............................................................................................................................12
MSGBOX "点" & POINT & "实时值:" & VALUE..................................................................12
ELSE..................................................................................................................................................12
DNAGetRTValueAsString...........................................................................................................................................13
函数名称:
DNAGetRTValueAsString.......................................................................................................................13
DECLARE FUNCTION DNAGETRTVALUEASSTRING.........................................................13
DIM VALUE AS STRING * 20.......................................................................................................13
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................13
IF RET = 0 THEN.............................................................................................................................13
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................14
DNAGetRTTime..........................................................................................................................................................14
函数名称:
DNAGetRTTime......................................................................................................................................14
DECLARE FUNCTION DNAGETRTTIME................................................................................14
BYVAL LENTIME AS INTEGER..................................................................................................14
DIM TIME AS STRING * 20..........................................................................................................14
- word.zl-
- -
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................14
IF RET = 0 THEN.............................................................................................................................14
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................15
DNAGetRTTimeUTC..................................................................................................................................................15
函数名称:
DNAGetRTTimeUTC..............................................................................................................................15
DECLARE FUNCTION DNAGETRTTIMEUTC........................................................................15
DIM TIME AS STRING * 20..........................................................................................................15
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................15
UCTTOSTRINGTIME TIME, STRTIME, LEN(STRTIME).....................................................15
IF RET = 0 THEN.............................................................................................................................15
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................16
DNAGetRTStatus........................................................................................................................................................16
函数名称:
DNAGetRTStatus....................................................................................................................................16
DECLARE FUNCTION DNAGETRTSTATUS............................................................................16
DIM STATUS AS STRING * 10......................................................................................................16
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................16
IF RET = 0 THEN.............................................................................................................................17
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................17
DNAGetRTDesc.........................................................................................................................................................17
函数名称:
DNAGetRTDesc.....................................................................................................................................17
DECLARE FUNCTION DNAGETRTDESC................................................................................17
DIM DESC AS STRING * 20..........................................................................................................17
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................17
IF RET = 0 THEN.............................................................................................................................18
MSGBOX "点" & POINT & "描述:" & TRIM(DESC)............................................................18
ELSE..................................................................................................................................................18
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................18
DNAGetRTUnits.........................................................................................................................................................18
函数名称:
DNAGetRTUnits.....................................................................................................................................18
DECLARE FUNCTION DNAGETRTUNITS...............................................................................18
DIM UNITS AS STRING * 10........................................................................................................18
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................18
IF RET = 0 THEN.............................................................................................................................19
- word.zl-
- -
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................19
DNAGetRTShort.........................................................................................................................................................19
函数名称:
DNAGetRTShort.....................................................................................................................................19
DIM POINT AS STRING................................................................................................................19
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................20
IF RET = 0 THEN.............................................................................................................................20
ELSE..................................................................................................................................................20
MSGBOX "FAILURE", VBOKONLY + VBINFORMATION, "ERROR".............................20
END IF...............................................................................................................................................20
2.2 实时写数函数〔秒〕................................................................................................................................20
DnaAddAnalogShortIdRecord....................................................................................................................................20
函数名称:
DnaAddAnalogShortIdRecord................................................................................................................20
DIM SERVICENAME AS STRING..............................................................................................21
IF IRET = 0 THEN..........................................................................................................................21
DnaAddDigitalShortIdRecord....................................................................................................................................22
函数名称:
DnaAddDigitalShortIdRecord................................................................................................................22
DECLARE FUNCTION DNAADDDIGITALSHORTIDRECORD...........................................22
BYVAL UNRELIABLE AS INTEGER, BYVAL MANUAL AS INTEGER...............................22
IF IRET = 0 THEN..........................................................................................................................23
DnaAddAnalogShortIdRecordNoStatus.....................................................................................................................23
函数名称:
DnaAddAnalogShortIdRecordNoStatus.................................................................................................23
DECLARE FUNCTION DNAADDANALOGSHORTIDRECORDNOSTATUS......................23
DNAFLUSHSHORTIDRECORDS................................................................................................24
IF IRET = 0 THEN..........................................................................................................................24
DnaFlushShortIdRecords...........................................................................................................................................24
函数名称:
DnaFlushShortIdRecords.......................................................................................................................24
DECLARE FUNCTION DNAFLUSHSHORTIDRECORDS.....................................................24
DIM SERVICENAME AS STRING...............................................................................................25
IF IRET = 0 THEN..........................................................................................................................25
2.3 读取历史函数〔秒〕................................................................................................................................25
DnaGetHistAvg...........................................................................................................................................................25
函数名称:
DnaGetHistAvg.......................................................................................................................................25
DIM VALUE AS DOUBLE, STIME AS STRING * 20, STATUS AS STRING * 20.................26
POINT = "EDNAVB.PUSHSERV.TEST1001"..............................................................................26
- word.zl-
剩余63页未读,继续阅读
资源评论
gjmm89
- 粉丝: 13
- 资源: 19万+
下载权益
C知道特权
VIP文章
课程特权
开通VIP
上传资源 快速赚钱
- 我的内容管理 展开
- 我的资源 快来上传第一个资源
- 我的收益 登录查看自己的收益
- 我的积分 登录查看自己的积分
- 我的C币 登录后查看C币余额
- 我的收藏
- 我的下载
- 下载帮助
安全验证
文档复制为VIP权益,开通VIP直接复制
信息提交成功