VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2004/11/12(Fri) 19:52
投稿者： LESIA
Ｅメール：
ＵＲＬ：
タイトル： Re^3: グラフの描画

> LESIAさんレスありがとうございます。
>
> X軸の長さを変えずにはできないんでしょうか？
> Xが500〜7300なのでその間が6800になってそれを10分割すると11回ループするので、
> 9分割すれば10回ループになるんじゃないかと考えたんですけど、pic1.Print a で
> 10が表示されないのが謎なんですよ・・・。

なぜかは、

a = 1
For x = 500 To 7300 Step 6800 / 9
Debug.Print "x = " & x & " , a = " & a
a = a + 1
Next x

を実行してみれば判りますが、Stepの値が半端なので、10回目のループが
回らないんです。

X軸の長さを変えずにやるなら、aをループ変数にするとか

b = 9

For a = 1 To 10
   x = 500 + 6800 * ((a - 1) / b)
   pic1.Line (x, 300)-(x, 7100), QBColor(8)
   pic1.CurrentX = x - 150
   pic1.CurrentY = 7100 + 50
   pic1.Print a
Next a

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -