Movicon软件

Movicon软件非常的强大，具体的说明参考百度百科。MOVICON_百度百科

Movicon软件是一款国外的软件，官网是Home - Emerson

先看官网的视频展示效果

下面整理了部分的示例代码

1.等待时间

Wait 1.5

2.弹框

'#Language "WWB.NET"
Sub Main Handles .Main
    Dim a=0
    MsgBox "123"
MsgBox a
End Sub

3.获取标签的列表

'#Language "WWB.NET"
Sub Main Handles .Main
Dim ea As ScriptManager.GetTagListEventArgs
ea = New ScriptManager.GetTagListEventArgs()
ScriptDocument.OnGetTagList ea
End Sub
Public Sub ScriptDocument_GetTagList(ByVal sender As Object, ByVal e As ScriptManager.GetTagListEventArgs) Handles ScriptDocument.GetTagList
Dim i As Integer
Dim l As System.Collections.Generic.List(Of String)
    l = e.list
    For i = 0 To l.Count-1
        Debug.Print l(i).ToString
    Next
End Sub

4. 循环

'#Language "WWB.NET"
Sub main Handles .main
    Dim count As Integer
    Do
        count=count+1
        DoEvents
Debug.Print(count)
    Loop
End Sub

5. 设置脚本中的变量值

'#Language "WWB.NET"
Sub Main Handles .Main
    Dim valore As Double
        Valore=34
    ScriptDocument.SetVariableValue("Variable1", Valore)
    MsgBox("Il valore della variabile Variable1 è: " & Valore.ToString())
End Sub

6.获取脚本中的变量值

ScriptDocument.GetVariableValue("waterVariable")

7.获取界面文本的值

'#Language "WWB.NET"
Public Sub ButtonControl_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles ButtonControl.Click
Dim cv As System.Windows.Controls.Canvas
Dim tb As System.Windows.FrameworkElement
Dim p As System.Windows.Controls.TextBox
cv = Document.GetCurrentXamlDocument
tb = Document.FindInnerControl( cv, "TextBox22")
p = TryCast(tb, System.Windows.Controls.TextBox)
MsgBox p.Text.ToString
Debug.Print p.Text
End Sub

8. 设置界面文本的值   

'#Language "WWB.NET"    
Public Sub ButtonControl_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles ButtonControl.Click
 
 Dim testo As System.Windows.Controls.TextBox    
 Dim Element As System.Windows.FrameworkElement
 Element=Document.MapScreenEntities("TextBox22").Element
 testo=TryCast(Element,System.Windows.Controls.TextBox)
 testo.Text="newo text"
End Sub

9. 设置按钮的值 Button

'#Language "WWB.NET"
Public Sub ButtonControl_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles ButtonControl.Click
 Dim testo As System.Windows.Controls.Button
 Dim Element As System.Windows.FrameworkElement
 Element=Document.MapScreenEntities("ButtonControl").Element
 testo=TryCast(Element,System.Windows.Controls.Button )
 testo.Content    ="11"
End Sub

10. 设置ContentControl7的值

 Dim testo1 As System.Windows.Controls.ContentControl
 Dim Element1 As System.Windows.FrameworkElement
 Element1=Document.MapScreenEntities("ContentControl7").Element
 testo1=TryCast(Element1,System.Windows.Controls.ContentControl )
testo1.ContentStringFormat="sds"
 testo1.Content      ="123代收点"

11. 设置按钮禁用，启用

Public Sub CheckBoxControl_Click(ByVal sender As Object, ByVal e As System.Windows.RoutedEventArgs) Handles CheckBoxControl.Click
     Dim testo1 As System.Windows.Controls.ContentControl
 Dim Element1 As System.Windows.FrameworkElement
 Element1=Document.MapScreenEntities("ContentControl2").Element
 testo1=TryCast(Element1,System.Windows.Controls.ContentControl )
 If testo1.IsEnabled Then
   testo1.IsEnabled=False
   Else
     testo1.IsEnabled=True
 End If
End Sub

12. 脚本中，直接使用变量进行判断和赋值

'#Language "WWB.NET"
Sub Main Handles .Main
If Hotel_Room_Number = 1 Then
Common_Tags_Lights_Light1 = Common_Tags_Visibility

13. 3D

需要导入.3ds,再转成xaml

是否启用：鼠标移动的动作
内部画面
重置位置：启动3D摄像头位置，再使用按钮绑定

14.MoviconNextBuilder.dll位置

C:\Program Files\Progea\Movicon.NExT 4.1

15.命令操作

1.cmd命令启动
MoviconNExT.exe D:\movicon\demo\demo.UFProject -start
2.快捷图标启动
"C:\Program Files\Progea\Movicon.NExT 4.1\MoviconNextRT.exe" D:\movicon\demo\demo.UFProject
3.bat启动
@echo off
C:
cd C:\Program Files\Progea\Movicon.NExT 4.1
MoviconNextRT.exe D:\movicon\demo\demo.UFProject
4.bat启动，不弹框
1.bat内容：
@echo off
C:
cd C:\Program Files\Progea\Movicon.NExT 4.1
MoviconNextRT.exe D:\movicon\demo\demo.UFProject
1.vbs内容：
Set ws = CreateObject("Wscript.Shell")
ws.run "cmd /c D:\demo\2\1.bat",vbhide
双击1.vbs

简单的看一下效果，其中省略了一部分

1.创建项目

2.选择模板 

3. 写入脚本的操作

4.效果展示 

5.视频展示

来源：Movicon软件_movicon导入xaml文件-CSDN博客