|
3자리수의가 랜덤하게 생성됩니다.(물론 중복된값이 있으면 안됩니다.)
그리고 사용자는 생성된 숫자를 맞추는 게임입니다.
사용자가 입력한 수가 자릿수도 같고 숫자도 같은면 스트라이크 판정
자릿수는 틀리지만 숫자가 같은면 볼판정
|
|
|
|
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자리야구게임
|
|
|
듣기 프로그램 실행 폼
Private Sub mnu_music_Click()
Form2.Show
End Sub
Private Sub mnu_new_Click()
Call clear_button
Text2.Text = ""
End Sub
Private Sub mnu_win_Click()
Dim rev
'윈도우즈 자체의 계산기를 호출함
rev = Shell("c:\windows\calc.exe", 1)
End Sub
'툴바를 이용한 셀렉트 케이스
|
|
|
|
비베
비쥬얼베이직
비주얼베이직
타자게임
프로그램
과제
졸작 비베
비쥬얼베이직
비주얼베이직
타자게임
프로그램
과제
졸작
|
|
|
|
비주얼베이직 돈모으기 게임 프로그램이란 ?
시간을 정해놓고 그 안에서 이미지가 움직이며 눌러주실떄마다 점수(돈)이 쌓이는 게임 입니다.
저같이 비주얼베이직 입문하시는분들깨 참조하실수 있는 자료가 되지 않을까 생각됩니다.
|
|
|
|
연결된 경우,전송시 모두 동일한 내용으로 전송이 이루어 지게 됩니다.
이 소켓으로 응용가능한 기능:
자동업데이트,다중소켓채팅서버,게임서버,프록시,웹서버,ftp클라이언트....tcp로 할수있는 거의모든 인터넷프로그램에 사용가능
|
|
|
|
Form1.frm
VERSION 5.00
Begin VB.Form Form1
Caption = \"Form1\"
ClientHeight = 7350
ClientLeft = 60
ClientTop = 345
ClientWidth = 7650
LinkTopic = \"Form1\"
ScaleHei
|
|
|
|
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
언 어 : C
테 마 : 다이어트 게임
난 이 도 : 초급 440kcal / 중급 970kcal / 고급 1830kcal
기 능 : 게임 시작, 정지, 종료, 안내 팝업
Killing FOODS
365일 다이어터인 게임 속 고도비만녀의
|
|
메뉴펼치기
