https://pan.baidu.com/s/1-SMLa3UwbxArwY3QRNtswg
提取码：hdze 下载微云文件分享:ⅤB串囗下载地址: https://share.weiyun.com/5ok9T9o
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form mn_form
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
ClientHeight = 9795
ClientLeft = 45
ClientTop = 615
ClientWidth = 12735
FillColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 9795
ScaleWidth = 12735
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 480
Left = 0
TabIndex = 2
Top = 0
Width = 12735
_ExtentX = 22463
_ExtentY = 847
ButtonWidth = 714
ButtonHeight = 688
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 8
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "校时"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "轮询"
Object.Tag = ""
ImageIndex = 2
Style = 1
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "定值"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "设定"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "分闸"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "合闸"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "内存"
Object.Tag = ""
ImageIndex = 7
Style = 1
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
EndProperty
OLEDropMode = 1
Begin VB.Frame Frame1
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 9480
TabIndex = 3
Top = 0
Width = 5895
Begin VB.TextBox RAM_addr1th
Alignment = 2 'Center
Appearance = 0 'Flat
ForeColor = &H00800000&
Height = 375
Left = 2400
TabIndex = 9
Text = "0"
Top = 0
Width = 735
End
Begin VB.VScrollBar RAM_VScroll1
Height = 375
Left = 3120
Max = 1216
SmallChange = 32
TabIndex = 8
Top = 0
Width = 255
End
Begin VB.VScrollBar SN_VScroll
Height = 375
Left = 4440
Max = 199
TabIndex = 7
Top = 0
Value = 1
Width = 255
End
Begin VB.TextBox SN_Text
Alignment = 2 'Center
Appearance = 0 'Flat
ForeColor = &H00800000&
Height = 360
Left = 3960
TabIndex = 6
Text = "01"
Top = 0
Width = 495
End
Begin VB.ComboBox Combo1
Appearance = 0 'Flat
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 360
ItemData = "Star_M6.frx":0000
Left = 4920
List = "Star_M6.frx":000A
TabIndex = 4
Text = "COM1"
Top = 0
Width = 975
End
End
End
Begin VB.PictureBox disp_pic
BackColor = &H00161602&
ForeColor = &H0000FFFF&
Height = 5895
Left = 120
ScaleHeight = 5835
ScaleWidth = 10035
TabIndex = 10
Top = 3600
Width = 10095
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 5
Top = 9540
Width = 12735
_ExtentX = 22463
_ExtentY = 450
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1411
MinWidth = 1411
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1411
MinWidth = 1411
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Timer T_05s00
Interval = 500
Left = 600
Top = 480
End
Begin MSCommLib.MSComm MSComm1
Left = 1080
Top = 480
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
DTREnable = 0 'False
InputLen = 1
RThreshold = 1
ParitySetting = 2
InputMode = 1
End
Begin VB.Label disp_area
BackColor = &H00161602&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 3015
Left = 120
TabIndex = 11
Top = 480
Width = 10095
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 7
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":001A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0334
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":064E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0968
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0C82
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0F9C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":12B6
Key = ""
EndProperty
EndProperty
End
Begin VB.Label rx_data
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1935
Left = 10320
TabIndex = 1
Top = 1560
Width = 5295
End
Begin VB.Label tx_data
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1068
Left = 10320
TabIndex = 0
Top = 480
Width = 5292
End
Begin VB.Menu mu_sys
Caption = "系统[&S] "
Begin VB.Menu sys_set
Caption = "设定"
End
Begin VB.Menu mu_quit
Caption = "退出"
End
End
Begin VB.Menu compt
Caption = "元件[&C] "
End
Begin VB.Menu AC_ch
Caption = "通道[&F] "
End
Begin VB.Menu op
Caption = "操作[&O] "
End
Begin VB.Menu help
Caption = "帮助[&H]"
End
End
Attribute VB_Name = "mn_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim V_1, V_1_real, V_1_Image, V_2, V_2_real, V_2_Image, V_1_m6, v_ric, tp00, tp01 As Single
Public num_rxright, num_sent, rx_CRC, T_pos
Sub Send(ByVal Cmd As Integer)
Dim k(0) As Byte
tx_data.Caption = ""
If Cmd = 4 Then T_pos = &H178: Cmd = 3 Else T_pos = RAM_VScroll1.Value
tx_b(3) = Array(SN_VScroll.Value, 3, T_pos \ 256, T_pos Mod 256, &H0, &H40, 0, 0, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0)
tx_b(Cmd)(0) = SN_VScroll.Value: tx_b(Cmd)(1) = Cmd
If Cmd = 16 Then Lenth = tx_b(Cmd)(5) * 2 + 7 Else Lenth = 6
Sum = &HFFFF
For i = 0 To Lenth - 1
If tx_b(Cmd)(i) < 0 Then tx_b(Cmd)(i) = 256 + tx_b(Cmd)(i)
k(0) = tx_b(Cmd)(i)
Sum = Sum Xor (k(0) And &HFF)
If Sum < 0 Then Sum = 65536 + Sum
For j = 0 To 7
If (Sum And 1) = 1 Then
Sum = Int(Sum \ 2): Sum = Sum Xor &HA001
If Sum < 0 Then Sum = 65536 + Sum
Else
Sum = Int(Sum \ 2)
End If
Next
MSComm1.Output = k: tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
Next
If Sum < 0 Then Sum = 65536 + Sum
k(0) = (Sum Mod 256): tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
MSComm1.Output = k
k(0) = (Sum \ 256): tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
MSComm1.Output = k
rx_data = "": rx_CRC = &HFFFF
End Sub
Private Sub Combo1_Click()
p = Combo1.ListIndex + 1
If p > 0 And p < 3 Then Call Close_OpenPort(Int(p))
End Sub
Private Sub AC_ch_Click()
Factor_Seting.Visible = True
tx_REQ = 3
End Sub
Private Sub compt_Click()
Comptform.Visible = True
End Sub
Private Sub Form_Load()
Call Close_OpenPort(1)
Call MakeToolbarFlat(Toolbar1)
sys_set.Visible = True
For i = 0 To 8
tx_b(i) = Array(&H68, &H3, &H3, &H68, &H20, &H93, &H83, &H85, &H0, &H30 + Second(Time) Mod 10, &H0, &H30 + Second(Time) Mod 10, &H0, &H41 + Second(Time) Mod 10, &H0, &H61 + Second(Time) Mod 10, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1, 0, 0, 0, 0, 1, 7, 6, 5, 4, 3, 2, 1, 7, 6, 5, 4, 3, 2, 1)
Next
tx_REQ = 3: num_rxright = 0: num_sent = 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
Unload controlform
Unload Comptform
Unload Factor_Seting
Unload Me
End Sub
Private Sub MSComm1_OnComm()
Dim temp As Variant
MSComm1.InputLen = 1
While MSComm1.InBufferCount <> 0
temp = MSComm1.Input
If rx_ptr < 150 Then
If rx_ptr = 3 Then rx_data.Caption = rx_data.Caption + vbCr
rx_b(rx_ptr) = temp(0): rx_data.Caption = rx_data.Caption + hexbyt(Int(temp(0))) + " "
rx_ptr = rx_ptr + 1
rx_CRC = rx_CRC Xor (temp(0) And &HFF)
If rx_CRC < 0 Then rx_CRC = 65536 + rx_CRC
For j = 0 To 7
If (rx_CRC And 1) = 1 Then
rx_CRC = Int(rx_CRC \ 2)
rx_CRC = rx_CRC Xor &HA001
If rx_CRC < 0 Then rx_CRC = 65536 + rx_CRC
Else
rx_CRC = Int(rx_CRC \ 2)
End If
Next
End If
Wend
End Sub
Private Sub op_Click()
controlform.Visible = True
End Sub
Private Sub RAM_VScroll1_Change()
RAM_addr1th.Text = strhex(RAM_VScroll1.Value)
End Sub
Private Sub SN_VScroll_Change()
SN_Text.Text = Str(SN_VScroll.Value) '站号调整与显示
End Sub
Private Sub sys_set_Click()
s_set.Visible = True
End Sub
Private Sub T_05s00_Timer()
mn_form.Caption = " X200测试 " + Format(Date, " yyyy-mm-dd ") + Format(Time, "hh:mm:ss ") '标题刷新
If rx_CRC = 0 Then
Call Process
num_rxright = (num_rxright + 1) Mod 10000 '显示接收正确次数
StatusBar1.Panels(2) = Str(num_rxright)
End If
Call Send(tx_REQ) '发送默认命令
If tx_REQ <> 3 Then tx_REQ = 3
num_sent = (num_sent + 1) Mod 10000
StatusBar1.Panels(1) = Str(num_sent) '显示召唤次数
rx_ptr = 0
End Sub
Sub Close_OpenPort(port As Byte)
On Error Resume Next ' 改变错误处理的方式。
Err.Clear
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
MSComm1.CommPort = port
MSComm1.Settings = "9600,n,8,1"
MSComm1.InputLen = 0
MSComm1.PortOpen = True
If Err.Number <> 0 Then
msg = "Error # " & Str(Err.Number) & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
End If
End Sub
Public Sub Process()
If (T_pos < 410) Then
disp_area.Caption = ""
For i = 0 To 63
D_int(i) = b_i(rx_b(4 + i * 2), rx_b(3 + i * 2))
If D_int(i) >= 0 Then
disp_area.Caption = disp_area.Caption + Format(D_int(i), " 00000 ")
Else
disp_area.Caption = disp_area.Caption + "-" + Format(-D_int(i), "00000 ")
End If
If (i Mod 8) = 7 Then disp_area.Caption = disp_area.Caption + vbCr + " "
Next
sindraw (0)
End If
If T_pos = &H80 Then
'For i = 0 To 7
'Factor_Seting.AC_data(i).Caption = Format(b_i(rx_b(4 + i * 2), rx_b(3 + i * 2)) / 100, "0.00")
Factor_Seting.AC_data(1).Caption = Format(b_i(rx_b(8), rx_b(7)) / 100, "0.00")
Factor_Seting.AC_data(0).Caption = Format(b_i(rx_b(16), rx_b(15)) / 100, "0.00")
Factor_Seting.AC_data(3).Caption = Format(b_i(rx_b(24), rx_b(23)) / 100, "0.00")
Factor_Seting.AC_data(2).Caption = Format(b_i(rx_b(32), rx_b(31)) / 1000 * 38, "0.00")
Factor_Seting.AC_data(5).Caption = Format(b_i(rx_b(40), rx_b(39)) / 1000 * 38, "0.00")
Factor_Seting.AC_data(4).Caption = Format(b_i(rx_b(102), rx_b(101)) / 1000, "0.00")
Factor_Seting.AC_data(7).Caption = Format(b_i(rx_b(104), rx_b(103)) / 1000, "0.00")
'Factor_Seting.AC_data(7).Caption = Format(b_i(rx_b(6 + i * 2), rx_b(5 + i * 2)) / 100, "0.00")
'Next
End If
If T_pos = &H178 Then
For i = 0 To 7
If rx_b(3 + i) < 128 Then Factor_Seting.VScroll1(i).Value = -rx_b(3 + i) Else Factor_Seting.VScroll1(i).Value = 256 - rx_b(3 + i)
Next
End If
End Sub
Public Sub sindraw(ByVal ch As Integer)
disp_pic.Cls
xsc = (disp_pic.Width - 200) / 32: ysc = (disp_pic.Height - 200) / 1280: xax = disp_pic.Height / 2
disp_pic.Line (xsc, xax)-(disp_pic.Width - xsc, xax), RGB(128, 128, 128)
disp_pic.Line (xsc, 100)-(xsc, disp_pic.Height - 100), RGB(128, 128, 128)
If T_pos < &H60 Then
For i = 1 To 31
disp_pic.Line (i * xsc, D_int((i - 1) Mod 16) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16) * ysc + xax), RGB(250, ch * 50, 0)
disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 16) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 16) * ysc + xax), RGB(250, ch * 50, 200)
disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 32) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 32) * ysc + xax), RGB(210, 150, 220)
disp_pic.Line (i * xsc, D_int((i - 1) Mod 16 + 48) * ysc + xax)-((i + 1) * xsc, D_int(i Mod 16 + 48) * ysc + xax), RGB(150, ch * 50, 100)
Next
Else
For i = 1 To 31
disp_pic.Line (i * xsc, xax)-((i + 1) * xsc, xax), RGB(250, ch * 50, 0)
disp_pic.Line (i * xsc, 16 * ysc + xax)-((i + 1) * xsc, 16 * ysc + xax), RGB(250, ch * 50, 200)
disp_pic.Line (i * xsc, 32 * ysc + xax)-((i + 1) * xsc, 32 * ysc + xax), RGB(210, 150, 220)
disp_pic.Line (i * xsc, 48 * ysc + xax)-((i + 1) * xsc, 48 * ysc + xax), RGB(150, ch * 50, 100)
Next
End If
End Sub
VERSION 5.00
Begin VB.Form Comptform
Caption = "元件设定"
ClientHeight = 4005
ClientLeft = 60
ClientTop = 345
ClientWidth = 3330
LinkTopic = "Form1"
ScaleHeight = 4005
ScaleWidth = 3330
StartUpPosition = 3 '窗口缺省
Begin VB.ComboBox Combo3
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
ItemData = "Compt.frx":0000
Left = 840
List = "Compt.frx":0031
TabIndex = 8
Text = "1"
Top = 600
Width = 2175
End
Begin VB.CommandButton Command2
Caption = "下装"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 7
Top = 3360
Width = 1575
End
Begin VB.ComboBox Combo1
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "类型"
DataSource = "Data1"
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 360
ItemData = "Compt.frx":0068
Left = 1440
List = "Compt.frx":0087
TabIndex = 6
Text = "跳闸"
Top = 2640
Width = 1575
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
DataField = "定值1"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 315
Index = 0
Left = 840
TabIndex = 5
Text = "1.0 "
Top = 1200
Width = 972
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "定值1比例"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 315
Index = 0
Left = 2400
TabIndex = 4
Text = "200"
Top = 1200
Width = 615
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "定值2比例"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 315
Index = 1
Left = 2400
TabIndex = 3
Text = "100"
Top = 1680
Width = 615
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
DataField = "定值2"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 315
Index = 1
Left = 840
TabIndex = 2
Text = "1.0 "
Top = 1680
Width = 972
End
Begin VB.TextBox Text3
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
DataField = "定值3比例"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 315
Index = 2
Left = 2400
TabIndex = 1
Text = "1"
Top = 2160
Width = 615
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
BackColor = &H00FFFFFF&
DataField = "定值3"
DataSource = "Data1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 315
Index = 2
Left = 840
TabIndex = 0
Text = "1.0 "
Top = 2160
Width = 972
End
Begin VB.Label Label2
Caption = "元 件"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 120
TabIndex = 12
Top = 720
Width = 855
End
Begin VB.Label Label2
Caption = "定 值"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 1
Left = 120
TabIndex = 11
Top = 1200
Width = 855
End
Begin VB.Label Label2
Caption = "时 限"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 120
TabIndex = 10
Top = 1680
Width = 855
End
Begin VB.Label Label2
Caption = "参数1"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 120
TabIndex = 9
Top = 2160
Width = 855
End
End
Attribute VB_Name = "Comptform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim hcd(32) As Byte
Private Sub Command2_Click()
If Combo1.ListIndex < 0 Then Combo1.ListIndex = 1
hcd(6) = &HFF: hcd(7) = &HFF: hcd(8) = &H66: hcd(9) = &H66
hcd(12) = &HFF: hcd(13) = &HFF: hcd(14) = &H12: hcd(15) = &H34
If Combo1.ListIndex = 1 Then
hcd(8) = &HA5: hcd(9) = &H5A
ElseIf Combo1.ListIndex = 2 Then
hcd(8) = &H5A: hcd(9) = &HA5
ElseIf Combo1.ListIndex = 4 Then
hcd(6) = &H0: hcd(7) = &H1
ElseIf Combo1.ListIndex = 5 Then
hcd(6) = &H0: hcd(7) = &H2
ElseIf Combo1.ListIndex = 6 Then
hcd(6) = &H0: hcd(7) = &H3
ElseIf Combo1.ListIndex = 7 Then
hcd(6) = &H0: hcd(7) = &H55
ElseIf Combo1.ListIndex = 8 Then
hcd(6) = &H0: hcd(7) = &HAA
End If
For i = 0 To 2
temp = Val(Text2(i).Text) * Val(Text3(i).Text)
hcd(i * 2) = temp \ 256: hcd(i * 2 + 1) = temp Mod 256 'para0-2
Next
hcd(10) = &H34: hcd(11) = &HDA
For i = 0 To 4
hcd(10) = hcd(10) Xor hcd(i * 2): hcd(11) = hcd(11) Xor hcd(i * 2 + 1)
Next
If Combo3.Text = 15 Then
i = (Combo3.Text + 1) * 8 + &H100
Else
i = (Combo3.Text - 1) * 8 + &H100
End If
tx_b(16) = Array(&H8, &H10, i \ 256, i Mod 256, 0, &H8, &H10, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
For i = 7 To 7 + 32: tx_b(16)(i) = hcd(i - 7): Next
tx_REQ = 16
End Sub
VERSION 5.00
Begin VB.Form controlform
Caption = "操作"
ClientHeight = 1995
ClientLeft = 60
ClientTop = 345
ClientWidth = 5430
LinkTopic = "Form1"
ScaleHeight = 1995
ScaleWidth = 5430
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton J_ctrl
Caption = "校时"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 4200
TabIndex = 5
Top = 1320
Width = 735
End
Begin VB.CommandButton J_ctrl
Caption = "清除电度"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 2160
TabIndex = 4
Top = 1320
Width = 1095
End
Begin VB.CommandButton J_ctrl
Caption = "复归"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 360
TabIndex = 3
Top = 1320
Width = 735
End
Begin VB.CommandButton J_ctrl
Caption = "停车"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 4200
TabIndex = 2
Top = 360
Width = 735
End
Begin VB.CommandButton J_ctrl
Caption = "启动B"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 2280
TabIndex = 1
Top = 360
Width = 735
End
Begin VB.CommandButton J_ctrl
Caption = "启动A"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 360
TabIndex = 0
Top = 360
Width = 735
End
End
Attribute VB_Name = "controlform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub J_ctrl_Click(Index As Integer)
If Index < 5 Then '继电器
tx_b(16) = Array(0, 0, &H0, &HD2, &H0, &H1, &H2, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
tx_b(16)(7) = (Index + 1) * 17
tx_b(16)(8) = (Index + 1) * 17
' tx_b(16)(14 + 8) = 40
Else '校时
ts = d_BCD(Second(Time)): tm = d_BCD(Minute(Time)): th = d_BCD(Hour(Time))
dd = d_BCD(Day(Date)): dM = d_BCD(Month(Date)): dY = d_BCD(Year(Date) Mod 100)
tx_b(16) = Array(0, 0, &H0, &HD8, &H0, &H4, &H8, dY, dM, dd, th, tm, ts, &H12, &H34, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
End If
tx_REQ = 16 '0x10 命令
End Sub
VERSION 5.00
Begin VB.Form Factor_Seting
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "通道校正系数"
ClientHeight = 2400
ClientLeft = 1980
ClientTop = 4365
ClientWidth = 11895
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Factor_seting.frx":0000
ScaleHeight = 2400
ScaleWidth = 11895
Begin VB.CommandButton Command1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 9840
Picture = "Factor_seting.frx":0342
Style = 1 'Graphical
TabIndex = 1
Top = 600
Width = 375
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 7
Left = 5880
TabIndex = 42
Text = "0.0"
Top = 1200
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 6
Left = 5880
TabIndex = 41
Text = "0.0"
Top = 720
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 5
Left = 5880
TabIndex = 40
Text = "0.0"
Top = 240
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 4
Left = 1080
TabIndex = 39
Text = "0.0"
Top = 240
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 3
Left = 1080
TabIndex = 38
Text = "0.0"
Top = 720
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 2
Left = 1080
TabIndex = 37
Text = "0.0"
Top = 1200
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 1
Left = 1080
TabIndex = 36
Text = "0.0"
Top = 1680
Width = 735
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 7
Left = 5520
TabIndex = 35
Top = 1320
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 6
Left = 5520
TabIndex = 34
Top = 840
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 5
Left = 5520
TabIndex = 33
Top = 360
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 4
Left = 720
TabIndex = 32
Top = 360
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 3
Left = 720
TabIndex = 31
Top = 840
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 255
Index = 2
Left = 720
TabIndex = 30
Top = 1320
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 1
Left = 720
TabIndex = 29
Top = 1800
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 0
Left = 5520
TabIndex = 28
Top = 1800
Width = 255
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 0
Left = 5880
TabIndex = 27
Text = "0.0"
Top = 1680
Width = 735
End
Begin VB.CommandButton command3
Caption = "计算"
Height = 495
Left = 10080
TabIndex = 26
Top = 1560
Width = 855
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 7
Left = 9240
Max = 127
Min = -127
TabIndex = 25
Top = 1200
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 6
Left = 9240
Max = 127
Min = -127
TabIndex = 24
Top = 720
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 5
Left = 9240
Max = 127
Min = -127
TabIndex = 23
Top = 240
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 4
Left = 4440
Max = 127
Min = -127
TabIndex = 22
Top = 240
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 3
Left = 4440
Max = 127
Min = -127
TabIndex = 21
Top = 720
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 2
Left = 4440
Max = 127
Min = -127
TabIndex = 20
Top = 1200
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 1
Left = 4440
Max = 127
Min = -127
TabIndex = 19
Top = 1680
Width = 255
End
Begin VB.CommandButton Command2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 10560
Picture = "Factor_seting.frx":0874
Style = 1 'Graphical
TabIndex = 2
Top = 600
Width = 375
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 0
Left = 9240
Max = 127
Min = -127
TabIndex = 0
Top = 1680
Width = 255
End
Begin VB.Label Label9
Caption = "Ua"
Height = 255
Left = 360
TabIndex = 58
Top = 360
Width = 405
End
Begin VB.Label Label13
Caption = "Ipa"
Height = 255
Left = 5160
TabIndex = 57
Top = 360
Width = 405
End
Begin VB.Label Label12
Caption = "Ub"
Height = 255
Left = 360
TabIndex = 56
Top = 840
Width = 405
End
Begin VB.Label Label11
Caption = "Ia"
Height = 255
Left = 360
TabIndex = 55
Top = 1800
Width = 405
End
Begin VB.Label Label10
Caption = "Ipb"
Height = 255
Left = 5160
TabIndex = 54
Top = 840
Width = 405
End
Begin VB.Label Label8
Caption = "Uc"
Height = 255
Left = 360
TabIndex = 53
Top = 1320
Width = 405
End
Begin VB.Label Label7
Caption = "Ic"
Height = 255
Left = 5160
TabIndex = 52
Top = 1800
Width = 405
End
Begin VB.Label Label4
Caption = "Ipc"
Height = 255
Left = 5160
TabIndex = 51
Top = 1320
Width = 405
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 7
Left = 7800
TabIndex = 50
Top = 1200
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 6
Left = 7800
TabIndex = 49
Top = 720
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 5
Left = 7800
TabIndex = 48
Top = 240
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 4
Left = 3000
TabIndex = 47
Top = 240
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 3
Left = 3000
TabIndex = 46
Top = 720
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 2
Left = 3000
TabIndex = 45
Top = 1200
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 1
Left = 3000
TabIndex = 44
Top = 1680
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 0
Left = 7800
TabIndex = 43
Top = 1680
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 7
Left = 8640
TabIndex = 18
Top = 1200
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 6
Left = 8640
TabIndex = 17
Top = 720
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 5
Left = 8640
TabIndex = 16
Top = 240
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 4
Left = 3840
TabIndex = 15
Top = 240
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 3
Left = 3840
TabIndex = 14
Top = 720
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 2
Left = 3840
TabIndex = 13
Top = 1200
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 1
Left = 3840
TabIndex = 12
Top = 1680
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 0
Left = 8640
TabIndex = 11
Top = 1680
Width = 615
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 7
Left = 6720
TabIndex = 10
Top = 1200
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 6
Left = 6720
TabIndex = 9
Top = 720
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 5
Left = 6720
TabIndex = 8
Top = 240
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 4
Left = 1920
TabIndex = 7
Top = 240
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 3
Left = 1920
TabIndex = 6
Top = 720
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 2
Left = 1920
TabIndex = 5
Top = 1200
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 1
Left = 1920
TabIndex = 4
Top = 1680
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 0
Left = 6720
TabIndex = 3
Top = 1680
Width = 855
End
End
Attribute VB_Name = "Factor_Seting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click(Index As Integer)
Dim i, x As Single
tx_b(4) = Array(&HF0, 3, &H4, &HC0, &H0, &H40, 0, 0, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0)
tx_REQ = 4
End Sub
Private Sub Command2_Click(Index As Integer)
Dim i, sumL, sumH As Integer
tx_b(4) = Array(&H68, 28, 28, &H68, &H40, 0, 4, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
sumL = 0
sumH = 0
For i = 0 To 7
tx_b(4)(i + 8) = -VScroll1(Index * 8 + i).Value
If i Mod 2 = 0 Then
sumL = sumL Xor tx_b(4)(i + 8)
Else
sumH = sumH Xor tx_b(4)(i + 8)
End If
Next
tx_b(4)(20) = 0 'ID
tx_b(4)(21) = &HFF
sumL = sumL Xor tx_b(4)(20)
sumH = sumH Xor tx_b(4)(21)
tx_b(4)(22) = 0
tx_b(4)(23) = &H9A 'switch
sumL = sumL Xor tx_b(4)(22)
sumH = sumH Xor tx_b(4)(23)
tx_b(4)(24) = 255 - Abs(tx_b(4)(8)) 'para1 bk
tx_b(4)(25) = 255 - Abs(tx_b(4)(9))
tx_b(4)(26) = sumL Xor tx_b(4)(24)
tx_b(4)(27) = sumH Xor tx_b(4)(25)
tx_REQ = 4
End Sub
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To 7
If Check0(i).Value = 1 Then
Label2(i).Caption = Format(((Text0(i).Text - AC_data(i).Caption) / AC_data(i).Caption * 100), "0.0")
VScroll1(i).Value = -Label2(i).Caption * 10 + VScroll1(i).Value
End If
Next i
Command2_Click (0)
End Sub
Private Sub Command4_Click()
Factor_Seting.Hide
End Sub
Private Sub Form_Load()
Dim i As Integer, keyName As String
For i = 0 To 7
keyName = "Text0(" & i & ")" & ".Text"
Text0(i).Text = GetSetting(App.Title, Me.Name, keyName, "0.00") '读取设置
Next i
tx_b(3) = Array(&H68, 4, 4, &H68, &H40, 0, 3, 11, 7, 7)
' End If
tx_REQ = 3
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer, keyName As String
For i = 0 To 7
keyName = "Text0(" & i & ")" & ".Text"
Call SaveSetting(App.Title, Me.Name, keyName, Me.Text0(i).Text) '存储设置
Next i
End Sub
Private Sub VScroll1_Change(Index As Integer)
Factor_label(Index).Caption = Format(-VScroll1(Index).Value / 10, " 0.0")
End Sub
'3号命令－上传系数定值 group10-12
Private Sub VScroll2_Change(Index As Integer)
Dim x As Single
x = VScroll2(Index).Value: x = x / 10: Text0(Index).Text = Format(x, "#0.0 ")
End Sub
VERSION 5.00
Begin VB.Form Factor_Seting
Appearance = 0 'Flat
BackColor = &H00E0E0E0&
BorderStyle = 3 'Fixed Dialog
Caption = "通道校正系数"
ClientHeight = 3270
ClientLeft = 1980
ClientTop = 4365
ClientWidth = 11895
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "Factor_seting_bk.frx":0000
ScaleHeight = 3270
ScaleWidth = 11895
Begin VB.VScrollBar VScroll1
Height = 345
Index = 15
Left = 2160
Max = 256
Min = -127
TabIndex = 66
Top = 5160
Value = 256
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 14
Left = 1920
Max = 256
Min = -127
TabIndex = 1
Top = 5160
Value = 87
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 13
Left = 1680
Max = 256
Min = -127
TabIndex = 65
Top = 5160
Value = 256
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 12
Left = 1440
Max = 127
Min = -127
TabIndex = 64
Top = 5160
Value = 1
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 11
Left = 1200
Max = 127
Min = -127
TabIndex = 63
Top = 5160
Value = 1
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 10
Left = 960
Max = 127
Min = -127
TabIndex = 62
Top = 5160
Value = 1
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 9
Left = 720
Max = 127
Min = -127
TabIndex = 61
Top = 5160
Value = 1
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 8
Left = 480
Max = 127
Min = -127
TabIndex = 60
Top = 5160
Value = 1
Width = 255
End
Begin VB.CommandButton Command1
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 9840
Picture = "Factor_seting_bk.frx":0342
Style = 1 'Graphical
TabIndex = 2
Top = 1200
Width = 375
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 7
Left = 5880
TabIndex = 43
Text = "0.0"
Top = 2640
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 6
Left = 960
TabIndex = 42
Text = "0.0"
Top = 4080
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 5
Left = 5880
TabIndex = 41
Text = "0.0"
Top = 1440
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 4
Left = 5880
TabIndex = 40
Text = "0.0"
Top = 2040
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 3
Left = 1080
TabIndex = 39
Text = "0.0"
Top = 2040
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 2
Left = 5880
TabIndex = 38
Text = "0.0"
Top = 840
Width = 735
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 1
Left = 1080
TabIndex = 37
Text = "0.0"
Top = 840
Width = 735
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 7
Left = 5520
TabIndex = 36
Top = 2760
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 6
Left = 600
TabIndex = 35
Top = 4200
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 5
Left = 5520
TabIndex = 34
Top = 1560
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 4
Left = 5520
TabIndex = 33
Top = 2160
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 3
Left = 720
TabIndex = 32
Top = 2160
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 255
Index = 2
Left = 5520
TabIndex = 31
Top = 960
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 1
Left = 720
TabIndex = 30
Top = 960
Width = 255
End
Begin VB.CheckBox Check0
Caption = "Check1"
Height = 225
Index = 0
Left = 720
TabIndex = 29
Top = 1560
Width = 255
End
Begin VB.TextBox Text0
Alignment = 2 'Center
Height = 360
Index = 0
Left = 1080
TabIndex = 28
Text = "0.0"
Top = 1440
Width = 735
End
Begin VB.CommandButton command3
Caption = "计算"
Height = 495
Left = 10080
TabIndex = 27
Top = 2160
Width = 855
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 7
Left = 9240
Max = 127
Min = -127
TabIndex = 26
Top = 2640
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 6
Left = 4320
Max = 127
Min = -127
TabIndex = 25
Top = 4080
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 5
Left = 9240
Max = 127
Min = -127
TabIndex = 24
Top = 1440
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 4
Left = 9240
Max = 127
Min = -127
TabIndex = 23
Top = 2040
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 3
Left = 4440
Max = 127
Min = -127
TabIndex = 22
Top = 2040
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 2
Left = 9240
Max = 127
Min = -127
TabIndex = 21
Top = 840
Width = 255
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 1
Left = 4440
Max = 127
Min = -127
TabIndex = 20
Top = 840
Width = 255
End
Begin VB.CommandButton Command2
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 10560
Picture = "Factor_seting_bk.frx":0874
Style = 1 'Graphical
TabIndex = 3
Top = 1200
Width = 375
End
Begin VB.VScrollBar VScroll1
Height = 345
Index = 0
Left = 4440
Max = 127
Min = -127
TabIndex = 0
Top = 1440
Width = 255
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "校正系数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 7
Left = 8640
TabIndex = 74
Top = 360
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "推荐系数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 6
Left = 7680
TabIndex = 73
Top = 360
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "实测值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 5
Left = 6720
TabIndex = 72
Top = 360
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "标准值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 4
Left = 5880
TabIndex = 71
Top = 360
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "校正系数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 3
Left = 3840
TabIndex = 70
Top = 360
Width = 975
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "推荐系数"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 2
Left = 2880
TabIndex = 69
Top = 360
Width = 855
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "实测值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 1
Left = 1920
TabIndex = 68
Top = 360
Width = 735
End
Begin VB.Label Label1
Alignment = 2 'Center
BackStyle = 0 'Transparent
Caption = "标准值"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Index = 0
Left = 1080
TabIndex = 67
Top = 360
Width = 735
End
Begin VB.Label Label9
Caption = "Ib"
Height = 255
Left = 360
TabIndex = 59
Top = 1560
Width = 405
End
Begin VB.Label Label13
Caption = "Ia"
Height = 255
Left = 360
TabIndex = 58
Top = 960
Width = 405
End
Begin VB.Label Label12
Caption = "Uab"
Height = 255
Left = 5040
TabIndex = 57
Top = 960
Width = 405
End
Begin VB.Label Label11
Caption = "U0"
Height = 255
Left = 240
TabIndex = 56
Top = 4200
Width = 405
End
Begin VB.Label Label10
Caption = "Ic"
Height = 255
Left = 360
TabIndex = 55
Top = 2160
Width = 405
End
Begin VB.Label Label8
Caption = "Ija"
Height = 255
Left = 5040
TabIndex = 54
Top = 2160
Width = 405
End
Begin VB.Label Label7
Caption = "Ijc"
Height = 255
Left = 5040
TabIndex = 53
Top = 2760
Width = 405
End
Begin VB.Label Label4
Caption = "Ubc"
Height = 255
Left = 5040
TabIndex = 52
Top = 1560
Width = 405
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 7
Left = 7800
TabIndex = 51
Top = 2640
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 6
Left = 2880
TabIndex = 50
Top = 4080
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 5
Left = 7800
TabIndex = 49
Top = 1440
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 4
Left = 7800
TabIndex = 48
Top = 2040
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 3
Left = 3000
TabIndex = 47
Top = 2040
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 2
Left = 7800
TabIndex = 46
Top = 840
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 1
Left = 3000
TabIndex = 45
Top = 840
Width = 615
End
Begin VB.Label Label2
Alignment = 2 'Center
BackColor = &H80000005&
Caption = "0.0"
Height = 330
Index = 0
Left = 3000
TabIndex = 44
Top = 1440
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 7
Left = 8640
TabIndex = 19
Top = 2640
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 6
Left = 3720
TabIndex = 18
Top = 4080
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 5
Left = 8640
TabIndex = 17
Top = 1440
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 4
Left = 8640
TabIndex = 16
Top = 2040
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 3
Left = 3840
TabIndex = 15
Top = 2040
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 2
Left = 8640
TabIndex = 14
Top = 840
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 1
Left = 3840
TabIndex = 13
Top = 840
Width = 615
End
Begin VB.Label Factor_label
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H80000005&
BorderStyle = 1 'Fixed Single
Caption = "0.0 "
ForeColor = &H00800000&
Height = 330
Index = 0
Left = 3840
TabIndex = 12
Top = 1440
Width = 615
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 7
Left = 6720
TabIndex = 11
Top = 2640
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 6
Left = 1800
TabIndex = 10
Top = 4080
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 5
Left = 6720
TabIndex = 9
Top = 1440
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 4
Left = 6720
TabIndex = 8
Top = 2040
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 3
Left = 1920
TabIndex = 7
Top = 2040
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 2
Left = 6720
TabIndex = 6
Top = 840
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 1
Left = 1920
TabIndex = 5
Top = 840
Width = 855
End
Begin VB.Label AC_data
Alignment = 1 'Right Justify
Appearance = 0 'Flat
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
Caption = "000.00 "
ForeColor = &H0000FFFF&
Height = 315
Index = 0
Left = 1920
TabIndex = 4
Top = 1440
Width = 855
End
End
Attribute VB_Name = "Factor_Seting"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim hcd(32) As Integer
Option Explicit
Private Sub Command1_Click(Index As Integer)
tx_b(4) = Array(&HF0, 3, &H1, &H78, &H0, &H40, 0, 0, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0)
tx_REQ = 4
End Sub
Private Sub Command2_Click(Index As Integer)
Dim i, sumH, sumL As Integer
tx_b(16) = Array(&H8, &H10, &H1, &H78, 0, &H8, &H10, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0)
For i = 0 To 7
hcd(i) = -VScroll1(i).Value
Next
hcd(10) = &H34: hcd(11) = &HDA
For i = 0 To 4
hcd(10) = hcd(10) Xor hcd(i * 2): hcd(11) = hcd(11) Xor hcd(i * 2 + 1)
Next
hcd(12) = &HFF: hcd(13) = &HFF: hcd(14) = &H12: hcd(15) = &H34
For i = 7 To 7 + 32: tx_b(16)(i) = hcd(i - 7): Next
tx_REQ = 16
End Sub
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To 7
If Check0(i).Value = 1 And AC_data(i).Caption <> 0 Then
Label2(i).Caption = Format(((Text0(i).Text - AC_data(i).Caption) / AC_data(i).Caption * 100), "0.0")
' If Abs(Val(Label2(i).Caption)) < 12 Then VScroll1(i).Value = -Val(Label2(i).Caption) * 10 + VScroll1(i).Value
End If
Next i
End Sub
Private Sub VScroll1_Change(Index As Integer)
Factor_label(Index).Caption = Format(-VScroll1(Index).Value / 10, " 0.0")
End Sub
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form mn_form
BackColor = &H00404000&
BorderStyle = 1 'Fixed Single
ClientHeight = 9795
ClientLeft = 45
ClientTop = 615
ClientWidth = 12735
FillColor = &H00E0E0E0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
LinkTopic = "Form1"
ScaleHeight = 9795
ScaleWidth = 12735
StartUpPosition = 2 '屏幕中心
WindowState = 2 'Maximized
Begin ComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 480
Left = 0
TabIndex = 2
Top = 0
Width = 12735
_ExtentX = 22463
_ExtentY = 847
ButtonWidth = 714
ButtonHeight = 688
Appearance = 1
ImageList = "ImageList1"
_Version = 327682
BeginProperty Buttons {0713E452-850A-101B-AFC0-4210102A8DA7}
NumButtons = 8
BeginProperty Button1 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "校时"
Object.Tag = ""
ImageIndex = 1
EndProperty
BeginProperty Button2 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "轮询"
Object.Tag = ""
ImageIndex = 2
Style = 1
EndProperty
BeginProperty Button3 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "定值"
Object.Tag = ""
ImageIndex = 3
EndProperty
BeginProperty Button4 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "设定"
Object.Tag = ""
ImageIndex = 4
EndProperty
BeginProperty Button5 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "分闸"
Object.Tag = ""
ImageIndex = 5
EndProperty
BeginProperty Button6 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "合闸"
Object.Tag = ""
ImageIndex = 6
EndProperty
BeginProperty Button7 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.ToolTipText = "内存"
Object.Tag = ""
ImageIndex = 7
Style = 1
EndProperty
BeginProperty Button8 {0713F354-850A-101B-AFC0-4210102A8DA7}
Object.Tag = ""
Style = 3
MixedState = -1 'True
EndProperty
EndProperty
OLEDropMode = 1
Begin VB.Frame Frame1
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 375
Left = 9480
TabIndex = 3
Top = 0
Width = 5895
Begin VB.TextBox RAM_addr1th
Alignment = 2 'Center
Appearance = 0 'Flat
ForeColor = &H00800000&
Height = 375
Left = 2400
TabIndex = 9
Text = "0"
Top = 0
Width = 735
End
Begin VB.VScrollBar RAM_VScroll1
Height = 375
Left = 3120
Max = 1216
SmallChange = 32
TabIndex = 8
Top = 0
Width = 255
End
Begin VB.VScrollBar SN_VScroll
Height = 375
Left = 4440
Max = 199
TabIndex = 7
Top = 0
Value = 1
Width = 255
End
Begin VB.TextBox SN_Text
Alignment = 2 'Center
Appearance = 0 'Flat
ForeColor = &H00800000&
Height = 360
Left = 3960
TabIndex = 6
Text = "01"
Top = 0
Width = 495
End
Begin VB.ComboBox Combo1
Appearance = 0 'Flat
BeginProperty Font
Name = "System"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800000&
Height = 360
ItemData = "Star_M6.frx":0000
Left = 4920
List = "Star_M6.frx":000A
TabIndex = 4
Text = "COM1"
Top = 0
Width = 975
End
End
End
Begin VB.PictureBox disp_pic
BackColor = &H00161602&
ForeColor = &H0000FFFF&
Height = 5895
Left = 120
ScaleHeight = 5835
ScaleWidth = 10035
TabIndex = 10
Top = 3600
Width = 10095
End
Begin ComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 255
Left = 0
TabIndex = 5
Top = 9540
Width = 12735
_ExtentX = 22463
_ExtentY = 450
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 2
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1411
MinWidth = 1411
Object.Tag = ""
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 2
Object.Width = 1411
MinWidth = 1411
Object.Tag = ""
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "System"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin VB.Timer T_05s00
Interval = 500
Left = 600
Top = 480
End
Begin MSCommLib.MSComm MSComm1
Left = 1080
Top = 480
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
CommPort = 2
DTREnable = 0 'False
InputLen = 1
RThreshold = 1
ParitySetting = 2
InputMode = 1
End
Begin VB.Label disp_area
BackColor = &H00161602&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 3015
Left = 120
TabIndex = 11
Top = 480
Width = 10095
End
Begin ComctlLib.ImageList ImageList1
Left = 0
Top = 480
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 20
ImageHeight = 20
MaskColor = 12632256
_Version = 327682
BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}
NumListImages = 7
BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":001A
Key = ""
EndProperty
BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0334
Key = ""
EndProperty
BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":064E
Key = ""
EndProperty
BeginProperty ListImage4 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0968
Key = ""
EndProperty
BeginProperty ListImage5 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0C82
Key = ""
EndProperty
BeginProperty ListImage6 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":0F9C
Key = ""
EndProperty
BeginProperty ListImage7 {0713E8C3-850A-101B-AFC0-4210102A8DA7}
Picture = "Star_M6.frx":12B6
Key = ""
EndProperty
EndProperty
End
Begin VB.Label rx_data
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1935
Left = 10320
TabIndex = 1
Top = 1560
Width = 5295
End
Begin VB.Label tx_data
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 1068
Left = 10320
TabIndex = 0
Top = 480
Width = 5292
End
Begin VB.Menu mu_sys
Caption = "系统[&S] "
Begin VB.Menu sys_set
Caption = "设定"
End
Begin VB.Menu mu_quit
Caption = "退出"
End
End
Begin VB.Menu compt
Caption = "元件[&C] "
End
Begin VB.Menu AC_ch
Caption = "通道[&F] "
End
Begin VB.Menu op
Caption = "操作[&O] "
End
Begin VB.Menu help
Caption = "帮助[&H]"
End
End
Attribute VB_Name = "mn_form"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim V_1, V_1_real, V_1_Image, V_2, V_2_real, V_2_Image, V_1_m6, v_ric, tp00, tp01 As Single
Public num_rxright, num_sent, rx_CRC, T_pos
Sub Send(ByVal Cmd As Integer)
Dim k(0) As Byte
tx_data.Caption = ""
If Cmd = 4 Then T_pos = &H178: Cmd = 3 Else T_pos = RAM_VScroll1.Value
tx_b(3) = Array(SN_VScroll.Value, 3, T_pos \ 256, T_pos Mod 256, &H0, &H40, 0, 0, Hour(Time), Minute(Time), Second(Time), 0, 0, 0, 0)
tx_b(Cmd)(0) = SN_VScroll.Value: tx_b(Cmd)(1) = Cmd
If Cmd = 16 Then Lenth = tx_b(Cmd)(5) * 2 + 7 Else Lenth = 6
Sum = &HFFFF
For i = 0 To Lenth - 1
If tx_b(Cmd)(i) < 0 Then tx_b(Cmd)(i) = 256 + tx_b(Cmd)(i)
k(0) = tx_b(Cmd)(i)
Sum = Sum Xor (k(0) And &HFF)
If Sum < 0 Then Sum = 65536 + Sum
For j = 0 To 7
If (Sum And 1) = 1 Then
Sum = Int(Sum \ 2): Sum = Sum Xor &HA001
If Sum < 0 Then Sum = 65536 + Sum
Else
Sum = Int(Sum \ 2)
End If
Next
MSComm1.Output = k: tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
Next
If Sum < 0 Then Sum = 65536 + Sum
k(0) = (Sum Mod 256): tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
MSComm1.Output = k
k(0) = (Sum \ 256): tx_data.Caption = tx_data.Caption + hexbyt(Int(k(0))) + " "
MSComm1.Output = k
rx_data = "": rx_CRC = &HFFFF
End Sub
Private Sub Combo1_Click()
p = Combo1.ListIndex + 1
If p > 0 And p < 3 Then Call Close_OpenPort(Int(p))
End Sub