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

등록일 2003.09.28 압축파일 (zip) | 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일 완성
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서