End Sub
Private Sub cmdYaoCe_Click()             遥测的按钮
frmYaoCe.Show
Me.Hide
End Sub
Private Sub cmdYaoKong_Click()           遥控的按钮
Dim i As Integer
i = MsgBox("", vbOKCancel, "确认操作开关")
If i = 1 Then
frmYaoKong.Show
Me.Hide
Else
frmMain.Show
End If
End Sub
Private Sub cmdYaoXin_Click()             遥信的按钮
 
frmYaoXin.Show
Me.Hide
End Sub
Private Sub Form_Load()
frmLogin.Show
Me.Hide
intPort = 1                               初始化串口
strSet = "9600,n,8,1"                     初始化串口通讯参数
If Not frmMain.ctrMSComm1.PortOpen Then    
      frmMain.ctrMSComm1.CommPort = intPort   串口号
      frmMain.ctrMSComm1.Settings = strSet    串口参数
      frmMain.ctrMSComm1.PortOpen = True      打开串口
End If
   frmMain.ctrMSComm1.PortOpen = False     初始化完毕，关闭串口
End Sub
    程序说明：主窗口是以七个按钮组成的界面，即简单又实用，用户在进入主窗口以后可以选择自己想要的功能。包括对于配电网中远动开关设备的合跳闸的状态控制（遥控），对于配电网中各个开关的状态读取（遥信），对于配电网中一些常用的电量参数的测量和简单计算（遥测），同时还可以直接从RTU中读取原始数据，一般为十优尔进制，当用户需要改变时，可以选择设置参数来改变，以及对于正在使用的监控软件系统的信息。当用户需要退出该窗口时，可以点击“退出系统”，为了防止因人为操作不当引起的误动作，本软件在用户点击退出系统时，软件会弹出一个窗口，供用户选择确认是否确实需要退出。 VB电量参数微机测控系统设计(12):http://www.youerw.com/zidonghua/lunwen_7589.html