코코의 행복한집

2008년 3월 26일 수요일

MSFlexGrid의 Select 문사용해서 스프레드에 뿌리는법?...

밑에서 제가 답변한 내용인데요.

참조하세요.

Dim aconn As ADODB.Connection

Dim ars As ADODB.Recordset

'>>> 1. DB 연결

Set aconn = New ADODB.Connection

aconn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data source=" & App.Path & "\MainDB.mdb"

aconn.Open

'>>> 2. RecordSet 설정

Set ars = New ADODB.Recordset

ars.CursorLocation = adUseClient

ars.CursorType = adOpenKeyset

ars.LockType = adLockOptimistic

Dim sqlGrid As String

'>>> 3. 쿼리문 생성

sqlGrid = "select ID,시작날짜,시작시간,종료날짜,종료시간 from 접속자관리"

'>>> 4. 쿼리 실행

ars.Open sqlGrid, aconn

'>>> 5. Grid 컬럼 헤드 출력

MSFlexGrid1.TextMatrix(0, 0) = "ID"

MSFlexGrid1.TextMatrix(0, 1) = "시작날짜"

MSFlexGrid1.TextMatrix(0, 2) = "시작시간"

MSFlexGrid1.TextMatrix(0, 3) = "종료날짜"

MSFlexGrid1.TextMatrix(0, 4) = "종료시간"

'>> 6. RecordSet 결과값 Grid 출력

If ars.RecordCount > 0 Then

ars.MoveFirst

For i = 1 To ars.RecordCount

MSFlexGrid1.TextMatrix(i, 0) = ars!ID

MSFlexGrid1.TextMatrix(i, 1) = ars!시작날짜

MSFlexGrid1.TextMatrix(i, 2) = ars!시작시간

MSFlexGrid1.TextMatrix(i, 3) = IIf(IsNull(ars!종료날짜), "", ars!종료날짜)

MSFlexGrid1.TextMatrix(i, 4) = IIf(IsNull(ars!종료시간), "", ars!종료시간)

ars.MoveNext

Next i

End If

'>>> 7. 닫기

ars.close

aconn.close

간단 샘플이었습니다.

자료실이나 질문&답변 검색 하시면 많이 나올겁니다.

2008년 3월 25일 화요일

최고의 듀얼모니터 용 바탕화면 사이트 모음 : Dual Monitor Wallpapers

원문 보러가기! [xguru.net 에서 퍼왔습니다.]

Tuesday, 10 April 2007

[ View this page in English ] [ View this page in Chinese]

듀얼 모니터 사용자를 위한 최고의 바탕화면 ( 배경화면 ) 사이트들을 소개합니다.
3200X1200 , 2560x1024 등 다양한 해상도를 지원합니다.

* 듀얼 모니터용 바탕화면 설정은 UltraMon 을 이용하시면 편합니다.
* 싱글 모니터용 바탕화면은 아래 2번을 참조하세요.

이글은 구루가 추천하는 최고의~ 사이트 모음 시리즈중 1 번째 글입니다.

->1. 듀얼 모니터용 바탕화면 사이트 모음 : Dual Monitor Wallpapers
2. 최고의 바탕화면 사이트 모음 : Best Wallpaper Sites
3. 최고의 XP, 비스타 아이콘 다운로드 사이트 모음 : Best Icon Sites
4. 최고의 무료 폰트 다운로드 사이트 모음 : Best Free Font Download Sites
5. 최고의 포토샵 브러쉬 다운로드 사이트 모음: Best Photoshop Brush Download Sites
6. 최고의 웹디자인용 작은 아이콘 다운로드 사이트 모음 : Best Small Icon Sites
7. 최고의 무료 클립아트 다운로드 사이트 모음 : Best Free Vector Clipart Download Site
8. 최고의 포토샵 강좌/팁/예제 사이트 모음 : Best Photoshop Tutorial/Tip Sites
9. 최고의 바탕화면 다운로드 사이트 모음 2 : Best Wallpaper Download Sites 2

※ xguru.net 에서 퍼왔습니다~~~~

Dual Monitor Backgrounds (dmb) - http://www.dualmonitorbackgrounds.com/

최고의 사이트입니다. 이미지 화질도 매우 좋은편입니다.
Category : Abstract , Celebrities, Crafted Nature , Macabre , Music , Popular Culture , Sports , Astronomy , Computers , Industrial , Microscopic , Nature , Science Fiction<- 추천! , Vehicles 등으로 분류되서 제공됩니다. 단 특정 카테고리는 1,2개 정도만 있는 경우도 있습니다.
단점 1: 브라우징 화면에서 와이드로 보이지 않고 정사각형으로 보여주기때문에, 와이드상의 화면을 확인하기 위해서는 꼭 눌러서 들어가봐야 한다는것
단점 2: 크기가 2560X1024 로 고정이라 더 큰 해상도 쓰시는분은 좀 아쉬울 듯 합니다.

mandolux - http://mandolux.com/

제가 가장 좋아하는, 꽤 독특한 형태의 바탕화면 사이트입니다. 미국 스포츠 좋아하시는 분들이면 좋아하는 팀의 로고가 큼지막하게 박힌 바탕화면을 구하실수 있습니다.
2560x1600 / 1920x1200 / 1680x1050 / 1600x1200 / 1440x900 / 1280x1024 / 1280x800 / 1152x864 / 1024x768 정도로 다양한 이미지 크기를 제공하고 있습니다.
신기한건 듀얼/트리플 모니터용으로 분할된 이미지 자체를 제공합니다. 즉 좌 2560X1600 , (중간 2560X1600), 우 2560X1600 의 해상도를 가지는 바탕화면 이미지도 가능하다는 겁니다.
Category 별로 보기는 안되는데, archive 를 통해서 연도/월 별로 정리가 되어있습니다. 이미지 이름옆에 괄호형태로 종류는 알아볼수 있습니다. Caps(스포츠팀) , Flowers , Clouds & Skies 종류들이 조금 많습니다.
단점 : 썸네일이 없어서 미리보기 브라우징이 불가능합니다. 이름만 보고 들어가서 보셔야 합니다. ㅡ.ㅡ;
보너스~ : 듀얼용은 아니지만, 싱글화면 사용자들께.. 제가 가장 좋아하는 바탕화면중 하나인 Flying Cockatoo 를 추천합니다.
집에선 저도 이것을 쓰고 있습니다. 이 사이트에는 싱글모니터용도 괜찮은게 많습니다.

Dual Screen Wallpapers - http://www.dualscreenwallpaper.com/

브라우징 자체로는 가장 편하게 되어있는 사이트입니다. 그러나!
단점 1 : 이미지당 사이즈가 한가지만 제공됩니다. 이미지에 따라 2560X1024 , 3200X1200 등 다양한데.. 속도가 조~금 느린편입니다.
단점 2 : 이미지 퀄리티가 조금 떨어지고 , 브라우징 단계에서 이미지를 알수가 없다는 단점이.. ㅡ.ㅡ;
Category : Nature , Abstract , Space , Random , Vehicles 의 5가지 입니다. 한번에 다운로드 하시려면 DownThemAll을 이용하세요.

Deviant Art 의 바탕화면들 - http://www.DeviantArt.com/

디자이너들의 놀이터 DeviantArt 도 빠질수 없습니다. 다양한 아이템을 제공하는 사이트이므로 위에 링크처럼 Dual Monitor 로 검색해서 보시면 됩니다.
장점 1 : Popular 한 순서대로 소트되서 보여주므로 보기가 편합니다.
장점 2 : 다양한 디자이너들이 올려서 그런지 신기한 아이템도 가끔 건질수 있습니다. ㅡ.ㅡ;
단점 1 : 역시 사이즈가 한가지만 제공됩니다. 이미지별로 크기는 2560X1024 , 3200X1200 정도로 올라옵니다만, 가끔 듀얼에 쓰긴 좀 작은것들도 있습니다.
단점 2 : 자기 화면을 캡쳐해서 올려버려서 윈도우즈 태스크바까지 나오는게 꽤 됩니다 ㅡ.ㅡ;;

정리하고 보니 싱글모니터용 사이트들도 한번 정리해봐야 겠군요 ^^

그외에 괜찮은 사이트들

Dual Monitor Backgrounds- 2560X1024 사이즈, 큰 미리보기 제공
Multi Monitor Wallpapers - 제각각 사이즈지만 쓸만한거도 몇개
Dual Display.com - 35개 정도 제공, 5개씩만 브라우징

