김윤호닷컴

다음으로 넘기기 On Error Resume Next 기본적인 오류 걸러내기 Try Catch ex As ArgumentException End Try

Dim rand As New Random Dim val As Integer val = rand.Next(1,1000)

예를 들어 Sendmessage 함수를 불러온다면 Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _ ByVal hwnd As Int32, _ ByVal wMsg As Int32, _ ByVal wParam As Int32, _ ByVal lParam As Int32) As Int32 이런식으로 불러올수도 있지만 Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( ByVal hwnd As Int32, ByVal..

출처 : http://kaistern.tistory.com/20 '임의로 문자열 선언Dim tmp As String = "AB123"'문자열을 바이트형배열로 변환Dim strByte() As Byte = System.Text.Encoding.ASCII.GetBytes(tmp)'바이트형배열을 문자열로 변환Dim str As String = System.Text.Encoding.ASCII.GetString(strByte) ※Encoding뒤에를 UTF8로 하면 UTF-8로 형변환 가능strByte= S..

계이름( syllable names ) 재생앱입니다.앞서 찾아본 자료들로 재미삼아 만들어봤습니다 ^^; 간단히 설명을 드리자면.. Textbox1에 16진수를 입력하시고 재생하시면 됩니다~코드보시면 아시겠지만 공백으로 인해 오류가 나게되면 0.2초 딜레이됩니다~ Console.Beep(음높이,크기?)를 보구서 전에 하던 ..

Private Declare Function GetTickCount Lib "kernel32" () As Long Sub Wait(ByVal cTime As Long) Dim sTime As Long sTime = GetTickCount + cTime Do While sTime >= GetTickCount Application.DoEvents() Loop End Sub cTime 단위는 ms(밀리초, 1000분의 1초)임 Wait(밀리초) System.Threading.Thread.Sleep(500)

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Console.Beep(262, 400) '도 Console.Beep(294, 400) '레 Console.Beep(330, 400) '미 Console.Beep(349, 400) '파 Console.Beep(392, 400) '솔 Console.Beep(440, 400) '라 Console.Beep(494, 400) '시 Console.Beep(523, 400) '도 End Sub Console.Beep(음강도, 재생시간) 사운드 카드와 상관..

먼저 DLL파일을만들기위해 '새프로젝트 - 클래스 라이브러리' 를 선택해줍니다 그리고 아래와같이 코드내용을 작성해주시구요. Form에서 바로 변수를 사용하기 위해 Function 앞에 'Shared' 붙여주시면 편하게 사용하실수 있습니다 저장하시고 빌드하시면 해당 프로젝트 이름 - bin - debug에 생서..

출처 : http://cafe.naver.com/gogoomas/244870 System.Numerics 참조추가합니다 Imports System.Numerics Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim st = New Stopwatch() st.Start() Dim a As BigInteger = 1 For abc = 1 To 10000 a *= abc Next MsgBox(st.ElapsedMilliseconds / 1000) TextBox1.Text = a.ToString End Sub E..

출처 : http://exynoa.tistory.com/130 1. if~else문 (만약에~, 그렇지 않으면~) 오늘은 조건문에 대해서 알아보도록 하겠습니다. 여기서 조건이란 사전적 의미 그대로 '어떤 일을 이루게 하거나 이루지 못하게 하기 위하여 갖추어야 할 상태나 요소'라는 뜻을 지니고 있습니다. 프로그래밍에서 프로그..