Commentaires de titicar sur tout CodeS-SourceS

70 commentaire(s) de titicar sur des sources sur tout CodeS-SourceS

Le : 18/07/2008 18:26:45
Source : DIR RÉCURSIF MULTI-FILTRES EN UNE SEULE PASSE [MODULE / MODULE DE CLASSE]

Bah! Pour le skin, on aime ou pas, on retient ou non quelques lignes de prog. De toute façon, elle est indépendante de la fonction concernée.
Perso, ce skin est un petit 'plus'.

VBtoTRASH : Pour quelqu'un qui vient de s'inscrire aujourd'hui même, tu n'es pas très constructif dans tes propos. Tu me laisses sur ma faim car tu n'as pas donné de solution (constructive).
Au fait, n'oublie pas qu'ici, on parle de VB.

Le : 17/07/2008 19:21:21
Source : DIR RÉCURSIF MULTI-FILTRES EN UNE SEULE PASSE [MODULE / MODULE DE CLASSE]

Merci PCPT,ça marche tout simplement très bien.
Ta source est nettement plus pratique et plus rapide comparé à ce que j'utilise actuellement.
Je n'ai pas essayé le projet 'module'. Les class, c'est tout de même plus flexible.

Par curiosité, dans la prop. Filters, j'ai essayé :
- "r*.dll" -> Ca marche nickel
- "re*.mp3" -> Ca m'affiche tout ce qui commence par 're', mais aussi ce qui commence par 'r.e'
- "r.e*.mp3" -> Ca marche nickel
Je suppose que c'est FindFirstFileA qui gère ça ainsi.

Sinon, c'est courageux de s'attaquer à l'UNICODE sous VB6 car c'est vraiment pas évident pour l'affichage.

Je note 10 car je n'ai pas vu mieux.

Le : 18/06/2008 19:34:51
Source : MP3REN - RENOMMEUR DE MP3

Tu as raison : c'est vrai que je n'ai pas cherché bien loin pour la console. Après ton message, j'ai testé en mode source dans l'interface VB en mémorisant un nom de répertoire dans command$, mais sans modifier les variables en rapport avec un #If.
Résultat : ton prog affiche bien le tag ID3v1 (plus précidemment v1.0, car dans v1.1 le commentaire ne possède que 28 caractères au lieu de 30).
Par contre, je n'ai pas réussi à renommer un mp3 suivant son tag. Peut-être une config à changer, je ne sais pas.

Pour changer de sujet... et revenir à la classe cls_InfoMP3, la fonction qui sauvegarde le tag additionne en fait un nouveau tag à la fin du fichier, sans écraser l'ancien tag. Par défaut, ça serait mieux d'écraser l'ancien tag.

Le : 18/06/2008 18:49:23
Source : GESTION VIDEO AVEC BASE DE DONNÉES ET MOTEUR DE RECHERCHE

J'ai 'loupé' plusieurs épisodes depuis avril 2006. Le prog possède des fonctions supplémentaires (y compris accès au Web), et l'esthétique de l'interface est vraiment très réussi !
Je DL et je reviens plus tard...

Le : 16/06/2008 19:48:55
Source : MP3REN - RENOMMEUR DE MP3

Salut,

Je ne peux pas te dire d'où tu as récuperé la classe cls_InfoMP3 (pourtant j'en ai déjà lu beaucoup sur VBFrance), mais elle parait plutôt ancienne car elle ne tient pas compte du tag ID3v2.

En théorie, ce n'est pas génant pour lire le tag ID3v1 (celui utilisé par cette classe) et donc 'condenser' un titre média avec un maximum de 30 caractères par champs (artiste, album et nom de la chanson), histoire de limiter l'affichage.
Mais dans la pratique, ça pose problème car si un tag ID3v2 existe dans ton mp3, la classe ne fonctionne plus [déjà et à première vue au niveau de Public Sub GetMP3Info()]

Je dis ça juste en lisant un peu le code source car je n'ai pas testé en réel, qui impose le mode console.

Le : 06/06/2008 20:17:53
Source : LECTEUR DE MUSIQUE ET LECTEUR AUDIO

Bon allez, je vais être le premier à déposer un commentaire:

1) Pourquoi choisir Form1.ShowInTaskbar=FALSE ? Moi qui suit un membre très actif du ALT+TAB

2) If strListe2 = "mp3" Or strListe2 = "MP3" Or strListe2 = "Mp3" Or strListe2 = "mP3" etc...
C'est trop long. Si maintenant, on doit se soucier de toutes les possibilités d'écriture, on n'en fini plus.
Mieux vaut utiliser LCASE par exemple, qui transforme un string en minuscule. Attention, ça ne fonctionne plus avec des caractères accentués mais ça devrait suffire pour convertir une extension de fichier.
Au lieu d'écrire :
strListe2 = strSeparation2(UBound(strSeparation2))
If strListe2 = "mp3" Or strListe2 = "MP3" Or strListe2 = "Mp3" Or strListe2 = "mP3" etc... Then
Mieux vaut écrire:
strListe2 = LCase(strSeparation2(UBound(strSeparation2)))
If strListe2 = "mp3" Or strListe2 = "wav" Or strListe2 = "wma" Then