최고의 바탕화면 다운로드 사이트 모음 : Best Wallpaper Download Sites

원문 보러가기! [xguru.net 에서 퍼왔습니다.]

Wednesday, 11 April 2007

[ View this page in English ] [ View this page in Chinese]

듀얼모니터 용 바탕화면에 이어서 추천 해드릴만한 싱글모니터 사용자를 위한 바탕화면 사이트 리스트입니다. Windows Vista / 비스타 바탕화면 으로도 쓸만한 와이드 포맷 바탕화면들도 거의 같이 지원됩니다.
( Wide : 1920x1200 , 1680x1050 , 1440x960 , 1280x960 등 )

이글은 구루가 추천하는 최고의~ 사이트 모음 시리즈중 2 번째 글입니다.

1. 듀얼 모니터용 바탕화면 사이트 모음 : Dual Monitor Wallpapers
->2. 최고의 바탕화면 다운로드 사이트 모음 : Best Wallpaper Download Sites
3. 최고의 XP, 비스타 아이콘 다운로드 사이트 모음 : Best Icon Sites
4. 최고의 무료 폰트 다운로드 사이트 모음 : Best Free Font Download Sites
5. 최고의 포토샵 브러쉬 다운로드 사이트 모음: Best Photoshop Brush Download Sites
6. 최고의 웹디자인용 작은 아이콘 다운로드 사이트 모음 : Best Small Icon Sites
7. 최고의 무료 클립아트 다운로드 사이트 모음 : Best Free Vector Clipart Download Site
8. 최고의 포토샵 강좌/팁/예제 사이트 모음 : Best Photoshop Tutorial/Tip Sites
9. 최고의 바탕화면 다운로드 사이트 모음 2 : Best Wallpaper Download Sites 2

※ xguru.net 에서 퍼왔습니다~~~~
InterfaceLIFT- http://interfacelift.com/wallpaper/

바탕화면 사이트 중에선 최고입니다. 바탕화면외에도 아이콘/테마등도 유명합니다.
장점 1 : 다양한 사이즈 제공. 와이드(2560X1600,1920X1200,1680X1050..),풀스크린 4:3 (1600x1200,1024x768) 5:4 (1280X1024),HDTV(1080p,720p),PSP,iPod 용 까지 개별 다운가능합니다.
장점 2 : 날짜순, 다운수 높은것, 점수가 높은것, 코멘트가 많이 달린 순 등으로 정렬해서 검색이 가능합니다.
물론 카테고리별 브라우징도 가능합니다.
단점 : 단점이 거의 없네요 ㅡ.ㅡ; 해상도별로 고르기가 콤보박스라 불편하다는 사소한점 밖에..

DESKTOPOGRAPHY - http://desktopography.net/

플래시로 구성되고 은은한 배경 음악까지 포함한 멋드러진 사이트입니다..
장점 : 퀄리티가 뛰어납니다. 자연사진에 약간 그래픽처리가 가미되어 독특한 분위기의 배경들이 많습니다.
단점 1 : 사이트 전체가 플래시라 속도가 약간 느립니다.
단점 2 : 제공되는 이미지 크기가 제각각이라 정작 원하는 그림은 맞는 사이즈가 없는경우도 있습니다.
* 플래시라 직접링크가 불가능하네요. 잘 찾아서 다운받으세요~ ^^;

skins.be : Hot model & celebrity - http://skins.be/

인물사진(모델,배우,.. 주로 여자겠죠 ^^;), 자동차,오토바이,영화 의 주제로만 구성된 배경화면 사이트입니다.
장점 1 : 일단 내용이 방대합니다. 인물은 이름, 자동차,오토바이는 이름과 회사명으로 분류가 잘되어 있습니다.
영화는 너무 많은지라 알파벳으로 분류되어있습니다.
장점 2 : 다양한 해상도에 대한 직접링크가 보여서 받기가 편합니다.
단점 : 모델페이지에서 추천순으로 보니.. 너무 살색이 심하군요. 단점일까.. ㅡ.ㅡ;
* 인물사진은 골라서 보여주기가 참 뭐하군요. 가서 직접 보셔요 ^^

Free Wallpapers by Steve Truett - http://www.stevetruett.com/

