'함수'에 해당되는 글 2건

Posted on 2011/09/28 00:30 Url http://www.svkor.com/blog/8
Filed Under 프로그래밍/Visual Basic

VB6의 몇가지 숫자와 관련된 내장 함수을 알아보자.

'-- Abs : 절대값을 구함
'-- Abs(숫자)
MsgBox Abs(-1234&) '-- 1234
MsgBox Abs(1234&) '-- 1234

'-- Sgn : 숫자의 상태를 구함 (양, 음, 0)
'-- Sgn(숫자)
'-- 양이면 1, 음이면 -1, 0이면 0
MsgBox Sgn(-1234&) '-- -1
MsgBox Sgn(0&) '-- 0
MsgBox Sgn(1234&) '-- 1

'-- Sqr : 제곱근을 구함
'-- Sqr(숫자)
MsgBox Sqr(4&) '-- 2

'-- Int : 숫자의 정수 부분을 구함
'-- Int(숫자)
MsgBox Int(4.5) '-- 4
MsgBox Int(-4.5) '-- -5

'-- Fix : 숫자의 정수 부분을 구함
'-- Fix(숫자)
MsgBox Fix(4.5) '-- 4
MsgBox Fix(-4.5) '-- -4

'-- Exp : e의 n승 값을 구함
'-- Exp(숫자)
MsgBox Exp(1&) '-- 2.71828182845905 
MsgBox Exp(2&) '-- 7.38905609893065 

'-- Log : 자연로그 값을 구함
'-- Log(숫자)
MsgBox Log(Exp(2&)) '-- 2

'-- Sin : 삼각함수 Sin 값을 구함
'-- Sin(호도법에 의한 각)
MsgBox Sin(3.141593 * 30& /180&) '-- 0.500000050000006 

'-- Cos : 삼각함수 Cos 값을 구함
'-- Cos(호도법에 의한 각)
MsgBox Cos(3.141593 * 60& /180&) '-- 0.499999899999984 

'-- Tan : 삼각함수 Tan 값을 구함
'-- Tan(호도법에 의한 각)
MsgBox Tan(3.141593 * 45& /180&) '-- 1.00000017320512

'-- Hex : 16진수로 변환
'-- (Hex$로 쓰는 것이 처리가 좀 더 빠름)
'-- Hex$(숫자)
MsgBox Hex$(10&) '-- "A"

'-- Oct : 8진수로 변환
'-- (Oct$로 쓰는 것이 처리가 좀 더 빠름)
'-- Oct$(숫자)
MsgBox Oct$(10&) '-- 12

'-- Rnd : 난수를 반환
'-- Randomize 함수로 초기화 한 후에 사용
Randomize
MsgBox CLng(Rnd * 9&) + 1& '-- 1~10 사이의 난수

2011/09/28 00:30 2011/09/28 00:30

Posted on 2011/09/28 00:00 Url http://www.svkor.com/blog/7
Filed Under 프로그래밍/Visual Basic


VB6의 몇가지 문자열과 관련된 내장 함수을 알아보자.

'-- Asc : 문자를 아스키코드로 변환
'-- Asc(문자)
MsgBox Asc("A") '-- 65

'-- Chr : 아스키코드를 문자로 변환
'-- (Chr$로 사용하는 것이 처리가 좀 더 빠름)
'-- Chr$(숫자)
MsgBox Chr$(65) '-- "A"

'-- Left : 문자열의 왼쪽부터 n자를 가져옴
'-- (Left$로 사용하는 것이 처리가 좀 더 빠름)
'-- Left$(문자열, 길이)
MsgBox Left$("안녕하세요", 2&) '-- "안녕"

'-- Right : 문자열의 오른쪽부터 n자를 가져옴
'-- (Right$로 사용하는 것이 처리가 좀 더 빠름)
'-- Right$(문자열, 길이)
MsgBox Right$("안녕하세요", 2&) '-- "세요"

