홈으로 홈으로 | 무료회원가입 | 아이디/비번찾기 | 즐겨찾기
추천음악방송메인홈1대1상담음악방송청취
아리랑가요(무료음악채널)
뽕짝아가씨(무료음악채널)
okTrot(무료음악채널)
전통가요(무료음악채널)
미스트롯(무료음악채널)

온라이브스토어(앱다운로드)

환상의뽕짝파티 무료음악
명작트로트메들리 무료음악
트로트메들리관광 무료음악
동영상노래방
가사검색

POP Player
신나는 고스톱
컴퓨터 오목
작은 음악다방
자동러시 웹플레이어신청

보안∵서버∵쿠키
윈도우∵프레임
이미지∵배경
시간∵달력∵계산
상태바∵타이틀바
음악∵영상
폼∵전송∵테이블
키보드∵마우스
효과∵링크∵메뉴
Script∵php
기타
PHP 강좌
윈도우관련팁
웹관련팁
홈페이지제작팁
기본강좌
레지스트리
윈도우서버
리눅스서버
Android
자주 쓰는 내장함수 (VisualBasic6)
8년 전
InStr 함수 예제

다음은 InStr 함수를 사용하여 주어진 문자열 내에서 사용자가 지정된 문자열이 최초로 나타나는 지점을 찾아내는 예제입니다.

Dim SearchString, SearchChar, MyPos

SearchString ="XXpXXpXXPXXP"         ' 찾을 문자열.

SearchChar = "P"                              ' "P" 찾기.

MyPos = Instr(4, SearchString, SearchChar, 1)   ' 4 위치에서 텍스트 비교 시작. 6을 반환합니다.

MyPos = Instr(1, SearchString, SearchChar, 0)   ' 1 위치에서 이진 비교 시작. 9를 반환합니다.

' 비교는 기본값으로 이진법(마지막 인수는 생략).

MyPos = Instr(SearchString, SearchChar)          ' 9를 반환합니다.

MyPos = Instr(1, SearchString, "W")                  ' 0을 반환합니다.




Left 함수 예제

다음은 Left 함수를 사용하여 문자열의 왼쪽 끝에서부터 지정된 문자 수 만큼의 글자를 반환하는 예제입니다.

Dim AnyString, MyStr

AnyString = "Hello World" ' 문자열 정의.

MyStr = Left(AnyString, 1)      ' "H"를 반환합니다.

MyStr = Left(AnyString, 7)  ' "Hello W"를 반환합니다.

MyStr = Left(AnyString, 20) ' "Hello World"를 반환합니다.







Len 함수 예제

다음은 Len 함수를 사용하여 주어진 문자열이나 변수를 저장하는데 필요한 바이트 수를 구해내는 예제입니다. CustomerRecord를 정의하는데 사용하는 Type...End Type 블럭을 클래스 모듈에서 정의할 경우에는 반드시 맨 앞에 Private 키워드를 먼저 선언해 주어야 하고, 그냥 일반 모듈에서 사용할 경우에는 Type 블럭을 Public으로 선언할 수도 있습니다.

Type CustomerRecord ' 사용자 정의 형식 정의.

ID As Integer ' 이 정의를

Name As String * 10에 위치시킴 ' 표준 모듈.

Address As String * 30

End Type

Dim Customer As CustomerRecord ' 변수 선언.

Dim MyInt As Integer, MyCur As Currency

Dim MyString, MyLen

MyString = "Hello World" ' 변수 초기화.

MyLen = Len(MyInt)        ' 2를 반환합니다.

MyLen = Len(Customer) ' 42를 반환합니다.

MyLen = Len(MyString) ' 11을 반환합니다.

MyLen = Len(MyCur)        ' 8을 반환합니다.







Mid 함수 예제

다음은 Mid 함수를 사용하여 문자열로부터 지정된 수 만큼의 문자를  따내는 예제입니다.

Dim MyString, FirstWord, LastWord, MidWords

MyString = "Mid Function Demo" ' 텍스트 문자열 작성합니다.

FirstWord = Mid(MyString, 1, 3)          ' "Mid"를 반환합니다.

LastWord = Mid(MyString, 14, 4)          ' "Demo"를 반환합니다.

