VB6.0 で

質問

現在、VB6.0でイルミネーションもどきのプログラムを作成しています。

8つのランプコントロールがコントロール配列されていて、初めは全て消灯している状態から、コマンドボタンを1回クリックすると一番右側の一つが点灯し、またクリックすると右のランプが消えて、左隣のランプが点灯します。
これを繰り返していって、一番左のランプが点灯したら再び一番右のランプが点灯するという下の図の様な感じです。

7 6 5 4 3 2 1 0 ←オブジェクトCWBtnのIndex番号です。
○○○○○○○●
↓
○○○○○○●○
↓
○○○○○●○○
↓
○○○○●○○○
↓
○○○●○○○○
↓
○○●○○○○○
↓
○●○○○○○○
↓
●○○○○○○○
↓
○○○○○○○●
この繰返しです。

現在のコードです。当方、VBを勉強し始めて未熟ですので、まずどういった変数を用意するか、データ型はどうしようなどで深く悩んでしまうレベルです。突っ込みどころ満載でしょうが、ご容赦下さい。。。

Private Sub cmd2_Click()

'変数の宣言
Dim Index As Integer

　　For Index = 0 To 7 Step 1

If CWBtn(Index).Value = False Then

Select Case Index
Case 0
CWBtn(0).Value = True
Case 1
CWBtn(1).Value = True
Case 2
CWBtn(2).Value = True
Case 3
CWBtn(3).Value = True
Case 4
CWBtn(4).Value = True
Case 5
CWBtn(5).Value = True
Case 6
CWBtn(6).Value = True
Case 7
CWBtn(7).Value = True

End Select

Exit For

ElseIf CWBtn(Index).Value = True Then

Select Case Index
Case 0
CWBtn(0).Value = False
Case 1
CWBtn(1).Value = False
Case 2
CWBtn(2).Value = False
Case 3
CWBtn(3).Value = False
Case 4
CWBtn(4).Value = False
Case 5
CWBtn(5).Value = False
Case 6
CWBtn(6).Value = False
Case 7
CWBtn(7).Value = False

End Select

End If

Next Index

実行は出来るのですが、うまくいきません。
どなたか教えて下さい。宜しくお願いします。

回答No.3

s-uzen · ベストアンサー

No.1さんのをチョット拝借して
Private Index As Integer
Private Sub Form_Load()
　For Index = 0 To 7
　　CWBtn(Index).Value = False '全て消灯
　Next Index
　Index = 7
End Sub

Private Sub Command_Button_Click()
　CWBtn(Index).Value = False '消灯
　Index = Index + 1
　If Index > 7 Then Index = 0 '最後の左端を消灯なら、Indexを最初にする
　CWBtn(Index).Value = True '点灯
End Sub

のような感じで。
Indexの初期値やカウントアップする場所、判定の仕方で、何通りもありと思いますけどね。

お礼

ご回答有難う御座います。
なるほど、判定の仕方などでやり方は何通りもあるんですね！
書いて頂いたコードを勉強させてもらいます。

回答No.2

ShowMeHow

for index = 0 to 7
if cwbtn(index) then
csbtn(index) = false
cwbtn((index+1) mod 8) = true
exit for
end if
next index
（点灯部分を探して操作する、悪いプログラミングの例でした。）

突っ込みといえば、
>
Select Case Index
Case 0
CWBtn(0).Value = True
Case 1
CWBtn(1).Value = True
Case 2
CWBtn(2).Value = True
Case 3
CWBtn(3).Value = True
Case 4
CWBtn(4).Value = True
Case 5
CWBtn(5).Value = True
Case 6
CWBtn(6).Value = True
Case 7
CWBtn(7).Value = True
End Select

これって、
CWBtn(Index).Value = True
一行と同じことです。

お礼

ご回答有難う御座います。
ご指摘も言われるまで全く気づきませんでした…

教えて頂いたコードを試したりして、落ち着いて勉強していきます。

回答No.1

OKbokuzyo

落ち着いて考えてみ。

１回目⇒０番目点灯(true)
２回目⇒０番目消灯(false)、１番目(true)
３回目⇒０番目がfalseなので再び０番目点灯(true)

やり方はいろいろあるけどIndexのスコープをあげてインスタンス変数かなんかにしたら？
↓のようなカンジではどぅ？

Private Index As Integer = 0
Private Sub cmd2_Click()
CWBtn(Index).Value = false
If Index <> 7 then
CWBtn(Index + 1).Value = true
else
CWBtn(0).Value = true
End If

※未検証

お礼

ご回答有難う御座います。
焦らず落ち着いて勉強していこうと思います。
動きを確認しながら試してみます。