[비주얼베이직] 장난감대여프로그램
- 최초 등록일
- 2003.09.28
- 최종 저작일
- 2003.09
- 10페이지/ 압축파일
- 가격 1,000원
소개글
열심히 만들었습니다.... 도움이 되길 바래요.
컴파일 실행환경
<파일목록>
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
압축파일 내 파일목록
Module1.bas
Form3.frm
Form2.frm
Form1.frm
Project1.vbp
MSSCCPRJ.SCC
Project1.vbw
장난감대여.exe
참고 자료
VISUAL BASIC 6 21일 완성