📄 frm_main.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX"
Begin VB.Form Frm_main
BorderStyle = 1 'Fixed Single
Caption = "TASSOS AV Control System"
ClientHeight = 8220
ClientLeft = 45
ClientTop = 630
ClientWidth = 7920
Icon = "Frm_main.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8220
ScaleWidth = 7920
StartUpPosition = 1 'CenterOwner
Begin MSCommLib.MSComm MSComm1
Left = 7260
Top = 60
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
End
Begin ComctlLib.StatusBar SBar1
Align = 2 'Align Bottom
Height = 405
Left = 0
TabIndex = 34
Top = 7815
Width = 7920
_ExtentX = 13970
_ExtentY = 714
SimpleText = ""
_Version = 327682
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
NumPanels = 4
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 4710
MinWidth = 4710
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "Send Information & System Message "
EndProperty
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 2716
MinWidth = 2716
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "Return Code"
EndProperty
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Object.Width = 3863
MinWidth = 3863
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "Current File Name and Path"
EndProperty
BeginProperty Panel4 {0713E89F-850A-101B-AFC0-4210102A8DA7}
Alignment = 1
TextSave = ""
Object.Tag = ""
Object.ToolTipText = "Current Time"
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog CommD1
Left = 6510
Top = 60
_ExtentX = 847
_ExtentY = 847
_Version = 393216
DialogTitle = "OPEN CONFIGURATION FILES"
Filter = "*.INI"
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 1000
Left = 3420
Top = 210
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 2880
Top = 210
End
Begin VB.TextBox Text3
Alignment = 2 'Center
Appearance = 0 'Flat
BackColor = &H8000000F&
BorderStyle = 0 'None
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 2100
Locked = -1 'True
TabIndex = 32
Text = "Projector Control Programming"
Top = 1110
Width = 3795
End
Begin VB.Frame Frame3
BeginProperty Font
Name = "Microsoft Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 6465
Left = 150
TabIndex = 13
Top = 1110
Width = 7635
Begin VB.CommandButton Command3
Caption = "CONVERSION"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 5460
TabIndex = 7
ToolTipText = "Conversion to Send Code (Hex)"
Top = 2790
Width = 1695
End
Begin VB.CommandButton Command2
Caption = "CLEAR "
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 2430
TabIndex = 10
ToolTipText = "Clear Current Data"
Top = 2760
Width = 1245
End
Begin VB.CommandButton Command1
Caption = "STOP"
Enabled = 0 'False
BeginProperty Font
Name = "Arial"
Size = 9
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 4485
TabIndex = 9
Top = 5880
Width = 1245
End
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
BorderStyle = 0 'None
ForeColor = &H80000008&
Height = 405
Left = 2340
ScaleHeight = 405
ScaleWidth = 4545
TabIndex = 33
Top = 540
Width = 4545
Begin VB.OptionButton Option1
Caption = "ASCII"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 30
TabIndex = 1
Top = 0
Width = 1155
End
Begin VB.OptionButton Option2
Caption = "HEX"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 2400
TabIndex = 2
Top = 0
Width = 1065
End
End
Begin VB.OptionButton Optype
Caption = "VIDEO"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 3
Left = 6030
TabIndex = 6
ToolTipText = "Video Moudle"
Top = 1140
Width = 1035
End
Begin VB.TextBox Text1
Height = 1125
Left = 2400
MultiLine = -1 'True
TabIndex = 11
Top = 1560
Width = 4755
End
Begin VB.TextBox Text2
Height = 2115
Left = 2400
MultiLine = -1 'True
TabIndex = 12
Top = 3690
Width = 4755
End
Begin VB.CommandButton Command6
Caption = "SEND"
Enabled = 0 'False
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 405
Left = 5910
TabIndex = 8
ToolTipText = "Send Data for Com"
Top = 5880
Width = 1245
End
Begin VB.OptionButton Optype
Caption = "ON"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 0
Left = 2370
TabIndex = 3
ToolTipText = "Power on"
Top = 1140
Width = 795
End
Begin VB.OptionButton Optype
Caption = "OFF"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 225
Index = 1
Left = 3585
TabIndex = 4
ToolTipText = "Power off"
Top = 1140
Width = 735
End
Begin VB.OptionButton Optype
Caption = "RGB"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Index = 2
Left = 4755
TabIndex = 5
ToolTipText = "RGB Moudle"
Top = 1140
Width = 855
End
Begin VB.Frame Frame6
Caption = "Com Port"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 765
Left = 480
TabIndex = 29
Top = 510
Width = 1245
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Frm_main.frx":1CCA
Left = 240
List = "Frm_main.frx":1CD7
TabIndex = 30
Text = "1"
Top = 300
Width = 855
End
End
Begin VB.Frame Frame1
Caption = "Baud Rate"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1905
Left = 480
TabIndex = 23
Top = 1380
Width = 1275
Begin VB.OptionButton OptBound
Caption = "2400"
Height = 225
Index = 0
Left = 270
TabIndex = 28
Top = 285
Width = 885
End
Begin VB.OptionButton OptBound
Caption = "4800"
Height = 225
Index = 1
Left = 270
TabIndex = 27
Top = 600
Width = 915
End
Begin VB.OptionButton OptBound
Caption = "9600"
Height = 225
Index = 2
Left = 270
TabIndex = 26
Top = 915
Value = -1 'True
Width = 885
End
Begin VB.OptionButton OptBound
Caption = "19200"
Height = 225
Index = 3
Left = 270
TabIndex = 25
Top = 1230
Width = 855
End
Begin VB.OptionButton OptBound
Caption = "38400"
Height = 225
Index = 4
Left = 270
TabIndex = 24
Top = 1530
Width = 915
End
End
Begin VB.Frame Frame2
Caption = "Parity"
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -