건물 에너지, IT와 여러 가지 글들
Visual Basic 2005를 사용하다가 “구성 요소 아이콘이 도구 상자에 표시되지 않는” 황당한 경우을겪었다.
해결책은 http://msdn2.microsoft.com/ko-kr/library/ms171843.aspx에 있었다.
그 내용인즉은 다음과 같다.
Visual Studio에서 ToolboxBitmapAttribute를 사용하여 아이콘을 사용자 지정 구성 요소에 연결할 경우 비트맵은 자동 생성된 구성 요소의 도구 상자에 나타나지 않습니다. 비트맵을 보려면 도구 상자 항목 선택 대화 상자를 사용하여 컨트롤을 다시 로드합니다.
선택사항을 저장하는 구조체를 만들었는데, 원본 구조체의 값이 변경되지 않았다. 구조체를 전달할 때, ByRef를 사용했음에도 불구하고 원본 값이 변경되지 않았다. 그래서 클래스로 변경하니 원본의 값이 변경되었다.
구조체를 사용해서 인자를 전달하면, 원본에는 아무런 변화가 없다.
For문 등에서 배열을 계산하다보면, 인덱스의 범위를 넘어가는 경우가 생긴다. 이때 Mod[footnote]c/c++에서는 %연산자를 이용한다.[/footnote]를 사용하면 편리하다.
(출처 : http://local.wasp.uwa.edu.au/~pbourke/geometry/polyarea/)
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
'다각형면적구하기[vbnet] Type tPoint X As Double Y As Double End Type Function PolygonArea(N As Integer, Points() As tPoint) As Double Dim i As Integer, j As Integer Dim area As Double area = 0 For i = 0 To N - 1 j = (i + 1) Mod N area = area + Points(i).X * Points(j).Y - Points(j).X * Points(i).Y Next i PolygonArea = area / 2 End Function |
점은 위치 벡터로 해석할 수 있다. 곧 점과 벡터는 서로 밀접한 관련이 있다. 표현되는 형식도 비슷하다. 이를 코드에서 어떻게 표현할 것인가가 문제였다. 형변환 연산자를 정의하므로 해결할 수 있었다.
형변환 연산자를 정의해 놓으면, 자동으로 형을 변환하여 계산하게 된다. 이야호!
아래의 내용은 점을 벡터로 확대변환을 하는 것이다. 이로써 인자를 벡터로 받는 곳에 그냥 점을 넘겨줘도 자동으로 형이 변환된다.
|
1 2 3 |
Public Shared Widening Operator CType(ByVal p As Point3D) As Vector3D Return New Vector3D(p.X, p.Y, p.Z) End Operator |
변환 프로시저에서 Widening 외에 Public Shared도 지정해야 한다.
확대 변환은 런타임에 항상 성공하며 데이터 손실이 없다. Single을 Double로 변환하거나 Char를 String으로 변환하거나 파생된 형식을 해당 기본 형식으로 변환하는 예를 들 수 있다. 파생된 형식에는 기본 형식의 모든 멤버가 포함되어 기본 형식의 인스턴스가 되므로 파생된 형식을 해당 기본 형식으로 변환하는 것은 확대 변환이다.
Option Strict가 On으로 설정되어 있는 경우에도 사용하는 코드에서 확대 변환에 대해 CType을 사용할 필요가 없다.
화면의 스케일에 따라 선의 굵기가 달라진다. 즉, 확대 혹은 축소하는 과정에서 선의 굵기가 달라지게 된다. 이를 방지하기 위해서는 선의 굵기를 ‘-1’로 설정한다. 그러면 항상 1 픽셀의 굵기로 선을 그릴 수 있다.
|
1 |
Dim myPen As Drawing.Pen = New Drawing.Pen(System.Drawing.Color.Blue, -1) |
Visual Basic에서 숫자 데이터 형식 값을 Boolean으로 변환하는 경우 0은 False가 되고 다른 모든 값은 True가 된다. Visual Basic에서 Boolean 값을 숫자 값으로 변환하는 경우 False는 0이 되고 True는 -1이 된다. 반면에 C/C++ 또는 Java는 True값을 1로 하기에 바로 수식 계산에 이용할 수 있다. 다른 언어의 이와 같은 코드를 바로 옮기면 오류가 발생할 수 있다.
|
1 |
$e^{i pi} + 1 = 0$ |
이 식에는 e, $pi$, i, 1, 0이 모두 들어 있다.
소설, 영화 “박사가 사랑한 수식”에도 등장한다.
VB2005는 VB2003과 달리 연산자 중복정의를 할 수 있다. 다음은 행렬계산에서 곱셈(*)에 대한 연산자 중복정의를 한 코드이다.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 |
Public Shared Operator *(ByVal mA As Matrix3D, ByVal mB As Matrix3D) As Matrix3D Dim i, j As Short Dim mC As Matrix3D = New Matrix3D For i = 0 To 3 For j = 0 To 3 mC.Data(i, j) = (mA.Data(i,0)*mB.Data(0,j))+(mA.Data(i,1)*mB.Data(1,j)) _ + (mA.Data(i,2)*mB.Data(2,j))+(mA.Data(i,3)*mB.Data(3,j)) Next j Next i Return mC End Operator Public Shared Operator *(ByVal mA As Matrix3D, ByVal p1 As Point3D) As Point3D Dim p2 As Point3D = New Point3D() p2.X=(mA.Data(0,0)*p1.X)+(mA.Data(0,1)*p1.Y)+(mA.Data(0,2)*p1.Z)+(mA.Data(0,3)*1) p2.Y=(mA.Data(1,0)*p1.X)+(mA.Data(1,1)*p1.Y)+(mA.Data(1,2)*p1.Z)+(mA.Data(1,3)*1) p2.Z=(mA.Data(2,0)*p1.X)+(mA.Data(2,1)*p1.Y)+(mA.Data(2,2)*p1.Z)+(mA.Data(2,3)*1) Return p2 End Operator |
AutoCAD R12의 DXF 형식에 대한 모든 설명이 있는 문서를 여기에서 찾을 수 있다.
더 많은 여러가지 정보는 여기에서 찾을 수 있다.
DXF, Revision 10
풀다운메뉴와 툴바의 메뉴는 형식이 다른 콘트롤이나, 동일한 기능을 하는 다른 콘트롤이다. 즉, 이 콘트롤들의 대표적인 이벤트인 클릭(click)을 통해서 동일한 일을 하게 된다. 이럴 때 클릭에 대한 이벤트를 공유한다. 과거 VB6에서는 콘트롤배열(control arrays)이란 개념으로 수행했으나, 이제는 컨트롤의 이벤트 메소드의 Handles문을 통하여 구현할 수 있다.
다음의 경우는 풀다운메뉴를 클릭했을 때(mnuWaldram.Click)와 툴바메뉴를 클릭했을 때(WaldramToolStripButton.Click)에 대한 이벤트 핸들러를 공유한 것이다.
|
1 2 3 4 5 |
Private Sub mnuWaldram_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuWaldram.Click, WaldramToolStripButton.Click mnuWaldram.Checked = Not mnuWaldram.Checked WaldramToolStripButton.Checked = mnuWaldram.Checked My.Settings.WaldramChecked = mnuWaldram.Checked End Sub |