棒グラフを表示する. Bar は横軸が数値, Bar_str は横軸が文字列の場合に使用できる.

---

Sub Test_Bar()
    Const N = 3
    Dim X(N - 1) As Double, Xstr(N - 1) As String, Y(N - 1) As Double
    Dim I As Integer
    Dim Fig As Figure, Ax1 As Axs, Ax2 As Axs
    '-- Make data
    X(0) = 4: X(1) = 5: X(2) = 10
    Xstr(0) = "group_a": Xstr(1) = "group_b": Xstr(2) = "group_c"
    Y(0) = 1: Y(1) = 10: Y(2) = 100
    '-- Plot
    Set Fig = Plt.Figure()
    Set Ax1 = Fig.Add_subplot(2, 1, 1)
    Call Ax1.Bar(N, X(), Y())
    Set Ax2 = Fig.Add_subplot(2, 1, 2)
    Call Ax2.Bar_str(N, Xstr(), Y())
    Call Plt.Show
End Sub