📄 frmservo.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"
Begin VB.Form frmServo
BackColor = &H00E0E0E0&
BorderStyle = 1 'Fixed Single
Caption = "16路伺服电机控制系统- ?2006.6 ,西北工业大学,翟忠武"
ClientHeight = 8565
ClientLeft = 5265
ClientTop = 2835
ClientWidth = 8775
Icon = "frmServo.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 8565
ScaleWidth = 8775
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton CmdExt
Caption = "退出"
Height = 375
Left = 7320
TabIndex = 76
TabStop = 0 'False
Top = 7800
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "全部置位"
Height = 375
Left = 6120
TabIndex = 75
TabStop = 0 'False
Top = 7800
Width = 1215
End
Begin VB.CommandButton CmdAll
Caption = "总体联放"
Enabled = 0 'False
Height = 375
Left = 2640
TabIndex = 73
TabStop = 0 'False
Top = 7800
Width = 1215
End
Begin VB.CommandButton CmdIns
Caption = "插入"
Enabled = 0 'False
Height = 375
Left = 1440
TabIndex = 72
TabStop = 0 'False
Top = 7800
Width = 1215
End
Begin VB.CommandButton CmdInp
Caption = "试输"
Enabled = 0 'False
Height = 375
Left = 240
TabIndex = 71
TabStop = 0 'False
Top = 7800
Width = 1215
End
Begin VB.Frame Frame2
BackColor = &H00E0E0E0&
Caption = "通用控制模块"
Height = 975
Left = 4560
TabIndex = 70
Top = 7440
Width = 4095
Begin VB.CommandButton Command1
Caption = "舵机初始化"
Height = 375
Left = 360
TabIndex = 74
TabStop = 0 'False
Top = 360
Width = 1215
End
End
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = "单步关联运动模块"
Height = 975
Left = 120
TabIndex = 69
Top = 7440
Width = 3855
End
Begin VB.CommandButton PauseCom
Caption = "暂停"
Enabled = 0 'False
Height = 375
Left = 7320
TabIndex = 68
TabStop = 0 'False
Top = 6600
Width = 1215
End
Begin VB.CommandButton OnceMore
Caption = "再执行一次"
Enabled = 0 'False
Height = 375
Left = 6120
TabIndex = 67
TabStop = 0 'False
Top = 6600
Width = 1215
End
Begin VB.Frame frmInput
BackColor = &H00E0E0E0&
Caption = "接收外界数据执行多步关联运动模块"
Height = 975
Left = 120
TabIndex = 64
Top = 6240
Width = 8535
Begin VB.TextBox txtSend1
Height = 375
Left = 120
TabIndex = 66
TabStop = 0 'False
Top = 360
Width = 4215
End
Begin VB.CommandButton open
Caption = "接收+执行..."
Height = 375
Left = 4440
TabIndex = 65
TabStop = 0 'False
Top = 360
Width = 1335
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 120
Top = 480
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 15
Left = 7680
TabIndex = 63
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 14
Left = 6600
TabIndex = 59
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 13
Left = 5520
TabIndex = 55
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 12
Left = 4440
TabIndex = 51
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 11
Left = 3360
TabIndex = 47
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 10
Left = 2280
TabIndex = 43
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.CommandButton cmdCenter
BackColor = &H8000000A&
Caption = "置位"
Height = 375
Index = 9
Left = 1200
TabIndex = 39
TabStop = 0 'False
Top = 5520
Width = 975
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #16"
Height = 2415
Index = 15
Left = 7680
TabIndex = 60
Top = 3000
Width = 975
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 15
Left = 240
TabIndex = 61
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
Begin VB.VScrollBar sldServo
Height = 1695
Index = 15
Left = 360
Max = 254
TabIndex = 62
Top = 600
Value = 127
Width = 255
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #15"
Height = 2415
Index = 14
Left = 6600
TabIndex = 56
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 14
Left = 360
Max = 254
TabIndex = 58
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 14
Left = 240
TabIndex = 57
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #14"
Height = 2415
Index = 13
Left = 5520
TabIndex = 52
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 13
Left = 360
Max = 254
TabIndex = 54
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 13
Left = 240
TabIndex = 53
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #13"
Height = 2415
Index = 12
Left = 4440
TabIndex = 48
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 12
Left = 360
Max = 254
TabIndex = 50
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 12
Left = 240
TabIndex = 49
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #12"
Height = 2415
Index = 11
Left = 3360
TabIndex = 44
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 11
Left = 360
Max = 254
TabIndex = 46
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 11
Left = 240
TabIndex = 45
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #11"
Height = 2415
Index = 10
Left = 2280
TabIndex = 40
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 10
Left = 360
Max = 254
TabIndex = 42
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 10
Left = 240
TabIndex = 41
TabStop = 0 'False
Text = "127"
Top = 240
Width = 495
End
End
Begin VB.Frame frmServo
BackColor = &H00E0E0E0&
Caption = "Servo #10"
Height = 2415
Index = 9
Left = 1200
TabIndex = 36
Top = 3000
Width = 975
Begin VB.VScrollBar sldServo
Height = 1695
Index = 9
Left = 360
Max = 254
TabIndex = 38
Top = 600
Value = 127
Width = 255
End
Begin VB.TextBox txtServo
Alignment = 2 'Center
BackColor = &H00000000&
ForeColor = &H00FFFFFF&
Height = 285
Index = 9
Left = 240
TabIndex = 37
TabStop = 0 'False
Text = "127"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -