📄 广播设置.frm
字号:
Locked = -1 'True
MaxLength = 2
TabIndex = 13
Text = "T5"
Top = 300
Width = 600
End
Begin VB.TextBox Text6
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 360
Locked = -1 'True
MaxLength = 4
TabIndex = 12
Text = "T6"
Top = 300
Width = 780
End
Begin VB.TextBox Text1
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 2680
Locked = -1 'True
MaxLength = 2
TabIndex = 11
Text = "t1"
Top = 780
Width = 570
End
Begin VB.TextBox Text2
Alignment = 1 'Right Justify
ForeColor = &H00800080&
Height = 330
Left = 1620
Locked = -1 'True
MaxLength = 2
TabIndex = 10
Text = "t2"
Top = 780
Width = 570
End
Begin VB.Label Label104
BackColor = &H00E0E0E0&
Caption = "年"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 1240
TabIndex = 21
Top = 420
Width = 228
End
Begin VB.Label Label11
BackColor = &H00E0E0E0&
Caption = "月"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 2320
TabIndex = 20
Top = 420
Width = 228
End
Begin VB.Label Label12
BackColor = &H00E0E0E0&
Caption = "日"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 3400
TabIndex = 19
Top = 420
Width = 228
End
Begin VB.Label Label13
BackColor = &H00E0E0E0&
Caption = "时"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 1260
TabIndex = 18
Top = 900
Width = 228
End
Begin VB.Label Label14
BackColor = &H00E0E0E0&
Caption = "分"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 2320
TabIndex = 17
Top = 900
Width = 228
End
Begin VB.Label Label15
BackColor = &H00E0E0E0&
Caption = "秒"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 228
Left = 3400
TabIndex = 16
Top = 900
Width = 228
End
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 200
Left = 0
Top = 0
End
Begin VB.Timer Timer2
Interval = 1000
Left = 24
Top = 1164
End
Begin VB.CommandButton Command2
Height = 690
Left = 3285
Picture = "广播设置.frx":0A2C
Style = 1 'Graphical
TabIndex = 2
ToolTipText = "广播校时命令发送"
Top = 2175
Width = 690
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 12
Left = 60
Top = 1632
End
Begin MSCommLib.MSComm MSComm1
Left = 8820
Top = 4995
_ExtentX = 979
_ExtentY = 979
_Version = 393216
DTREnable = 0 'False
InBufferSize = 200
InputLen = 60
OutBufferSize = 60
RThreshold = 1
BaudRate = 1200
ParitySetting = 2
InputMode = 1
End
Begin VB.CommandButton Command1
BackColor = &H00C0C0C0&
Height = 645
Left = 7860
MaskColor = &H8000000D&
Picture = "广播设置.frx":116E
Style = 1 'Graphical
TabIndex = 0
ToolTipText = "广播表号命令发送"
Top = 3888
Width = 690
End
Begin MSComctlLib.ProgressBar ProgressBar1
Height = 225
Left = 4185
TabIndex = 6
Top = 5385
Visible = 0 'False
Width = 2820
_ExtentX = 4974
_ExtentY = 397
_Version = 393216
Appearance = 1
Max = 20
End
Begin VB.Label Label6
BackColor = &H00E0E0E0&
Caption = "广播校时发送完毕"
ForeColor = &H00C00000&
Height = 225
Left = 1935
TabIndex = 36
Top = 4920
Visible = 0 'False
Width = 1890
End
Begin VB.Line Line12
BorderColor = &H00400040&
BorderWidth = 2
X1 = 3960
X2 = 5190
Y1 = 510
Y2 = 510
End
Begin VB.Line Line11
BorderColor = &H00400040&
BorderWidth = 2
X1 = 9240
X2 = 9240
Y1 = 4797
Y2 = 525
End
Begin VB.Line Line10
BorderWidth = 2
X1 = 8355
X2 = 9243
Y1 = 507
Y2 = 495
End
Begin VB.Line Line9
BorderColor = &H00400040&
BorderWidth = 2
X1 = 5445
X2 = 9213
Y1 = 4800
Y2 = 4800
End
Begin VB.Line Line8
BorderColor = &H00400040&
BorderWidth = 2
X1 = 5445
X2 = 5445
Y1 = 510
Y2 = 4806
End
Begin VB.Line Line7
BorderColor = &H00400040&
BorderWidth = 2
X1 = 6393
X2 = 5445
Y1 = 510
Y2 = 510
End
Begin VB.Line Line6
BorderColor = &H00400040&
BorderWidth = 2
X1 = 735
X2 = 1935
Y1 = 495
Y2 = 495
End
Begin VB.Line Line5
BorderColor = &H00400040&
BorderWidth = 2
X1 = 5190
X2 = 5190
Y1 = 4800
Y2 = 510
End
Begin VB.Line Line4
BorderColor = &H00400040&
BorderWidth = 2
X1 = 720
X2 = 5190
Y1 = 4800
Y2 = 4785
End
Begin VB.Line Line3
BorderColor = &H00400040&
BorderWidth = 2
X1 = 720
X2 = 720
Y1 = 480
Y2 = 4800
End
Begin VB.Label Label1
BackColor = &H00E0E0E0&
Caption = "广播表号发送完毕"
ForeColor = &H00C00000&
Height = 210
Left = 6465
TabIndex = 8
Top = 4920
Visible = 0 'False
Width = 1905
End
Begin VB.Label Label32
BackColor = &H00E0E0E0&
Caption = "通讯中..."
ForeColor = &H00C00000&
Height = 240
Left = 2955
TabIndex = 7
Top = 5385
Visible = 0 'False
Width = 1185
End
Begin VB.Label Label5
BackColor = &H00E0E0E0&
Caption = "广播表号发送"
ForeColor = &H00800080&
Height = 255
Left = 6240
TabIndex = 5
Top = 4110
Width = 1500
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "广播校时发送"
ForeColor = &H00800080&
Height = 255
Left = 1680
TabIndex = 4
Top = 2400
Width = 1515
End
Begin VB.Label Label3
BackColor = &H00E0E0E0&
Caption = "广 播 表 号"
BeginProperty Font
Name = "华文新魏"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 270
Left = 6600
TabIndex = 3
Top = 345
Width = 1695
End
Begin VB.Label Label2
BackColor = &H00E0E0E0&
Caption = "广 播 校 时"
BeginProperty Font
Name = "华文新魏"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 330
Left = 2235
TabIndex = 1
ToolTipText = "取自系统时间"
Top = 300
Width = 1725
End
End
Attribute VB_Name = "frm_gbcommand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Brr(69) As Byte
Dim BYTE_N1, i As Byte
Dim BYTE_N2 As Byte
Dim NNN, num As Byte
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -