VB6.0 で パート２

質問

前回ご回答頂きました皆様、有難う御座います。
度々質問させて頂きます。8つのコントロールがコントロール配列されていて、初めは全て消灯している状態から、コマンドボタンを1回クリックすると一番右側の一つが点灯し、またクリックすると右のランプが消えて、左隣のランプが点灯します。
これを繰り返していって、一番左のランプが点灯したら再び一番右のランプが点灯します。以前はここまでの動きをこちらで質問して教えて頂いたのですが、この動きの延長でそこから今度は逆に一番左側のランプが点灯した跡にもう一回、ボタンをクリックしたら右側のランプが順々に点灯していくような事を考えています。
説明が下手なのですが、下の図の様な感じです。

7 6 5 4 3 2 1 0 ←CWBtn(Index)番号
○○○○○○○●
　　　　　↓
○○○○○○●○
　　　　　↓
○○○○○●○○
　　　　　↓
○○○○●○○○
　　　　　↓
○○○●○○○○
　　　　　↓
○○●○○○○○
　　　　　↓
○●○○○○○○
　　　　　↓
●○○○○○○○
　　　　　↓
○●○○○○○○
　　　　　↓
○○●○○○○○
　　　　　↓
○○○●○○○○
　　　　　↓
○○○○●○○○
　　　　　↓
○○○○○●○○
　　　　　↓
○○○○○○●○
　　　　　↓
○○○○○○○●
この繰返しです。

Private Sub cmd1_Click()

Dim Index As Integer

'右から左へランプコントロールが点灯していく処理

'消灯の処理
CWBtn(Index).Value = False

Index = Index + 1

'もしIndexが7より大きければ、Indexを最初の0に戻す
If Index > 7 Then

Index = 0

End If

'点灯の処理
CWBtn(Index).Value = True

'左から右へランプコントロールが点灯していく処理
CWBtn(Index).Value = True
Index = 0
'消灯の処理
CWBtn(Index).Value = False

Index = Index + 1

'もしIndexが7より小さければ、Indexを右の6方向に戻す
If CWBtn(7).Value = True Then

Index = Index + 1

End If

'点灯の処理
CWBtn(Index).Value = True

End Sub

Private Sub Form_Load()

'フォームを開く直前に行う処理

For Index = 0 To 7

'全て消灯
CWBtn(Index).Value = False

Next Index

'Indexに7の初期値を設定
Index = 7

End Sub

以上が教えていただいたコードで自分で書いたのですが…
また教えて頂きたいです。宜しくお願い致します。

回答No.1

redfox63 · ベストアンサー

この処理に必要なものを考えて見ましょう

点灯するランプの位置を記憶する変数
点灯する方向を記憶する変数
この2点が必要でしょう

Formレベルの変数を2つ宣言句に記述します
# フォームコードの先頭部分です

dim nIndex as Integer ' ランプの位置
dim nDir as Boolean ' 点灯する方向 True:右、False:左

フォームのLoadイベントで 上記の変数を初期化

nDir = False
nIndex = -1 ' ランプが全部消灯の特殊値として -1とする

ボタンをクリックした際の処理
nDirにより nIndexを加算するのか減算するのかを判断する
nIndexが両端に来た際に nDirを反転する
といった処理が必要でしょう

if nIndex > -1 then
　　' 初回以外の場合は点灯しているランプを消す
　　CWBtn( nIndex ).Value = False
end if
if nDir = True then
　　' 右方向への処理
　　nIndex = nIndex - 1
　　if nIndex < 0 then
　　　　' 右端を越えてしまったので反転する
　　　　nDir = False
　　　　nIndex = 1
　　end if
else
　　' 左方向への処理
　　nIndex = nIndex + 1
　　if nIndex > 7 then
　　　　' 左端を越えてしまったので反転する
　　　　nDir = True
　　　　nIndex = 6
　　end if
end if
' ランプの点灯処理
CWBtn(nIndex).Value = True

といった具合でしょう

お礼

丁寧なコメント付のコード有難う御座います！
まだまだ勉強が未熟ですので、こうしたいにはどういう方法で処理すれば良いかなどフローチャートを書きながら勉強してるのですが…
教えて頂いたコードをコピーするだけでなく、動きを確認しながら
勉強させて頂きます！！