frmdrawradius.frm

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

VERSION 5.00
Begin VB.Form frmDrawRadius 
   Caption         =   "车轮径向跳动图示"
   ClientHeight    =   4515
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6930
   LinkTopic       =   "Form1"
   ScaleHeight     =   4515
   ScaleMode       =   0  'User
   ScaleWidth      =   7316.129
   StartUpPosition =   2  '屏幕中心
   Begin VB.PictureBox PicRadius 
      AutoRedraw      =   -1  'True
      Height          =   4095
      Left            =   240
      ScaleHeight     =   4362.162
      ScaleMode       =   0  'User
      ScaleWidth      =   5169.079
      TabIndex        =   0
      Top             =   240
      Width           =   4425
   End
   Begin VB.Label Label4 
      Caption         =   "说明:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4920
      TabIndex        =   4
      Top             =   600
      Width           =   735
   End
   Begin VB.Label Label3 
      Caption         =   "上径跳"
      Height          =   375
      Left            =   5760
      TabIndex        =   3
      Top             =   2160
      Width           =   855
   End
   Begin VB.Label Label2 
      Caption         =   "下径跳"
      Height          =   255
      Left            =   5760
      TabIndex        =   2
      Top             =   1680
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "标准车轮"
      Height          =   375
      Left            =   5760
      TabIndex        =   1
      Top             =   1200
      Width           =   855
   End
   Begin VB.Line Line3 
      BorderColor     =   &H00FF0000&
      X1              =   5194.135
      X2              =   5827.566
      Y1              =   1800
      Y2              =   1800
   End
   Begin VB.Line Line2 
      X1              =   5194.135
      X2              =   5827.566
      Y1              =   1320
      Y2              =   1320
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      X1              =   5194.135
      X2              =   5827.566
      Y1              =   2280
      Y2              =   2280
   End
End
Attribute VB_Name = "frmDrawRadius"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub XYline() '建立XY的坐标
Dim X1 As Double
Dim X2 As Double
Dim X3 As Double
Dim X4 As Double
Dim Y1 As Double
Dim Y2 As Double
Dim Y3 As Double
Dim Y4 As Double

'设置竖线
X1 = 0
Y1 = Me.PicRadius.ScaleHeight / 2
X2 = Me.PicRadius.ScaleWidth
Y2 = Me.PicRadius.ScaleHeight / 2

'设置横线
X3 = Me.PicRadius.ScaleWidth / 2
Y3 = 0
X4 = Me.PicRadius.ScaleWidth / 2
Y4 = Me.PicRadius.ScaleHeight

Me.PicRadius.Line (X1, Y1)-(X2, Y2)
Me.PicRadius.Line (X3, Y3)-(X4, Y4)
 
End Sub