你這樣讀法可能一秒鐘就讀了幾百次硬碟,一分鐘就讀了一萬多次硬碟! ! !
你可以試試下面的陣列方式,應該會好一點!
.版本 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'此兩句可以去掉
直接上易語言程式碼,漢字程式語言程式碼就是不一般呀。
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) “%”)
以上是易語言的計數循環導致CPU使用率過高的詳細內容。更多資訊請關注PHP中文網其他相關文章!