易语言的计次循环cpu占用太高了
你这样读法可能一秒钟就读了几百次硬盘，一分钟就读了一万多次硬盘！！！
你可以试试下面的数组方式，应该会好点！
.版本 2
.支持库 EdirectX
.程序集 窗口程序集1
.程序集变量 屏幕， 屏幕
.程序集变量 页面， 页面， ， ＂0＂
.程序集变量 横坐标， 整数型， ， ＂0＂
.程序集变量 纵坐标， 整数型， ， ＂0＂
.程序集变量 后台， 页面
.程序集变量 记录数， 整数型
.子程序 __启动窗口_创建完毕
.局部变量 n， 整数型
屏幕.创建全屏模式 （取窗口句柄 （）， 800, 600, 32， 假）
后台 = 屏幕.取后台页面 （）
打开 （取运行目录 （） + “\data\地图1.edb”, , , , , , )
记录数 = 取记录数 （）
重定义数组 （页面， 假， 记录数）
重定义数组 （横坐标， 假， 记录数）
重定义数组 （纵坐标， 假， 记录数）
到首记录 （）
.计次循环首 （记录数， n）
页面 [n].建位图页面 （屏幕， 取运行目录 （） + 读 （“名称”）， ）
横坐标 [n] = 读 （“横坐标”） ' 按理数据库中的类型对应的话是不用再次转换的
纵坐标 [n] = 读 （“纵坐标”）
跳过 （）
.计次循环尾 （）
关闭 （）
时钟1.时钟周期=100
.子程序 _时钟1_周期事件
.局部变量 n， 整数型
时钟1.时钟周期=0'此两句可以去掉
后台.填充页面 （#白色）
.计次循环首 （记录数， n）
页面 [n].块复制 （后台， 横坐标 [n]， 纵坐标 [n], ）
.计次循环尾 （）
屏幕.交换页面 （假， 假， 假）
时钟1.时钟周期=100'此两句可以去掉
易语言程序怎么让CPU使用率减小
直接上易语言代码，汉字编程语言代码就是不一般呀。
1
2
3
本文档主要讲述的是Delphi语言参考；Delphi是一种结构化、面向对象，类型强健，编译执行的高级语言,其object pascal的语法规范具有易读性好、编译快速、多单元的模块化程序设计等优点。 Delphi技术Borland的组件框架和快速开发环境。大多数情况下，本语法指引假设你使用的是Borland的开发工具。希望本文档会给有需要的朋友带来帮助；感兴趣的朋友可以过来看看
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
.版本 2
.数据类型 取电脑cpu信息， ， system_info
.成员 dwoemid， 整数型， ， ， 标识符
.成员 dwpagesize， 整数型， ， ， 分页大小
.成员 lpminimumapplicationaddress， 整数型， ， ， 最小寻址空间
.成员 lpmaximumapplicationaddress， 整数型， ， ， 最大寻址空间
.成员 dwactiveprocessormask， 整数型， ， ， 处理器掩码
.成员 dwnumberorfprocessors， 整数型， ， ， 处理器数目
.成员 dwprocessortype， 整数型， ， ， 处理器类型
.成员 dwallocationgranularity， 整数型， ， ， 虚拟内存空间的粒度
.成员 dwreserved， 整数型， ， ， 保留
.数据类型 memorystatusex
.成员 dwlength， 整数型， ， ， 64
.成员 dwmemoryload， 整数型
.成员 ulltotalphys， 长整数型
.成员 ullavailphys， 长整数型
.成员 ulltotalpagefile， 长整数型
.成员 ullavailpagefile， 长整数型
.成员 ulltotalvirtual， 长整数型
.成员 ullavailvirtual， 长整数型
.成员 ullavailextendedvirtual， 长整数型
.版本 2.支持库 spec.程序集 窗口程序集_启动窗口.子程序 __启动窗口_创建完毕调试输出 （取内存条信息 （））.子程序 取内存条信息， 文本型.局部变量 指针， memorystatusex指针.dwlength = 64globalmemorystatusex （指针）返回 （“总物理内存：” + 到文本 （四舍五入 （指针.ulltotalphys ÷ 1048576, ）) + “mb” + #换行符 + “可用物理内存：” + 到文本 （四舍五入 （指针.ullavailphys ÷ 1048576, ）) + “mb” + #换行符 + “虚拟内存：” + 到文本 （四舍五入 （指针.ulltotalvirtual ÷ 1048576, ）) + “mb” + #换行符 + “可用虚拟内存：” + 到文本 （四舍五入 （指针.ullavailvirtual ÷ 1048576, ）) + “mb” + #换行符 + “总页面文件：” + 到文本 （四舍五入 （指针.ulltotalpagefile ÷ 1048576, ）) + “mb” + #换行符 + “可用页面文件：” + 到文本 （四舍五入 （指针.ullavailpagefile ÷ 1048576, ）) + “mb” + #换行符 + “电脑内存占用：” + 到文本 （指针.dwmemoryload） + “%”)
