tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： 解決しました。
投稿日： 2008/03/08(Sat) 13:05
投稿者： tea
花ちゃんさん、回答をいただきまして本当にありがとうございます。

ご指摘いただいたとおり私のデバッグの方法に問題がありました。
今後はヘルプなどをよく読み、熟考してから質問させていただきます。

また、今まで質問していた問題が解決しました。

琴さん、花ちゃんさん、ご迷惑をおかけしました。

標準モジュール内
Public Index(1 To 7) As Integer

PrintEngneクラス
Public Sub TimeOutMinutes(ByVal Col As Single, _
                           ByVal Row As Single, _
                           ByVal Cols As Single, _
                           ByVal Rows As Single, _
                           Optional ByVal Color As Variant = Empty, _
                           Optional ByVal Font As Object = Nothing, _
                           Optional ByVal Index As Integer)

Dim Text As Integer
Dim Alignment As EAlignment33
  
    Text = Index
    
    With makeMatrixRect(Col, Row, Cols, Rows)
        drawText .Left + 0.2, .Top + 0.05, .Right, .Bottom, _
            Text, Alignment, Color, Font
    End With
    
End Sub

'経過時間計測
Public Sub AnElapsedTime()
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim i As Integer

    For i = 1 To 7
    '---通常のゲームタイムの経過時間算出----
    If Game.IsExtraQuarter = False Then
        b = Game.Setting.QuarterMinutes
        c = Left(frmMain.vsGameTime.Value / 60, 1)
        d = b - c
        Index(i) = d
    
    '---延長戦のゲームタイムの経過時間算出---
    ElseIf Game.IsExtraQuarter = True Then
        e = Game.Setting.ExtraQuarterMinutes
        f = Left(frmMain.vsGameTime.Value / 60, 1)
        g = e - f
        Index(i) = g
    End If
    Next
End Sub

RScoreSheetCommanderクラス
drawTeam
ixRow = ixRow + 1
            
    For i = bbTimeOutMin To bbTimeOutMax
            
            .DrawMatrixBox i, ixRow, 1, 1
                
                If mp.Game.Team(ixTeam).TimeOutted(i) Then
                    If mp.Game.Team(ixTeam).AnElapsedTime(i) = -1 Then
                        Call .AnElapsedTime
                        '「経過時間」を表示する
                        .TimeOutMinutes i, ixRow, 1, 1, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)), _
            , Index(i)
                            'Index(i)に経過時間を保存する。
                            mp.Game.Team(ixTeam).AnElapsedTime(i) = Index(i)
                    ElseIf mp.Game.Team(ixTeam).AnElapsedTime(i) <> -1 Then
                        Index(i) = mp.Game.Team(ixTeam).AnElapsedTime(i)
                        .TimeOutMinutes i, ixRow, 1, 1, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i)), _
            , Index(i)
                    End If
                Else
                    '「＝」ダブルラインを表示する。
                    .DrawMatrixCenterDoubleLine i, ixRow, 1, 0.95, _
            colorByQuarter(mp.Game.Team(ixTeam).TimeOutted(i))
                End If
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。