Archive for octobre 2013

Cal_’s scrolling v2.1 !

Greetings, dear viewers!

In this article, I talk about the new version of my written in VB.NET scrolling with lots of additions!

additions:

- You can choose your backgrounds, music, and even load your own, for a ride on an airplane, for example a picture of your street listening to your favorite song!

- Except on bg.jpg, scrolling no longer the lag, unless your PC is really rotten, of course.

- The counter kilometers really works now!

- A few additions to the menu, such as a pretty green label that redirects to my blog (where you are, in fact)

Coming up:

- Choosing your plane!

- Other music!

- Ability to move up and down with the keyboard!

Download: https://www.dropbox.com/s/vew7qmpquu8we22/scrollingtest.zip

Bye!

Scrolling test

Hi! In this article we find that here is a little test I did scrolling in VB.NET.
Let’s talk about the method:

- Basically, I adapted the method my dad (hi dad :D (labalec.fr / erwan)) which is not to use background but two sprites (pictureboxs in my case) the size of the window and has to move continuously and then bring them back when they reach the end.
- To move the character, I just put in my sub « UpdateSprite » player.top = MousePosition.

That’s it!

Download : https://www.dropbox.com/s/vew7qmpquu8we22/scrollingtest.zip

HIDNK ScreenSaver 1.0

Hi guys ! Here’s the presentation of hidnk (hum i do not know (I did not know what to do, it was just a test VS Express 2013)), a simple balls screensaver .

The principle? Simply bouncing balls.

Download link : https://www.dropbox.com/s/0gl4joe5c4k7umz/hidnk.rar

If you are French, you can go see my twitter: ArthurL44 and my youtube channel: SkyMasterTeam. Bye!

How to code bullet and movei in VB.NET|FR

Salut à tous !

Aujourd’hui on se retrouve pour mon premier tuto : faire tirer un personnage qui bouge !

 

1. Bouger le personnage

Ajoutez 2 pictureboxs : bullet et player .

 

Allez dans votre sub évenement keypress et ajoutez ce select :

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

bullet.location = player.location

Select Case e.KeyChar

 

End select

End Sub

 

Puis, ajoutez vos cases pour faire bouger le personnage . Ici, « z » pour monter, « s » pour descendre, etc.

 

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

Select Case e.KeyChar

case « z »

case « q »

case « s »

case « d »

End select

End Sub

 

Ensuite, pour en haut et en bas, on va changer le « top » (ou location.Y) de 10 ici.

 

Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress

Select Case e.KeyChar

case « z »

player.top = player.top – 10

case « q »

case « s »

player.top = player.top + 10

case « d »

End select

End Sub

 

 

Puis pareil avec le « left » (ou location.x) :

 

Select Case e.KeyChar

case « z »

player.top = player.top – 10

case « q »

player.left = player.left – 10

case « s »

player.top = player.top + 10

case « d »

player.left = player.left + 10

End select

End Sub

 

Maintenant, il faut préparer vos cases pour le bullet.

Changez de couleur pour chaque mouvement (haut, bas, gauche, droite) comme si vous changiez de sprite, ce que vous pourez faire plus tard.

Select Case e.KeyChar

case « z »

player.top = player.top – 10

player.backcolor = color.black

case « q »

player.left = player.left – 10

player.backcolor = color.darkblue

case « s »

player.top = player.top + 10

player.backcolor = color.white

case « d »

player.left = player.left + 10

player.backcolor = color.blue

End select

End Sub

 

Voila ! Vous faites bouger votre personnage et vous êtes prêt pour le bullet !

 

2.Bullet

 

Créez un timer .

Dans le load, démarrez le timer avec « timer1.start », basique.

Dans le code du timer :

 

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If player.BackColor = Color.black Then
bullet.Top = bullet.Top – 10
End If
If player.BackColor = Color.white Then
bullet.Top = bullet.Top + 10
End If
If player.BackColor = Color.DarkBlue Then
bullet.Left = bullet.Left – 10
End If
If player.BackColor = Color.Blue Then
bullet.Left = bullet.Left + 10
End If
End Sub

 

Voila, votre petit jeu est près ! En utilisant votre tête, vous pouvez faire « Fugitive » avec des balles !

 

Bonne chance et aurevoir.

N’hesitez pas à vous inscrire pour suivre le blog, a partager ou à laisser des commentaires !