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 title Catch Me Version X.X.X will be
Post a Comment
Read more

How Bitcoin Mining Works

In traditional fiat money systems, governments simply print more money when they need to. But in bitcoin, money isn’t printed at all – it is discovered. Computers around the world ‘mine’ for coins by competing with each other. How does mining take place? People are sending bitcoins to each other over the bitcoin network all the time, but unless someone keeps a record of all these transactions, no-one would be able to keep track of who had paid what. The bitcoin network deals with this by collecting all of the transactions made during a set period into a list, called a block. It’s the miners’ job to confirm those transactions, and write them into a general ledger. Making a hash of it This general ledger is a long list of blocks, known as the 'blockchain'. It can be used to explore any transaction made between any bitcoin addresses, at any point on the network. Whenever a new block of transactions is created, it is added to the blockchain, creating an increasingly le
Post a Comment
Read more

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
1 comment
Read more