정보더미

● 메모리의 지정된 부분을 복사한다.
● 사용시 Type 데이타형 복사시에 Type데이타를 직접 사용하여도 된다, copymemory a,b,lenb(b)
● 원형
void CopyMemory( __in PVOID Destination, __in const VOID *Source, __in SIZE_T Length ); void MoveMemory( __in PVOID Destination, __in const VOID *Source, __in SIZE_T Length );
● 선언
CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
MoveMemory Lib "kernel32" Alias "RtlMoveMemory" (pDest As Any, pSource As Any, ByVal dwLength As Long) RtlMoveMemory Lib "kernel32" (hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
● 인수
Destination ━ 복사받을 변수
Source ━ 복사할 변수
Length ━ 복사할 바이트 수

확장메소드는 클래스의 멤버를 확장시켜 준다. 확장메소드 지정은 모듈에서 지정해야 한다.
다음과 같은 Imports System.Runtime.CompilerServices 구문이 필요하다.

<Extension()>
Public Sub DisplayString(ByVal obj As String) As String
   console.writeline(obj)
End Function

위 구문은 해당 프로젝트에서 String 클래스의 메소드에 DisplayString이라는 확장 메소드를 추가한다.
String 개체.DisplayString로 사용할수 있다.

● 지정된 윈도우의 핸들의 DC를 얻는다.
● 반환은 ReleaseDC를 사용한다.
● 원형
HWND WINAPI GetDesktopWindow(void); 
● 선언 
GetWindowDC Lib "user32" (ByVal hwnd As Long) As Long
● 인수
hwnd ━ DC를 얻고 싶은 윈도우 핸들, Null(0)이면 전체 화면 DC를 반환한다.
● 반환
성공 ━ 핸들에서 얻은 DC
실패 ━ Null

다음은 소스이다.
' 모듈 소스
Option Explicit

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WA_INACTIVE = 0
Private Const WM_ACTIVATE = &H6

Public PreviosWindowProcedure As Long

Public Function WndProc(ByVal hWnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    If MSG = WM_ACTIVATE And Not ((wParam & &HFFFF&) = WA_INACTIVE) Then
        Form1.TextShowCaret
    End If
    WndProc = CallWindowProc(PreviosWindowProcedure, hWnd, MSG, wParam, lParam)
End Function

'폼 소스
Option Explicit

Private Declare Function CreateCaret Lib "user32" (ByVal hWnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function DestroyCaret Lib "user32" () As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal un1 As Long, ByVal n1 As Long, ByVal n2 As Long, ByVal un2 As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_WNDPROC = (-4)
Private Const IMAGE_BITMAP = 0
Private Const LR_LOADFROMFILE = &H10

Private BitmapID As Long ' 이미지 핸들
Private FilePath As String ' 파일 경로

Private Sub Form_Load()
    FilePath = App.Path & "\mypic.bmp"
    BitmapID = LoadImage(App.hInstance, FilePath, IMAGE_BITMAP, 0, 0, LR_LOADFROMFILE)
    PreviosWindowProcedure = SetWindowLong(Me.hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    SetWindowLong Me.hWnd, GWL_WNDPROC, PreviosWindowProcedure
    DestroyCaret
    DeleteObject BitmapID
    BitmapID = 0
End Sub

Private Sub txtCaret_Click()
    TextShowCaret
End Sub

Private Sub txtCaret_GotFocus()
    TextShowCaret
End Sub

Public Sub TextShowCaret()
    If BitmapID = 0 Then Exit Sub
    With txtCaret
        .SetFocus
        CreateCaret .hWnd, BitmapID, 0, 0
        ShowCaret .hWnd
    End With
End Sub

● 윈도우가 활성,비활성화 될 때 발생한다
● 원본
#define WM_ACTIVATE 0x0006
● 선언
WM_ACTIVATE= &H6
● wparam
하위 워드는 윈도우가 활성,비활성인지를 나타낸다.
윈도우가 최소화 상태인지를 나타낸다. 0이 아닌 값이면 최소화 상태
● lparam
윈도우 활성될때 이전의 활성 윈도우 핸들,윈도우가 비활성 될 때 다음에 활성되는 윈도우 핸들
● 상수
wparam 하위 워드 사용, 윈도우 활성,비활성 여부

이 게시물에서는 하노이탑의 규칙성에 대해 이야기해 보려합니다.

게임규칙.
1. 한번에 하나만 이동.(모든 원판을 마지막 기둥으로.)
2. 작은원반 위로 큰 원반을 이동할 수 없다.
3. 최소 이동횟수로 이동. (최소이동횟수=2^원판수-1)
    원판이 3개일때 최소이동횟수는 2*2*2 -1 =7 회
4. 가장위의 원판만 이동가능.

최소이동 횟수:
원판 3 개 : 2*2*2-1 = 7 회
원판 4 개 : 2*2*2*2-1 = 15 회
원판 5 개 : 2*2*2*2*2-1 = 31 회
원판 6 개 : 2*2*2*2*2*2-1 = 63 회
원판 7 개 : 2*2*2*2*2*2*2 -1 = 127 회

이동하려는 원판의 수가 짝수와 홀수일때 맨위의 원판을 이동하는 기둥이 다르다는것과 이동의 목표가 맨아래의 원판을 이동가능하게 하기위한것이란 걸 염두에 두시면 쉽게 진행될 것입니다.

아래는 5개의 원판을 최소회수로 이동하는 방법(규칙) 을 플래시로 제작한 것입니다.
(목표기둥: 가장 오른쪽기둥)

이동법칙:
이동하려는 원판의 수가 홀수일때는 목표하는 막대로 보내고
이동하려는 원판의 수가 짝수일때는 목표하는 막대를 제외한 막대로 먼저 보낸다.


하노이의 탑 의 규칙성

첫번째. 원판이 둘일때를 생각해 봅니다. 가장위의 원판을 목표하는 기둥으로 보내면 가장아래원판을 이동할수 없지요. 그래서 맨위의 원판을 목표기둥 이외의 기둥으로 보냅니다. 그리곤 맨아래 원판을 목표기둥으로 보내고 빼두었던 맨위의 원판을 목표기둥으로 보내면됩니다.

● 원형
int ReleaseDC(
  __in  HWND hWnd,
  __in  HDC hDC
)
● 지정된 윈도우의 DC를 반환,해제한다
● GetWindowDC, GetDC로 얻은 DC
● 선언
ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hDC As Long) As Long
● 인수
hwnd ━ 반환할 DC를 갖는 핸들
hDC ━ 반환할 DC
● 반환
성공 ━ 1이면 반환
실패 ━ 0이면 반환 실패

● 원형
HDC GetDC(
  __in  HWND hWnd
)
● 지정된 윈도우 핸들에서 클라이언트 영역만 사용 가능한 DC(커먼 DC)를 얻는다.
● 반환은 ReleaseDC를 사용한다.
● 선언
GetDC Lib "user32" (ByVal hwnd As Long) As Long
● 인수
hwnd ━ DC를 얻고 싶은 핸들
● 반환
성공 ━ 핸들에서 얻은 DC의 핸들
실패 ━ Null

도구 모음에서 아래 이미지와 같은 버튼을 클릭한다.

아래 이미지와 같이 Specify device type라는 창이 뜨게 된다.

이 창에서 에뮬레이트 할 가상 시리얼 포트 타입을 지정할수 있다. 여기서는 시리얼 포트의 한쪽 입력을 한쪽 출력으로 해야 하기 때문에 두 포트를 연결하는 Pair를 선택하고,

다음 버튼을 클릭한다. 그러면 아래 이미지와 같은 Specify device characteristics 창이 뜨며, 서로 연결될 생성할 두개의 가상 포트에 할당된 포트 번호가 표시되다.

마침 버튼을 누르게 되면 두개의 가상 포트가 생성되며, 메인 창에 아래 이미지 와 같이 두 포트가 연결된 것으로 표시된다.

지금은 아직 가상 포트를 에뮬레이트 하는 상태는 아닌다. 도구 모음의 아래 이지미와 같은 Start emulation 버튼을 클릭하면 해당 가상 포트를 에뮬레이트 하게 된다.

버튼을 누르게 되면 Status 상태가 Ready 상태가 된다.

위 이미지는 소스의 결과이다.
RegEnumValue는 오픈된 키에 값명과 값들을 인덱스 번호 0부터 시작하여, 지정된 항목의 값명과 값을 읽어온다.

오픈된 레지스트리 키에서 지정된 번호에 해당하는 값명과 값을 읽는다. 0부터 순차적으로 호출하여 ERROR_NO_MORE_ITEMS이 발생될까지 하면 해당 키의 전체 값명,값을 얻을 수 있다.

● 선언
Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

● 인수
hKey ━ 오픈된 레지스트리키 핸들이나,정의된 레지스트리 특정키 상수
dwIndex ━ 읽을 키의 인덱스 번호 0이 첫번째
lpValueName ━ 키 이름을 저장할 버퍼
lpcbValueName ━ lpValueName 버퍼의 크기
lpReserved ━ 0
lpType ━ 키의 타입 저장될 변수
lpData ━ 키의 값을 받을 버퍼
lpcbData ━ lpData 버퍼의 크기

Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegEnumValue Lib "advapi32.dll" Alias "RegEnumValueA" (ByVal hKey As Long, ByVal dwIndex As Long, ByVal lpValueName As String, lpcbValueName As Long, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long
Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Const ERROR_NO_MORE_ITEMS = 259
Private Const BUFFERSIZE = 255

Private Sub Form_Load()
    Dim OpenRegHwnd As Long ' 오픈된 레지스트리 키 핸들
    Dim ValueName As String ' 값명 버퍼
    Dim ValueNameSize As Long ' 값명 버퍼 사이즈, 및 버퍼에 저장된 값명 길이
    Dim Value As String ' 값 버퍼
    Dim ValueSize As Long ' 값 버퍼 사이즈, 및 버퍼에 저장된 값 길이
    Dim IndexCount As Long ' 값 인덱스 번호 카운터
   
    RegOpenKey HKEY_LOCAL_MACHINE, "HARDWARE\DEVICEMAP\SERIALCOMM", OpenRegHwnd ' 레지스트리 키를 오픈한다
    ValueName = String(BUFFERSIZE, " ")
    Value = String(BUFFERSIZE, " ")
    IndexCount = 0
    ValueNameSize = BUFFERSIZE
    ValueSize = BUFFERSIZE
    While Not ERROR_NO_MORE_ITEMS = RegEnumValue(OpenRegHwnd, IndexCount, ValueName, ValueNameSize, 0&, ByVal 0&, ByVal Value, ValueSize)
        List1.AddItem Left(ValueName, ValueNameSize)
        List2.AddItem Left(Value, ValueSize)
        IndexCount = IndexCount + 1
        ValueNameSize = BUFFERSIZE
        ValueSize = BUFFERSIZE
    Wend
    RegCloseKey OpenRegHwnd ' 오픈된 레지스트리 키를 닫는다.
End Sub