Et bien si l'on regarde le schéma électronique du programmateur ,on doit insérer un interrupteur pour cour-circuiter deux des trois diodes à la base du régulateur 78L12 ,ce qui donne 12 volts + 0.6 donc environ 12.6 volts ,ce qui est excellent.

La partie électronique est ainsi compatible plutôt facilement,et pourra toujours être utiliser pour le 16f877  en ouvrant ce commutateur , se qui redonnera 13.8 volts ...

Ensuite , et c'est ici que ça ce complique , il faut entièrement revoir les options de configuration donc je ferai une Nouvelle Source en modifiant les plages et ces options ...

La programmation haut voltage se fait maintenant au maximum avec un 12.5 volts au lieu des 13.8 , donc , le programmateur ne pourrait fonctionner sans danger.

Ensuite les plages de configuration ne concordent pas.

*** N.B. NE LANCEZ PAS CETTE APPLICATION SUR UNE MACHINE QUI NE DISPOSE PAS D'UN PORT PARALLELLE. peine perdu ,comme le driver ne démarre jamais , le programme redémarre en boucle infini.

N.B. il pourrait être compatible sous quelques modification mineures , le port parallelle est plus facile pour cause j'y jetterais un coup d'oeil...

C'était loin d'être bien construit...,mais fesait en sorte que l'utilisateur pouvait configurer les entrées /sorties selon sa propre configuration ,les programmes gratuits à l'époque n'étaient pas modifiable et/ou très instable ,et comme je l'indiquais la partie électronique fesait aussi défaut dans bien des cas :le voltage de programmation de 13.8 devait être assuré sans aucun compromis...

Electroniquement parlant, le 16f877 était en 2004 une merveille quant aux possibilites qu'il offrait,j'en possède encore plusieurs qui n'ont pas encore été utilisé...

je m'y suis remis un peu avec le 18f4550 plus récemment ,que je pourrais probablement encore programmer avec ce programmateur car le principe demeure.

obsolete tout ça me direz - vous ...si vous avez des projets ,passez voir les sources du 18f4550 !

Braaaaaaaaaavo rylryl! j'ai noté 10 sans trop de gêne...

Bonjour Neil, J'en déduis que vous utilisez la version APIs windows et...

Le beep n'est relié à aucun problème ...

# procedure TForm1.Btn_LectureClick(Sender: TObject);//...

# if WriteFile(HID18F4550Device...) then beep;
# // ... Si echec signal sonore
# if ReadFile(HID18F4550Device...)then beep;

