frmtestprep.frm

一个VB编写的

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