추상적인 이미지를 좋아하시는 분들께 추천드립니다.
장점 : 모든 이미지가 Full screen,Wide Screen,PSP 용으로 각 사이즈가 제공됩니다. 2560x1600,1920x1200,1600x1200,1680x1050,1440x960,1280x960,1024x768,480x272
단점 : 분류/소트가 불가능합니다. 그냥 페이지 넘기면서 맘에드는것을 찾아야 합니다.

Mike Swanson's Wallpaper Images - http://blogs.msdn.com/mswanson/

Microsoft 의 Technical Evangelist 인 Mike Swanson 의 블로그 페이지 입니다.
접사렌즈(Macro) 를 이용하여 식물들(꽃,잎,가지..)을 정밀촬영한 이미지를 제공합니다.
1600x1200 ,1920x1200 두가지 이미지를 제공하긴 하지만, 그래도 사진인지라 칼같은 선명도는 아닙니다.
한번에 다운로드 하시려면 DownThemAll을 이용하세요.

그외 추천할만한 사이트들

VLADSTUDIO - http://www.vladstudio.com/wallpapers/ : 심플한 배경이 많습니다.
Nice Wallpapers - http://www.nicewallpapers.info/ : 꽤 독특한게 많습니다.
WallPaperStock - http://wallpaperstock.net/ : 이곳도 꽤 큽니다.
Digital Blasphemy - http://www.digitalblasphemy.com/
-->괜찮은게 많긴한데 회원제 유료이며, 듀얼스크린용은 멤버에게만 제공합니다. 무료중에도 좋은게 몇개 있네요.
Scott Hill 's Desktop - http://smhill.net/desktops : 개인사이트이지만 괜찮은게 많습니다.

2탄인 최고의 바탕화면 다운로드 사이트 모음 2 : Best Wallpaper Download Sites 2도 참고하세요 ^^

2008년 3월 20일 목요일

string을 byte의 배열에 넣고 싶습니다.

씨만 쓰다가 갑자기 비베로 개발을 하게 되었는데요..
첨써보는 비베라서 혼자서 난리치다가 도저히 안되겠어서 이렇게 써봅니다.
고수님들 제발 저에게 서광을 비춰주세요~

string을 byte의 배열에 넣고 싶습니다.
sData에 "ABCDE"를 넣으면 잘 들어가는데
sData에 "안녕하세요"를 넣으면 에러가 나는 이유는 도데체 왜일까요?
하루종일 이것때매 말썽이네요.ㅠ.ㅠ

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim sData As String
Dim arrayB(256) As Byte
Dim tmText As String

sData = "안녕하세요"
'sData = "ABCDE"

Dim i As Integer

For i = 1 To Len(sData)
tmText = Mid(sData, i, 1)
arrayB(i) = CByte(Asc(tmText))

Next i

End Sub

* 답변

Visual Basic 강좌와 팁에서 "바이트배열"로 검색해 보셨더라면... ^^;

----------------------------------------
Dim buf() as Byte buf = StrConv("가", vbFromUnicode)
----------------------------------------

*답변

예. vb에서는 한글 2바이트가 통째로 1개로 취급되기 때문에 그렇습니다.

코드 보시면, Mid 함수를 써서 하나를 잘라낸 다음에, 아스키값으로 넣고 계시죠.
여기서 Mid 함수를 쓰면 tmText에는 '안'의 반쪽이 아닌 '안'이 들어가게 됩니다. (바이트로 따지면 2바이트)

아래 코드 실행해보세요. form만 하나 놓으시고.

Private Sub Form_Load()

Dim bbb() As Byte
bbb = StrConv("abc", vbFromUnicode)
'bbb = StrConv("안녕하세요", vbFromUnicode)

Dim idxTo As Long
idxTo = UBound(bbb)

Dim idxByte As Long
For idxByte = 0 To idxTo
Debug.Print bbb(idxByte)
Next idxByte

Erase bbb

End Sub

디버그창에 바이트 배열에 들어있는 값이 나오는데요(물론 아스키값으로)

strconv는 두번째 인수에 따라서 첫번째 인수에 있는 내용을 여러가지로 변환할 수 있습니다.
strconv(vb스트링, vbfromunicode) 라고 하면 vb스트링을 바이트 배열로 담을 수 있습니다. (되는지 몰랐는데, 되네요-_-;;)

