📄 bjdj_jdq.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BackColor = &H00E0E0E0&
Caption = "串口控制步进电机、继电器演示程序"
ClientHeight = 8040
ClientLeft = 3525
ClientTop = 2355
ClientWidth = 6450
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00E0E0E0&
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 8040
ScaleWidth = 6450
Begin VB.Frame Frame7
BackColor = &H00FF80FF&
Caption = "串口控制继电器演示"
ForeColor = &H00FF0000&
Height = 1005
Left = 60
TabIndex = 32
Top = 6810
Width = 6315
Begin VB.OptionButton Option2
BackColor = &H00FF80FF&
Caption = "断 开"
Height = 315
Left = 780
TabIndex = 37
Top = 630
Width = 1245
End
Begin VB.OptionButton Option1
BackColor = &H00FF80FF&
Caption = "接 通"
Height = 345
Left = 780
TabIndex = 36
Top = 270
Value = -1 'True
Width = 1245
End
Begin VB.TextBox Text3
Height = 315
Left = 3600
TabIndex = 35
Top = 390
Width = 1245
End
Begin VB.CommandButton Command6
Caption = "发 送"
Height = 315
Left = 5070
TabIndex = 33
Top = 390
Width = 765
End
Begin VB.Label Label8
BackColor = &H00FF80FF&
Caption = "输入继电器号:"
Height = 315
Left = 2220
TabIndex = 34
Top = 420
Width = 1395
End
End
Begin VB.Frame Frame6
BackColor = &H0080FF80&
Caption = "串口控制电机步进演示"
ForeColor = &H00FF0000&
Height = 855
Left = 60
TabIndex = 23
Top = 4200
Width = 6345
Begin VB.OptionButton Option6
BackColor = &H0080FF80&
Caption = "步进后电机轴锁定"
Height = 255
Left = 3360
TabIndex = 39
Top = 180
Value = -1 'True
Width = 2055
End
Begin VB.OptionButton Option5
BackColor = &H0080FF80&
Caption = "步进后电机轴自由"
Height = 225
Left = 3360
TabIndex = 38
Top = 540
Width = 1995
End
Begin VB.CommandButton Command4
Caption = "开 始"
Height = 345
Left = 5520
TabIndex = 31
Top = 300
Width = 765
End
Begin VB.TextBox Text2
Height = 315
Index = 2
Left = 2340
TabIndex = 24
Top = 360
Width = 855
End
Begin VB.Label Label2
BackColor = &H0080FF80&
Caption = "输入电机步进量(步):"
Height = 255
Index = 2
Left = 210
TabIndex = 25
Top = 390
Width = 2115
End
End
Begin VB.Frame Frame5
BackColor = &H00FFFF80&
Caption = "电脑发送和控制板返回的控制代码"
ForeColor = &H00FF0000&
Height = 1635
Left = 30
TabIndex = 14
Top = 5130
Width = 6375
Begin VB.CommandButton Command5
Caption = "复位控制板"
Height = 405
Left = 4800
TabIndex = 27
Top = 660
Width = 1305
End
Begin VB.TextBox Text4
Height = 405
Index = 0
Left = 2010
Locked = -1 'True
TabIndex = 16
Top = 1080
Width = 2535
End
Begin VB.TextBox Text4
Height = 405
Index = 1
Left = 2010
Locked = -1 'True
TabIndex = 15
Top = 690
Width = 2535
End
Begin VB.Label Label7
BackColor = &H00FFFF80&
Caption = "复位情况:"
Height = 255
Left = 4770
TabIndex = 26
Top = 1170
Width = 1515
End
Begin VB.Label Label6
BackColor = &H00FFFF80&
Caption = " 上位机每发送一条指令，控制板正确接收并执行后，都会返回同一条指令供上位机判断本次通讯及控制是否正常。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 30
TabIndex = 22
Top = 270
Width = 6225
End
Begin VB.Label Label3
BackColor = &H00FFFF80&
Caption = "控制板系统返回码:"
Height = 375
Index = 0
Left = 90
TabIndex = 18
Top = 1110
Width = 1905
End
Begin VB.Label Label3
BackColor = &H00FFFF80&
Caption = "电脑串口发送码:"
Height = 375
Index = 1
Left = 90
TabIndex = 17
Top = 720
Width = 1905
End
End
Begin VB.Frame Frame3
BackColor = &H0080FFFF&
Caption = "串口控制电机调速演示"
ForeColor = &H00FF0000&
Height = 2505
Left = 30
TabIndex = 7
Top = 1620
Width = 6375
Begin VB.CommandButton Command2
Caption = "停 止"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 345
Left = 2220
TabIndex = 30
Top = 2070
Width = 1485
End
Begin VB.Frame Frame4
BackColor = &H0080FFFF&
Caption = "通过设定电机的转速"
Height = 1335
Index = 0
Left = 60
TabIndex = 9
Top = 690
Width = 2775
Begin VB.CommandButton Command1
Caption = "开 始"
Height = 345
Left = 780
TabIndex = 29
Top = 840
Width = 1245
End
Begin VB.TextBox Text2
Height = 315
Index = 0
Left = 2190
TabIndex = 10
Top = 480
Width = 525
End
Begin VB.Label Label2
BackColor = &H0080FFFF&
Caption = "输入电机转速(转/分):"
Height = 255
Index = 0
Left = 60
TabIndex = 11
Top = 510
Width = 2115
End
End
Begin VB.Frame Frame4
BackColor = &H0080FFFF&
Caption = "通过设定送往电机的脉冲频率"
Height = 1335
Index = 1
Left = 2850
TabIndex = 8
Top = 690
Width = 3495
Begin VB.CommandButton Command3
Caption = "开 始"
Height = 345
Left = 1050
TabIndex = 28
Top = 840
Width = 1245
End
Begin VB.TextBox Text2
Height = 315
Index = 1
Left = 2910
TabIndex = 12
Top = 480
Width = 525
End
Begin VB.Label Label2
BackColor = &H0080FFFF&
Caption = "输入送往电机的脉冲频率(HZ):"
Height = 255
Index = 1
Left = 60
TabIndex = 13
Top = 510
Width = 2925
End
End
Begin VB.Label Label5
BackColor = &H0080FFFF&
Caption = " 电机性能决定最好不要在电机已经以某个方向运行时突然改变方向运行，所以如果控制电机运转方向改变，最好先停止转速为0再开始。"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 375
Left = 120
TabIndex = 21
Top = 240
Width = 6075
End
End
Begin VB.Frame Frame2
BackColor = &H0080C0FF&
Caption = "运行前参数设定"
ForeColor = &H00FF0000&
Height = 1455
Left = 60
TabIndex = 3
Top = 120
Width = 4305
Begin VB.TextBox Text1
Height = 345
Index = 1
Left = 1800
TabIndex = 19
Text = "2"
Top = 960
Width = 1245
End
Begin VB.TextBox Text1
Height = 345
Index = 0
Left = 1800
TabIndex = 5
Text = "1.8"
Top = 570
Width = 1245
End
Begin VB.Label Label4
BackColor = &H0080C0FF&
Caption = "请先根据步进电机、驱动器标称参数输入以下数据："
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 60
TabIndex = 20
Top = 300
Width = 4215
End
Begin VB.Label Label1
BackColor = &H0080C0FF&
Caption = "驱动器细分数："
Height = 285
Index = 1
Left = 90
TabIndex = 6
Top = 990
Width = 1695
End
Begin VB.Label Label1
BackColor = &H0080C0FF&
Caption = "步进电机步距角："
Height = 285
Index = 0
Left = 90
TabIndex = 4
Top = 600
Width = 1695
End
End
Begin VB.Frame Frame1
BackColor = &H0080C0FF&
Caption = "电机转向设定"
ForeColor = &H00FF0000&
Height = 1125
Left = 4440
TabIndex = 0
Top = 450
Width = 1935
Begin VB.OptionButton Option3
BackColor = &H0080C0FF&
Caption = "顺时针"
Height = 375
Left = 180
TabIndex = 2
Top = 240
Value = -1 'True
Width = 1245
End
Begin VB.OptionButton Option4
BackColor = &H0080C0FF&
Caption = "逆时针"
Height = 405
Left = 180
TabIndex = 1
Top = 630
Width = 1245
End
End
Begin MSCommLib.MSComm MSComm1
Left = 0
Top = 7860
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -