PONG RÉSEAUX PAR WINSOCK

Commentaire de Vedlen le 10/07/2006 16:14:59

Pas mal.
Quelques petits truc à modifier assez importants :
- accélérer progressivement la vitesse de la balle
- et surtout.. lorsqu'on maintient la touche de direction, qu'il n'y ai pas ce petit temps d'attente avant qu'elle bouge vraiment. Indispensable pour un tel jeu !

7/10 :)

Commentaire de thedragon25 le 10/07/2006 17:26:00

Que la balle accélère prograssivement c'était fait mais cela avait quelque problème au début et j'ai oublié de la réintégrer...
Sinon pour que le temps soit moin long pour quand on appui sur la touche et que la raquette bouge vraiment c'est à paramétrer dans le panneau de configuration pour le clavier sinon je ne sais pas comment faire..

Merci pour vos commentaire j'en prend compte et je vais essayer de l'amiliorer encor !

Commentaire de jean_marc_n2 le 10/07/2006 19:05:54

Hello,
Le rendu n'est pas mal, l'idée est bonne.
Quelques conseils pour l'avenir:
- Commence tous tes forms et modules par "Option Explicit": Ceci force la déclaration des variables
- Déclare toutes les variables que tu utilises, en déclarant le nom et le type bien sur
- Utilise le plus possible les variables locales, les variables globales rendent le programme compliqué à suivre, à modifier et à debugguer

Enfin, et c'est très important, essaie de faire un effort sur l'orthographe dans tes commentaires, ça rend les choses plus agréables à lire et c'est une marque de respect pour ceux qui vont te relire.

Amicalement,

Commentaire de brahimhakkou le 16/07/2006 20:09:00

salut
svp jé une kestion a vous posez jé un programme de la consultation mé ca marche pas et je sais pa prkoi

Private Sub Command1_Click()


Dim strsql As String

Set BD = New ADODB.Recordset

Dim a, f, g   As String
a = "Erreur"
f = "Veuillez sélectionnez tous les informations concernant la consultation  !!!!  "
g = "Veuillez sélectionnez tous les informations concernant la consultation  !!!!   "
    
    If (Combo2.Text = "" And MaskEdBox1.Text = "") Then
     MsgBox f, 0 + 16, a

Else
    If (Combo2.Text = "" Or MaskEdBox1.Text = "") Then
    MsgBox g, 0 + 16, a
    
Else
  

   strsql = " Select * from Solde where Num_cpt='" & Combo2.Text & "' and Date_op=#" & Trim(MaskEdBox1.Text) & "#"
   Frame1.Visible = True
----->   BD.Open strsql, cn, adOpenDynamic, adLockOptimistic
  
   Set MSHFlexGrid1.DataSource = BD
MSHFlexGrid1.Refresh

End If
End If

End Sub



lorske j'execute il me donne toujours une erreur dans la ligne signalé par ( -----> )é shé pa prkoi prière aidez moi

SVP SVP
Merci d'avance