거꾸로 strconv(바이트배열, vbunicode) 라고 하면 c에서 취급하는 바이트 배열 문자열(char[] 같은)을 vb스트링으로 변환할 수 있고요.

아실지도 모르지만, 첨이라고 하셔서 좀더 설명을 드리면.

vb에서 배열 하한이 무조건 0인 것은 아니지만, strconv 에서 반환하는 배열은 0베이스가 되고요.
변수를 동적으로 잡아놓으시면(dim bbb() as byte에서처럼 배열 개수를 적어주지 않음), 반환값에 따라서 자동으로 늘어납니다.

Ubound 함수는 배열의 상한 인덱스를 반환합니다-만, 위에서처럼 루프를 돌릴 때에는 ubound 값을 변수에 담은 후에 쓰세요.
저도 데브에서 본건데, ubound 함수 속도가 느리다고 하네요. 배열 아이템이 많을 때는 상당한 부하가! (-0-)

음. vb에서 동적 배열은 erase 배열이름 해서 지울 수 있습니다. ^^*

문자열을 16진수처리

Dim linebuffer As String

Dim sHex As String

Dim i As Integer

sHex = ""

linebuffer = "Hello"

For i = 1 To Len(linebuffer)

sHex = sHex & Hex(Asc(Mid(linebuffer, i, 1)))

Next i

Debug.Print sHex

초급자를 위한 파일 입출력 실무

이번 강좌에서는 이진파일(Binary File)의 예제를 하나 소개할까 합니다

#1강에서도 설명을 드렸다시피 이진파일은 라인단위가 아닌 블럭단위로 입출력을 하게 됩니다

또한 읽거나 쓴만큼 자동으로 다음 위치를 가리키게 됩니다

1. 프로그램을 실행 시키면 아래와 같은 화면이 보이게 됩니다

여기서 <파일 생성> 버튼을 누르게 되면 현재 위치에 1024바이트의 NEW.BIN 파일이 만들어 지며

파일은 모두 "X"로 채워지게 됩니다

또한 100 번째 위치에 있는 값을 읽어와서 출력을 해보고 100 번째 있는 값을 공백문자(" ")로 바꾸어 보겠습니다

Option Explicit

--------------------------------------------------------------------------------------------

<프로그램 종료> 버튼을 눌렀을때 실행됩니다

Private Sub cmd종료_Click()

End

End Sub

--------------------------------------------------------------------------------------------

<파일 생성> 버튼을 누르면 실행이 됩니다

Private Sub cmd파일생성_Click()

Dim i%

Dim ReadByte As Byte

현재 경로에서 NET.BIN 파일을 이진형태로 엽니다. 또한 없으면 자동으로 생성이 됩니다

Open App.Path & "\NEW.BIN" For Binary As #1

For i = 1 To 1024 1024 개를 파일에 저장합니다

Put #1, , "X" 파일의 현재 위치에 "X"를 저장합니다. 두번째 값을 생략한 이유는... 파일을 처음 열면 자동으로

1을 가리키기 때문

Next i 아래에 있는 [그림-1]을 보시면 실제 파일에 어떻게 들어가 있는지 확인을 할 수 있습니다

Get #1, 100, ReadByte 파일에서 100 번째 위치한 값을 ReadByte변수로 읽어들입니다

MsgBox Hex(ReadByte) 읽어들인 값을 출력합니다 (16진수로 출력)

Put #1, 100, " " 100 번째 위치에 공백문자(" ")를 출력한다

아래에 있는 [그림-2]을 보시면 실제 파일에 어떻게 들어가 있는지 확인을 할 수 있습니다

Get #1, 100, ReadByte 100 번째 위치에 있는 값을 읽는다

MsgBox Hex(ReadByte)

Close #1

MsgBox "처리가 완료되었습니다", vbInformation, "결과"

End Sub

--------------------------------------------------------------------------------------------

Private Sub Form_Load()

폼을 회면의 중앙에 출력한다 (함수는 모듈에 선언되어 있음)

Call CenterForm(Me)

End Sub

[그림-1]

[그림-2]

2008년 3월 19일 수요일

원도우 XP 내 마음대로 주므르기

이 요약은 사용할 수 없습니다. 이 글을 보려면 여기를 클릭하세요.