frmtest.frm

使用的是最小误差法的插补程序

            Height          =   525
            Left            =   360
            Style           =   1  'Graphical
            TabIndex        =   12
            Top             =   360
            Width           =   1245
         End
      End
      Begin VB.Frame Frame4 
         Caption         =   "夹具"
         Height          =   2415
         Left            =   2520
         TabIndex        =   8
         Top             =   1920
         Width           =   1695
         Begin VB.CommandButton Cmdjiaju1 
            Caption         =   "夹  紧"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   27
            Top             =   240
            Width           =   1245
         End
         Begin VB.CommandButton Cmdjiaju3 
            Caption         =   "松  开"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   17
            Top             =   1680
            Width           =   1245
         End
         Begin VB.CommandButton Cmdjiaju2 
            Caption         =   "停  止"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   16
            Top             =   960
            Width           =   1245
         End
      End
      Begin VB.Frame Frame3 
         Caption         =   "测头"
         Height          =   2415
         Left            =   360
         TabIndex        =   7
         Top             =   1920
         Width           =   1695
         Begin VB.CommandButton Cmdcetou1 
            Caption         =   "前  进"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   26
            Top             =   240
            Width           =   1245
         End
         Begin VB.CommandButton Cmdcetou3 
            Caption         =   "后  退"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   15
            Top             =   1680
            Width           =   1245
         End
         Begin VB.CommandButton Cmdcetou2 
            Caption         =   "停  止"
            Height          =   525
            Left            =   240
            Style           =   1  'Graphical
            TabIndex        =   14
            Top             =   960
            Width           =   1245
         End
      End
   End
   Begin VB.Label Label5 
      Caption         =   "警告：为避免损坏设备，非专门技术人员请勿操作！！！"
      ForeColor       =   &H000000FF&
      Height          =   375
      Left            =   1680
      TabIndex        =   28
      Top             =   600
      Width           =   5295
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   $"frmTest.frx":0000
      Height          =   435
      Left            =   1320
      TabIndex        =   0
      Top             =   120
      Width           =   5415
   End
End
Attribute VB_Name = "frmTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private BuJinStart As Boolean   '步进电机启动
Private TmpPlus As Integer
'调试报废品指示灯开
Private Sub cmdbaofei1_Click()
    Call Led("废品")
End Sub
'调试报废品指示灯关
Private Sub cmdbaofei2_Click()
    Call Led("关灯")
End Sub
'调试处理品指示灯开
Private Sub cmdchuli1_Click()
    Call Led("一级处理品")
End Sub
'调试处理品指示灯关
Private Sub cmdchuli2_Click()
    Call Led("关灯")
End Sub
'IO卡清零
Private Sub cmdClear_Click()
    Call outportb(BaseAddrIO, &H0)
    Call outportb(BaseAddrIO + 1, &H0)
    Call SetButtonBKcolor(Cmdcetou2, Cmdcetou1, Cmdcetou3)
    Call SetButtonBKcolor(Cmdjiaju2, Cmdjiaju1, Cmdjiaju3)
    Call SetButtonBKcolor(Cmdzhuzhou2, Cmdzhuzhou1, Cmdzhuzhou3)
End Sub
'退出调试
Private Sub Cmdfanhui_Click()
    Call cmdClear_Click
    Unload Me
End Sub
'调试返修品指示灯开
Private Sub cmdfanxiu1_Click()
    Call Led("返修品")
End Sub
'调试返修品指示灯关
Private Sub cmdfanxiu2_Click()
    Call Led("关灯")
End Sub
'调试合格品指示灯开
Private Sub Cmdhege1_Click()
    Call Led("合格品")
End Sub
'调试合格品指示灯开
Private Sub Cmdhege2_Click()
    Call Led("关灯")
End Sub
'调试测头前进
Private Sub Cmdcetou1_Click()
    Call ForwardExam
    Call SetButtonBKcolor(Cmdcetou1, Cmdcetou2, Cmdcetou3)
End Sub
'调试测头停止
Private Sub Cmdcetou2_Click()
    Call StopExam
    Call SetButtonBKcolor(Cmdcetou2, Cmdcetou1, Cmdcetou3)
End Sub
'调试测头后退
Private Sub Cmdcetou3_Click()
    Call QuitExam
    Call SetButtonBKcolor(Cmdcetou3, Cmdcetou2, Cmdcetou1)
End Sub
'调试夹具夹紧
Private Sub Cmdjiaju1_Click()
    Call Clamp
    Call SetButtonBKcolor(Cmdjiaju1, Cmdjiaju2, Cmdjiaju3)
End Sub
'调试夹具停止工作
Private Sub Cmdjiaju2_Click()
    Call StopClamp
    Call SetButtonBKcolor(Cmdjiaju2, Cmdjiaju1, Cmdjiaju3)
End Sub
'调试夹具松开
Private Sub Cmdjiaju3_Click()
    Call Loosen
    Call SetButtonBKcolor(Cmdjiaju3, Cmdjiaju2, Cmdjiaju1)
End Sub
'调试主轴启动
Private Sub Cmdzhuzhou1_Click()
BuJinStart = True
Do
    DoEvents
    Call StartAxis(TmpPlus)
    Call SetButtonBKcolor(Cmdzhuzhou1, Cmdzhuzhou2, Cmdzhuzhou3)
Loop Until Not BuJinStart
Call StopAxis
End Sub
'调试主轴停转
Private Sub Cmdzhuzhou2_Click()
BuJinStart = False
    Call StopAxis
    Call SetButtonBKcolor(Cmdzhuzhou2, Cmdzhuzhou1, Cmdzhuzhou3)
End Sub


Private Sub Form_Load()
    BuJinStart = False
    With HScroll1
        .min = ParaPlus1      'T4
        .max = 20
        .value = 1
    End With
    Call cmdClear_Click
End Sub


Private Sub HScroll1_Change()
    TmpPlus = HScroll1.value
End Sub

Private Sub Timer1_Timer()
   '检测启动开关的状态
  If IsStart = 1 Then
    Me.Label2.Caption = "启动按下"
    Shape1.FillColor = &HFF00&
  Else
    Me.Label2.Caption = "启动松开"
    Shape1.FillColor = &HFF&
  End If
  
  '检测夹具开关的状态
  If IsClamp = 2 Then
    Me.Label3.Caption = "夹紧到位"
    Shape2.FillColor = &HFF00&
  Else
    Me.Label3.Caption = "夹紧未到位"
    Shape2.FillColor = &HFF&
  End If
  
  '检测测头开关的状态
  If IsForwardExam = 4 Then
    Me.Label4.Caption = "测头到位"
    Shape3.FillColor = &HFF00&
  Else
    Me.Label4.Caption = "测头未到位"
    Shape3.FillColor = &HFF&
  End If
  
End Sub
'设置按钮背景颜色
Private Sub SetButtonBKcolor(My1 As Object, My2 As Object, My3 As Object)

    My1.BackColor = RGB(0, 255, 0)
    My2.BackColor = &H8000000F
    My3.BackColor = &H8000000F

End Sub