J'ai ouvert le fichier Lezard.dsp avec VC2005
qui a convertit le projet.
La seule erreur vient d'une variable inutilisée:
ON_WM_SETCURSOR()
qu'il suffit de supprimer pour que l'exe soit généré.

En dernier recours l'exe est ici:
http://greenmesa.free.fr/downloads.html

A+

Tu aurais dû citer clementpat, l'auteur de la source originelle:
http://www.vbfrance.com/codes/CALCUL-MATERIAUX-BRIQUE-PARPAING-BETON-SABLE-CIMENT-GRAVIER_22645.aspx

Tu devrais même retourner voir cette source , car clementpat utilise 64 briques au mètre carré et toi 20.

Salut BarresLTD,


Quand on dépose une source ici, c'est aussi pour qu'elle soit vue
par le plus grand nombre et quel meilleur moyen que de:
- donner une description qui donne envie d'ouvrir le zip
  (pourquoi pas celle de la version en VB6)
- mettre une copie d'écran
  (même si le fond vert que tu as choisi n'est pas celui que je préfère)

Pour l'aspect pratique:
Tu devrais vérifier que toutes les "cases" indispensables ne soient pas vides
et "numériques" (sinon message d'erreur disgracieux),
et peut-être simplement les initialiser à zéro.

Pour E/W et N/S pour tolérer les minuscules tu peux utiliser UCase:
If UCase(DirEW) = "E" Then
et mettre une valeur par défaut (dans l'état actuel avec des "cases" vides c'est W et S)
ou mieux gérer les choix par des OptionButton

A+

Akim

J'avais fait une fonction Puissance ( une simple boucle de la fonction Multiplication ), mais les temps de calcul étaient "inhumains" ( 2^10000 en plus d'une minute )


Public Function Puissance(X As String, Y As String, cde As Boolean, nb_chiffres As Long) As String
Puissance = ""
nb_chiffres = 0
If X <> "" And Y <> "" Then
    If verify_entiers_positifs(X, Y) Then
        If X = "0" Then
            Puissance = "0"
        Else
            If X = "1" Or Y = "0" Then
                Puissance = "1"
            Else
                If Val(Y) > 0 And Val(Y) < 10001 Then '10001 temps de calcul inhumain ???(a determiner)
                    Puissance = X
                        Dim j
                        For j = 1 To Val(Y) - 1
                            Puissance = Multiplication(Puissance, X, 0, 0)
                        Next j
                        nb_chiffres = Len(Puissance)
                Else
                    Puissance = "Y est trop grand, temps de calcul inhumain, trouver une autre methode"
                End If
            End If
        End If
    Else
        Puissance = "Des nombres entiers positifs uniquement"
    End If
End If
End Function

Pour info: Val(Y) donne un Double
et
20^55=360287970189639680000000000000000000000000000000000000000000000000000000
temps calcul < 1 sec (ouf!)

Vois le prog de DNOB700
http://www.vbfrance.com/codes/JUSTE-AUTRE-LIBRAIRIE-CALCUL-PRECISION-INFINIE_22182.aspx
plus "pro" que le mien.

Vraiment efficace ce programme.

J'ai fait la modif suivante pour eviter d'enregistrer quand le curseur est sur Form1
As tu une meilleure solution ?

Private Sub Timerrec_Timer()

Dim Retour As Long
gauche = GetAsyncKeyState(1): 'bouton gauche
droite = GetAsyncKeyState(2): 'bouton droit souris
'enregistre
Dim PosCursor As POINTAPI
    r& = GetCursorPos(PosCursor)
'on ecrit dans le fichier la position x et la position y
  Print #1, PosCursor.X 'efface et écrit...
  Print #1, PosCursor.Y 'idem

'la modif
If PosCursor.X * 15 < Form1.Left Or PosCursor.X * 15 > Form1.Left + Form1.Width Or PosCursor.Y * 15 < Form1.Top Or PosCursor.Y * 15 > Form1.Top + Form1.Height Then

etc...
End If
End Sub

A+

Tu as raison. Mais quand je fait une rotation même légère du sprite au milieu de l'écran, le mouvement du lézard est saccadé.
Il faudrait peut-etre plus d'images.
Je crois que j'ai encore un peu de travail !

Enfin une nouveauté, en plus avec un code clair et bien commenté.
Bravo !

Une suggestion pour plus de réalisme:
Eviter la régularité mécanique lors de la frappe.
Peut-être en faisant varier le temps entre chaque frappe,
ou en ayant 5 ou 6 sons différents pour les touches normales,
ou en ...

Tu peux utiliser jtedit un modeleur gratuit: http://www.jtgame.com/jtedit/jteditmain.html

Beau travail de vulgarisation !

Avec la verion 1.1 j'avais une "erreur Automation"
Dans mdlMain.bas j'ai ça :
        'mPrim.Flip Nothing, DDFLIP_NOVSYNC
        mPrim.Flip Nothing, DDFLIP_NOVSYNC Or DDFLIP_WAIT

Bye

Pas mal (bis)

Pour aller plus loin il faudrait ajouter la possibilité
d'appliquer les modifications à tous les fichiers du dossier,
ou (plus difficile) pouvoir choisir les fichiers à modifier.

Bon courage !