검색어 입력폼

배열을 이용한 공공요금 계산프로그램

등록일 2005.01.23 한글파일한컴오피스 (hwp) | 4페이지 | 가격 500원

소개글

상당히 간편하면서도 깔끔한 소스

컴파일 실행환경

visual basic 으로 작성

본문내용

Private Type pay
사용가번호 As String * 3
구분코드 As String * 1
구분명 As String * 8
전월검침량 As String * 4
금월검침량 As String * 4
기본요금 As String * 8
사용량 As String * 8
사용금액 As String * 8
납부액 As String * 8
End Type

Dim cnt As Integer
Dim dat(10) As pay
Dim tmp As pay

Private Sub Command1_Click()
'입력
i = cnt
dat(i).사용가번호 = Val(Text1.Text)
dat(i).구분코드 = Text2.Text
dat(i).전월검침량 = Val(Text3.Text)
dat(i).금월검침량 = Val(Text4.Text)
cnt = cnt + 1
다운로드 맨위로