SolarView

앞서 기술한 것처럼, 비주얼베이직6.0과 VBA에는 삼각함수의 역함수인 ArcSin()과 ArcCos()이 없다. 대신 Atn()만 있다.
도움말을 보면 다음과 같이 작성하라고 안내하고 있다.
[code]역 사인 (ArcSin(x)) =   Atn(x / sqr(-x * x + 1))
역 코사인 (ArcCos(x)) = Atn(-x / sqr(-x * x + 1)) + 2 * Atn(1)[/code]
이대로 하면 분모가 0이 되는 경우에 대한 대책뿐만 아니라, x가 -1<=x<=1 범위를 벗어날 경우에 대한 대책이 없다.
특히, 부동소수계산을 하다보면 정확하게 -1 또는 1이 되지 않고, -1.0000000** 또는 1.000000**가 되는 경우가 발생한다. 이에 대한 대책이 필요하다.
 
[code lang-vb]Function ArcSin(ByVal x As Double) As Double
    If Abs(Fix(x)) <> 1 Then '-1<x<1일때는 계산, x<=-2, x>=2 일때는 오류 발생
        ArcSin = Atn(x / Sqr(-x * x + 1))
    Else ' Abs(Fix(x)) = 1일 때 즉 -2<x<=-1, 1<=x<2
        ArcSin = Sgn(x) * Atn(1) * 2
    End If
End Function

Function ArcCos(ByVal x As Double) As Double
    If Abs(Fix(x)) <> 1 Then ''-1<x<1 일때는 계산, x<=-2, x>=2 일때는 오류 발생
        ArcCos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)
    Else ' -2<x<=-1, 1<=x<2
        If x > 0 Then 'Fix(x)=1일 때 즉 1<=x<2
            ArcCos = 0
        ElseIf x < 0 Then 'Fix(x)=-1일 때 즉 -2<x<=-1
            ArcCos = Atn(1) * 4
        End If
    End If
End Function[/code]

Posted by solarview

Visual Basic 6.0에서 DLL만들기를 하려면, 다음과 같은 절차대로 실행한다.

1. VB에서 새 ActiveX DLL 프로젝트를 만든다

2. 프로젝트에서 클래스 모듈을 새로 만든다

3. 클래스 모듈의 Instancing 속성을 GlobalMultiUse로 설정한다. 그러면, 그 프로시저를 원하는 모든 프로젝트에 프로시저가 표시되며, 전역 프로시저처럼 실행된다.

4. 코드에서 필요한 모든 개체 라이브러리에 대해 참조를 설정한다.

5. 코드 라이브러리의 프로시저를 클래스 모듈에 Public Function 프로시저와 Sub 프로시저로 추가한다.

6. “프로젝트”메뉴의 속성을 클릭하고 Project Name속성에 대해 새 값을 입력하여 “프로젝트 이름”을 원하는 코드 라이브러리 이름으로 바꾼다.

7. DLL을 만든다. (compile)

 

DLL 사용하기

DLL에 참조를 설정하려면 “도구”메뉴의 “참조”를 클리하고 “찾아보기” 단추를 이용하여 DLL을 찾는다. 또는 declare문을 사용하여 DLL의 개별 프로시저에 대해 참조를 설정할 수도 있다.

 

Posted by solarview