VC中如何调用MCGS的实时数据库对象。 点击：1392 | 回复：5
发表于：2004-05-19 11:23:00
1楼
Dim objmcgs As Object
Private Sub cdmcreat_Click()
Dim msg As String
msg = Text3
objmcgs.createnewdata msg, 2, 0, "miao", 10, 0, 0
End Sub
Private Sub cmdread_Click()
Dim msg As String, tt As Variant
For i = 1 To 5
msg = "data" + Format$(i)
objmcgs.getvaluefromname msg, tt
Text1(i - 1) = Format$(tt)
Next
End Sub
Private Sub cmdwrite_Click()
Dim msg As String, tt As Variant
For i = 1 To 5
msg = "data" + Format$(i + 5)
tt = Val(Text2(i - 1))
objmcgs.setvaluefromname msg, tt
Next
End Sub
Private Sub Command1_Click()
objmcgs.setwindow "窗口1", 1
End Sub
Private Sub Form_Load()
On Error Resume Next
Set objmcgs = GetObject(, "mcgsrun.datacentre")
If Err Then
MsgBox ("请先启动mcgs运行环境")
End
End If
End Sub
热门招聘
相关主题
- 组态王怎样播放声音啊
[2830] - 如何将STEP7的DB块中的变量直...[3825]
- 基于OPC的新一代组态软件 ic...[2482]
- 求助：如何完全卸载s7-200[2565]
- 软件版擂台赛第26期 HMI报表...[2172]
- PLC常用的几种软继电器[2521]
- 组态王受干扰自动退出？[2621]
- 免费正版elecworks 2015电气...[5729]
- WIN7 64位安装AB授权[6397]
- TRACE MODE都有什么策略[2416]
官方公众号
智造工程师
-
客服
-
小程序
-
公众号
工控网智造工程师好文精选
