[비주얼 베이직] 비주얼 베이직(로또)

소개글

비베 로또 입니다. 파일 저장/열기가 되도록 했구요.
추첨등 다 됩니다. 소스와 실행 화면 있습니다.
본문에서 요구하는 그대로 만들었습니다.

목차

없음

본문내용

MDI폼으로 작성
-하나의 parent form과 두 개의 child form으로 구성
Parent form
-필수메뉴 “로또구입하기“, ”로또당첨확인“, ”종료“
-메뉴에 해당하는 툴바 또는 쿨바 생성시 보너스 점수
Child form
로또구입하기
-자동번호/수동번호 생성 가능
-구입한 번호는 저장되어야 한다.
-여러 장 구입 가능해야함(최대 5매 까지)
로또당첨확인
-당첨번호를 입력하고 당첨확인을 하면 각 매수별로 당첨된 번호를 체크하여 주고 등수를 확인하여 준다.

Option Explicit ‘변수선언요구

Private Sub end_menu_Click() '로또메뉴에서 종료를 클릭하면 종료

End

End Sub

Private Sub lotto_buy_menu_Click() '로또메뉴에서 로또구입을 클릭하면 form1창 로드

Load Form1

End Sub

Private Sub lotto_draw_menu_Click() '로또메뉴에서 로또추첨을 클릭하면 form2창 로드

Load Form2

End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

If Button.Index = 1 Then '버튼을 누르면 그 이름에 따라 발생
Load Form1 '로또구입을 누르면 form1창 로드
ElseIf Button.Index = 2 Then
Load Form2 '로또추첨을 누르면 form2창 로드
Else
End '종료를 누르면 종료
End If

End Sub

참고 자료

없음