Skip to main content

Catch Me Version 1.0.0

Hello guys, Welcome to the first version of Catch me ( Visual Basic Game read Introduction )
Ok, Let's Start Open Visual Studio 2012 and Open new project

1. Program Design Stage

Let's add the tools 1 PictureBox, 2 Button, 2 Label, 1 Timer

In Picturebox1

My Image
  1. Choose any picture in my case I will choose this image 
  2. Make Visible Property = False
  3. Resize it as you like I will make it (150,150)
  4. Don't forget to Change SizeMode to StretchImage

Button1, Button2

In One of the 2 Button make it's Text property to Quit and the another make it Start


Label1

In Label1 change the Text to your Description 

Label2


In Label2, Change the Text to "Time: 60s" without quotation  put in the middle Bottom of the Form and 60s is the game time

Timer1

Change the Interval This is the game Time

Form1

  1. Change FormBorderStyle to None
  2. Change the Size to 800,600
  3. Change StartPostion to Centre of the Screen
Ok Your Window Should be like this


2. Program Coding

Ok now Press F7 and After Public Class Form1 paste this

Dim result As Integer 
Dim stopper As Integer

 This some variable we will use later 

 In Quit Button Click Event Paste this Code

- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
--Application.Exit()
- End Sub


I think this code doesn't need to explain

In Start Button Click event paste this code

-Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-- Button1.Visible = False
--Button2.Visible = False
--Label1.Visible = False
--PictureBox1.Visible = True
--Timer1.Enabled = True
--result = 0
--stopper = 0

-End Sub

 Ok in this Code we hid all Controls expect The Timer Label (label2), We showed PictureBox1 and we enabled Timer1 and we return the result and the stopper to zero if the player will play again

In Timer1 Tick Event paste this code

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If stopper = 59 Then
            Timer1.Enabled = False
            Button1.Visible = True
            Button2.Visible = True
            Label1.Visible = True
            PictureBox1.Visible = False
            Label1.Text = "Your Result =" & result & " ,Do You want to play again ?"
        Else
            Dim x As Integer
            Dim y As Integer
            x = CInt(Rnd() * 800 - 0)
            y = CInt(Rnd() * 600 - 0)
            PictureBox1.Location = New Point(x, y)
        End If
        stopper += 1
        Label2.Text = "Time: " & 60 - stopper & "s"

    End Sub

This Code is the most important part in the game 1st we have an if statement that will check if stopper (our variable we define him early) = 59 (I decreased one from it because it start from 0 not 1 ) if yes the timer will stop and all controls will appear and picture will disappear else we define 2 variable x,y (location of the image) by using Rnd() function click in it to read about it and at the end of the code we increase the stopper by 1 and Decrease Label2 by 1 "Because my interval = 1000 Milliseconds (1 seconds)"

In PictureBox1 click event paste this

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        result += 1

End Sub

in this Code, We will increase result with 1 if the Player press in it

That All, Wait for me in Catch Me Version 2.0.0 comment below if you want any help I will answer you as soon as possible

Click here to download the game (As visual Studio Project)




Comments

Popular posts from this blog

Visual Basic ( Catch Me ) Introduction

Hello guys, Welcome back to Visual Basic Tutorial ( GAME ) Catch me: - It is a simple game that a Picture will appear Random in the Windows Form and the player (user) will try to click on it by mouse that all We have lot of version to Catch me so I will make a list for them 1. Catch me Version 1.0.0  Features : User will play in 800*600 window state  User will play it without any effects The result will not be saved 2. Catch me Version 2.0.0  Features : User will play  in Full Screen When User will press in the picture ( Target ) the black color will be green the back to Default The result will  be saved as long as the game is opened 3. Catch me Version 3.0.0  Features : User will play  in Full Screen User will choose the level of game ( Insane - Extreme - Hard - Normal - Easy - Baby Level ) The result will be saved in Database with Names ------------------------------------------------- Notice The title Catch Me Version X.X.X will be

How to change PC resolution with VB.NET

Ok, Hi guys, After very long time I back with a surprise a code to change resolution of PC with VB.NET just copy this and past it and Call it with ChangeRes( 1024 , 768 , 32 ) The CODE  function generate() { Public Class Form1 ' change resolution Constants, Types and Declares ' Using this option to shutdown windows does not send ' the WM_QUERYENDSESSION and WM_ENDSESSION messages to ' the open applications. Thus, those apps may loose ' any unsaved data. ' Const EWX_FORCE As Short = 4 Const CCDEVICENAME As Short = 32 Const CCFORMNAME As Short = 32 Const DM_BITSPERPEL As Integer = &H40000 Const DM_PELSWIDTH As Integer = &H80000 Const DM_PELSHEIGHT As Integer = &H100000 Const CDS_UPDATEREGISTRY As Short = &H1S Const CDS_TEST As Short = &H2S Const CDS_FULLSCREEN As Short = &H4S Const DISP_CHANGE_SUCCESSFUL As Short = 0 Const DISP_CHANGE_RESTART As Short = 1