|
Dim coin1 As Long
Dim coin As Long
Dim ee As Integer
Private Sub Command1_Click()
Dim cc As Variant
Dim i As Integer
Dim j As Integer
j = 0
cc = Array(20, 300, 5, 10, 10, 20, 20, 20, 15, 30)
Timer1.Enabled = False
Command1.Enabled = False
|
|
|
|
Dim mu As Double
Dim mu1 As Double
Dim ba As Integer
Dim com As Integer
Dim na As Integer
Dim ee As Integer
Dim cc As Integer
Private Sub Command1_Click()
If mu < 10000 Then
MsgBox "푸하하하 돈도 없으면서. 이보셔 돈 가져오셔", vbCritical
Command1.Enabled = False
End If
ee = 1
cc = cc
|
|
|
|
비베6.0으로 만든 프로그램입니다
실행하면 가위바위보게임과 로또게임 그리고 종료 버튼 3개로 구성되어있습니다.
가위바위보를 클릭하시면 해당 게임을
로또게임을 클릭하시면 로또 게임을 하실수있습니다.
여기서 로또 게임은 기존의
|
|
|
|
수가 자릿수도 같고 숫자도 같은면 스트라이크 판정
자릿수는 틀리지만 숫자가 같은면 볼판정입니다
3개의 스트라이크 판정을 받으면 이기는 게임입니다.
VB 닷넷 2005 기반으로 작성하였습니다. 물론 폼디자인도 같이 했습니다...
|
|
|
|
For j = 1 To i - 1
If r(j) = rndnum1 Then
GoTo reset
End If
Next j
Next i
MsgBox "숫자가 생성되었습니다. 게임을 시작하세요."
End Sub 1. 3자리야구게임
2. 4자리야구게임
3. 5자리야구게임
|
|
 |
프로그램 개인정보 화면 23
2. 전자수첩 프로그램 스케줄 관리 화면 25
3. 전자수첩 프로그램 일기장 화면 26
4. 전자수첩 프로그램 메모장 화면 26
5. 전자수첩 프로그램 계산기, 게임 화면 27
제 6 장 결론 및 향후 연구과제 28
참고문헌 29
|
|
메뉴펼치기
