Gun Archive VB Easy

I made a simple gun archive....

Things needed :
Visual Basic
1 Picture Box (Size : 178, 63)
2 Buttons ("Next ->" and "<- Back")

This needed to be declared :

Code:

    Dim int2 As Integer = 0
    Dim int3 As Integer = 0
    Dim int4 As Integer = 0

Button 1("<- Back") code :

Code:

If (int2 & int3 & int4 = "001") Then
            Exit Sub
        End If
        int4 -= 1
        If int4 = 9 Then
            int3 -= 1
            int4 = 0
            If int3 = 9 Then
                int2 -= 1
                int3 = 0
            End If
        End If
        PictureBox1.ImageLocation = "http://clan.z8games.com/images/weaponimages/C" & "0" & int2 & int3 & int4 & ".jpg"

button 2("Next ->") code :

Code:

        If (int2 & int3 & int4 = 421) Then
            Exit Sub
        End If
        int4 += 1
        If int4 = 9 Then
            int3 += 1
            int4 = 0
            If int3 = 9 Then
                int2 += 1
                int3 = 0
            End If
        End If
        PictureBox1.ImageLocation = "http://clan.z8games.com/images/weaponimages/C" & "0" & int2 & int3 & int4 & ".jpg"

Simple source and thought of this while i was fooling someone with Google Chromes "Inspect Element", This can also be done with everything else, such as, maps, ranks, characters, shop items... I also know that this code can be alot shorter but it is a simple source

Nice, pretty cool.. but very easy xD

Originally Posted by Gku2

Nice, pretty cool.. but very easy xD

Every thing easy
Good job.

Nice One , Good Job

@lucasheer715

Your if statements are NOT doing what they're supposed to!

The "true" clause will never get reached in the first one.
The second one will sometimes run the "true" clause when it's not supposed to.

Nobody else notice this? Or maybe I'm mistaken?

Originally Posted by abuckau907

@lucasheer715

Your if statements are NOT doing what they're supposed to!

The "true" clause will never get reached in the first one.
The second one will sometimes run the "true" clause when it's not supposed to.

Nobody else notice this? Or maybe I'm mistaken?

You're right, but it still works, anyway it could be fixed with a little tweak

An extremely easy tweak. That's the point. They're obviously obviously wrong. How does someone type such things? : p

edit:

Declare a couple variables..and first line of code == mistake

First line. It's the very first part you look at. How could you miss it : p

This code is just.. erm

Gun Archive VB Easy

Post a Reply

Similar Threads

Tags for this Thread