📄 frmsetpara.frm
字号:
Height = 495
Left = 2400
TabIndex = 8
Top = 5880
Width = 1335
End
Begin VB.CommandButton cmdok
Caption = "确 定"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 480
TabIndex = 7
Top = 5880
Width = 1335
End
Begin VB.Frame Frame1
Caption = "合格品"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 1335
Index = 0
Left = 360
TabIndex = 15
Top = 1080
Width = 3255
Begin VB.TextBox Text1
Height = 390
Left = 1440
TabIndex = 1
Top = 360
Width = 1095
End
Begin VB.TextBox Text2
Height = 390
Left = 1440
TabIndex = 2
Top = 840
Width = 1095
End
Begin VB.Label Label1
Caption = "端面跳动："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 19
Top = 480
Width = 1095
End
Begin VB.Label Label2
Caption = "径向跳动："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 18
Top = 960
Width = 1095
End
Begin VB.Label Label3
Caption = "微米"
Height = 255
Left = 2640
TabIndex = 17
Top = 495
Width = 495
End
Begin VB.Label Label4
Caption = "微米"
Height = 255
Left = 2640
TabIndex = 16
Top = 975
Width = 495
End
End
Begin VB.Frame Frame2
Caption = "返修品"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 1335
Index = 0
Left = 3960
TabIndex = 10
Top = 2700
Width = 3255
Begin VB.TextBox Text8
Height = 390
Left = 1440
TabIndex = 6
Top = 840
Width = 1095
End
Begin VB.TextBox Text7
Height = 390
Left = 1440
TabIndex = 5
Top = 360
Width = 1095
End
Begin VB.Label Label19
Caption = "端面跳动："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 14
Top = 480
Width = 1095
End
Begin VB.Label Label18
Caption = "径向跳动："
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 360
TabIndex = 13
Top = 960
Width = 1095
End
Begin VB.Label Label17
Caption = "微米"
Height = 255
Left = 2640
TabIndex = 12
Top = 495
Width = 495
End
Begin VB.Label Label16
Caption = "微米"
Height = 255
Left = 2640
TabIndex = 11
Top = 975
Width = 495
End
End
Begin VB.Label Label15
Caption = "脉冲宽度"
Height = 372
Left = 5280
TabIndex = 46
Top = 600
Width = 852
End
Begin VB.Label Label14
Caption = "T3"
Height = 372
Left = 5760
TabIndex = 44
Top = 7440
Visible = 0 'False
Width = 492
End
Begin VB.Label Label12
Caption = "电机调速延时参数"
Height = 375
Left = 240
TabIndex = 42
Top = 600
Width = 1695
End
Begin VB.Label Label11
BackColor = &H0000C0C0&
Caption = "主轴电机最高转速为400转/分"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1920
TabIndex = 40
Top = 6840
Width = 3375
End
Begin VB.Label Label10
BackColor = &H0000C0C0&
Caption = "注意:"
BeginProperty Font
Name = "宋体"
Size = 15.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 960
TabIndex = 39
Top = 6600
Width = 855
End
Begin VB.Label Label5
Caption = "等 级 参 数 设 置"
BeginProperty Font
Name = "宋体"
Size = 21.75
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00800080&
Height = 492
Left = 1080
TabIndex = 0
Top = 0
Width = 5412
End
End
Attribute VB_Name = "frmSetpara"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
Unload Me
Load Main
End Sub
Private Sub cmdReSet_Click()
Text1.Text = txt1
Text2.Text = txt2
Text3.Text = txt3
Text4.Text = txt4
Text5.Text = txt5
Text6.Text = txt6
Text7.Text = txt7
Text8.Text = txt8
Text9.Text = speedPara
Text10.Text = stepAnglePara
txtStopPlus = StopPlus
txtPlus1 = ParaPlus1
txtT0.Text = USTimer
Text1.SetFocus
End Sub
Private Sub cmdOK_Click()
Dim i As Integer
If ((Text1.Text <> "") And (Text2.Text <> "") And (Text3.Text <> "") _
And (Text4.Text <> "") And (Text5.Text <> "") And (Text6.Text <> "") _
And (Text7.Text <> "") And (Text8.Text <> "") And (Text9.Text <> "") And (Text10.Text <> "")) Then
If (((CSng(Text1.Text)) < (CSng(Text3.Text))) And ((CSng(Text3.Text)) < (CSng(Text5.Text))) _
And ((CSng(Text5.Text)) < (CSng(Text7.Text))) And ((CSng(Text2.Text)) < (CSng(Text4.Text))) _
And ((CSng(Text4.Text)) < (CSng(Text6.Text))) And ((CSng(Text6.Text)) < (CSng(Text8.Text)))) Then
txt1 = Text1.Text
txt2 = Text2.Text
txt3 = Text3.Text
txt4 = Text4.Text
txt5 = Text5.Text
txt6 = Text6.Text
txt7 = Text7.Text
txt8 = Text8.Text
speedPara = Text9.Text
stepAnglePara = Text10.Text
StopPlus = txtStopPlus.Text
ParaPlus1 = txtPlus1.Text
USTimer = txtT0.Text
StepAngle = stepAnglePara / DownRate '0.0144
f1 = Int(speedPara * 360 / StepAngle) '计算匀速脉冲宽度
f0 = Int(f1 / 10)
a1 = (f1 - f0) / (UpPlus / StepAngle)
Call para_Write '将内存变量写如数据文件
Unload Me
Main.Show
Else
MsgBox "数据输入错误！", 16, "错误信息"
Text1.SetFocus
End If
Else
MsgBox "数据输入不完整！", 16, "错误信息"
Text1.SetFocus
End If
End Sub
Private Sub Command1_Click()
Dim m As Integer
m = MsgBox("您真的要修改密码吗?", 33, "提示")
If m = 1 Then
frmPasswordChang.Show
frmPasswordChang.TextNewPassword.SetFocus
frmPasswordChang.TextNewPassword.Text = ""
End If
End Sub
Private Sub Form_Load()
Me.Show
Call cmdReSet_Click
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -