This was the first real video game I've actually been able to create and I learned A LOT about the whole process. I'll be checking out the side scroller tutorial next. Thanks for taking the time to make these videos, TheAprone. Great stuff!
@MrWoodylongfellow I'm very glad I was able to help Mr.Woody :D. The recording process was annoying, but I really enjoyed making these tutorials and I hope to get back in to it again soon. There are plenty of other fun game-types I'd love to make tutorials for.
@SurgeRapper If you properly set VB up to use the SDI development option then you won't have to. If you are just curious about how to declare them, you type Dim z and Dim w each on their own line.
Great program. Thanks I would love to see many more of these kinds of programs for the kids. I added a slider that adjusts the timer speed. Added a progress bar showing time left before super pellets where off. Added value to the super pellets if more are eaten prior to the first running out. added some pacman sounds intro, chomping and death. I added a restart button along with ok-cancel on you loose msgbox. Code: RetVal = Shell(App.Path & "\Pacman.exe", 1) 'will restart Pacman.exe For mouse lovers I added 4 command buttons UP-DOWN-LEFT-RIGHT that sets d2 I did have some trouble with picture key presses being ignored sometimes so at the beginning of the timer I added a doevents. Add code to a module: Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _ (ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long Add private declarations to form: Private Const SND_APPLICATION As Long = &H80 Private Const SND_ALIAS As Long = &H10000 Private Const SND_ALIAS_ID As Long = &H110000 Private Const SND_ASYNC As Long = &H1 ' Required Private Const SND_FILENAME As Long = &H20000 Private Const SND_LOOP As Long = &H8 Private Const SND_MEMORY As Long = &H4 Private Const SND_NODEFAULT As Long = &H2 Private Const SND_NOSTOP As Long = &H10 Private Const SND_NOWAIT As Long = &H2000 Private Const SND_PURGE As Long = &H40 Private Const SND_RESOURCE As Long = &H40004 Private Const SND_SYNC As Long = &H0 Then add code to where ever you want to play a wav file. PlaySound App.Path & "\pacman_chomp.wav", 0, SND_ASYNC I got some sound effects from this site: www.classicgaming.cc/classics/pac-man/sounds
@Majidalqassim you can set a timer and write the code progressbar1.value = progressbar1.value + 50 and set the timer's interval to 1000 and the value of the progeressbar 300
I just realized that I never explained I am using SDI mode. It makes it so I don't have to declare my variables. To use SDI mode yourself, go to TOOLS -> OPTIONS -> ADVANCED TAB, and click on SDI.
El enlace funciona, pero primero hay que sustituir la 3WS con ww w. Los espacios deben ser reemplazados por puntos. UA-cam no me dejaba escribir en un vínculo efectivo. The link works but you must first replace the 3ws with w w w. The spaces need to be replaced with dots. UA-cam would not let me type in an actual link.
@kenjos75 From what I've heard, VB6.0 programs will still run on windows 7. I don't know if the IDE is still supported though so maybe that is what is stopping you. Sorry man :(.
Hello I am getting a 404 page not found when I look for your pacman sprites bmp. Is it still available or it could just be me putting the incorrect code in? Thank you in advance for your help
It seems that at some point over the last several years I removed the bitmap from my website. Sorry to anyone who is trying to download it. It seems you'd have to toss your own together.
Hablas español? necesitos ayuda urgente, me emnadron para un examen donde tengo que hacer un kuego de tiger o tibre algo así en VB 6.0 y no tengo la mas minima i dea de como hacerlo me podrías ayurdar por favor . Te puedo pagar si quieres, eso sin en moneda nacional, es decir, en bolivares. AYUDA!.
@TheAprone thanks, btw would you happen to have Skype or something because i would love to get this working and get some help from someone that is good at vb because my year 12 IPT teach doesn't know how to make an array let alone this, please help =]
This was the first real video game I've actually been able to create and I learned A LOT about the whole process. I'll be checking out the side scroller tutorial next. Thanks for taking the time to make these videos, TheAprone. Great stuff!
@MrWoodylongfellow I'm very glad I was able to help Mr.Woody :D. The recording process was annoying, but I really enjoyed making these tutorials and I hope to get back in to it again soon. There are plenty of other fun game-types I'd love to make tutorials for.
oww thx i need to watch this 24/7 7times a week to master it >.
@SurgeRapper If you properly set VB up to use the SDI development option then you won't have to. If you are just curious about how to declare them, you type Dim z and Dim w each on their own line.
@Majidalqassim Spot 16:12 on the "Program 2D Side-scroller in VB6.0 #31 " tutorial video explains how to add sounds to your program.
@TheAprone could you upload a short video or just an instructions showing how it works? please. thanks.
@MrNacho122 Odds are I won't have time to do that. I've been having a hard enough time getting the rest of my side scroller tutorial finished lol.
Great program. Thanks I would love to see many more of these kinds of programs for the kids. I added a slider that adjusts the timer speed. Added a progress bar showing time left before super pellets where off. Added value to the super pellets if more are eaten prior to the first running out. added some pacman sounds intro, chomping and death. I added a restart button along with ok-cancel on you loose msgbox.
Code: RetVal = Shell(App.Path & "\Pacman.exe", 1) 'will restart Pacman.exe
For mouse lovers I added 4 command buttons UP-DOWN-LEFT-RIGHT that sets d2
I did have some trouble with picture key presses being ignored sometimes so at the beginning of the timer I added a doevents.
Add code to a module:
Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Add private declarations to form:
Private Const SND_APPLICATION As Long = &H80
Private Const SND_ALIAS As Long = &H10000
Private Const SND_ALIAS_ID As Long = &H110000
Private Const SND_ASYNC As Long = &H1 ' Required
Private Const SND_FILENAME As Long = &H20000
Private Const SND_LOOP As Long = &H8
Private Const SND_MEMORY As Long = &H4
Private Const SND_NODEFAULT As Long = &H2
Private Const SND_NOSTOP As Long = &H10
Private Const SND_NOWAIT As Long = &H2000
Private Const SND_PURGE As Long = &H40
Private Const SND_RESOURCE As Long = &H40004
Private Const SND_SYNC As Long = &H0
Then add code to where ever you want to play a wav file.
PlaySound App.Path & "\pacman_chomp.wav", 0, SND_ASYNC
I got some sound effects from this site:
www.classicgaming.cc/classics/pac-man/sounds
Glad you found this to be useful.
You should give a link on those bitmap style for pacman bro
@TheAprone That's cool
@Majidalqassim you can set a timer and write the code progressbar1.value = progressbar1.value + 50
and set the timer's interval to 1000 and the value of the progeressbar 300
I just realized that I never explained I am using SDI mode. It makes it so I don't have to declare my variables. To use SDI mode yourself, go to TOOLS -> OPTIONS -> ADVANCED TAB, and click on SDI.
@LoquenLucho kaldobsky com/pacmansprites bmp (just put the dots back in)
@purenight77 The sprites are here: 3ws kaldobsky com/pacmansprites bmp
Hi. Do you know how to make a drag and drop picture puzzle in VB6.0? Thanks.
how do u insert a checkbox column to DBGird in VB6.0
El enlace funciona, pero primero hay que sustituir la 3WS con ww w. Los espacios deben ser reemplazados por puntos. UA-cam no me dejaba escribir en un vínculo efectivo.
The link works but you must first replace the 3ws with w w w. The spaces need to be replaced with dots. UA-cam would not let me type in an actual link.
will you upload your sprites?
Hey, do you think you could make this in vb 2010 for a tutorial?
@kenjos75 From what I've heard, VB6.0 programs will still run on windows 7. I don't know if the IDE is still supported though so maybe that is what is stopping you. Sorry man :(.
You are very great! but sadly the visual basic 6.0 won't work anymore on windows 7. . .
No it still works
cool , lol :)
i'm new to vb6 how do you declare z and w
Hey I know this video is old, but did you take off the pacmansprites?
meaning the link won't work
oh figured it out. Sorry.
where can i find the pictures? can someone help me?
Hello I am getting a 404 page not found when I look for your pacman sprites bmp. Is it still available or it could just be me putting the incorrect code in?
Thank you in advance for your help
Sorry it was likely cleaned out when I got rid of a bunch of old files.
@@TheAprone Thank you for the response. Let me see if I can recreate it :)
Sir , where can i get the program ? The site that youve given is NOT FOUND
It seems that at some point over the last several years I removed the bitmap from my website. Sorry to anyone who is trying to download it. It seems you'd have to toss your own together.
Hablas español? necesitos ayuda urgente, me emnadron para un examen donde tengo que hacer un kuego de tiger o tibre algo así en VB 6.0 y no tengo la mas minima i dea de como hacerlo me podrías ayurdar por favor . Te puedo pagar si quieres, eso sin en moneda nacional, es decir, en bolivares. AYUDA!.
can you pass me the image of the pacmans, and ghosts, you know, that picture that you show, please
@mysixteen23 kaldobsky com/pacmansprites bmp (just put the dots back in)
I can tell this is a question because of the question mark... but you're going to have to give me a little more to go on.
@UPL09DER yes.
@TheAprone thanks, btw would you happen to have Skype or something because i would love to get this working and get some help from someone that is good at vb because my year 12 IPT teach doesn't know how to make an array let alone this, please help =]
el enlace no funciona?
puedes colocar otro?
ABHIJEET VISWAAAAAA!!! where you been, my nigga abhijeet I am imp j00 papa
Nope.