| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1165 人关注过本帖
标题:[求助]请问如何用vb.NET画抛物线?
只看楼主 加入收藏
famdeng
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-5-15
收藏
 问题点数:0 回复次数:4 
[求助]请问如何用vb.NET画抛物线?
如题!我用以下的代码画抛物线,但画出来的东西不像样,请问有什么问题?可不可以给出一个较完整的代码?

Dim pen As New pen(Color.Red)
Dim x, y As Single
mg = Me.CreateGraphics
For x = 0 To 10 Step 0.1
y = x ^ 2
mg.DrawEllipse(pen, x, y, 1, 1)
Next
搜索更多相关主题的帖子: 画抛物线 NET pen Dim New 
2006-05-19 00:24
adair
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:250
专家分:0
注 册:2005-9-3
收藏
得分:0 

dim pen as new pen(color.red)
dim x1,y1,x2,y2 as single
dim i as integer
mg=me.creategraphics

for i=0 to 300
x2=i
y2=x^2
mg.drawellipse(pen,x1,y1,x2,y2)
x1=x2
y1=y2

next



********年轻无极限******** 要時刻相信你自己,不要被自己打敗
2006-05-19 08:19
famdeng
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-5-15
收藏
得分:0 
好像效果也还是不太理想喔,还有其他方法吗?
2006-05-19 13:31
adair
Rank: 3Rank: 3
等 级:新手上路
威 望:9
帖 子:250
专家分:0
注 册:2005-9-3
收藏
得分:0 

你把间距减少就可以了.


********年轻无极限******** 要時刻相信你自己,不要被自己打敗
2006-05-19 13:58
famdeng
Rank: 1
等 级:新手上路
帖 子:17
专家分:0
注 册:2006-5-15
收藏
得分:0 

哦,先谢了!

2006-05-19 18:12
快速回复:[求助]请问如何用vb.NET画抛物线?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.021435 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved