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

投稿日： 2007/07/27(Fri) 19:40
投稿者： tea
Ｅメール：
ＵＲＬ：
タイトル： ようやく出来ました。

これさん、ふくさん、琴さん、じぇふさん、これまで回答していただき
本当にありがとうございました。
ようやく出来ました。
７日間もこれだけに悩みました・・・。
今後もよろしくお願いします。

完成したコードは下記です。

Private Function AfterQuarter()

Dim i As Integer
Dim h As Integer
Dim l As Integer

l = Game.Quarter

    '' クオーターの終了。
    '' 　次のクオーターへ表示を更新して、停止。
    If vsGameTime.Value = 0 Then
            'Aチームの1クォーターのチーム全員のファウル数を変数に入れる。
            i = Game.Team(0).QuarterFoulCount(l)
            'Bチームの1クォーターのチーム全員のファウル数を変数に入れる。
            h = Game.Team(1).QuarterFoulCount(l)
                
        BeepBuzzer2
        '---ブザービーターに備えて5秒間遅らせる。----
        Delay 5000
            
        '５秒待機後のチーム全員のファウル数を比較して同じ場合は次のクォーターへ
        If i = Game.Team(0).QuarterFoulCount(l) Then
            If h = Game.Team(1).QuarterFoulCount(l) Then
                '次のクォーターへ
                readyNextQuarter
            End If
        End If
        
        '５秒待機後のチーム全員のファウル数を比較してファウル数が
        '合わない場合は１秒戻して再開。
        If i <> Game.Team(0).QuarterFoulCount(l) Then
            If h = Game.Team(1).QuarterFoulCount(l) Then
                vsGameTime.Value = 1
            End If
        ElseIf h <> Game.Team(1).QuarterFoulCount(l) Then
            If i = Game.Team(0).QuarterFoulCount(l) Then
                vsGameTime.Value = 1
            End If
        ElseIf h <> Game.Team(1).QuarterFoulCount(l) Then
            If i <> Game.Team(0).QuarterFoulCount(l) Then
                vsGameTime.Value = 1
            End If
        End If
          
        '一時停止。
        pauseGame
    End If
End Function

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

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