信号機を作るには？ (ID:116110)

名前

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

本文

全くもってその通りだと思います。先のお二方に加えて新しく言う事はありません。
一度に全てを考えようとせず、処理を分割して１つ１つ考えていって下さい。
それでも何も思い浮かばないなら、発想の基となる部品が脳の中に全くできて
いないのでしょう。そのレベルなら、入門本を買ってより多くのサンプルを自分で
つくり、動かして見て下さい。
ま、お金が取れないレベルのサンプルなら…
…時間があると気まぐれにその場で作って載っける事はありますがｗ。
動作保障はいたしません。
[VB6.0]
Option Explicit

Private mSignalA(7) As ColorConstants
Private mSignalB(7) As ColorConstants
Private mClock As Integer

Private Sub Form_Load()
    Dim i As Integer
    
    ' 信号１ - 色遷移情報
    For i = 0 To 3
        mSignalA(i) = vbRed
    Next
    For i = 4 To 6
        mSignalA(i) = vbBlue
    Next
    mSignalA(7) = vbYellow
    ' 信号２ - 色遷移情報
    For i = 0 To 2
        mSignalB(i) = vbBlue
    Next
    mSignalB(3) = vbYellow
    For i = 4 To 7
        mSignalB(i) = vbRed
    Next
    
    ' 初期化
    For i = 0 To 1
        ' Shape
        With Me.Shape1(i)
            .BackStyle = 1 ' 不透明
            .Shape = vbShapeCircle ' 円
        End With
    Next
    mClock = 0
    Call Timer1_Timer
    ' Timer
    With Me.Timer1
        .Interval = 1000 ' １秒
        .Enabled = True
    End With
    
End Sub

Private Sub Timer1_Timer()
    With Me.Timer1
        .Enabled = False
    End With
    
    Me.Shape1(0).BackColor = mSignalA(mClock)
    Me.Shape1(1).BackColor = mSignalB(mClock)
    
    If mClock = 7 Then
        mClock = 0
    Else
        mClock = mClock + 1
    End If
    
    With Me.Timer1
        .Enabled = True
    End With
End Sub

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

戻る