2 7 Dim As Dim Dimension Integer String

  • Slides: 36
Download presentation

2. 변수 사용하기 (7) ¢ [ ***] = 옵션을 의미 ***은 있을수도 없을수도 있음

2. 변수 사용하기 (7) ¢ [ ***] = 옵션을 의미 ***은 있을수도 없을수도 있음 변수의 선언 Ø Dim 변수이름 [As 데이터형] § Dim : Dimension(차원)의 줄임 § 변수형 : Integer, String, Boolean, Byte, Double, etc. § As 이하가 생략된 경우 As Variant임 Option Explicit Private Sub Form_Dbl. Click() Dim Data as Integer Data = 100 Form 1. Print Data = 200 Form 1. Print Dats End Sub 2021 -12 -21 수원과학대학 컴퓨터정보과 1학년 9

2. 변수 사용하기 (8) ¢ 데이터형 유형 데이터형 값의 범위 Dim data As Byte

2. 변수 사용하기 (8) ¢ 데이터형 유형 데이터형 값의 범위 Dim data As Byte 8 bit 0~255 Dim data As Integer 2 byte -2^16 ~ 2^16 -1 (-32768~32767) Long Dim data As Long 4 byte -2^31 ~ 2^31 -1 Single Dim data As Single 4 byte -3. 402823 E 38~-1. 401298 E-45~3. 402823 E 38 Dim data As Double 8 byte - 논리형 Dim data As Boolean 2 byte True 또는 False 문자열형 Dim data As String 정수형 실수형 Byte 사용 예 65400자 또는 약 2조 개 문자 통화형 Currency Dim data As Currency 8 byte - 날짜형 Date Dim data As Date 8 byte 1000년1월 1일~9999년10월 31일 가변형 객체형 2021 -12 -21 Object Dim data [As Variant] 데이터형이 선언되지 않았을 경우 Dim data As Object 할당되는 객체의 크기에 따름 수원과학대학 컴퓨터정보과 1학년 10

2. 변수 사용하기 (9) ¢ 3장 2. vbp 변수 사용 예제 만들기 Private Sub

2. 변수 사용하기 (9) ¢ 3장 2. vbp 변수 사용 예제 만들기 Private Sub 변수_Click() Dim dataint As Integer Dim datadou As Double Dim databoo As Boolean Dim datastr As String Dim datacur As Currency Dim datadat As Date Dim datavar As Variant Dim dataobj As Object 2021 -12 -21 dataint = 32767 이때 tab을 눌러주면 String이 Form 1. Print datadou = 32. 767 자동입력되고 커서가 바로 다음에 Form 1. Print datadou 위치한다. databoo = True 만일 Enter를 치게되면 String이 Form 1. Print databoo datastr = "OK!" 자동입력되고 커서는 다음 줄로 Form 1. Print datastr 넘어간다. datacur = 1000. 23 Form 1. Print datacur datadat = #03/20/2015# Form 1. Print datadat datavar = 32767 Form 1. Print datavar Set dataobj = Form 1. Print dataobj. Caption End Sub 수원과학대학 컴퓨터정보과 1학년 11

3. 모듈이란? (1) Program Module 1 Module 2 Private Sub Procedure 1() … End

3. 모듈이란? (1) Program Module 1 Module 2 Private Sub Procedure 1() … End Sub Private Sub Procedure 2() … End Sub Private Sub Procedure 3() … End Sub 2021 -12 -21 Private Sub Procedure 1() … End Sub Private Sub Procedure 2() … End Sub Private Sub Procedure 3() … End Sub 수원과학대학 컴퓨터정보과 1학년 15

3. 변수의 유효범위 (11) ¢ 3장 5. vbp 정적 변수 Option Explicit Private Sub

3. 변수의 유효범위 (11) ¢ 3장 5. vbp 정적 변수 Option Explicit Private Sub 정적변수출력버튼_Click() Dim Data 1 As Integer Static Data 2 As Integer Data 1 = Data 1 + 10 Data 2 = Data 2 + 10 Form 1. Print "Data 1 = "; Data 1 Form 1. Print "Data 2 = "; Data 2 Form 1. Print "-----" End Sub 2021 -12 -21 수원과학대학 컴퓨터정보과 1학년 30

3. 변수의 유효범위 (13) ¢ 변수의 유효범위 예제 Option Explicit Dim A As Integer

3. 변수의 유효범위 (13) ¢ 변수의 유효범위 예제 Option Explicit Dim A As Integer Public D As Integer ‘ 모듈변수 ‘ 전역변수 Private Sub Command 1_Click() Dim B As Integer ‘ 지역변수(프로시져 변수) Static C As Integer ‘ 정적변수 A=A+1 B = B + 10 C = C + 100 D = D +1000 Form 1. Print A, B, C, D End Sub 2021 -12 -21 수원과학대학 컴퓨터정보과 1학년 32

4. 상수 사용하기 (4) ¢ 3장 7. vbp 상수 사용 예제 2 Ø 시스템

4. 상수 사용하기 (4) ¢ 3장 7. vbp 상수 사용 예제 2 Ø 시스템 정의 상수 Option Explicit Private Sub Form_Load() Form 1. Back. Color = vb. Yellow End Sub Private Sub 시스템상수_Click() Form 1. Back. Color = vb. Blue End Sub 2021 -12 -21 수원과학대학 컴퓨터정보과 1학년 36