• 파일시티 이벤트
  • LF몰 이벤트
  • 서울좀비 이벤트
  • 탑툰 이벤트
  • 닥터피엘 이벤트
  • 아이템베이 이벤트
  • 아이템매니아 이벤트

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

*선*
최초 등록일
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일 완성
*선*
판매자 유형Bronze개인

주의사항

저작권 자료의 정보 및 내용의 진실성에 대하여 해피캠퍼스는 보증하지 않으며, 해당 정보 및 게시물 저작권과 기타 법적 책임은 자료 등록자에게 있습니다.
자료 및 게시물 내용의 불법적 이용, 무단 전재∙배포는 금지되어 있습니다.
저작권침해, 명예훼손 등 분쟁 요소 발견 시 고객센터의 저작권침해 신고센터를 이용해 주시기 바랍니다.
환불정책

해피캠퍼스는 구매자와 판매자 모두가 만족하는 서비스가 되도록 노력하고 있으며, 아래의 4가지 자료환불 조건을 꼭 확인해주시기 바랍니다.

파일오류 중복자료 저작권 없음 설명과 실제 내용 불일치
파일의 다운로드가 제대로 되지 않거나 파일형식에 맞는 프로그램으로 정상 작동하지 않는 경우 다른 자료와 70% 이상 내용이 일치하는 경우 (중복임을 확인할 수 있는 근거 필요함) 인터넷의 다른 사이트, 연구기관, 학교, 서적 등의 자료를 도용한 경우 자료의 설명과 실제 자료의 내용이 일치하지 않는 경우
최근 본 자료더보기
탑툰 이벤트
[비주얼베이직] 장난감대여프로그램
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업
  • 레이어 팝업