易语言的重复循环导致CPU占用率过高

易语言的计次循环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

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） + “%”)