吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 199|回复: 0

易语言制作程序窗口画曲线图源码下载

[复制链接]

1668

主题

1790

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
18390
金币
8276
发表于 2020-11-24 21:00:13 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [加入VIP]   [获取金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
gGdiplus图形  
曲线模块曲线型  
数组30 

子程序名返回值类型公开备 注
_窗口1_创建完毕  
变量名类 型静态数组备 注
a整数型  
GDIPlus装载 ()
宽度 = 800
高度 = 500
置随机数种子 ()
计次循环首 (取数组成员数 (数组), a)
数组 [a]取随机数 (1, 100)
' 输出调试文本 (数组 [a])
计次循环尾 ()
g.创建_自HWND (窗口1.取窗口句柄 ())
子程序名返回值类型公开备 注
曲线图  
变量名类 型静态数组备 注
画笔Gdiplus画笔  
a整数型  
画刷Gdiplus画刷  
虚线Gdiplus画笔  
变量y小数型  
小数型  
小数型  
小数型  
小数型  
i整数型  
数组PointF 0
变量x小数型  
p字体Gdiplus字体  
yy小数型  
文本画刷Gdiplus画刷  
t整数型  
临时 0
画笔.创建_自颜色 (RGB到ARGB (曲线模块.画笔颜色, 255), 曲线模块.线条宽度)
画刷.创建_固色画刷 (RGB到ARGB (曲线模块.画刷颜色, 255))
p字体.创建 (“宋体”, 20, 1, 2)
g.画文本 (曲线模块.标题, 宽度 ÷ 2 - 100, 20, p字体, 画刷)
左 = 40
上 = 60
下 = 25
右 = 25
g.画矩形 (画笔, 左, 上, 宽度 - 左 - 右, 高度 - 上 - 下)
变量y (高度 - 上 - 下) ÷ 曲线模块.y轴数量
虚线.创建_自颜色 (RGB到ARGB (曲线模块.画笔颜色, 60), 曲线模块.线条宽度)
虚线.置虚线风格 ( #虚线风格_划线 )
p字体.创建 (“宋体”, 12, 2, 2)
复制数组 (临时, 曲线模块.当前数组)
数组排序 (临时, )
曲线模块.y轴最大值 = 临时 [取数组成员数 (临时)]
计次循环首 (1000, t)
如果 ( (曲线模块.y轴最大值 + t) % 曲线模块.y轴数量 = 0)
跳出循环 ()



计次循环尾 ()
yy = 曲线模块.y轴最大值 + t
曲线模块.y轴刻度 = yy ÷ 曲线模块.y轴数量
' p字体.GetNativeFont ()
计次循环首 (曲线模块.y轴数量, a)
曲线模块.矩形.左 = 左
曲线模块.矩形.上 = 上 + 变量y × a
曲线模块.矩形.下 = 曲线模块.矩形.上
曲线模块.矩形.右 = 宽度 - 右
g.画直线 (虚线, 曲线模块.矩形.左, 曲线模块.矩形.上, 曲线模块.矩形.右, 曲线模块.矩形.下)
g.画文本 (到文本 (yy), 曲线模块.矩形.左 - 左 + 10, 曲线模块.矩形.上 - 20, p字体, 画刷)
yy = 取绝对值 (yy - 曲线模块.y轴刻度)
计次循环尾 ()
' g.画文本 (到文本 (0), qq.矩形.左 - 20, 高度 - 变量y, p字体, 画刷)
曲线模块.画笔颜色 = 255
曲线模块.线条宽度 = 1
画笔.创建_自颜色 (RGB到ARGB (曲线模块.画笔颜色, 255), 曲线模块.线条宽度)
变量x (宽度 - 左 - 右) ÷ 曲线模块.x轴数量
重定义数组 (数组, 假, 曲线模块.x轴数量)
文本画刷.创建_固色画刷 (RGB到ARGB ( #黑色, 255))
g.置呈现模式 ( #呈现模式_消除锯齿 )
计次循环首 (取数组成员数 (曲线模块.当前数组), i)
数组 [i].x = 变量x × i + 变量x
' 输出调试文本 (数组 [b].x)
数组 [i].y = 高度 - 下 - 曲线模块.当前数组 [i] × 变量y ÷ 曲线模块.y轴刻度
' 输出调试文本 (数组 [b].y)
计次循环尾 ()
g.画直线组 (画笔, 数组, 曲线模块.x轴数量)
画刷.置固色画刷颜色 (RGB到ARGB (255, 255))
画笔.创建_自颜色 (RGB到ARGB ( #黑色, 255), 曲线模块.线条宽度)
计次循环首 (取数组成员数 (曲线模块.当前数组), i)
g.画文本 (到文本 (曲线模块.当前数组 [i]), 数组 [i].x - 8, 数组 [i].y - 20, p字体, 文本画刷)
g.填充矩形 (画刷, 数组 [i].x - 3, 数组 [i].y - 3, 5, 5)
g.画直线 (画笔, 数组 [i].x, 高度 - 下 - 2, 数组 [i].x, 高度 - 下 + 2)
' 输出调试文本 (数组 [b].y)
计次循环尾 ()
输出调试文本 (变量y)
子程序名返回值类型公开备 注
画就画吧  
变量名类 型静态数组备 注
a整数型  
曲线模块.标题 = “在窗口上画个曲线图”
曲线模块.画笔颜色 = #黑色
曲线模块.画刷颜色 = 255
曲线模块.当前数组 = 数组
曲线模块.线条宽度 = 1
曲线模块.y轴数量 = 25
曲线模块.x轴数量 = 取数组成员数 (数组)
曲线图 ()
子程序名返回值类型公开备 注
_按钮1_被单击  
窗口1.销毁 ()
子程序名返回值类型公开备 注
_窗口1_将被销毁  
GDIPlus卸载 ()
子程序名返回值类型公开备 注
_窗口1_被激活 暂时解决重画问题
画就画吧 ()





上一篇:易语言制作超酷放大镜源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2021-3-5 14:25 , Processed in 1.160111 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表