[비주얼베이직] 장난감대여프로그램

소개

열심히 만들었습니다.... 도움이 되길 바래요.

컴파일 실행환경

<파일목록>
Form1.frm
Form2.frm
Form3.frm
Module1.bas
Project1.vbp
Project1.vbw
MSSCCPRJ.SCC
장난감대여.exe

본문내용

Private Sub command2_Click()

Dim i, mCount

Form1.Hide
Form3.Show

Call sort '출력과 동시에 정렬을 수행시킴

For i = 1 To 6
If 장난감(i).대여금액 > 0 Then '대여금액이 0인 장난감은 출력하지 않음
With Form3.MSFlexGrid1
mCount = mCount + 1
.Rows = mCount + 1
.Row = mCount
.Col = 0
.Text = 장난감(i).이름
.Col = 1
.Text = 장난감(i).대여금액
.Col = 2
.Text = 장난감(i).횟수
.Col = 3
.Text = 장난감(i).비율
If Val(.Text) >= 3000 Then '감가상각비가 3000원 이상이면
.Col = 4
.Text = "조정" '비고란에 "조정" 출력함
End If
End With
End If
Next i

Form3.Label3.Caption = 총합계금액 'Text에 총감가상각액을 출력시킴

End Sub

참고자료

· VISUAL BASIC 6 21일 완성