三视图+正轴测投影(图形学)-vb
Option Explicit
Dim x, y, z, s, e
Dim i As Integer
Dim x1 As Integer, y1 As Integer, x2 As Integer, y2 As Integer
Dim ax As Integer, ay As Integer, bx As Integer, by As Integer, cx As Integer, cy As Integer
Private Sub Command1_Click() '正视图
Label3.Visible = True
ax = Val(Text1.Text)
ay = Val(Text2.Text)
For i = 0 To 11
x1 = x(s(i)): y1 = y(s(i))
x2 = x(e(i)): y2 = y(e(i))
Picture1.Line ((x1 + ax), (y1 + ay))-((x2 + ax), (y2 + ay)), vbRed
Next i
For i = 11 To 23
x1 = x(s(i)): y1 = y(s(i))
x2 = x(e(i)): y2 = y(e(i))
Picture1.Line ((x1 + ax), (y1 + ay))-((x2 + ax), (y2 + ay)), vbRed
Next i
End Sub
Private Sub Command2_Click() '侧视图
Label4.Visible = True
bx = Val(Text3.Text)
by = Val(Text4.Text)