3) strEffacerRep = MMControl1.Error
- MMControl1.Error renvoie une valeur de type Long
- alors que strEffacerRep est déclarée en type String
Essaie d'associer toujours les même types ! Ou alors de convertir l'une des valeurs suivant le type de l'autre.
3.1) Donc pour garder les mêmes types, déclare strEffacerRep as Long (tant qu'à faire, modifie le nom de cette variable, genre lngEffacerRep)
3.2) Ou alors conversion de valeur : strEffacerRep = Trim(Str(MMControl1.Error))
'Str' convertie une valeur numérique en un string
'Trim' supprime le premier espace vide si la valeur numérique est positive depuis Str (VB remplace un '+' par un ' ' si l'on utilise la fonction Str).

Par contre, je ne note pas car je n'utilise pas MMControl.

Le : 28/05/2008 23:44:04
Source : CLASSES POUR RECUPERER DES INFOS SUR LES FICHIERS BMP,GIF,PNG,JPG,AVI,MP3

Dommage qu'il n'y ait pas plus de commentaires sur cette source pourtant utile, même si l'on est pas obligé de tout prendre.

Toujours concernant la dimension d'un JPEG, j'ai été confronté à une autre erreur, encore due à une image 'incorrecte'.
Dans la procédure GetImageInfos(), il y a la ligne suivante:
If lPos >= lngSize - 10 Then Exit Sub
Le 'exit sub' est mal employé car le fichier image a déjà été ouvert (Open sFile...) et n'est pas refermé.
Il faut remplacer cette ligne par:
If lPos >= lngSize - 10 Then GoTo ErrGestion 'Faut refermer ce fichier déjà ouvert
car l'étiquette ErrGestion referme ce fichier image (Close #lFile).

Mais pour les curieux, faut préciser que la procédure fonctionne trés bien pour des images 'correctes'.

Le : 20/02/2008 20:58:45
Source : CALCUL BÉTON ARMÉ

Bonjour à tous,

Oui, je suis d'accord avec BIGDAMSBIRG,
Mettre une mauvaise note uniquement parce qu'on reste sur notre faim me semble plutôt sévère.
D'ailleurs, rester sur notre faim prouve que l'on a déjà apprécié le début de cette source !

Je ne pense pas avoir lu quelque part que la source était 'terminée'.
Bien au contraire, l'auteur a précisé que la partie 'statique' (donc les fameux formulaires RDM et donc entre autre les calculs des moments fléchissants) était en cours de développement. Et aux dires de l'auteur, ce développement ne se cantonne pas à une simple formule concernant une charge uniformément répartie sur deux appuis simples (le fameu 'pl2sur8').
L'auteur veut donc allez beaucoup plus loin que la résolution d'une seule "figure". Et soyons franc, cette programmation n'est pas donné à tout le monde, ni en temps, ni en savoir faire d'un point de vu mathématique et programmation.

Quant à la partie 'dimensionnement' dans ce code, elle est tout de même très bien faite, avec ce soucis des détails de calcul importés automatiquement dans Word.

Je pense que c'est cette partie qu'il faut noter, et non pas une partie épineuse que l'auteur ne nous a pas encore proposé... car il 'planche' sans doute dessus !

Et tout spécialement pour 'BonjourAtous':
- Dans votre cas de figure (et uniquement ce cas), vous avez déjà trouvé Mf maxi (...la formule en tout cas). Il faut juste trouvé le bon P qui est calculé différemment aux états ultimes ou de service, suivant les charges d'exploitation et autres(j'écris 'autres' car je ne sais plus comment ça s'appelle, c'est vieux tout ça). Mais ce n'est que deux formules (des simples additions!) à chercher dans le BAEL.

Le : 17/01/2008 00:09:36
Source : YOMMMP3TAG V2 - EDITEUR DE TAGV1 V2.2 ET V2.3 POUR MP3 , MP3 VBR ET MP3 ABR

Et oui, comme quoi même un 'vieux' dev peut encore servir pour quelques 'acharnés'!
Cela dit si tu as des nouveautés, tu peux toujours nous tenir au courant :-).
Facile à dire car perso, je n'ai encore jamais rien 'partagé' (bouhh!).

Concernant ta class Mpeg (nameTypeTagMpeg), j'ai tout de même un gros problème de compréhension : dans cette même classe Mpeg, la function (Friend) 'GetTag(...) As TypeTagMpeg' appelle elle même sa propre class 'TypeTagMpeg' en tant que résultat de cette function.
Je m'explique sans doute mal, mais tout ça pour dire que des fois, j'ai une erreur n°91 (ne me demande pas la description de l'erreur) qui signifie (il me semble) que le résultat de la fonction 'GetTag(...)' est Nothing. Donc et dans ce contexte d'erreur, je ne peux pas appeler une quelconque 'Public Property' liée à la variable (nouvelle instance?) résultante de 'GetTag(...)'.
C'est vrai que je n'utilise pas la totalité de tes sources, et que je fais appel à cette fonction par mes propres lignes de prog.
C'est vrai aussi que quand je me relie, j'ai du mal à croire que quelque puisse comprendre ce que je veux expliquer.
Si tu as compris mon problème (là, je te félicite!), essais de répondre plus vite qu'en octobre :-)
Sinon, je vais essayer de traduire ça par un exemple plus concret (plus généraliste et plus simple!) que je posterai dans le forum.

@+ et (je n'en doute pas) bon prog!

Le : 16/01/2008 22:30:36
Source : YOMMEXPLOREROCX POUR CE QUI VEULENT UN VRAI EXPLORATEUR WINDOWS

Bonjour Maypeur,

As-tu lu les différents commentaires ci-dessus. Je dis ça car tu as l'air d'avoir exactement le même problème que Mikaels35 (datant de 10/09/2005 15:50:39).
Et juste plus bas (datant du même jour, mais à 18:35:05), Mikaels35 semble avoir résolu le problème en suivant les conseils de DARKSIDIOUS (donc, toujours du même jour!).
Cela dit et de mémoire, j'ai eu un problème (pas au premier essai) de variable 'String' (sans doute le même problème que toi et d'autres), mais je n'ai pas cherché plus loin.

Si tu veux utiliser cette source, regarde déjà les commentaires de DARKSIDIOUS.
@+ et bon prog!