グラフのリアルタイム表示は？ (ID:86340)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

ぴろあきさん探していたものが見つかりました。
ありがとうございます。
私は年寄り初心者なので、内容は全て理解できたわけではあり
ませんが、勉強させていただきます。
初心者ながら、初心者向けにサンプルを作って見ました。
まったく初心者が書いた単純なサンプルで理解はしやすいと思
いますが・・・・・。

ぴろあきさんのご提示いただいたサンプルとは、まったく比較
になりませんが、初心者には理解しやすいかなと思って（自分
も初心者なもんで）あえて提示させていただきます。

くりゅうさんも初心者かなって思って書きました。参考になれ
ばいいのですが、まったく余計なおせっかいかもわかりません。

失礼なレスであれば即、無視してください。

Public OLD_X            As Integer
Public OLD_Y            As Integer
Public LAST_Y           As Integer

'####################################################################
'                     フォーム表示時の初期処理
'####################################################################
Private Sub Form_Load()
    Me.Width = 10365         'フォーム・ピクチャボックスの大きさ設定
    Me.Height = 6720
    Me.Picture1.Width = 10000
    Me.Picture1.Height = 5550
    Me.Picture1.Left = 120
    Me.Picture1.Top = 240
    Me.Picture1.BackColor = RGB(0, 0, 0)    '背景色を黒に設定
    SCALE_DRAW                              '目盛を描画
End Sub

'####################################################################
'                            目盛の表示
'####################################################################
Sub SCALE_DRAW()
    Me.Picture1.AutoRedraw = True
    Me.Picture1.DrawWidth = 1
    Me.Picture1.DrawStyle = 0
    Me.Picture1.ForeColor = RGB(50, 110, 50)
    For OLD_X = 0 To 10000 Step 300
        Me.Picture1.Line (OLD_X, 0)-(OLD_X, 5550)
    Next OLD_X
    For OLD_Y = 0 To 5550 Step 300
        If OLD_Y = 2700 Then                        '水平位置基準線
            Me.Picture1.DrawWidth = 1.3                 '若干太め
            Me.Picture1.DrawStyle = 2                   '鎖線
            Me.Picture1.ForeColor = RGB(0, 220, 0)      '明るい色
        Else                                        '標準目盛線
            Me.Picture1.DrawWidth = 1                   '標準の太さ
            Me.Picture1.DrawStyle = 0                   '目盛標準線
            Me.Picture1.ForeColor = RGB(50, 110, 50)    '目盛標準色
        End If
        Me.Picture1.Line (0, OLD_Y)-(10000, OLD_Y)
    Next OLD_Y
    OLD_Y = 0
    OLD_X = 0
End Sub

'####################################################################
'                           データ表示のクリア
'####################################################################
Sub DATA_CLR()
    Me.Picture1.Cls             '画面全消去
    SCALE_DRAW                  '目盛を描画
End Sub

'####################################################################
'                               テスト表示
'####################################################################
Private Sub Timer1_Timer()
Dim X           As Integer
Dim Y           As Integer
Dim TTT         As Integer
    Me.Timer1.Interval = 200
    Me.Picture1.ForeColor = RGB(255, 255, 255)
    TTT = 80
    Y = Int(Rnd * 3500)
    Me.Picture1.Line (OLD_X, OLD_Y)-(OLD_X + TTT, Y)
    OLD_X = OLD_X + TTT
    OLD_Y = Y
    If OLD_X > 10000 Then
        LAST_Y = OLD_Y
        DATA_CLR
        OLD_X = 0
        OLD_Y = LAST_Y
    End If
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る