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

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

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