interface.bas

步进电机控制程序

Attribute VB_Name = "interface"
Option Explicit

Sub getConfigParameters()
    
    With frmSettings
        startFQ = .txtStartFQ.Text
        patrolFQ = .txtPatrolFQ.Text
        accDura = .txtAccDura.Text
        decDura = .txtDecDura.Text
        FQSubdiv = .txtFQSubdiv.Text
    End With
    
End Sub