资源大小： 4KB
发布时间： 2008-08-02
文件格式： rar
下载次数： 0
分享到：

下载地址：

下载地址1
（本站为飞网专业下载站，域名：down.cfei.net）

资源简介：

心脏线程序(VB6.0代码编写)
\'注释：画抛物线
\'清除picture1内的图形
Picture1.Cls
\'Scale方法设定用户坐标系，坐标原点在Picture1中心
Picture1.ScaleMode = 0
Picture1.ScaleMode = 3
Picture1.Scale (-20, 20)-(20, -20)
\'设置绘线宽度
Picture1.DrawWidth = 1
\'绘制坐标系的X轴及箭头线
Picture1.Line (-20, 0)-(20, 0), vbBlue
Picture1.Line (18, 1)-(20, 0), vbBlue
Picture1.Line -(18, -1), vbBlue
Picture1.ForeColor = vbBlue
Picture1.Print \"X\"
\'绘制坐标系的Y轴及箭头线
Picture1.Line (0, 20)-(0, -20), vbBlue
Picture1.Line (1, 18)-(0, 20), vbBlue
Picture1.Line -(-1, 18), vbBlue
Picture1.Print \"Y\"
\'在指定位置显示原点
Picture1.CurrentX = 1
Picture1.CurrentY = -1
Picture1.Print \"O\"
\'重设绘线宽度
Picture1.DrawWidth = 2
\'用For循环绘点，使其按心脏线规律变化QQ223857666勾月


飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。