| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛

问题点数：0  回复次数：5

furnace函数是自己编的如下
'高炉轮廓
Public Sub furnace()
Dim i As Integer
Picture2.Scale (-6.5, 1.5)-(6.5, -16.5)
Picture2.DrawWidth = 1
Picture2.Line (-3, 0)-(0, 0), RGB(0, 0, 0)
Picture2.Line (0, 0)-(0, -14.6), RGB(0, 0, 0)
Picture2.Line (0, -14.6)-(-4.4006, -14.6), RGB(0, 0, 0)
Picture2.Line (-4.4006, -14.6)-(-3, -2), RGB(0, 0, 0)
Picture2.Line (-3, -2)-(-3, 0), RGB(0, 0, 0)

Picture2.Line (0, -14.6)-(4.4006, -14.6), RGB(0, 0, 0)
Picture2.Line (4.4006, -14.6)-(3, -2), RGB(0, 0, 0)
Picture2.Line (3, -2)-(3, 0), RGB(0, 0, 0)
Picture2.Line (3, 0)-(0, 0), RGB(0, 0, 0)

Picture2.Line (-5.5, 0.5)-(5.5, 0.5)
Picture2.Line (5.5, 0.5)-(5.5, -16.5)
Picture2.Line (-5.5, 0.5)-(-5.5, -16.5)

For i = -5 To 5 Step 1
Picture2.CurrentX = i - 0.2
Picture2.CurrentY = 0.9
Picture2.Print i
Next i

For i = 0 To -16 Step -1
Picture2.CurrentX = 5.5
Picture2.CurrentY = i
Picture2.Print i
Next i

Picture2.Line (-3, -1.44)-(-2.235, -1.25), RGB(0, 0, 0)
Picture2.Line (-2.235, -1.25)-(-1.55, -1.697), RGB(0, 0, 0)
Picture2.Line (-1.55, -1.697)-(-0.775, -1.504), RGB(0, 0, 0)
Picture2.Line (-0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)

Picture2.Line (3, -1.44)-(2.235, -1.25), RGB(0, 0, 0)
Picture2.Line (2.235, -1.25)-(1.55, -1.697), RGB(0, 0, 0)
Picture2.Line (1.55, -1.697)-(0.775, -1.504), RGB(0, 0, 0)
Picture2.Line (0.775, -1.504)-(0, -1.951), RGB(0, 0, 0)
End Sub

Call furnace
End Sub

得分:0

得分:0
Private Sub Picture2_Paint()
call furnace
end sub

Picture2.AutoRedraw = True   '设为自动重绘
Call furnace
End Sub

得分:0
Show
Picture2.SetFocus'此条也可以注释掉
Call furnace
End Sub

[此贴子已经被作者于2018-5-10 23:29编辑过]

得分:0

得分:0

• 6
• 1/1页
• 1

Powered by Discuz, Processed in 0.038892 second(s), 8 queries.