📄 datatransmit.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form DataTransmit
AutoRedraw = -1 'True
BackColor = &H8000000A&
BorderStyle = 3 'Fixed Dialog
Caption = "数据传输"
ClientHeight = 5265
ClientLeft = 2565
ClientTop = 2355
ClientWidth = 6855
FillColor = &H00C0C0C0&
Icon = "DataTransmit.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5265
ScaleWidth = 6855
ShowInTaskbar = 0 'False
Begin MSComDlg.CommonDialog Cod1
Left = 840
Top = 4800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin MSCommLib.MSComm MSComm1
Left = 1680
Top = 4680
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
BaudRate = 2400
InputMode = 1
End
Begin VB.CommandButton Command1
Cancel = -1 'True
Caption = "关闭(&E)"
Height = 375
Index = 1
Left = 5640
TabIndex = 2
Top = 4800
Width = 1095
End
Begin VB.CommandButton Command1
Caption = "确定(&O)"
Height = 375
Index = 0
Left = 3915
TabIndex = 1
Top = 4800
Width = 1095
End
Begin TabDlg.SSTab SSTab1
Height = 4575
Left = 120
TabIndex = 0
Top = 120
Width = 6615
_ExtentX = 11668
_ExtentY = 8070
_Version = 393216
Style = 1
TabHeight = 520
TabCaption(0) = "下载数据"
TabPicture(0) = "DataTransmit.frx":08CA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Image1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "Label7"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "Line3"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "Line4"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "Frame4"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "Timer1"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).ControlCount= 6
TabCaption(1) = "上载数据"
TabPicture(1) = "DataTransmit.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "Label8"
Tab(1).Control(0).Enabled= 0 'False
Tab(1).Control(1)= "Image2"
Tab(1).Control(1).Enabled= 0 'False
Tab(1).Control(2)= "Line1"
Tab(1).Control(2).Enabled= 0 'False
Tab(1).Control(3)= "Line2"
Tab(1).Control(3).Enabled= 0 'False
Tab(1).Control(4)= "Frame3"
Tab(1).Control(4).Enabled= 0 'False
Tab(1).ControlCount= 5
TabCaption(2) = "传输配置"
TabPicture(2) = "DataTransmit.frx":0902
Tab(2).ControlEnabled= 0 'False
Tab(2).Control(0)= "Frame1"
Tab(2).Control(0).Enabled= 0 'False
Tab(2).Control(1)= "Command2"
Tab(2).Control(1).Enabled= 0 'False
Tab(2).Control(2)= "Frame2"
Tab(2).Control(2).Enabled= 0 'False
Tab(2).Control(3)= "cmdOK"
Tab(2).Control(3).Enabled= 0 'False
Tab(2).Control(4)= "Frame5"
Tab(2).Control(4).Enabled= 0 'False
Tab(2).ControlCount= 5
Begin VB.Frame Frame5
Caption = "抄表器型号"
Height = 1335
Left = -71400
TabIndex = 25
Top = 2040
Width = 2775
Begin VB.ComboBox Combo7
Height = 300
Left = 1200
Style = 2 'Dropdown List
TabIndex = 26
Top = 600
Width = 1455
End
Begin VB.Label Label11
Caption = "型号(&M):"
Height = 255
Left = 120
TabIndex = 27
Top = 600
Width = 855
End
End
Begin VB.Timer Timer1
Interval = 135
Left = 4680
Top = 0
End
Begin VB.CommandButton cmdOK
Caption = "应用"
Height = 375
Left = -71400
TabIndex = 22
Top = 3720
Width = 1215
End
Begin VB.Frame Frame4
Caption = "通讯状态"
Height = 1845
Left = 2040
TabIndex = 20
Top = 1965
Width = 4440
Begin MSComctlLib.ProgressBar PrBar2
Height = 300
Left = 120
TabIndex = 21
Top = 1440
Width = 4230
_ExtentX = 7461
_ExtentY = 529
_Version = 393216
Appearance = 1
End
Begin VB.Label Label9
AutoSize = -1 'True
BackStyle = 0 'Transparent
ForeColor = &H00000000&
Height = 180
Left = 735
TabIndex = 23
Top = 810
Width = 90
End
End
Begin VB.Frame Frame3
Caption = "通讯状态"
Height = 1845
Left = -72960
TabIndex = 18
Top = 1965
Width = 4440
Begin MSComctlLib.ProgressBar PrBar1
Height = 330
Left = 105
TabIndex = 19
Top = 1425
Width = 4260
_ExtentX = 7514
_ExtentY = 582
_Version = 393216
BorderStyle = 1
Appearance = 1
End
Begin VB.Label Label10
AutoSize = -1 'True
ForeColor = &H00000000&
Height = 180
Left = 885
TabIndex = 24
Top = 780
Width = 90
End
End
Begin VB.Frame Frame2
Caption = "端口设置"
Height = 1095
Left = -71400
TabIndex = 13
Top = 600
Width = 2775
Begin VB.ComboBox Combo6
Height = 300
Left = 960
Style = 2 'Dropdown List
TabIndex = 15
Top = 480
Width = 1695
End
Begin VB.Label Label6
Caption = "端口(&P):"
Height = 255
Left = 120
TabIndex = 14
Top = 520
Width = 1095
End
End
Begin VB.CommandButton Command2
Caption = "还原默认值(&R)"
Height = 375
Left = -69960
TabIndex = 12
Top = 3720
Width = 1335
End
Begin VB.Frame Frame1
Caption = "参数配置"
Height = 3615
Left = -74760
TabIndex = 3
Top = 600
Width = 3135
Begin VB.ComboBox Combo4
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 11
Top = 2160
Width = 1575
End
Begin VB.ComboBox Combo3
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 9
Top = 1560
Width = 1575
End
Begin VB.ComboBox Combo2
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 7
Top = 960
Width = 1575
End
Begin VB.ComboBox Combo1
Height = 300
Left = 1320
Style = 2 'Dropdown List
TabIndex = 5
Top = 360
Width = 1575
End
Begin VB.Label Label4
Caption = "停止位(&S):"
Height = 255
Left = 120
TabIndex = 10
Top = 2200
Width = 1095
End
Begin VB.Label Label3
Caption = "奇偶校验(&P):"
Height = 255
Left = 120
TabIndex = 8
Top = 1660
Width = 1095
End
Begin VB.Label Label2
Caption = "数据位(&D):"
Height = 255
Left = 120
TabIndex = 6
Top = 1000
Width = 975
End
Begin VB.Label Label1
Caption = "波特率(&B):"
Height = 255
Left = 120
TabIndex = 4
Top = 420
Width = 975
End
End
Begin VB.Line Line4
BorderColor = &H00FFFFFF&
X1 = 60
X2 = 6525
Y1 = 4185
Y2 = 4185
End
Begin VB.Line Line3
BorderColor = &H00404040&
X1 = 75
X2 = 6540
Y1 = 4170
Y2 = 4170
End
Begin VB.Line Line2
BorderColor = &H00404040&
X1 = -74940
X2 = -68475
Y1 = 4170
Y2 = 4170
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
X1 = -74925
X2 = -68460
Y1 = 4185
Y2 = 4185
End
Begin VB.Image Image2
Height = 3420
Left = -74880
Picture = "DataTransmit.frx":091E
Top = 585
Width = 1815
End
Begin VB.Label Label8
BackStyle = 0 'Transparent
Caption = $"DataTransmit.frx":14D90
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 900
Left = -72660
TabIndex = 17
Top = 765
Width = 3975
End
Begin VB.Label Label7
BackStyle = 0 'Transparent
Caption = $"DataTransmit.frx":14E1E
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 930
Left = 2340
TabIndex = 16
Top = 765
Width = 3975
End
Begin VB.Image Image1
Height = 3420
Left = 120
Picture = "DataTransmit.frx":14EAA
Top = 585
Width = 1815
End
End
End
Attribute VB_Name = "DataTransmit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private iFlow As Integer, iTempEcho As Boolean
Dim Xcode As String, Ccode As String, CSS As String, NQ As String, Yq As String, DataSetup As String
Dim Proress As Integer, Proress1 As Integer
Dim EndTime As String
Dim RevTF As Boolean
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -