那位大侠能给我一份简单的源程序啊？（可以读写NV的就行） 点击：2210 | 回复：11
发表于：2002-10-23 20:43:00
6楼
打开网络及其子系统。
部分程序源代码如下：
设置多用户共享数据库方式
ObjectServerForm.LcaObjectServer1.SingleUserMode = False
打开对象服务器
ObjectServerForm.LcaObjectServer1.Open
增加网络接口名到接口列表框中
Set NetworkInterfaceCollection = ObjectServerForm.LcaObjectServer1.NetworkInterfaces
count = NetworkInterfaceCollection.count
For i = 1 To count
Set CurrentNetworkInterface = NetworkInterfaceCollection(i)
If CurrentNetworkInterface = "PCCLON1" Then
InterfaceName.AddItem CurrentNetworkInterface
End If
Next i
添加数据库名到到网络数据库列表框中
Set NetworkCollection = ObjectServerForm.LcaObjectServer1.Networks
count = NetworkCollection.count
For i = 1 To count
Set CurrentNetwork = NetworkCollection(i)
If CurrentNetwork = "zhuo" Then
DBName.AddItem CurrentNetwork
End If
Next I
打开系统
Set CurrentSystem = CurrentNetwork.Systems(1)
CurrentSystem.Open
打开网络
Set CurrentNetwork = NetworkCollection(NetName)
CurrentNetwork.Open
4、将数据库中的卡号自动发到黑名单节点功能的实现
根据黑名单节点卡号的定义的数据结构，通过循环语句须将数据库每一条记录中的卡号段加上一个记录的记录数一起发送给黑名单节点的输入网络变量。黑名单节点输出网络变量（注销无效卡号）会根据节点程序自动更新。
如数据库中的第3个记录的卡号为20 00 07 11时，输入网络变量实际应为2 20 00 07 11。
部分程序源代码如下：
Private Sub Command3_Click()
Dim nv As LcaNetworkVariable
Dim ind As Integer
Dim i As Integer
If Data1.Recordset.BOF And Data1.Recordset.EOF Then Exit Sub
Data1.Recordset.MoveLast
ind = Data1.Recordset.RecordCount
Set CurrentAppDevice = AppDevicesCollection("blacknode")
获得所有网络变量
Set CurrentInterface = CurrentAppDevice.Interface
Set NVsCollection = CurrentInterface.NetworkVariables
Data1.Recordset.MoveFirst
发送卡号给相应的网络变量
For i = 1 To ind Step 1
NVsCollection(1).Value = Str(i - 1) + " " + Data1.Recordset.Fields("卡号")
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then Exit Sub
Next i
End Sub
5、黑名单节点软件初始化功能的实现
将黑名单节点50个输出网络变量（注销无效卡号）强制设定为88 88 88 88 或任意其它不可能的卡号。
Set CurrentAppDevice = AppDevicesCollection("blacknode")
Set CurrentInterface = CurrentAppDevice.Interface
Set NVsCollection = CurrentInterface.NetworkVariables
Dim j As Integer
For j = 1 To 50
NVsCollection(1).Value = Str(j - 1) + " " + "88" + " " + "88" + " " + "88" + " " + "88"
Next j
6、从黑名单节点中读取黑名单卡号功能的实现
注销无效卡号的数据显示必须把50个网络变量中非黑名单卡号过滤掉，并相应计算出当前黑名单人数。
Dim nv As LcaNetworkVariable
Dim index As Integer
Dim i, j As Integer
Dim jl As Node
Screen.MousePointer = 11
TreeView1.Nodes.Clear
确定当前应用节点为黑名单节点
Set CurrentAppDevice = AppDevicesCollection("blacknode")
Set CurrentInterface = CurrentAppDevice.Interface
Set NVsCollection = CurrentInterface.NetworkVariables
index = NVsCollection.count
For i = 2 To index
Set nv = NVsCollection(i)
If (Mid(nv.Value, 1, 2) + Mid(nv.Value, 4, 2) + Mid(nv.Value, 7, 2) + Mid(nv.Value, 10,
2)) = "88888888" Then
j = j + 1
Else
Set jl = TreeView1.Nodes.Add(, , , "cardno", 1)
jl.Text = nv.Value
jl.Tag = nv
End If
Next i
Text1.Text = "黑名单人数：" + Str(50 - j) + "人"
Screen.MousePointer = 0
End Sub
发表于：2002-10-24 17:20:00
8楼
多谢衣卓版主的帮助啊！谢谢了
你上面的程序，前面的我以前也做过了，后面的好象和读NV没有关系吧？（还是我太菜没有看懂啊？什么黑名单啊？）
版主您也是用VB吧？我用Delphi，因为我是Delphi程序员，VB/C++只是懂得语法而矣！
＊＊＊严重问题＊＊＊
搞开发用Delphi2以上版本可不可以啊？
我现在用Delphi6开发，现发现有一条语句在VB中可以运行，但是在Delphi6中不能通过，请看：
CurrentAppDevice:=AppDevicesCollection.item(DeviceName);
NV:=CurrentAppDevice.Interface.NetworkVariables(NvName);
就是下面的那一句!!(Lca开发指南中是这样用的，VB下通过）
还请您帮助解答啊！再次感谢了！！
（自我认为是这样的，Delphi2以上版本中Interface是关键字，所以编译不能通过！是这样的吗？如果是，怎么解决啊？难道用Delphi2来开发？）
谢谢回答！
热门招聘
相关主题
- 使用WinCC实现远程网络IO控制...
[9007] - 急救啊！！:关于LIN总线的问题...[1743]
- 求助：现场总线或PLC如何解决...[2914]
- RS232 422 485接口引脚定义[2246]
- 新人请教：MODBUS和PROFIBUS，...[8742]
- 从 DCS 到 FCS（从分散控制系...[4286]
- 求助：现场总线和网络的结合方...[1746]
- 寻求高手解答!急!!!!!s7-300...[1492]
- 现场总线应用交流[4032]
- DeviceNet技术概要（一）[2716]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
