1秒毎にシフトして終わると繰り返すには？

解決

紙コップ 2006-08-30 06:27:06 No: 132961

1秒毎にシフトして行き、終わるとまた繰り返すと言ったプログラムを作りたいのですが・・・。教えて下さい。
MSCommを使っています。

X1⇔レスポンス
レスポンスをY1へ代入
    ↓
X2⇔レスポンス
レスポンスをY2へ代入
    ・
    ・
    ・
X20⇔レスポンス
レスポンスをY20へ代入
    ↓
X1⇔レスポンス
レスポンスをY1へ代入

ガッ 2006-08-30 06:33:50 No: 132962

> 教えて下さい。
何を、ですか？

まぁ、状態マシンを作ればいいのではないかと思いますが。

紙コップ 2006-08-30 06:43:11 No: 132963

このプログラムは、例えばどう作れば良いか教えて下さい。(命令語とか・・・)

ガッ 2006-08-30 06:58:07 No: 132964

> このプログラムは、例えばどう作れば良いか教えて下さい。
> (命令語とか・・・)
だから、たとえば状態機械で作ればいいです。
使う命令語なら、条件分岐命令と反復命令、代入などです。

'0〜3の状態を繰り返す機械の例
Private Sub Form_Load()
    Dim state As Long

    state = 3
    Do
        Select Case state
            Case 0
                state = 1
            Case 1
                state = 2
            Case 2
                state = 3
            Case 3
                state = 0
        End Select
        Debug.Print "状態は"; state; "です"
    Loop

End Sub

紙コップ 2006-08-30 07:06:58 No: 132965

有難う御座います。
作ってみます。

紙コップ 2006-09-03 00:17:59 No: 132966

チェックするの忘れてました！