비쥬얼베이직 로또 추첨 프로그램

소개글

비쥬얼베이직 로또 추첨 프로그램에 대한 보고서 자료입니다.

목차

● 문제개요

● 알고리즘

● 소스

● 실행화면

● 문제점

● 결과 및 느낀점

● frmParentsLotto

● frmChildShowResult

● frmChildChoose

● frmChildBuyLotto

본문내용

m(iCounter).Value = 1 Then
iChecker = iChecker + 1
End If
Next iCounter
If iChecker > 6 Then
MsgBox "6개 이상 선택 못합니다."
Exit Sub '숫자를 6개 초과로 선택하면 프로시저를 끝낸다.
End If
If optAutoSelect.Value = True Then '자동 선택일 경우
If lblNum1.Caption = "" Then
MsgBox "번호를 선택하세요"
Exit Sub '번호를 선택 안했다면 프로시저를 끝낸다.
Else '번호를 선택 했다면 디비에 저장을 한다.
With dbLotto.Recordset '미리 생성되 있는 테이블에 결과 기록
.AddNew
!Num1 = (lblNum1.Caption)
!Num2 = (lblNum2.Caption)
!Num3 = (lblNum3.Caption)
!Num4 = (lblNum4.Caption)
!Num5 = (lblNum5.Caption)
!Num6 = (lblNum6.Caption)
.Update
End With
dbLotto.Refresh
MsgBox "저장되었습니다."
End If
Else '수동 선택일 경우
If iChecker < 6 Then '6개 미만으로 숫자 선택시 프로시저를 종료
MsgBox "숫자를 6개 선택하세요"
Exit Sub
Else '6개를 선택했다면
iCounter = 0
For iChecker = 0 To 44
If chkNum(iChecker).Value = 1 Then
iSaver(iCounter) = iChecker + 1 '선택한 체크박스에 맞게 변수에 숫자저장
iCounter = iCounter + 1
End If
Next iChecker
With dbLotto.Recordset '미리 생성된 디비에 데이터 저장
.AddNew
!Num1 = (iSaver(0))
!Num2 = (iSaver(1))
!Num3 = (iSaver(2))
!Num4 = (iSaver(3))
!Num5 = (iSaver(4))
!Num6 = (iSaver(5))
.Update
End With
dbLotto.Refresh
MsgBox "번호가 저장되었습니다."
End If
End If
If cmdBuyClickCounter < 6 Then '5매 미만으로 구입을 했다면 계속살수 있다.
Message = "더사고 시퍼요??"
ButtonIcon = vbYesNo + vbQuestion
Title = "더사자더사"
Answer = MsgBox(Message, ButtonIcon, Title)
If Answer = vbNo Then
Unload Me '더 안사겠다면 프로그램을 끝낸다.
Else
cmdBuyClickCounter = cmdBuyClickCounter + 1 '1매 구입을 체크하고 다음으로 넘어간다.
End If
Else
MsgBox "5매 이상은 사치" '5매 이상 이미 샀다면 메세지 박스를 출력하고 폼을 닫는다.
Unload Me
End If
End Sub
Private Sub cmdEndChild_Click()
Unload Me
End Sub
'선택한 번호를 다 지워준다. 하지만 저장된 번호는 유효하다.
Private Sub cmdRemakeNum_Click()
Dim iCounter As Integer
For iCounter = 0 To 44
chkNum(iCounter).Value = 0
Next iCounter
lblNum1.Caption = ""
lblNum2.Caption = ""
lblNum3.Caption = ""
lblNum4.Caption = ""
lblNum5.Caption = ""
lblNum6.Caption = ""
End Sub
'form이 로드 되면 체크박스의 caption들을 지정해 준다.
Private Sub Form_Load()
Dim iCounter As Integer
For iCounter = 0 To 44
chkNum(iCounter).Caption = iCounter + 1
Next iCounter
End Sub
'자동 선택을 누르면 수동선택의 프레임과 체크박스의 enabled값을 false로 하고
'자동 선택에 해당하는 객체들을 활성화 시켜준다.
Private Sub optAutoSelect_Click()
Dim iCounter As Integer
frmeMenual.Enabled = False
For iCounter = 0 To 44
chkNum(iCounter).Enabled = False
Next iCounter
For iCounter = 0 To 44
chkNum(iCounter).Value = 0
Next iCounter
lblNum1.Enabled = True
lblNum2.Enabled = True
lblNum3.Enabled = True
lblNum4.Enabled = True
lblNum5.Enabled = True
lblNum6.Enabled = True
cmdAutoSelect.Enabled = True
End Sub
'수동선택을 하게 되면 자동선택에 관련된 객체를 비활성화 시키고
'수동선택시 필요한 객체들만 활성화 시켜준다.
Private Sub optMenualSelect_Click()
Dim iCounter As Integer
frmeMenual.Enabled = True
For iCounter = 0 To 44
chkNum(iCounter).Enabled = True
Next iCounter
lblNum1.Enabled = False
lblNum1.Caption = ""
lblNum2.Enabled = False
lblNum2.Caption = ""
lblNum3.Enabled = False
lblNum3.Caption = ""
lblNum4.Enabled = False
lblNum4.Caption = ""
lblNum5.Enabled = False
lblNum5.Caption = ""
lblNum6.Enabled = False
lblNum6.Caption = ""
cmdAutoSelect.Enabled = False
End Sub

키워드

비쥬얼베이직,   로또추첨,   로또만들기,   로또프로그램,   로또디비,   로또당첨프로그램,   예상번호프로그램