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

소개글

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

컴파일 실행환경

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

참고 자료

없음