Puisque l'on souhaite bien ici informer l'utilisateur dans les cas d'erreur or ici il n'y en a pas . Enfin il aurait fallu lire if not (WriteFile(HID18F4550Device...) then beep;

...J'ai évidemment pris le fichier hex ,que j'ai désassembler ,j'ai ensuite modifier la config pour mon 4Mhz , puis j'ai recompiler le tout...bref une ou deux ligne du fichier hex sont modifier pour un cristal de 4Mhz , ensuite avec un OntimerEvent je vais lire les entrées ...

Ces fameuses entrées aléatoires sont probablement dû au fait qu'elles doivent impérativement soit être relié à la masse où au vdd5,et non flottante...

Car le tout fonctionne Nickel comme vous dites...

Bonjour , j'ai reçu mes 18f4550 , pas facile l'usb !!! Donc j'ai fais un petit programme asm pour faire clignotter une simple led sur le port D , sur un 'protoBoard' le tout fonctionne sous 4MHZ...

Le but était de pouvoir visualiser si le pic fonctionne  ...
Alors voici le code que vous devriez pouvoir compiler sans trop
de problème ...

        list p=18f4550
#include p18f4550.inc

CONFIG WDT=OFF; disable watchdog timer
CONFIG MCLRE = ON; MCLEAR Pin on
CONFIG DEBUG = OFF; Enable Debug Mode ?
CONFIG LVP = ON; Low-Voltage programming disabled   ;OFF(necessary for debugging)
CONFIG FOSC = XTPLL_XT; XT oscillator, PLL enabled,  ;XT used by USB
CONFIG PLLDIV = 1 ; INPUT 4MHZ
CONFIG CPUDIV = OSC3_PLL4   ;[96 MHz PLL Src: /4]

;/// Fréquence d'Horloge Interne = 24 MHZ


Del0 res 1 ;variable 1 byte chacun
Del1 res 1 ;
Del2 res 1 ;

org 0000h ; RESET VECTOR 1er commande
goto Start;
org 0004h ; RESET VECTOR 2er commande
        goto Start; pas utilisé...
org 0008h ;INTERRUPTION HAUTE PRIORITÉ 1er commande
goto Start;pas utilisé...
org 000Ch ;INTERRUPTION HAUTE PRIORITÉ 2er commande
call _Delay; pas utilisé...
org 0010h ;INTERRUPTION HAUTE PRIORITÉ 3er commande
        goto Start; pas utilisé...
org 0018h  ;INTERRUPTION BASSE PRIORITÉ 1er commande
        goto Start ; pas utilisé...

; Délais 6000000 cycles == 1 seconde sur 24 MHZ
_Delay: movlw     .91
        movwf     Del0
_Loop0: movlw     .95
        movwf     Del1
_Loop1: movlw     .138
        movwf     Del2
_Loop2: clrwdt
        clrwdt
        decfsz    Del2, 1
        goto      _Loop2
        decfsz    Del1, 1
        goto      _Loop1
        decfsz    Del0, 1
        goto      _Loop0
        clrwdt
        return

;////////////////////////////////////////////////////////////
Start:
CLRF PORTD
CLRF TRISD

MainLoop:

;Byte OPERATION sur le Port D

COMF PORTD,1 ;allume ou éteint la\les led    

;Bit OPERATION sur le Port D

;BTG PORTD,RD0 ;si a 1 met a 0 ,mais si a 0 met a 1

call _Delay ;delais 1 seconde

GOTO MainLoop

end

oups ç'est pas les anagrammes qu'on trouve ou bien tous les mots possibles avec un anagramme ??? enfin je sais plus...

c'est juste malheureux que ce soit pas en delphi BruNews moi et le vb ...pas sûr ...comment comparer des pommes avec des oranges ?  question temps ça m'a l'air bien aussi quoique c'est pas pareil du tout ...

Rebonjour ,

j'ai bidouillé encore car ce truc m'intéresse énormément et à force de tourner en rond avec ces possibilités ,j'ai creer un autre arbre en limitant les nodes à celles de l'anagramme puis j'ai cliqué ...Je parcours maintenant le dico qu'une seule fois node par node ,si c'est impossible je saute à la branche suivante ,et en prime j'obtiens classer en ordre alphabétique une liste sans doublons ...

Le temps de recherche pour "anticonstitutionnellements" n.est pas plus long que la création du dico !!!

1er filtre en parcourant le dico:
var
MySet: set of 'A'..'Z';

MySet :=[];
   for x:=0 to length(ANAGRAMME)do
   begin
      if not (ANAGRAMME[x+1] in MySet)then
      MySet :=MySet + [ANAGRAMME[x+1]];
   end;


et en parcourant le dico je teste :

if not(T^.Lettre in MySet )then break;
se qui conduit à la branche suivante...

le deuxiemme filtre, là, j'ai pas trouvé mieux :
je compare les lettres de l'anagramme avec les lettres
du mot en mémoire...

Function Compare(Mot:String;ANA:String):Boolean;
var
a,b:Integer;
begin
   result:=false;
   for b:=length(Mot) downto 1 do
   begin
      for a:=1 to length(ANA)do
      begin
         if (mot[b]=ANA[a])then
         begin
            setlength(mot,length(Mot)-1);
//pour une fois que le downto est utile
            ANA[a]:='?';
//pour dire qu'utiliser
            break;
         end;
      end;

      if(mot='')then
      begin
         result:=true;
         exit;
      end;
   end;
end;


ps:vérifie ton dico certains mots ont plus de 27 lettres
et sont en doubles...

Pour le code au complet comme le mérite te reviens je te l'envoi quand tu voudras ...

pour les autres on verra , lol ...
Yve

bonjour, j'ai trouvé un code sur le site en vb je crois et je l'ai traduis pour l'utiliser dans ton prog...j'ai bidouillé ton code pas mal pour le simplifié car je n'arrivais pas à créer toutes les possibilités .

Creer_Poss(UpperCase(edText.Text),1,length(edText.Text),'');
renvoi dans une TStringList toutes les possibilités...


procedure Creer_Poss(Mot:String;n:Integer;lg:Integer;nouveauMot:String);
var
     temp:String;
     i,j,k,m:Integer;
begin
   if(lg<>0)then
   begin
      for i:=1 to lg do
      begin
         setlength(nouveauMot,n);
         nouveauMot[n]:=Mot[i];
         temp:='';
         for m:=1 to n do temp:=temp+nouveauMot[m];

         //if(Dico(temp)=true)then
         strList.Add(temp);

         k:=1;
         for j:=1 to lg do
         begin
            if(j<>i)then
            begin
               setlength(temp,k);
               temp[k] := Mot[j];
               inc(k);
            end;
         end;
         Creer_Poss(temp, n+1, lg-1, nouveauMot);
      end;
   end;
end;