p; Fsvr.disconnect（） ‘FaconServer执行PLC离线操作
End Sub
同时在离线后，更换”PictureBox1”的图片，来表示当前FaconServer与PLC是脱离的状态的。
5. 组群操作：AddGroup、EditGroup、DelectGroup。
1）.AddGroup：添加一个群组。
函数格式：变量.AddGroup（"联机装置[Channel].控制器[Station]", "新建组群名称[Group]",优先权[0-高或1-中或2-低], 至能[1] 或抑能[0]）
VB范例：通过“AddGp”按钮在通道0 控制起0 下增加Group10数组，优先级为0 ，至能状态。
Private Sub AddGp_Click（）
Fsvr.AddGroup（Channel0.Station0, Group10, 0, 1） ‘增加组群Group10命令
End Sub
2）.EditGroup：编辑群组的参数。
函数格式：与AddRoup的一致，只需要将对应以下参数作变更：优先级和至能/抑能状态。
VB范例：
Private Sub EditBt_Click（）
Fsvr.EditGroup（"Channel0.Station0", "Group0", 1, 0）‘修改Group0的优先级为中级和抑能状态命令
End Sub
3）.DelectGroup：删除一个群组。
函数格式：变量.AddGroup（"联机装置[Channel].控制器[Station]", "欲删除组群名称[Group]"）
VB范例：使用“DelGBnt”，通过Combobox1控件来确定要删除的群组，同时清除Combobox1中的群组名称。
Private Sub DelGBnt_Click（）
Dim DGpmane As String ‘定字符串
DGpmane = ComboBox1.SelectedItem ‘COMBOBOX选择欲删除的群组
Fsvr.DeleteGroup（"Channel0.Station0", DGpmane） ‘删除DGpmane选择的群组
ComboBox1.Items.Remove（DGpmane）’ 清除ComboBox1中的群组项目
End Sub
6. 项目操作：AddItem、DelectItem、GetItem、SetItem。
1）.AddItem：新增项目（新增要自动读取的变量）。
函数格式：变量.AddItem（"联机装置[Channel].控制器[Station].群组名[Group]", "欲增加的项目名称[R,D,X,Y,M]"）
VB范例：
Private Sub Button1_Click（）
Dim Aitem As String ‘声明字符串变量
Aitem = TextBox7.Text ‘使用Textbox7来实现添加项目的输入
Fsvr.AddItem（"Channel0.Station0.Group0", Aitem）‘添加项目命令
ComboBox2.Items.Add（Aitem） ‘将新增的项目添加到ComboBox2的列表中
End Sub
2）.DelectItem：删除项目。
函数格式：变量.DeleteItem（"联机装置[Channel].控制器[Station].群组名[Group]", "欲删除的项目名称[R,D,X,Y,M]"）
VB范例：
Private Sub DelItemBtn_Click（）
Dim DelItem As String
DelItem = ComboBox2.SelectedItem ‘Combobox2选择欲删除的项目
Label8.Text = "已删除" + DelItem ‘显示删除的项目
ComboBox2.Items.Remove（DelItem） ‘将删除的项目从Combobox2中移除
Fsvr.DeleteItem（"Channel0.Station0.Group0", DelItem） ‘添加项目命令
End Sub
3）.GetItem：读取变数值
函数格式：变量.DeleteItem（"联机装置[Channel].控制器[Station].群组名[Group]", "欲获取数据的项目名称[R,D,X,Y,M]"）
VB范例：由于数据时即时变化的，所以要使用到Timer控件来不断地获取新数据。下面为获取M1922和R0的数据例子。
Private Sub Timer1_Tick（）
Dim M1922Val As Integer
M1922Val = Fsvr.GetItem（"Channel0.Station0.Group0", "M1922"） ‘获取M1922的数值
If M1922Val > 0 Then ‘IF语句判断当前状态
PictureBox2.Image = FaconS.My.Resources.Light_1 ‘当M1922=1时，以图片Light_1.ico显示红色圆表示灯显亮
Else
PictureBox2.Image = FaconS.My.Resources.Light_0 ‘当M1922=0时，以图片Light_0.ico显示淡红色圆表示灯熄灭
End If
R0Val.Text = Fsvr.GetItem（"Channel0.Station0.Group0", "R0"） ‘获取R0的数值，用TextBox控件显示
End Sub
4）.SetItem：写入变数值
函数格式：变量.DeleteItem（"联机装置[Channel].控制器[Station].群组名[Group]", "欲修改数据的项目名称[R,D,X,Y,M]"，”要写入的数据[整数]”）
VB范例：通过“WrItemBtn” 将“DatTextBox”的数据写入到“RigTextBox”指定的寄存器中去，并用“Label13”来显示提示数据修改的情况。
Private Sub WrItemBtn_Click（）
Dim Rig As String
Dim Dat As Integer
Rig = RigTextBox.Text ‘RigTextBox指定要写入数据的寄存器地址
Dat = DatTextBox.Text
|