'-- Mid : 문자열의 시작 위치와 길이를 지정하여 그만큼의 문자열을 가져옴
'-- (Mid$로 사용하는 것이 처리가 좀 더 빠름)
'-- Mid$(문자열, 시작 위치[, 길이])
'-- 길이를 생략하면 시작 위치부터 문자열의 끝까지
MsgBox Mid$("안녕하세요", 2&, 3&) '-- "녕하세"
MsgBox Mid$("안녕하세요", 3&) '-- "하세요"

'-- Len : 문자열의 길이(문자수)를 가져옴
'-- Len(문자열)
MsgBox Len("안녕하세요") '-- 5

'-- LenB : 문자열의 바이트수를 가져옴
'-- LenB(문자열)
'-- VB6은 유니코드이므로 영어도 2바이트로 처리함
'-- 정확한 바이트 수를 가져오려면 StrConv 함수를 통하거나, API를 이용해야 한다.
MsgBox Len("안녕하세요abcde") '-- 10

'-- InStr : 문자열에 문자가 포함되었으면 해당 위치를 가져오고, 없으면 0을 반환함
'-- InStr([시작 위치, ]문자열, 찾을 문자)
'-- 시작 위치를 생략하면 처음부터 찾음
MsgBox InStr("안녕하세요", "녕") '-- 2
MsgBox InStr(1&, "안녕하세요", "녕") '-- 2
MsgBox InStr(2&, "안녕하세요안녕하세요", "녕") '-- 7

'-- LTrim : 문자열 왼쪽의 공백을 없앰
'-- (LTrim$으로 사용하는 것이 처리가 좀 더 빠름)
'-- LTrim$(문자열)
MsgBox LTrim$("   안녕하세요 ") '-- "안녕하세요 "

'-- RTrim : 문자열 오른쪽의 공백을 없앰
'-- (RTrim$으로 사용하는 것이 처리가 좀 더 빠름)
'-- RTrim$(문자열)
MsgBox RTrim$("   안녕하세요 ") '-- "   안녕하세요"

'-- Trim : 문자열 왼쪽, 오른쪽의 공백을 없앰
'-- (Trim$으로 사용하는 것이 처리가 좀 더 빠름)
'-- Trim$(문자열)
MsgBox Trim$("   안녕하세요 ") '-- "안녕하세요"

'-- Str : 숫자를 문자형식으로 바꿈. (= CStr)
'-- Str(숫자), CStr(숫자)
MsgBox Str(1234&) '-- "1234"

'-- Val : 문자열에 있는 숫자를 Double 형으로 반환함
'-- (단, 숫자로 시작해야하며, 숫자가 아닌 문자가 나오면 거기까지'-- 만 반환. 없으면 0)
'-- Val(문자열)
MsgBox Val("가나다") '-- 0
MsgBox Val("-1234.123") '-- -1234.123
MsgBox Val("1234") '-- 1234

'-- Space : n개의 공백을 반환함
'-- (Space$로 사용하는 것이 처리가 좀 더 빠름)
'-- Space$(숫자)
MsgBox Space(5&) '-- "     "

'-- String : 지정한 문자를 n회 반복함
'-- (String$으로 사용하는 것이 처리가 좀 더 빠름)
'-- String$(숫자, 문자)
MsgBox String(5&, "A") '-- "AAAAA"

'-- UCase : 문자열의 모든 영어를 대문자로 변경
'-- (UCase$로 사용하는 것이 처리가 좀 더 빠름)
'-- UCase$(문자열)
MsgBox UCase$("AbCdE") '-- "ABCDE"

'-- LCase : 문자열의 모든 영어를 소문자로 변경
'-- (LCase$로 사용하는 것이 처리가 좀 더 빠름)
'-- LCase$(문자열)
MsgBox LCase$("AbCdE") '-- "abcde"
2011/09/28 00:00 2011/09/28 00:00

About

by 축복

Counter

· Total
: 6446
· Today
: 8
· Yesterday
: 28