Total Hack Cheat
Benvenuto/a su Total hack Cheat....
non aspettate altro tempo Registratevi!!

[GUIDA] Creare semplice giochino vb6

Vedere l'argomento precedente Vedere l'argomento seguente Andare in basso

[GUIDA] Creare semplice giochino vb6

Messaggio Da RaYoZ il Dom Set 12, 2010 2:40 pm

in questa guida spiegherò come creare un semplice gioco in vb6. Avete presente i giochini che trovate sui banner pubblicitari? Ecco vi spiegherò come farne uno in vb6.
•1° Rincorri il cerchio.
Per creare questo gioco serve uno shape. quindi create uno shape chiamato shape1 a forma di cerchio o come volete voi. Dopo di chè aggiungete un immagine che volete che sia il personaggio del player1.
immagine chiamatela image1.
Il gioco consiste in una gara tra lo shape e il protagonista da voi comandato (image1), mettete quindi un traguardo il più in alto possibile del form, cioè al top 0, poi mettete un command button che servirà per muovere il protagonista vero l'alto e un timer.
impostate l'intervallo del timer a seconda della velocità che volete che abbia lo shape.
Ora impostate questo codice:
Codice:
Private Sub Command1_Click()
Image1.Top = Image1.Top - 10
End Sub

Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top - 10
If Shape1.Top >= 2640 Then
Shape1.Top = 2640
ElseIf Shape1.Top <= 0 Then
Shape1.Top = 0
End If
End Sub 

poi sistemate voi i valori come volete e 1° giochetto finito (da sistemare da voi).


•Se poi volete fare un gioco dove volete muovere l'image1 con le frecce seguite questa guida.
Basterà creare un modulo e inserire:
Codice:
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SystemParamsLong Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Long, ByVal fuWinIni As Long) As Long
Const SPI_GETKEYBOARDSPEED = 10
e poi inserire nel form:
Codice:
Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyUp) Then
Image1.Top = Image1.Top - 10

ElseIf GetAsyncKeyState(vbKeyDown) Then
Image1.Top = Image1.Top + 10

ElseIf GetAsyncKeyState(vbKeyRight) Then
Image1.Left = Image1.Left + 10

ElseIf GetAsyncKeyState(vbKeyLeft) Then
Image1.Left = Image1.Left - 10

End If

End Sub 
Ah, dovete impostare nel timer un intervallo superiore a 0

In base a questi codici potete creare tanti giochetti semplici e farli divertenti.
Fonte:Web

RaYoZ
Admin
Admin

Messaggi : 1040
Punti : 2245
Data d'iscrizione : 03.04.10
Età : 22
Località : immerso nei pensieri

Tornare in alto Andare in basso

Vedere l'argomento precedente Vedere l'argomento seguente Tornare in alto

- Argomenti simili

 
Permesso di questo forum:
Non puoi rispondere agli argomenti in questo forum