作品プログラム
- 動作環境
- プロデル1.6.963
- 投稿者
- ゆうと
- 投稿日
- 2019-07-13 16:54:36
- ダウンロード数
- 522
作品のプログラム
// ディスク伝送量ガジェット //
メイン画面を表示する
待機する
メイン画面とは
ウィンドウを継承する
はじめの手順
初期化する
ーー貼り付けた部品に対する操作をここに書きます
タイマー1というタイマーを作る
タイマー1の時間になった時の手順は、時間になった
タイマー1の間隔を1000に変える
タイマー1を開始する
描画する
終わり
初期化する手順
ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
この実質大きさを{531,196}に変える
この最前面を○に変える
この種類を「ツール」に変える
この内容を「ディスク伝送量グラフ」に変える
このドラッグドロップを○に変える
初期化開始する
キャンバス1というキャンバスを作る
その位置と大きさを{0,0,531,196}に変える
その倍率を1.5に変える
その実質大きさを{531,196}に変える
そのドッキング方向を「全体」に変える
初期化終了する
この設計スケール比率を{144,144}に変える
終わり
描画する手順
折れ線グラフ図形(キャンバス1)を作ってリードグラフとする
その位置を{0,0}に変える
その大きさをキャンバス1の大きさに変える
その線色は、緑
リードグラフをキャンバス1に追加する
折れ線グラフ図形(キャンバス1)を作ってライトグラフとする
その位置を{0,0}に変える
その大きさをキャンバス1の大きさに変える
その線色は、黄緑
ライトグラフをキャンバス1に追加する
キャンバス1へ「Read」という文字を描いてダウンラベルとする
その位置は、{10,30}
そのフォントを「メイリオ」に変える
その文字色を緑に変える
その文字サイズを14に変える
キャンバス1へ「Write」という文字を描いてアップラベルとする
その位置は、{10,10}
そのフォントを「メイリオ」に変える
その文字色を黄緑に変える
その文字サイズを14に変える
キャンバス1を更新する
終わり
開いた時の手順
リードグラフを更新する
ライトグラフを更新する
キャンバス1を更新する
終わり
キャンバス1の大きさが変わった時の手順
もしリードグラフが無なら返す
リードグラフの大きさは、キャンバス1の大きさ
ライトグラフの大きさは、キャンバス1の大きさ
キャンバス1を更新する
終わり
時間になった手順
WMIから「SELECT Name, DiskReadBytesPersec, DiskWriteBytesPersec FROM Win32_PerfFormattedData_PerfDisk_LogicalDisk」で取得して結果リストとする
結果リストのすべてのオブジェクトについてそれぞれ繰り返す
オブジェクトのすべての要素についてそれぞれ繰り返す
//要素の名前&「 」&要素の値を報告する
もし要素の名前は、「DiskReadBytesPersec」なら
単位時間受信量=(要素の値*1)
他でもし要素の名前は、「DiskWriteBytesPersec」なら
単位時間送信量=(要素の値*1)
もし終わり
繰り返し終わり
繰り返しから抜け出す
繰り返し終わり
//読み込み
リードグラフに単位時間受信量を加える
最大値1は、リードグラフのグラフ値リストの最大値
ダウンラベルの内容は、「Read:[単位時間受信量のサイズ形式]/s Max:[最大値1のサイズ形式]/s」
//書き込み
ライトグラフに単位時間送信量を加える
最大値2は、ライトグラフのグラフ値リストの最大値
アップラベルの内容は、「Write:[単位時間送信量のサイズ形式]/s Max:[最大値2のサイズ形式]/s」
もし最大値1が最大値2より大きいなら
リードグラフの最大値は、最大値1
ライトグラフの最大値は、最大値1
そうでなければ
リードグラフの最大値は、最大値2
ライトグラフの最大値は、最大値2
もし終わり
リードグラフを更新する
ライトグラフを更新する
キャンバス1を更新する
終わり
終わり
折れ線グラフ図形とは
子キャンバスを継承する
+サンプル数=30
+グラフ値リスト={}
+最大値=100
+座標値リスト={}
はじめ(キャンバス1)の手順=(キャンバス1)
連続線を描いてグラフ線とする
その線色を青に変える
その太さを1に変える
その点は、グラフ値リスト
更新する
終わり
自分を更新する手順
もし最大値が0なら最大値は、100
単位幅は、実質大きさの幅/サンプル数
座標値リスト(1)は、{0,実質大きさの高さ}
番号を1からグラフ値リストの個数まで増やしながら繰り返す
座標値リスト(番号+1)は、{(番号-1)*単位幅,(1-グラフ値リスト(番号)/最大値)*実質大きさの高さ}
繰り返し終わり
グラフ線の点は、座標値リスト
グラフ線に{(番号-1)*単位幅,実質大きさの高さ}を加える
終わり
自分に【値】を加える手順
グラフ値リストに値を加える
個数は、グラフ値リストの個数
もし個数がサンプル数より大きいなら
開始番号は、個数-サンプル数
グラフ値リストは、グラフ値リストの(開始番号+1)番目からサンプル数個切り出す
もし終わり
終わり
線色を設定する手順
グラフ線の線色を設定値に変える
背景色という色情報(設定値)を作る
背景色のアルファは、50
グラフ線の背景色を背景色に変える
終わり
終わり