창조유저그룹-커즈닷컴

Window close


	처음으로

	창조
	창조 소개
	창조 다운로드
	CUGz.com 소개
	온라인 도움말

	커뮤니티
	가입인사
	자유게시판
	Q/A게시판
	TIP/TECH
	열린강좌
	자주하는질문
	아이디어게시판

	자료실
	소스자료실
	프로그램자료실
	기타자료실
	명예의 전당
	이미지 자료실

	지원/기타
	표준용어재정
	구글 웹서치
	관리자 전용

LIST ALL

Posted by 김환욱

2002-12-27 18:15:31, Hit : 3919

[re] [요청] vbmp3.dll 스펙 트럼 명령 [김환욱님께]

Homepage : http://sfafbattle.wo.to

Post URL : http://cugz.sjworks.net/bbs/zboard.php?id=freeboard&no=323

일단 스펙트럼 함수입니다..

함수 명 : vbmp3_getSpectrum()
인자  : pSpecL(255) = 왼쪽 채널 256 밴드의 dB치
　　　　 pSpecR(255) = 오른쪽 채널 256 밴드의 dB치
결과 값  : 1,0 (실패 또는 성공이겠죠..)

사용법:

Dim pSpecL(255) As Long
Dim pSpecR(255) As Long

call vbmp3_getSpectrum(pSpecL(0), pSpecR(0))

창조에서 사용법:

사용자함수에..
실수함수:vbmp3_getSpectrum(실수:왼쪽,오른쪽);

그리고 사용할때는...

실수:왼쪽채널[256];
실수:오른쪽채널[256]; //초기화 명령에 편집에 적어서 전역변수로 사용해야 합니다..

반복문을 사용하여 사용자함수의 vbmp3_getSpectrum 함수가 내보내는 오른쪽,왼쪽 dB값을 256개의 변수에 담아 눈금계또는 선으로 그리면 될것 같은데요.. 저 값을 받아낼 방법이 없습니다..

이퀄라이져 함수는..

원문이

Dim pTable(9) As Long

pTable(0) = -60   //60Hz 저음조절
pTable(1) = -40   //170Hz 저음조절
pTable(2) = -20   //310Hz 중저음조절
pTable(3) = -10   //600Hz 중음조절
pTable(4) = -5     //1KHz 중음조절
pTable(5) = 5       //3KHz 중음조절
pTable(6) = 10     //6KHz 중고음조절
pTable(7) = 20     //12KHz 고음조절
pTable(8) = 40     //14KHz 고음조절
pTable(9) = 60    //16KHz 고음조절

Call vbmp3_setEqualizer(pTable(0))

이것이구요.. 창조로 사용하자면..

실수:pTable[10]; //초기화 명령에 편집에 적어서 전역변수로 사용해야 합니다..
pTable[0]:=-스크롤바0.눈금위치;

//여기서 스크롤바는 수직스크롤바이며, 움직임범위는 -120~120 입니다.. 그리고 "-스크롤바0.눈금위치" 이렇게 -1 을 곱한것은 창조의 스크롤바가 눈금을 위로 올리면 값이 점점 작아지기 때문에 스크롤바의 눈금을 위로 올렸을때 값을 점점 커지게 하기위해서 -1 을 곱했습니다. 스크롤바를 움직일때 그 눈금값을 창제목으로 나오게 한 결과 -120~120 값이 성공적으로 나왔습니다..

pTable[1]:=-스크롤바1.눈금위치;
pTable[2]:=-스크롤바2.눈금위치;
pTable[3]:=-스크롤바3.눈금위치;
pTable[4]:=-스크롤바4.눈금위치;
pTable[5]:=-스크롤바5.눈금위치;
pTable[6]:=-스크롤바6.눈금위치;
pTable[7]:=-스크롤바7.눈금위치;
pTable[8]:=-스크롤바8.눈금위치;
pTable[9]:=-스크롤바9.눈금위치;
pTable[10]:=-스크롤바10.눈금위치;

위에처럼 변수에 스크롤바의 눈금위치를 기억시키고요.. 이제 이퀄라이져를 켜면 되는데요..
여기서 문제가 발생합니다.. 적용이 안되고 잘못된 연산오류를 일으키며 종료되지요..

이퀄라이져를 켜는 방법은 원문을 보고 창조에서 적용하자면..

사용자함수에.. 실수함수:vbmp3_setEqualizer(실수:값);

그리고 이퀄라이져를 켜는 버튼에... 사용자함수0.vbmp3_setEqualizer(pTable(0));
이렇게 하면 비베에서는 되는데요.. 창조에선 안되더군요.. 이퀄라이져를 끄는 방법은
위에 함수 인자에 byVal0& 을 비베에서 입력하면 이퀄라이져는 꺼지는데요 창조에서는 아무런 응답이 없고요.. 이것말고 VBmp3.dll 파일에는 여러가지 함수가 많은데요.. 창조에서는 사용이 안될것 같네요..