Sub Draw_Graph2()
'
'******************
' グラフ表示２
'******************
'
Form7.Xmin(0).Text = 0
Form7.Xmax(0).Text = SampTime
If Tq_min(0) < Tq_min(1) Then
  Form7.Ymin(0).Text = Int(Tq_min(0) / 10) * 10
Else
  Form7.Ymin(0).Text = Int(Tq_min(1) / 10) * 10
End If
If Tq_max(0) > Tq_max(1) Then
  Form7.Ymax(0).Text = Int(Tq_max(0) / 10 + 1) * 10
Else
  Form7.Ymax(0).Text = Int(Tq_max(1) / 10 + 1) * 10
End If
Form7.Xaxis(0).Text = "Time (sec)"
Form7.Yaxis(0).Text = "Torque (Nm)"
Form7.pctFig(0).ScaleWidth = Val(Form7.Xmax(0).Text) - Val(Form7.Xmin(0).Text)
Form7.pctFig(0).ScaleHeight = Val(Form7.Ymin(0).Text) - Val(Form7.Ymax(0).Text)
Form7.pctFig(0).ScaleLeft = Val(Form7.Xmin(0).Text)
Form7.pctFig(0).ScaleTop = Val(Form7.Ymax(0).Text)
Form7.pctFig(0).Cls
Form7.pctFig(0).Line (0, 0)-(SampTime, 0), RGB(128, 128, 128) '0Nmのグラフ
Form7.pctFig(0).Line (OpTime(1), Form7.Ymin(0).Text)-(OpTime(1), Form7.Ymax(0).Text), RGB(127, 127, 127) '１周期毎のライン
Form7.pctFig(0).Line (OpTime(2), Form7.Ymin(0).Text)-(OpTime(2), Form7.Ymax(0).Text), RGB(127, 127, 127)
Form7.pctFig(0).Line (OpTime(3), Form7.Ymin(0).Text)-(OpTime(3), Form7.Ymax(0).Text), RGB(127, 127, 127)
Form7.pctFig(0).Line (OpTime(4), Form7.Ymin(0).Text)-(OpTime(4), Form7.Ymax(0).Text), RGB(127, 127, 127)
For ii = 2 To DataNum
  z0 = (ii - 1) * SampClk / 1000
  z1 = ii * SampClk / 1000
  Form7.pctFig(0).Line (z0, Tq(0, ii - 1))-(z1, Tq(0, ii)), ChColor(0)
  Form7.pctFig(0).Line (z0, Tq(1, ii - 1))-(z1, Tq(1, ii)), ChColor(1)
Next ii
'
End Sub