비주얼프로그램-주차관리프로그램

소개

비주얼프로그램(출석대체 실습과제) : 주차관리 프로그램
비주얼프로그래밍(실습과제) :
▶ 과제 : 주차장 관리 프로그램을 다음 요구사항이 만족되도록 작성하시오.
* 출력 설계 시 요구사항
① 출력은 화면 출력으로 구성하고, 전반적인 화면 균형감을 고려하여 학생이 적절히 구성함을 허용함.
* 제출사항
① CD / USB / 3.5인치 플로피 디스켓 :
담당 채점자가 실행할 수 있도록 필요한 관련 파일(*.vbp, *.frm, *.bas 등)을 모두 저장하여 제출하되, 반드시 학과, 학번 및 이름을 정확히 기재할 것. (CD/USB/디스켓에 필요한 파일을 복사한 후 반드시 저장 내용을 확인하기 바람. 빈 상태로 제출하는 경우에는 평가 불가)
② 과제물 보고서 :
a. 문제분석, 입력설계, 처리설계, 출력설계 등 프로그램 개발 과정에서 나름대로의 문제 해결 방법을 관해서 주요 사항을 요약 및 프로그램 수행 결과를 제출할 것. (A4용지 10매 이내(소스코드는 10매에 포함되지 않음.))
b. 작성한 프로그램에 대한 소스코드를 지면으로 출력하여 제출할 것.(주석을 자세히 달 것, 보고서 ‘a’뒤에 첨부하여 ‘a’와 ‘b’를 한 묶음으로 하여 제출.)
③ 보다 자세한 사항은 학과 홈페이지 참조
※ 대봉투에 위 ①번과 ②번을 넣고 봉투겉면에 과제물 표지를 붙여서 제출할 것.

▶개발언어 : Visual Basic 6.0

화일형식 : 압축화일(.zip)
소스(Visual Basic), 한글파일 - 2개(과제물 작성 파일)

목차

1.소스문서
2.문제분석파일
3.소스

본문내용

1. 주차관리 화면의 소스
`` 입고관리 버튼 클릭시
Private Sub Command1_Click()
Form2.Show
End Sub
` 출고관리 버튼 클릭시
Private Sub Command2_Click()
Form3.Show
End Sub
` 종료 버튼 클릭시
Private Sub Command3_Click()
Unload Me
End Sub

2. 입고관리 화면의 소스
` 입고관리 화면 Load시
Private Sub Form_Load()
Dim s_num() As String
Dim buf As String
Dim s_carnum As String, s_date As String, s_time As String
Dim i As Integer, i1 As Integer

Label4.Caption = Format(Now, "AMPM hh:mm:ss") ` 현재 시간을 보여줌 - 오후 13:23:22 형태로
If Dir(App.Path & "park.txt") <> "" Then ` 주차정보를 보관하는 파일이 있을경우
Open App.Path & "park.txt" For Input As #1 ` 파일을 open한다.
Do While Not EOF(1)
Line Input #1, buf ` 라인단위로 파일을 읽는다. buf - 라인단위로 읽은 파일의 값 저장

s_num() = Split(buf, ",") ` 차량,일자,시간 정보가 콤마로 분리되어있기 때문에 콤마로 분리해서 읽음
s_carnum = Replace(s_num(0), """", "") ` 레코드의 첫 데이터인 차량 번호를 읽어온다.

참고자료

· 없음