Skip to main content

Catch Me Version 2.0.0

Hello guys sorry I didn't write more tutorials but I was very busy but now I am Free let's make Catch me Version 2.0.0 

 OK , If you didn't make Catch me Version 1.0.0 go here and make it

Now our improvement in this version is :-

  1. Full Screen Mode
  2. Green effect
  3. Highest Results

1-Full Screen Mode

Change WindowState property to Maximized
and Add This Code under Public Class Form1

Dim screenWidth As Integer = Screen.PrimaryScreen.Bounds.Width

Dim screenHeight As Integer = Screen.PrimaryScreen.Bounds.Height
and in Timer1_Tick change this :-

 x = CInt(Rnd() * 800 - 0)
y = CInt(Rnd() * 600 - 0)

to :-

 x = CInt(Rnd() * screenWidth - 0)
y = CInt(Rnd() * screenHeight - 0)

Change Start Button Anchor property to Down , Right

Change Quit Button Anchor property to Down , Left

2- Green Effect

In PictureBox1_Click add this code :-

        Me.BackColor = Color.Green

After Public Class Form1

Dim tempcolor As Color = Me.BackColor

In Start Button add this 

        Me.BackColor = tempcolor

3- Highest Results

After Public Class Form1 add this :-

Dim h_result As Integer

And remove this from Start Button

result = 0

Add this in Stopper If statment

If h_result < result Then
                h_result = result
                result = 0
End If

Edit Label1.text to this : -
   Label1.Text = "Your Highest Result =" & h_result & " ,Do You want to play again ?"




Thank You for reading Please leave Comment





Labels:

Comments

Post a Comment

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 ti...
Post a Comment
Read more

Digital Money

Origins of digital currencies date back to the 1990s  Dot-com bubble . One of the first was  E-gold , founded in 1996 and backed by gold. Another known digital currency service was  Liberty Reserve , founded in 2006; it let users convert dollars or euros to Liberty Reserve Dollars or Euros, and exchange them freely with one another at a 1% fee. Both services were centralized, reputed to be used for money laundering, and inevitably shut down by the US government. [3]  Q coins or QQ coins, were used as a type of commodity-based digital currency on  Tencent QQ 's messaging platform and emerged in early 2005. Q coins were so effective in China that they were said to have had a destabilizing effect on the Chinese Yuan or RMB currency due to speculation. [4]  Recent interest in cryptocurrencies has prompted renewed interest in digital currencies, with  bitcoin , introduced in 2009, becoming the most widely used and accepted digital currency. ...
Post a Comment
Read more

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 Choose any picture in my case I will choose this image  Make Visible Property = False Resize it as you like I will make it (150,150) 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 Change FormBorderStyle to None Change the Size to 800,600 Change StartPostion to Centre of the Screen Ok Your Window Should be like th...
Post a Comment
Read more