- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
vb绘制正三角形
Visual basic 绘制正三角形
分析图形
正三角形边长相等,三角相等,每个角都是60度。
绘制关键
找出正三角形的三个点的坐标解析表达式。
分析方法
用三个顶点的坐标确定三点的位置,用Vb的line命令来绘制三条边就可以解决。
分析坐标
确定一个点A x,y)和边长a
点B的坐标解析表达式 x+1/2*a,y-a*sin 60°
点C的坐标解析表达式 x+a,y
分析绘图要求
要求正三角形的三个顶点都在窗体的可视范围内。
基本绘图命令
在vb程序中,命令的输入格式和自然语言很贴近,将自然语言转换成程序语句即可。在一个命令的输入过程中,不确定的命令方法或属性在程序中有提示,可以根据对英文单词的理解进行选择,完成程序。
清除窗体内的图形。
Form1.cls
确定边长。
Val inputbox 绘制窗体范围的确定。
Form1.scale -
4、绘制边,组成正三角形。
Form1.Line A的坐标-B的坐标
Form1.Line B的坐标-C的坐标
Form1.Line A的坐标-C的坐标
窗体设计
在窗体上绘制一个命令按钮,用于控制图形的绘制,修改它的caption属性为“绘制正三角形”。
编程实现
Private Sub Command1_Click
Form1.Cls
‘清除命令
Dim x, y, a As Single
a Val InputBox 请输入正三角形的边长
‘输入边长
x 0
y 0
Form1.Scale -5, -5 - 5, 5
‘设定窗体的大小
Form1.Line x, y - x + 1 / 2 * a, y - a * Sin 60 * 3.14 / 180
‘绘制AB边
Form1.Line x + 1 / 2 * a, y - a * Sin 60 * 3.14 / 180 - x + a, y
‘绘制BC边
Form1.Line x + a, y - x, y
‘绘制CA边
End Sub
注意事项
在坐标系中,x代表着距离窗体左边缘的长度,y代表着距离窗体上边缘的长度。
在窗体的坐标系中,要注意绘制的正三角形的大小。
A
C
B
1/2a
Sin60°*a
x
y
命令按钮
Caption属性
您可能关注的文档
- 参展常用英语.doc
- UNIXT_信号的忽略和捕捉.doc
- 五上6单元讲义00.doc
- keys 近几年各地高考英语作文热点话题词汇预测.doc
- 第二讲 贸易术语2(水运与贸易术语选择).ppt
- 使用css制作表单.doc
- Book6 Module5导与学.doc
- 表单及控件.doc
- 九年级复习专题(1207名词)Microsoft Word 文档.doc
- 锌—Zn(zinc).pptx
- 苏教版小学科学五年级上册《光的行进》省名师优质课赛课获奖课件市赛课一等奖课件.ppt
- 苏教版四年级下册公仪休拒收礼物课件2市公开课一等奖百校联赛特等奖课件.pptx
- 苏教版四年级8.1-认识射线、直线和角市公共课一等奖市赛课金奖课件.pptx
- 苏教课标版初中生物八年级上册第六单元第十八章第一节动物行为的主要类型市公开课一等奖省优质课赛课一等奖.pptx
- 人教七下第六章第二节自然环境市公开课一等奖省优质课赛课一等奖课件.pptx
- 新人教版一年级上册比一比市公开课获奖课件省名师优质课赛课一等奖课件.ppt
- 寻找生物的家园苏教版小学科学六年级下册市名师优质课比赛一等奖市公开课获奖课件.pptx
- 西师大版一年级数学下册第八单元分类与整理8.1-分类市公共课一等奖市赛课金奖课件.pptx
- (沪教版)二年级数学下册-万以内数的认识与表达、大数读写省名师优质课赛课获奖课件市赛课一等奖课件.ppt
- 《古代诗歌四首》课件4市公开课获奖课件省名师优质课赛课一等奖课件.ppt
文档评论(0)