제일먼저 프로젝트 - 구성요소에서 Winsock 를 추가합니다. 아래와 같은 내용으로 폼 에 추가합니다. Text1 - 채팅 내용 (속성에 MultiLine 을 True로 해줍니다.) Text2 - 닉네임 Text3 - 보낼 내용 Command1 - 전송 버튼 Winsock1 - 서로 주고 받는 매개체 아래는 서버의 소스 입니다. Dim 내용 As String '내용을 담을 문자 선언 'ㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡㅡ Private Sub Form_Load() '폼이 열리면(서버 열기) Winsock1.Close '초기화(안해도됨) Winsock1.LocalPort = 1234 '포트 설정(숫자로 아무거나 , 80 빼고...) Winsock1.Listen '..

파일의 속성- 예를 들자면 숨김, 읽기 전용 등의 상태를 알 수 있어요. 다음과 같이 선언해요. Private Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" _ (ByVal lpFileName As String) As Long 인수인 lpFileName에 파일의 경로를 입력하는 것이에요. 예를 들자면 이렇게- Dim Att as Long Att = GetFileAttributes("C:\Stalking\빗방울.avi") 그러면 변수 Att에 파일의 정보가 담기는 거에요. 단지 숫자에 불과한데 어떻게 사용하냐구요? 아주 간단해요! 상수를 이용한답니다! 다음은 파일 정보와 관련된 상수 리스트에요. Private Con..

1부터 n 사이에 존재하는 소수를 구하는 알고리즘. 사실 실무에서는 쓰이는 일은 거의 없어요. 만약 있다면 소수 연구하는 수학 학과 뿐이려나. 그러나 알고리즘 관련 문제로서는 약방의 감초처럼 단골이지요. 다들 아시다시피 알고리즘에서 가장 중요한 것은 '속도'에요. 어차피 출력되는 결과는 동일하니 얼마나 빨리 출력하느냐가 판단 기준이 되는 것이지요. 그렇다면 어떻게 코딩해야 가장 좋은 속도를 얻을 수 있을까요? 방법 1. Dim i As Long, j As Long For i = 2 To n For j = 2 To i If i = j Then Print i: Exit For If i Mod j = 0 Then Exit For Next j Next i 2부터 n까지, 그리고 그 사이의 특정값 m에 대하여 2..

요즘은 옛날 같지 않아서 CPU나 RAM이 기가 단위를 우습게 알고, HDD는 테라 단위까지 넘보고 있어요. 운영체제도 변화하면서 현재는 한 프로그램에 허용되는 자원이 과거에 비해 매우 풍부해졌지요. (... -> 16bit -> 32bit -> 64bit -> ... : 발전에 따라 지원하는 메모리 용량 변화) 하지만 환경만 발달한 것은 아니에요. 소프트웨어 역시 성장한 소비자의 욕구를 만족 시키기 위해 끝없이 필요 사양을 높여만 왔어요. 게임 시장만 봐도, 고사양의 PC가 등장했다 싶으면 냅다 초고사양 게임을 후려치잖아요! (철썩!) 다들 아시다시피 컴퓨터 자원을 효율적으로 사용하는 게임이라면 같은 환경에서도 비교적 뛰어난 성능을 보여주어요. 이것을 자원에 대한 최적화라고 해요. 최적화가 잘 된 대표..

코드의 최적화는 크게 세가지 이유를 가져요. 첫째, 프로그램의 처리 속도 향상 둘째, 컴퓨터 자원 절약 셋째, 가독성 증대 일반적인 상황에서, 보다 빠르게 작업을 처리하면서 보다 적은 자원을 소모하는 것이 좋은 프로그램의 조건이에요. 물론 지극히 단순한 작업 같은 경우엔 최적화 유무에 의해 발생하는 차이에 대해서 사용자가 느끼기 힘들어요. 아니, 가끔은 너무 단순해서 그것을 더이상 최적화 할 수 없을 때도 있어요. 하지만 방대한 양의 일을 처리할 때에는 최적화가 아주 중요한 요소로 작용한답니다. 이번 글에서는 코드의 최적화를 통한 처리 속도의 향상 방법을 알아보기로해요. 백문이 불여일견. 예를 들어볼게요. 폼 위에 텍스트 박스가 하나 놓여있어요. 이 텍스트 박스에 "ABC"라는 문장을 출력하고 싶다면 어..

파싱(parsing)은 사전적으로 '어구의 해부'(또는 구문의 해석)를 뜻해요. 다시말해 문자열을 의미있는 단위로 나누어내는 것이지요. 프로그래밍에서 역시 파싱은 '의미있는 문자열만을 추출함'이라는 뜻으로 자주 쓰여요. 예를 들어 아래와 같은 문자열이 있는 거에요. "과자가 있었다.고구마가 있었다.음모가 있었다." 만약 당신이 이 전체 문자열을 원하지 않는다면, 단지 무엇들이 있었는지만 알고 싶다면- 다음과 같은 코드를 이용해서 문자열 배열로 추출해낼 수 있을 거에요. Dim T() as String Const Ostr as String = "과자가 있었다.고구마가 있었다.음모가 있었다." T = Split(Ostr, "가 있었다.") 'T(0) = "과자", T(1) = "고구마", T(2) = "음모..