p; Fsvr.disconnect（） ‘FaconServer執(zhí)行PLC離線操作
End Sub
同時(shí)在離線后，更換”PictureBox1”的圖片，來(lái)表示當(dāng)前FaconServer與PLC是脫離的狀態(tài)的。
5. 組群操作：AddGroup、EditGroup、DelectGroup。
1）.AddGroup：添加一個(gè)群組。
函數(shù)格式：變量.AddGroup（"聯(lián)機(jī)裝置[Channel].控制器[Station]", "新建組群名稱[Group]",優(yōu)先權(quán)[0-高或1-中或2-低], 至能[1] 或抑能[0]）
VB范例：通過(guò)“AddGp”按鈕在通道0 控制起0 下增加Group10數(shù)組，優(yōu)先級(jí)為0 ，至能狀態(tài)。
Private Sub AddGp_Click（）
Fsvr.AddGroup（Channel0.Station0, Group10, 0, 1） ‘增加組群Group10命令
End Sub
2）.EditGroup：編輯群組的參數(shù)。
函數(shù)格式：與AddRoup的一致，只需要將對(duì)應(yīng)以下參數(shù)作變更：優(yōu)先級(jí)和至能/抑能狀態(tài)。
VB范例：
Private Sub EditBt_Click（）
Fsvr.EditGroup（"Channel0.Station0", "Group0", 1, 0）‘修改Group0的優(yōu)先級(jí)為中級(jí)和抑能狀態(tài)命令
End Sub
3）.DelectGroup：刪除一個(gè)群組。
函數(shù)格式：變量.AddGroup（"聯(lián)機(jī)裝置[Channel].控制器[Station]", "欲刪除組群名稱[Group]"）
VB范例：使用“DelGBnt”，通過(guò)Combobox1控件來(lái)確定要?jiǎng)h除的群組，同時(shí)清除Combobox1中的群組名稱。
Private Sub DelGBnt_Click（）
Dim DGpmane As String ‘定字符串
DGpmane = ComboBox1.SelectedItem ‘COMBOBOX選擇欲刪除的群組
Fsvr.DeleteGroup（"Channel0.Station0", DGpmane） ‘刪除DGpmane選擇的群組
ComboBox1.Items.Remove（DGpmane）’ 清除ComboBox1中的群組項(xiàng)目
End Sub
6. 項(xiàng)目操作：AddItem、DelectItem、GetItem、SetItem。
1）.AddItem：新增項(xiàng)目（新增要自動(dòng)讀取的變量）。
函數(shù)格式：變量.AddItem（"聯(lián)機(jī)裝置[Channel].控制器[Station].群組名[Group]", "欲增加的項(xiàng)目名稱[R,D,X,Y,M]"）
VB范例：
Private Sub Button1_Click（）
Dim Aitem As String ‘聲明字符串變量
Aitem = TextBox7.Text ‘使用Textbox7來(lái)實(shí)現(xiàn)添加項(xiàng)目的輸入
Fsvr.AddItem（"Channel0.Station0.Group0", Aitem）‘添加項(xiàng)目命令
ComboBox2.Items.Add（Aitem） ‘將新增的項(xiàng)目添加到ComboBox2的列表中
End Sub
2）.DelectItem：刪除項(xiàng)目。
函數(shù)格式：變量.DeleteItem（"聯(lián)機(jī)裝置[Channel].控制器[Station].群組名[Group]", "欲刪除的項(xiàng)目名稱[R,D,X,Y,M]"）
VB范例：
Private Sub DelItemBtn_Click（）
Dim DelItem As String
DelItem = ComboBox2.SelectedItem ‘Combobox2選擇欲刪除的項(xiàng)目
Label8.Text = "已刪除" + DelItem ‘顯示刪除的項(xiàng)目
ComboBox2.Items.Remove（DelItem） ‘將刪除的項(xiàng)目從Combobox2中移除
Fsvr.DeleteItem（"Channel0.Station0.Group0", DelItem） ‘添加項(xiàng)目命令
End Sub
3）.GetItem：讀取變數(shù)值
函數(shù)格式：變量.DeleteItem（"聯(lián)機(jī)裝置[Channel].控制器[Station].群組名[Group]", "欲獲取數(shù)據(jù)的項(xiàng)目名稱[R,D,X,Y,M]"）
VB范例：由于數(shù)據(jù)時(shí)即時(shí)變化的，所以要使用到Timer控件來(lái)不斷地獲取新數(shù)據(jù)。下面為獲取M1922和R0的數(shù)據(jù)例子。
Private Sub Timer1_Tick（）
Dim M1922Val As Integer
M1922Val = Fsvr.GetItem（"Channel0.Station0.Group0", "M1922"） ‘獲取M1922的數(shù)值
If M1922Val > 0 Then ‘IF語(yǔ)句判斷當(dāng)前狀態(tài)
PictureBox2.Image = FaconS.My.Resources.Light_1 ‘當(dāng)M1922=1時(shí)，以圖片Light_1.ico顯示紅色圓表示燈顯亮
Else
PictureBox2.Image = FaconS.My.Resources.Light_0 ‘當(dāng)M1922=0時(shí)，以圖片Light_0.ico顯示淡紅色圓表示燈熄滅
End If
R0Val.Text = Fsvr.GetItem（"Channel0.Station0.Group0", "R0"） ‘獲取R0的數(shù)值，用TextBox控件顯示
End Sub
4）.SetItem：寫(xiě)入變數(shù)值
函數(shù)格式：變量.DeleteItem（"聯(lián)機(jī)裝置[Channel].控制器[Station].群組名[Group]", "欲修改數(shù)據(jù)的項(xiàng)目名稱[R,D,X,Y,M]"，”要寫(xiě)入的數(shù)據(jù)[整數(shù)]”）
VB范例：通過(guò)“WrItemBtn” 將“DatTextBox”的數(shù)據(jù)寫(xiě)入到“RigTextBox”指定的寄存器中去，并用“Label13”來(lái)顯示提示數(shù)據(jù)修改的情況。
Private Sub WrItemBtn_Click（）
Dim Rig As String
Dim Dat As Integer
Rig = RigTextBox.Text ‘RigTextBox指定要寫(xiě)入數(shù)據(jù)的寄存器地址
Dat = DatTextBox.Text
|