MidWords = Mid(MyString, 5)              ' "Function Demo"를 반환합니다.







Abs 함수 예제

다음은 숫자의 절대값을 계산하기 위해 Abs 함수를 사용하는 예제입니다.

Dim MyNumber

MyNumber = Abs(50.3) ' 50.3을 반환합니다.

MyNumber = Abs(-50.3) ' 50.3을 반환합니다.







Int 함수, Fix 함수 예제

다음 예제에서는 Int와 Fix 함수가 숫자의 정수 부분을 반환하는 방법을 보여줍니다. 음수 인수의 경우에는 Int 함수는 그 수보다 작거나 같은 첫번째 음수를 반환하고, Fix 함수는 그 수보다 크거나 같은 첫번째 음수를 반환합니다.  다른표현으로 수직선 상에서, Int함수는 0 을 기준으로 멀어지고 ( <- 0 -> ) Fix함수는 우측방향으로 진행 ( -> 0 -> ) 한다고 이해 하면 된다.



Dim MyNumber

MyNumber = Int(99.8)   ' 99를 반환합니다.

MyNumber = Fix(99.2)   ' 99를 반환합니다.

MyNumber = Int(-99.8)   ' -100를 반환합니다.

MyNumber = Fix(-99.8)   ' -99를 반환합니다.

MyNumber = Int(-99.2)   ' -100를 반환합니다.

MyNumber = Fix(-99.2)   ' -99를 반환합니다.









Round 함수

반올림 또는 4사5입 기능의 함수 입니다. 첫번째 인수로 소수부가 있는 Double형 Number을 주고 두번째 인수에는 소수부의 자리수를 지정합니다. 두번째 인수가 0 이면 소수부가 없는 정수를 반환하고 1이면 소수 둘째자리에서 반올림 하여 첫째자리 까지 남겨줍니다. 두번째 인수는 0보다 큰 정수를 받는다.



Dim MyNumber

MyNumber = Round(321.23, 1)   ' 321.2 를 반환합니다.

MyNumber = Round(321.23, 0)   ' 321 를 반환합니다.

MyNumber = Round(321.23, -1)  ' 에러발생

MyNumber = Round(321.4, 0)    ' 321 를 반환합니다.

MyNumber = Round(321.5, 0)    ' 322 를 반환합니다.


MyNumber = Round(-321.4, 0)   ' -321 를 반환합니다.

MyNumber = Round(-321.5, 0)   ' -322 를 반환합니다.












DateAdd 함수 예제

이 예제는 날짜를 선택하고 DateAdd 함수를 사용하여 미래의 지정된 달에 따른 날짜를 나타냅니다.

   Dim FirstDate As Date ' 변수를 선언합니다.

   Dim IntervalType As String

   Dim Number As Integer

   Dim Msg

   IntervalType = "m" ' "m" specifies months as interval.

   FirstDate = InputBox("Enter a date")

   Number = InputBox("Enter number of months to add")

   Msg = "New date: " & DateAdd(IntervalType, Number, FirstDate)

   MsgBox Msg







Dir 함수 예제

이 예제는 Dir 함수를 사용하여 어떤 파일과 디렉토리가 존재하는지 확인합니다.

Dim MyFile, MyPath, MyName   ' 만일 MyFile = Dir("C:\WINDOWS\WIN.INI")이 존재하면 "WIN.INI"를 반환합니다.

   ' 지정된 확장자로 파일 이름을 반환합니다. 둘 이상의 *.ini 파일이 존재하면, 찾은 첫번째 파일을 반환합니다.

MyFile = Dir("C:\WINDOWS\*.INI")    ' 같은 디렉토리에서 그 다음 *.INI 파일을 반환할 인수 없이 Dir을 다시 호출합니다.

MyFile = Dir  

MyFile = Dir("*.TXT", vbHidden)   ' 숨겨진(hidden) 속성을 가진 *.TXT 파일을 먼저 반환합니다.

MyPath = "c:\" ' 경로를 설정합니다.   ' 디렉토리를 나타내는 C:\에서 이름을 표시합니다.

MyName = Dir(MyPath, vbDirectory)    ' 첫번째 항목을 검색합니다.

