三视图+正轴测投影(图形学)-vb

这篇博客展示了如何使用VB编程实现三维图形的三视图(正视图、侧视图、俯视图)及正轴测投影。通过用户输入的数据,程序在Picture1画布上绘制红色线条表示正视图,绿色线条表示侧视图,蓝色线条表示俯视图,以及红色线条表示正轴测投影。用户可以清除画布并重新绘制。
摘要由CSDN通过智能技术生成

 三视图+正轴测投影(图形学)-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)

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值