我编写了一个graph计算拓展单元【count】,不知对大家有没有帮助
pascal吧
全部回复
仅看楼主
level 12
Xero⚡12 楼主
自己编写的count单元,可用于拓展图形操作(=Highgraph)
参考了bmp读入法,但有大量修改,因为原文根本用不了
参数:1295行(不包括注释,因为基本上没有注释)
最小内存:2字节
最大内存:80MB
函数:87个
推荐在1366*768显示模式下运行
Graph作为Windows显示的旧成员,拥有史上最慢的处理速度、最少的颜色、最单调的空间。
在1366*768的显示下,坐标(x,y)与像素一一对应,但x,y∈N(N=longword),因此坐标点是不能均匀变化的量。
例如说:line(0,0,1,100);它会在线段中点处扭曲
=line(0,0,0,50);{+}line(1,51,1,100);
2015年08月03日 04点08分 1
level 12
Xero⚡12 楼主
本单元主要亮点:
1.在graph画图模式下输出字符(汉字可以用特殊方法),字体(16-40),位置,粗细(1-760),行距,颜色(1-247)可调节。
2.可以画三种函数
3.有清屏、虚线、测整数字长、word/string互换等多种特色功能。
2015年08月03日 04点08分 2
下载请去12楼。
2015年10月02日 10点10分
level 12
Xero⚡12 楼主
发的帖子居然被百度删了,为什么链接发不上去啊
2015年08月03日 05点08分 6
level 12
Xero⚡12 楼主
单元文件及测试文件下载地址 [无效] http://pan.baidu.com/s/1mgxONjU
百度云
2015年08月04日 03点08分 9
代码总共有1979行,不是1295行。
2015年08月04日 04点08分
@Xero⚡12 为什么counttest.exe打不开?
2015年08月04日 04点08分
回复
��������_��Ϯ
:如果你用的是普通RAR压缩处理文件,那应该是打得开的。你可以把counttest里的所有文件解压到同一目录下,然后运行counttest.exe。如果你就把counttest.exe解压出去,那要打得开就真是好笑了。
2015年08月04日 04点08分
level 8
顶起!
2015年08月06日 04点08分 11
level 12
Xero⚡12 楼主
解决了,下载地址 [无效] http://pan.baidu.com/s/1dDCWtB7
新增了两个测试点,
新增内容:
页操作:graph窗口只有这么大,可以用页操作新增页,同时可以进行跳转页、上下翻页等操作。
graph文档保存、读取操作
截图操作
2015年08月06日 07点08分 12
level 9
orz
——我喂自己袋盐
>>Mozilla/5.0 (Windows NT 6.1; WOW64; rv:39.0) Gecko/20100101 Firefox/39.0
2015年08月06日 07点08分 13
level 6
虽然是两个月前最后一次回复我也要说一句,为什么这个贴没有精?
2015年10月02日 01点10分 14
并不知道,可能是看的人比较少。
2015年10月02日 02点10分
@Xero⚡12 也不是,我现在写东西刚好需要就来看看
2016年03月05日 13点03分
level 12
Xero⚡12 楼主
那就不知道了,不过学PASCAL编程的,特别是不喜欢那个黑框框界面的人,这个单元对你们应该有用。我用这个单元编写了一个游戏《图形大作战》,事实证明只要充分发挥PASCAL的功能,没有什么是做不到的![大拇指]
游戏下载地址
https://tieba.baidu.com/p/4075842803?pid=76653827690#76653827690
2015年10月02日 01点10分 15
level 12
Xero⚡12 楼主
效果图:
需要的请下载,编高端游戏很合适,特点是语句简单。
像输出内容、设置字体属性、建坐标、画函数、分数计算这些功能都是一个语句可以解决的,用count单元编出来的程序代码不会很长。
2015年10月02日 02点10分 17
level 6
我看了一下,只有这个感觉
[真棒][真棒][真棒][真棒][真棒][真棒][真棒][真棒][真棒][真棒])*20
这贴没精,吧务在干啥
(应该@谁我也不知道)
但是可以怎样优化分辨率的问题呢?适应分辨率怎么做到?
2015年10月03日 00点10分 18
如果不想改分率为1366.768那么在用函数时请用setxy()改坐标原点位置,输出内容时自己控制好不要出界,就OK。
2015年10月18日 00点10分
@Xero⚡12 谢谢
2015年10月18日 12点10分
level 6
还有,可以配合pascal自带的gameunit使用吧
2015年10月03日 00点10分 19
level 4
orz
2015年10月03日 00点10分 20
level 6
请问这个能调入汉字的bmp文件怎么制作?谢谢。
2015年10月03日 01点10分 21
打开画图,文字功能,保存时设格式为bmp。
2015年10月18日 00点10分
@Xero⚡12 好吧原来那么方便
2015年10月18日 07点10分
level 2
用putpixel画图会很慢吧?
2016年02月10日 04点02分 22
level 12
Xero⚡12 楼主
事实证明用在游戏里面至少是流畅的。
2016年02月10日 05点02分 23
level 7

2017年02月13日 12点02分 24
level 15
刚刚我还以为这是新帖[滑稽]
2017年02月14日 13点02分 25
1