module1.bas

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

Attribute VB_Name = "modScreen"
'界面设计
Public Sub Screen()
Dim i As Integer
Dim j As Integer

 '设置数横线
For i = 0 To 6
    X1 = 840
    Y1 = 150 + 390 * i
    X2 = 11000
    Y2 = 150 + 390 * i
    Main.PicJing.Line (X1, Y1)-(X2, Y2), vbBlack
    Main.PicDuan.Line (X1, Y1)-(X2, Y2), vbBlack
 Next i
 
 '设置数竖线
 For i = 0 To 6
    X1 = 840 + 1693.333333 * i
    Y1 = 150
    X2 = 840 + 1693.333333 * i
    Y2 = 2490
    Main.PicJing.Line (X1, Y1)-(X2, Y2), vbBlack
     Main.PicDuan.Line (X1, Y1)-(X2, Y2), vbBlack
 Next i
 
 '设置20角度线
 For i = 1 To 18
    X1 = 840 + i * 564.444444
    Y1 = 2310
    X2 = 840 + i * 564.444444
    Y2 = 2490
    Main.PicJing.Line (X1, Y1)-(X2, Y2), vbBlack
     Main.PicDuan.Line (X1, Y1)-(X2, Y2), vbBlack
    Next i
    
 '设置10度角度线
For i = 1 To 36
    X1 = 840 + i * 282.222222
    Y1 = 2400
    X2 = 840 + i * 282.222222
    Y2 = 2490
   Main.PicJing.Line (X1, Y1)-(X2, Y2), vbBlack
   Main.PicDuan.Line (X1, Y1)-(X2, Y2), vbBlack
Next i


Dim Msg1(0 To 6) As String
Dim Msg2(0 To 6) As String
Dim Msg3(0 To 3) As String



'设置横向的字符标号
Msg1(0) = "0"
Msg1(1) = "60"
Msg1(2) = "120"
Msg1(3) = "180"
Msg1(4) = "240"
Msg1(5) = "300"
Msg1(6) = "360"
Main.PicJing.FontSize = 10
Main.PicJing.FontName = "宋体"
Main.PicJing.ForeColor = &HC00000
Main.PicJing.FontBold = True

For i = 0 To 3
    Main.PicJing.CurrentX = 800 + i * 1650
    Main.PicJing.CurrentY = 2520
    Main.PicJing.Print Msg1(i)
Next i

For i = 4 To 6
    Main.PicJing.CurrentX = 780 + i * 1670
    Main.PicJing.CurrentY = 2520
    Main.PicJing.Print Msg1(i)
Next i

'设置左侧竖向的字符标号
Msg2(0) = "+3.0"
Msg2(1) = "+2.0"
Msg2(2) = "+1.0"
Msg2(3) = "R"
Msg2(4) = "-1.0"
Msg2(5) = "-2.0"
Msg2(6) = "-3.0"

Main.PicJing.FontSize = 10
Main.PicJing.FontName = "宋体"
Main.PicJing.ForeColor = &HFF00FF
Main.PicJing.FontBold = True

For i = 0 To 2
Main.PicJing.CurrentX = 100
Main.PicJing.CurrentY = 100 + i * 360
Main.PicJing.Print Msg2(i)
Next i

For i = 4 To 6
Main.PicJing.CurrentX = 100
Main.PicJing.CurrentY = 210 + i * 360
Main.PicJing.Print Msg2(i)
Next i


Main.PicJing.ForeColor = &HC00000
Main.PicJing.CurrentX = 300
Main.PicJing.CurrentY = 180 + 3 * 360
Main.PicJing.Print Msg2(3)

'设置右侧竖向的字符标号
Msg3(0) = "径"
Msg3(1) = "向"
Msg3(2) = "跳"
Msg3(3) = "动"

For i = 0 To 3
Main.PicJing.FontSize = 20
Main.PicJing.FontName = "宋体"
Main.PicJing.ForeColor = &HFF00FF
Main.PicJing.FontBold = True

Main.PicJing.CurrentX = 11235
Main.PicJing.CurrentY = 550 + i * 420
Main.PicJing.Print Msg3(i)
Next i



'设置横向的字符标号

Main.PicDuan.FontSize = 10
Main.PicDuan.FontName = "宋体"
Main.PicDuan.ForeColor = &HC00000
Main.PicDuan.FontBold = True

For i = 0 To 3
    Main.PicDuan.CurrentX = 800 + i * 1650
    Main.PicDuan.CurrentY = 2520
    Main.PicDuan.Print Msg1(i)
Next i

For i = 4 To 6
    Main.PicDuan.CurrentX = 780 + i * 1670
    Main.PicDuan.CurrentY = 2520
    Main.PicDuan.Print Msg1(i)
Next i

'设置左侧竖向的字符标号

Msg2(3) = "D"

Main.PicDuan.FontSize = 10
Main.PicDuan.FontName = "宋体"
Main.PicDuan.ForeColor = &HFF00FF
Main.PicDuan.FontBold = True

For i = 0 To 2
Main.PicDuan.CurrentX = 100
Main.PicDuan.CurrentY = 100 + i * 360
Main.PicDuan.Print Msg2(i)
Next i

For i = 4 To 6
Main.PicDuan.CurrentX = 100
Main.PicDuan.CurrentY = 210 + i * 360
Main.PicDuan.Print Msg2(i)
Next i


Main.PicDuan.ForeColor = &HC00000
Main.PicDuan.CurrentX = 300
Main.PicDuan.CurrentY = 180 + 3 * 360
Main.PicDuan.Print Msg2(3)

'设置右侧竖向的字符标号
Msg3(0) = "端"
Msg3(1) = "面"
Msg3(2) = "跳"
Msg3(3) = "动"

For i = 0 To 3
Main.PicDuan.FontSize = 20
Main.PicDuan.FontName = "宋体"
Main.PicDuan.ForeColor = &HFF00FF
Main.PicDuan.FontBold = True

Main.PicDuan.CurrentX = 11235
Main.PicDuan.CurrentY = 550 + i * 420
Main.PicDuan.Print Msg3(i)
Next i

Main.PicDuan.FontSize = 10
Main.PicDuan.FontName = "宋体"
Main.PicDuan.ForeColor = RGB(255, 0, 0)

Main.PicDuan.CurrentX = 11200
Main.PicDuan.CurrentY = 230
Main.PicDuan.Print "上"

Main.PicDuan.ForeColor = RGB(0, 0, 255)

Main.PicDuan.CurrentX = 11500
Main.PicDuan.CurrentY = 230
Main.PicDuan.Print "下"

Main.PicJing.FontSize = 10
Main.PicJing.FontName = "宋体"
Main.PicJing.ForeColor = RGB(255, 0, 0)

Main.PicJing.CurrentX = 11200
Main.PicJing.CurrentY = 230
Main.PicJing.Print "上"

Main.PicJing.ForeColor = RGB(0, 0, 255)

Main.PicJing.CurrentX = 11500
Main.PicJing.CurrentY = 230
Main.PicJing.Print "下"

'确定状态栏的位置

For i = 0 To 3

With Main.LabelB(i)
.Height = 420
.Width = 1665
.Left = 840 + 1665 * i
.Top = 80
End With


With Main.clSun(i)
.Height = 420
.Width = 1665
.Left = 840 + 1665 * i
.Top = 500
End With

With Main.clTiao(i)
.Height = 420
.Width = 1665
.Left = 840 + 1665 * i
.Top = 920
End With
Next i



Main.LabCQU.Left = (Main.Width - Main.LabCQU.Width) / 2
End Sub