Commentaires de akim77 sur tout CodeS-SourceS

12 commentaire(s) de akim77 sur des sources sur tout CodeS-SourceS

Le : 08/06/2008 11:08:36
Source : MARIO ONLINE

Salut,

Si cette "Source Qui merite pas être uploader" alors ne l'upload pas.
C'est évidant que tu ne dois pas considérer CodeS-SourceS comme ta poubelle.

Akim

Le : 31/05/2008 10:47:51
Source : CALCUL DE MORTIER ET BETON

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.

Le : 16/05/2008 12:07:16
Source : CONVERSIONUTM.NET

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

Le : 03/01/2008 20:20:45
Source : CALCULETTE POUR LES TRÈS, TRÈS, VRAIMENT TRÈS GRANDS NOMBRES

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.

Le : 16/05/2007 22:34:03
Source : PROGRAMME QUI ENREGISTRE LES ACTIONS DE LA SOURIS ,LES TOUCHES CLAVIER DE A -> Z ,ET LE CLAVIER NUMERIQUE

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+

Le : 09/09/2006 21:17:34
Source : SCREENMATE, COMPAGNON D'ÉCRAN

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 !

Le : 12/08/2006 09:41:55
Source : EFFET TYPEWRITER (WIN32)

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 ...

Le : 15/07/2006 18:34:36
Source : DECORS & COLLISION 3D (EN MOINS DE 200 LIGNES)

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

Le : 14/07/2006 06:36:42
Source : DECORS & COLLISION 3D (EN MOINS DE 200 LIGNES)

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

Le : 01/07/2006 07:40:12
Source : ATTRIMOD V. 1 : MODIFICATEUR D'ATTRIBUTS DE FICHIER ET DE DOSSIERS

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 !