jinh68

Membre
Inscription
29 juillet 2003
Dernière intervention
1 septembre 2006
Interventions
215
Signature
j!nH

COMPARAISON "INTELLIGENTE" ET MOTEUR DE RECHERCHE

/source/39168-comparaison-intelligente-et-moteur-de-recherche

Nickel merci ;).

Le plus simple pour commenter à mon avis serait un shéma d'ailleurs.

Tiens tiens, pas mal du tout. Cela ressemble vaguement à la manière dont opére l'outil diff pour les différences de fichier(algorithme de Myers). Une matrice avec une chaîne sur la longueur, l'autre sur la largeur, et on trace son chemin en fonction des similitudes(un graphe en gros).

INSTRREV

/source/29890-instrrev

Non deja c'est for B := Length(Src) downto 1,oui j'ai merdé, les strings sont indexés à 1 ;). Dans le cas ou le caractere n'est pas la ca donnera 0 du coup. Juste une petite remarque sur ton source.Ne repete pas length(src) plusieurs fois,stocke le au début,sinon ca réévalue à chaque fois(pas avc les optimisations de Delphi mais ...

Héhé :).

function searchLastChar(src: string; s: char): integer; begin for i:= length(src) -1 downto 0 do if src[i] = s then break; result := i; end; Y'a ça aussi ^^.

COMPARER LES INSTRUCTIONS CASE OF, IF THEN ET IF THEN ELSE

/source/29593-comparer-les-instructions-case-of-if-then-et-if-then-else

Oui excuse moi pr la durée :).En fait il y'a effectivement des instructions propres à certaines architectures, mais les instructions de base depuis le 8086 sont acceptées partout. @+ :)

En fait, tout le monde est d'accord avec toi je pense, mais là n'est pas l'intérêt. L'optimisation a toujours été un "sport" chez les développeurs et relève d'une compréhension approfondie du fonctionnement d'un processeur. Donc pour l'utilisateur, aucun intérêt, mais je ne pense pas que tu développes juste pour lui.Après cela dépen...

On va dire que cette intervention est totalement inutile et ne fait pas avancer concrètement le débat, mais on commence à être habitué aux sautes d'humeur du grand vizir :).

Svp arrêtez les tests consécutifs et observez ce qui se passe en asm pr le case dans ce cas la ;). Delphi gruge !!!

CALCUL AX²+BX+C

/source/21296-calcul-ax-bx-c

De rien :), on va finir par faire un truc vraiment complet, ça peut être intéressant pédagogiquement.

http://membres.lycos.fr/emauvais/idm/GeoAPTabRecPar.htm Regarde là dessus, y'a les deux cas d'exposés..ça me rappelle mes cours d'optique lol ^^.

Hum quelle modestie !!!!

Déterminant est correct également, cela concerne la méthode avec les matrices....

Découpage de bytes Résolu

Bonjour, Je récupère des paquets via le port COM que je dois traiter ensuite. Notament, dans ce paquet, il y a un timestamp sur 4 bytes répartis de cette manière: seconds (6 bits) minutes (6 bits) hours (5 bits) days (5 bits) months (4 bits) years (6 bits) N'ayant jamais fait ce genre de chose, je vous demande de l'aide. (... Lire la suite

Oui, le code est bien ouvert pour que l'on puisse facilement faire sa sauce par dessus ;). De rien, bonne journée ! j!nH

Excuse moi pour la faute d'étourderie pour le Packet. Concernant ton autre question, il te suffit de mettre la procedure GetCOMTimeStampFrom(Packet: DWORD); en public. j!nH

3
Votes

Erf, j'avoue que j'aimerais bien comprendre où merde mon code vu que c'est exactement ce que tu fais linéairement. Pourrais-tu juste tester rapidement cette unité: unit ComTimeStamp; interface uses   Classes,   Windows,   SysUtils,   Dialogs; type   {   seconds (6 bits)   minutes (6 bits)   hours (5 bits)  ...

Et le reste marche? j!nH

Il faudrait se mettre d'accord là, si tu me dis que ton timestamp commence à nblue - 4, ça devrait marcher.... j!nH

En fait la finale: unit ComTimeStamp; interface uses   Classes,   Windows,   SysUtils,   Dialogs; type   {   seconds (6 bits)   minutes (6 bits)   hours (5 bits)   days (5 bits)   months (4 bits)   years (6 bits)   }   TCOMTimeStamp = class      private        FValues: array[0..5] of Dword;        FPa...