Do While MyName <> ""    ' 루프(loop)를 시작합니다.

' 현재 디렉토리와 포함하는 디렉토리를 무시합니다.

If MyName <> "." And MyName <> ".." Then

  ' MyName이 디렉토리인지 확인하기 위해서 비트별(bitwise) 비교를 사용합니다.

  If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then

Debug.Print MyName ' 항목만 표시합니다

  End If ' 그것은 디렉토리를 표시합니다.

End If

MyName = Dir ' 다음 항목을 읽어들입니다.

Loop
추천추천 : 261 추천 목록
번호 제목
3,020
 [HTML5] <video> - DOM으로 제어하기
3,019
 HTML5 video 태그에서 영상 좌우반전
3,018
 PHP - 특정 태그 및 문자열 추출, 제거
3,017
 [PHP] define과 defined의 차이
3,016
 우클릭 완벽차단 스크립트
3,015
 iframe 높이 100% 맞추기
3,014
 curl 함수를 이용한 HTTP REFERER 변경
3,013
 윈도우10 시스템 파일 및 Dism 검사
3,012
 텍스트 줄바꿈, 글자자르기 CSS
3,011
 jQuery Mobile에서 유용한 코드 10가지.
3,010
 [PHP] dirname()함수와 $_SERVER 관련 상수들
3,009
 [PHP] 파일 크기, 사이즈 불러오는 함수, filesize()
3,008
 [jQuery] jQuery Quick API
3,007
 [ transition ] 링크 hover 색상 변화 속도 조절
3,006
 PHP 5.3.0 에서 사라진 함수들 대체
3,005
 어떤 파일들이 include 나 require 되었는지 확인하는 함수(get_included_files)
3,004
 PHP 날짜 형식 및 계산하기(날짜 더하고 빼기)
3,003
 jQuery Mobile에서 유용한 코드 10가지.
3,002
 값이 배열 안에 존재하는지 확인하는 in_array함수
3,001
 사용자가 웹브라우저에서 뒤로가기를 했을때 감지하는 방법
3,000
 [jQuery]버튼 활성화, 비활성화
2,999
 jQuery show() / hide() / toggle() 사용법
2,998
 jquery 여러가지 이벤트
2,997
 border-radius 속성
2,996
 네이버 오픈API 음성합성 API 사용하는 PHP 샘플코드
2,995
 UTF8 한글 자르기..
2,994
 iconv 에러 발생시 계속 처리하기 옵션
2,993
 [PHP] 현재 페이지의 도메인 , URL 정보 알아내기.
2,992
 [PHP] 막강 기능 배열..
2,991
 [CSS] - Input clear `X ` 버튼 제거 ( IE, Chrome, Firefox )
2,990
 [Mobile] - 모바일웹 Href 태그속성들
2,989
 [JqueryMobile] - 현재화면의 가로세로 사이즈 구하기
2,988
 [JqueryMobile] - 화면의 가로, 세로 사이즈 구하는 방법
2,987
 jquery로 가로 넓이(width), 세로 높이(height) 자동 조절
2,986
 iframe 높이 jquery로 자동조절하기
목록
추억의가요방(가사포함)
인기절정뽕짝파티
인기트로트모음
지루박디스코메들리
밤무대애창곡
전자올겐경음악
세월따라노래따라
가슴시린트로트
트로트쌍쌍파티
7080추억속으로
종합성인가요방
못잊을옛날노래
카바레 음악
트롯디스코팡팡
관광 메들리
트롯카페
가요감상실
추억의옛노래
스페셜가요광장
BillBoard Free
추천가요모음
경음악.전자올겐
스페셜음악여행
WOLRD POPs
K-POP\BillBoard
POP TOP BEST

최신인기가요특집
추천가요\인기
F뮤직 인기\발라드
F뮤직 애창\트로트
트로트성인가요
인기가요
프리미엄 POP
경음악\기타
프리미엄 최신가요
프리미엄 성인가요
가요축제\트롯1번지
댄스\메들리\리믹스
카페\명상\경음악\기타
뮤직트로트 부산광역시부산진구 가야동 ㅣ 개인정보취급방침
Copyright (C) musictrot All rights reserved.