横棒グラフを表示

説明

横棒グラフはデータに応じて四角を描画します。

このプログラムではデータに応じて棒グラフのサイズ（横幅など）は調整していません。

Studioで試す

以下のリンクから Jasmine Tea でこのサンプルプログラムを Studio 画面で開いて実際に試すことができます。プログラムを実行したいときは、エディターの右下にある青色の「実行」ボタンを押してください。

Studio で開く

プログラム

// 横棒グラフを表示
cls
d@=[70,2,45,35,90,14,56,81,22,10]
line (150,50)-(150,350),7
for i=0 to 9
  call draw_bar d@[i],i
next

procedure draw_bar v,i
  box (150,i*20+100)-(v+150,i*20+15+100),7,8
end procedure

解説

2行目で画面を消去しています。

3行目で数値データを配列に用意しています。

4行目で縦軸を描画しています。

5行目で表示するデータの数だけ繰り返します。データは10個で決め打ちしてありますが、棒グラフが画面外にまで表示されるようなデータ個数の場合はプロシージャ内でエラーになるので注意してください。

10行目でデータに応じて四角形を描きます。ここでは左上から右下になるように座標値を指定しています。また画面の(150,100)が原点(0,0)になるようにしています。

10行目のi*20+15の15が棒グラフの幅になります。この値を変更すると棒グラフの幅を細くしたり太くしたりできます。