메뉴 건너뛰기

app

[evb] CD관리 프로그램에 버그 찾기

박영식2006.09.02 13:36조회 수 1463댓글 0

    • 글자 크기
현재 4시 30분이다. 샤발... 버그가 있었다. 알고 있었지만 언어에 익숙해 지고 찾으려고 했다. 드디어 때가 왔다.

    ' 메탈리카를 위한 CD 추가
    If AddCD(lngMonkeyHeadId, lngHeavyMetalId, _
        "Master Of The Puppets", 1986, 9.99) < 0 Then
            Exit Function
    End If
    
위에서 IngMonkeyHeadId 이다. 변수로 IngMetallicaId가 선언되어 저거 바로 아래 함수에 변수로 들어 갔는데, 이건 왜 이렇게 되어 있지????

설마 독자를 엿먹이려고 누가 일부러 바꾼 것이 아닐까 하는 생각이 든다. 내가 원숭이 머리라니 이거 정말 야마돈다...

버그가 아직 하나 더 남아 있다. 날 새기 전에 찾는다!



Private Function CreateData() As Boolean

    Dim lngRockId As Long
    Dim lngBalladeId As Long
    Dim lngHeavyMetalId As Long
    
    Dim lngYoonDoHyunId As Long
    Dim lngShinSoongHoonId As Long
    Dim lngMetallicaId As Long
    
    On Error Resume Next
    
    ' 에러가 발생하면 쉽게 종료하기 위해 에러 조건
    ' 에 대한 리턴 값을 설정한다.
    CreateData = False
    
    ' 장르 추가
    lngRockId = AddGenre("Rock")
    
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngRockId < 0 Then
        Exit Function
    End If
    
    lngBalladeId = AddGenre("Ballade")
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngBalladeId < 0 Then
        Exit Function
    End If
    
    lngHeavyMetalId = AddGenre("Heavy Metal")
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngHeavyMetalId < 0 Then
        Exit Function
    End If

    ' 아트스티 추가
    lngYoonDoHyunId = AddArtist("윤도현", lngRockId)
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngYoonDoHyunId < 0 Then
        Exit Function
    End If
    
    lngShinSoongHoonId = AddArtist("신승훈", lngBalladeId)
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngShinSoongHoonId < 0 Then
        Exit Function
    End If
    
    lngMetallicaId = AddArtist("Metallica", lngHeavyMetalId)
    ' 장르 데이터가 하나도 없는지 리턴 값 체크
    If lngMetallicaId < 0 Then
        Exit Function
    End If
    
    ' 윤도현를 위한 CD 추가
    If AddCD(lngYoonDoHyunId, lngRockId, _
        "front Post Office in Fall", 1994, 8600) < 0 Then
            Exit Function
    End If
    
    If AddCD(lngYoonDoHyunId, lngRockId, _
        "Long a travel", 1997, 8600) < 0 Then
            Exit Function
    End If

    ' 신승훈을 위한 CD 추가
    If AddCD(lngShinSoongHoonId, lngBalladeId, _
        "First Album", 1991, 8600) < 0 Then
            Exit Function
    End If
    
    If AddCD(lngShinSoongHoonId, lngBalladeId, _
        "Second Album", 1991, 8600) < 0 Then
            Exit Function
    End If

    ' 메탈리카를 위한 CD 추가
    If AddCD(lngMonkeyHeadId, lngHeavyMetalId, _
        "Master Of The Puppets", 1986, 9.99) < 0 Then
            Exit Function
    End If
    
    If AddCD(lngMetallicaId, lngHeavyMetalId, _
        "Metallica", 1983, 12.99) < 0 Then
            Exit Function
    End If
    
    If Err.Number = 0 Then
        CreateData = True
    End If

End Function
박영식 (비회원)
    • 글자 크기

댓글 달기

이전 1 ... 3 4 5 6 7 8 9 10 11 12... 14다음
첨부 (0)
위로