第1回 CPU ご自慢大会
しょーもないツールを作ったのでぜひつかってみてくれ。
Youたちの使っているPCには当然CPUがインサイドしている。
Everyday こつこつ Working している CPU を自慢してみないかね？
俗に言うベンチマークとかいうものだ。
低速な peek , poke がどれほどの速度で動作しているか確かめてみたい。
協力者は以下のフォームを使ってはっつけてくれ。
たくさんの結果を待っている。
ーフォームー
〔OS〕
〔基準解像度〕
〔CPU〕
〔チップセット〕
〔結果をはっつける〕
ーここまでー
#uselib "winmm.dll" #cfunc timeGetTime "timeGetTime" // 設定 ↓ここから //////////////////////////////////////////////////////////////////////////////////////// ; ファイル名 v = "Graphic.bmp" ; 処理解像度 (初期：QUXGA Wide) sx = 3840 sy = 2400 // 設定 ↑ここまで //////////////////////////////////////////////////////////////////////////////////////// dim heikin,10 // かれんとでぃれくとり chdir dir_desktop // メイン画面 screen 0,380,120 title "NBK - Bench" syscolor 15 : boxf : syscolor 8 pos 10,10 mes "処理する解像度..." mes " ---> QUXGA Wide を基準とします...(勝手に" pos 60,55 input sx,40,20 pos 120,55 input sy,40,20 pos 10,90 button "START",*start stop *start cls : syscolor 15 : boxf : syscolor 8 // 処理するデータ作成 pos 10,10 mes "画像データー作成中..." if (sx<=0)or(sy<=0){ dialog "処理する解像度が小さすぎるってｗｗ" end } buffer 1,sx,sy cls 4 bmpsave v // メイン画面指定 gsel 0 // ファイルサイズとバッファ設定 exist v : size = strsize : alloc buf,size bload v,buf,size // 細かい設定（笑 sType = "暗号化" : key = 1 *main // 暗号化 - 復号化 repeat size if nTime ! timeGetTime()/1000{ if t_sec\2 = 0 { syscolor 15 : boxf : syscolor 8 pos 10,10 mes ""+sType+"中... "+cnt/1024+" KB / "+size/1024+" KB" mes "" mes " ---> 秒速 : "+cps/1024+" KB/s" mes " ---> 経過時間 : "+t_sec+" 秒" if cps ! 0 : mes " ---> 残り予想時間 : "+(size-cnt)/cps+" 秒" await 0 } // 計算 if f_all = 1 : heikin(t) = cps : t++ : if t>10 : t=0 ; 平均 cps = 0 nTime = timeGetTime()/1000 t_sec++ } // 元データ読み込み dat = peek(buf,cnt) // データ変更 dat = dat+(key) // 補正 if (dat) >= 256 : dat = 0 if (dat) <= -1 : dat = 255 // メモリに書き込み poke buf,cnt,dat cps++ loop // 保存 bsave ""+sType+"_"+v,buf,size // 次の処理 if f_all = 0 : f_all = 1 : sType = "復号化" : key=-1 : goto *main // 結果 repeat 10 t = t+heikin(cnt) loop t/10 syscolor 15 : boxf : syscolor 8 text = "--- ベンチマーク結果 ---\n" text+= "\n" text+= "解像度 : "+sx+"x"+sy+"\n" text+= " ---> "+size+" byte\n" text+= "システム\n" text+= " --> OS: "+sysinfo(0)+" - CPU: "+sysinfo(16)+" RAM: "+sysinfo(34)/1024+"KB\n\n" text+= "すべての処理にかかった時間...\n" text+= " ---> "+t_sec+" 秒\n" text+= "平均処理速度...\n" text+= " ---> "+t/1024+" KB/s\n" pos 0,0 mesbox text,380,120 stop
