?? frmtestprep.frm
字號:
VERSION 5.00
Begin VB.Form PrepForm
BorderStyle = 1 '屌掕(幚慄)
Caption = "Form1"
ClientHeight = 1245
ClientLeft = 45
ClientTop = 330
ClientWidth = 1890
Icon = "frmTestPrep.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1245
ScaleWidth = 1890
StartUpPosition = 3 'Windows 偺婛掕抣
End
Attribute VB_Name = "PrepForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub Form_Load()
'帋尡僾儘僌儔儉偺擇廳婲摦嬛巭--------------------------
Dim hwindow As Long
hwindow = FindWindow(vbNullString, "帋尡婡儌僯僞")
If hwindow <> 0 Then
MsgBox "婛偵帋尡僾儘僌儔儉偑婲摦偝傟偰偄傑偡丅"
End
End If
'----------------------------------------------------
Dim RET As Integer, J As Integer, S As Integer, K As Integer
Dim LWK As Single
Dim FileNumB As Integer, FileNumB1 As Integer
PrepForm.Caption = "帋尡婡儌僯僞" '-----------------------------------
IniDirFName$ = "HingeTester"
IniTstName$ = "STD"
Call DataFolderGenerate("C:\INTESCO")
iniFile$ = iniFileGenerate(IniDirFName$, SysDir$)
Call DataFolderConfirm '愝掕僼傽僀儖偺撉崬傒
Call Set_Places
'帋尡忦審偺昞帵寘-----(屻揤曄峏)
Dim lcDgt(8) As String '夞揮妏丒夞揮懍搙丒僩儖僋侾丒俀丒掞峈
Call DeciPlaceS_Par_Load(lcDgt)
If lcDgt(1) = "" Or lcDgt(1) = "0" Then GoSub P_Default
Plc.pAngle = lcDgt(1)
Plc.pAglSpd = lcDgt(2)
Plc.pStdTorQue1 = lcDgt(3): Plc.pWidTorQue1 = lcDgt(4)
Plc.pStdTorQue2 = lcDgt(5): Plc.pWidTorQue2 = lcDgt(6)
Plc.pStdResisT = lcDgt(7): Plc.pWidResisT = lcDgt(8)
'-----
Dim lcOfset(3) As String
Call Wicked_Offset_Load(lcOfset)
If lcOfset(1) = "" Or lcOfset(1) = "0" Then GoSub W_Default
Ost_TorQue1 = Val(lcOfset(1))
Ost_TorQue2 = Val(lcOfset(2))
Ost_ResisT = Val(lcOfset(3))
'-----
RekeyFlag = 0 '0:擖椡 1:
ParaForm.Show
PrepForm.Hide
Exit Sub
P_Default: '愝掕偼8暥帤傑偱-----
lcDgt(1) = Plc.pAngle
lcDgt(2) = Plc.pAglSpd
lcDgt(3) = Plc.pStdTorQue1
lcDgt(4) = Plc.pWidTorQue1
lcDgt(5) = Plc.pStdTorQue2
lcDgt(6) = Plc.pWidTorQue2
lcDgt(7) = Plc.pStdResisT
lcDgt(8) = Plc.pWidResisT
Call DeciPlaceS_Par_Save(lcDgt)
Return
W_Default:
lcOfset(1) = "0"
lcOfset(2) = "0"
lcOfset(3) = "0"
Call Wicked_Offset_Save(lcOfset)
Return
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -