Added: 3 years ago
From: ZhaDowJohn
Views: 38,949
Sort by time | Sort by thread (beta)

Link to this comment:

Share to:
see all

All Comments (143)

Sign In or Sign Up now to post a comment!
  • update this or not... idk i just like typing

  • hey, thanks. I didn't even know how to use the Ascii before that

  • you are just teaching how to move a shape...its not a game but nice example!

  • nice. make it.. could you teach me how to make a picture puzzle in VB6.0

    thank you so much. :)

  • nice music!!

  • It just goes up!

  • ....musics a piece of shit i must say but great vid

  • great music choice! Saw them in concert last month.

  • Thanks for the tutorial..!! But do something about the background music..!!

  • good vid bad song

  • thnx very much

  • thanx

  • Nice Music

  • awesome tutorial!

  • fuck it

    it dosen't work

  • ok nevermind stupid youtube wont post my comment with appropriate spacing >_<

  • sorry the spacing in my other comment got messed up heres how it is Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp ball.Top = ball.Top - 1 Case vbKeyDown ball.Top = ball.Top + 1 Case vbKeyLeft ball.Left = ball.Left - 1 Case vbKeyRight ball.Left = ball.Left + 1 End Select End Sub
  • actually instead of using the ascii code you could just type this I think its alot easier

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    Select Case KeyCode

    Case vbKeyUp ball.Top = ball.Top - 1

    Case vbKeyDown ball.Top = ball.Top + 1

    Case vbKeyLeft ball.Left = ball.Left - 1

    Case vbKeyRight ball.Left = ball.Left + 1

    End Select

    End Sub

  • u noob

  • wtf??? u cant go up!!!

  • ok i found it now it works perfectly thx

  • D doesn't works for me

  • nice vid dude

  • Ugh, I need a video with voice... -.-

    Good job on Children of Bodom though. Melodic Death Metal ftw!

  • Pretty cool... Thanx

  • can i have the codes please??

  • put code in description plz?

  • I you want to learn programming, join my forum at:

    shotbot(dot)tk/

    Replace the (dot) with .

  • Deathmetal is actually death of the ears.

  • @NewSheeptor its not.

  • @NewSheeptor I agree :)

  • theres a much easier way of registering a keypress than an ASCII code.

    Select Case KeyCode

    Case vbkeyW 'events to happen here

    case vbkeyA

    'events

    End Select

  • @TheClubland2010 or even this under the paint event : if my.computer.keyboard.(key).key­statedown then

    'add code

    end if

  • code plase

  • nice song

  • Nice tutorial :D

  • hehe

  • How do you know what numbers are needed to complete the equations?

  • thanks a lot dude

  • Holy shit that was an epic tutorial

  • Really nice man :D just one thing my a bottoun dont work;(

  • Iyall stop saying this fails and it doesnt work it works for me yall just didnt type the code right or sumthing

  • WOOHOO SUOMI!

  • it only goes up

  • Your awesome i need to activate something when it moves towards a lable help please :)

  • realy good tut but why does that ball firstly stuck then go? can u help me with that?

  • Private Sub Form_KeyPress(KeyAscii As Integer) With Ball If KeyAscii = 119 Then .Top = .Top - 30 ElseIf KeyAscii = 97 Then .Left = .Left - 30 ElseIf KeyAscii = 115 Then .Top = .Top + 30 ElseIf KeyAscii = 100 Then .Left = .Left + 30 End If End With End Sub
  • Doesn't work

  • i have vb2008 and the whole thing is just different. i actually just want that function to press a key and something happens, but how does that work at vb2008?

  • zhadowjohn, can you tell me that is it possible to make an email sending keylogger in visual basic 6 enterprise? reply plz :P

  • @iHack2U

    It is possible!

    im not zhadowjohn but search in youtube!

  • i am using vb 2008 and i got the code right but the ball wont move, what do i do now?

  • @tobin2k9 SHIFT + F3

  • w a s d

  • fucking music doesnt fit at all to the video lol music is a fail

  • oot suomalaine :D

  • hey thanx now i get to practice my remembering skills for theese little annoying codes! hehehe but anyway thanx man!

  • i have visual studio 2008 profetional how can i do this?

  • You can use similar code -

    Use picturebox instead of shape etc

  • Mine Works Pefectly.

    Nice Video ^_^

  • My one moves Left and right but not down

  • mine doesn't work :((

  • is this like vb6?

  • it IS vb6

  • rofl xDDD

  • my buddy made a card game and i copywritten it and made shirts for it. it is really amazing, do you think you can recreate it in vb??? i will send u da rules and regulations if you will help me...thanx in advance xD

  • lol they had card games since atari and i dont remember them raving about shirts back then

  • thanks .^^.

  • i got the moving to work. now i want to know if there is a way to block the ball. like keeping it out of an area with an inpassable line.

  • in VB(dot)Net you can add this to the top of the key pressed event:

    If Me.Bounds.IntersectsWith(Pictu­reBox1.Bounds) Then

    'it is within the main form space

    End If

  • grr mine doesn't move

  • same

  • lol... then if you search for vb 2008? whats with that?

  • heeyyyy what is this song  i like it

  • Children of Bodom: Bed of razors

  • Cool man!!! 5 STARS for you!!

  • wow thank you very much. it's very good

  • this is portable edition!!!

  • what do u use to show the messages? and what is that bar that you have all the programs to in the right side?

  • His properties box?

  • express edition

  • Moro Käytäks nykyään VB 08:a Tiesin et oot suomesta kun siel luki AVAA =D

  • Dude RobloxJ if your a idiot that can't read, It says Make a Game with Visual Basic 06 not your damn Visual Basic 2009.

  • roblox your a dumbass

  • ty veery much

  • dude mine wont go down :(

  • yeah mine wont go right

  • Epic music XDDD

  • asome

  • thanks i made it!

  • does any one know the ascii for the arrow buttons???

  • try:

    msgbox(KeyAscii)

    It will show you what they are when you press keys.

  • Simpler code Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) Select Case KeyCode Case vbKeyUp Shape1.Top = Shape1.Top - 100 Case vbKeyLeft Shape1.Left = Shape1.Left - 100 Case vbKeyDown Shape1.Top = Shape1.Top + 100 Case vbKeyRight Shape1.Left = Shape1.Left + 100 End Select End Sub
  • What you made here is what we had to do as one of our first lessons in school XD

    tho we did it totaly difrent

    We made keys wich you had to press to make the plane move, and then use 'Call' and put it on the arrow keys, call the button and get the effect the button would do.

  • YOU ROCK!

  • CoB FTW!!!!!

  • wow dont itro it the title says it already just start it with ok here we go

  • instead of 3 ifs in an if function, wouldnt it be more uselful to use a CASE statement? or is CASE not used in Visual Basic?

  • the youtube vid wont load

  • what did u use to record your screen?

    please tell me

    btw nice video

  • I think it's Hypercam2

    But I refer Camstudio...

  • Im guessing camtasia...

  • sweet dude i usually use VB for making trainers ( check it out on my page )

  • thank you

  • how can i move ball????

  • WITH a,s,d and w

  • thanks man

  • gay music

  • Hey...mine didn't work could you help me out?

  • Sorry I'm new at this but how do you get the Ascii in there?

  • eap415 in the vid he shows the ascii so you can type it in yours too

  • with this tutorial you can start making good games =)

  • its simple

  • stupid game

  • wow...

    a moving ball...

    STUPID.

  • In Game Maker you can create AWESOME GAMES but i i i.... I... was learning its language but sudendly i lost my inspiration but ill start to learn again im 13 years old and i STILL know the stuff i gona go back to WORK !

  • yo how do u handle collisions?

    quick times bro i need it

  • In VB(dot)Net you can use:

    Dim collided As Boolean = Control.Bounds.IntersectsWith(­Control.Bounds)

  • whats the name of the first song?

  • Sounds like a song by Alesana

  • Or maybe something by The Kovenant

  • The first song is Children of Bodom - Bed of Razors second is Children of Bodom - Kissing the Shadows

  • mr sir make another vid but wit 2008 plz

  • whats the keyAscii for:

    p

    space

  • ok i got p

    p=112

    i used to make pause so i put(after key 100)

    Elself KeyAscii = 112 then

    msgbox "paused", vbinformation

  • is it normal for "ByVal" to appear before the "KeyAscii As Integer"

  • cause it didnt work...

  • ya mine says that too

  • when i try it i get errors like 'top' and 'left' is not a member of system.drawing.bitmap

  • are you sure you aren't trying to change a bitmap object? 'top' and 'left' are properties of form controls.

  • ok, so if i were using a image i created, how would i manage to make it change images as it moves?

  • Well in VB(dot)Net you could use:

    pictureBox.Image = Image.FromFile("filename.jpg")

    VB6 should have a similar syntax.

  • it didn't work

  • can u copy and pest From Private sup for end sup plese??

  • not exactly a game, -.-" but good :)

  • lol yes something like this is called a toy, since you can't win or lose.

Loading...
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more