VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日： 2007/07/22(Sun) 00:49
投稿者： tea
Ｅメール：
ＵＲＬ：
タイトル： 一応解決しました。

> この場合ならkとlに終了条件の値をセットすればいいですね。＾＾

あきらさん、回答ありがとうございます。
その後いろいろ考えて改めてコードを書き直しましたところ一応ですが
動作しました。
以下がそのコードです。

If vsGameTime.Value = 0 Then
            BeepBuzzer2
           '---ブザービーターに備えて5秒間遅らせる。----
            Delay 5000
            
            For l = 0 To 1
                For k = 1 To 5
                    If Game.Team(l).GameMember(k).FoulCount = 0 Then
                        Delay 0
                    ElseIf Game.Team(l).GameMember(k).FoulCount = 1 Then
                        vsGameTime.Enabled = True
                        vsGameTime.Value = 1
                        cmdGameStart.Enabled = False
                        cmdGamePause.Enabled = True
                        pauseGame
                        Exit For
                    End If
                Next k
            Next l
'---------------------------------------------
            If vsGameTime.Value = 0 Then
                tmrCountDown.Enabled = False
                readyNextQuarter
            End If          
'----------------------------------------------
点線で囲んだ箇所は完全に動作はしていませんが、今後取り組みます。
わからないことがあれば、また質問させていただきます。
的外れな質問になるかもしれませんが、なにとぞよろしくお願いします。

ひまびとさん、Starfishさん、あきらさん本当にありがとうございました。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- VBレスキュー(花ちゃん) - - Web Forum -