AccueilCodesTutorielsForumsEmploiLivresConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 22 23:37:51
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

48 commentaire(s) de yvemoreau sur des sources sur tout CodeS-SourceS

Le : 26/09/2008 07:05:55
Source : USB : 8 ENTREES / 16 SORTIES AVEC UN PIC18F4550 (HID).
Braaaaaaaaaavo rylryl! j'ai noté 10 sans trop de gêne...

Le : 26/09/2008 06:59:36
Source : USB : 8 ENTREES / 16 SORTIES AVEC UN PIC18F4550 (HID).
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...



Le : 23/09/2008 17:38:19
Source : USB : 8 ENTREES / 16 SORTIES AVEC UN PIC18F4550 (HID).
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


Le : 08/09/2005 00:51:29
Source : TROUVER TOUS LES ANAGRAMMES D'UN MOT (AVEC DICO)
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 ...


Le : 07/09/2005 23:19:39
Source : TROUVER TOUS LES ANAGRAMMES D'UN MOT (AVEC DICO)
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

Le : 03/09/2005 18:41:06
Source : TROUVER TOUS LES ANAGRAMMES D'UN MOT (AVEC DICO)
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;


Le : 07/08/2005 00:58:58
Source : COULEUR EN HEXADÉCIMAL ET RVB
procedure TForm1.Timer1Timer(Sender: TObject);
var
Point:TPoint;
DesktopBitmap:TBitmap;
ColorPixel:TColor;
R,G,B : Byte;
begin

   DesktopBitmap:=TBitmap.Create;
   DesktopBitmap.Width:=Screen.Width;
   DesktopBitmap.Height:=Screen.Height;

   BitBlt(DesktopBitmap.Canvas.Handle,
         0,0,Screen.Width,Screen.Height,
         GetDC(GetDesktopWindow),0,0,SrcCopy);

  windows.GetCursorPos(Point);
  ColorPixel:=DesktopBitmap.Canvas.Pixels[Point.X,Point.Y];

  R:=GetRValue(ColorPixel);
  G:=GetGValue(ColorPixel);
  B:=GetBValue(ColorPixel);
  edit2.Text:=(IntToStr(R)+','+IntToStr(G)+','+IntToStr(b));

  edit1.text:=('$'+IntToHex(ColorPixel,6));

  DesktopBitmap.Free;

end;

Le : 30/07/2004 07:54:00
Source : APPLIQUER FILTRE BITMAP
ouais ,il y a mieux enfin après quelques recherches je me rend compte que d'autres connaissent le sujet à fond...

http://nono40.developpez.com/delphi/efg/scanline/

bonne prog !!!

Le : 29/07/2004 22:52:48
Source : APPLIQUER FILTRE BITMAP
oui j'ai remodeler les fonctions
et ajouter des commentaires

Donc en évolution...

Le : 29/07/2004 17:29:57
Source : APPLIQUER FILTRE BITMAP
oui je comprend, en fait c'est pas encore un tutoriel je le concède ,je vais tenter d'expliquer un peu car je trouve le principe évolutif.

il peut y avoir plusieurs type de bytmap ,l'encodage doit-être différent ?

je n'ai pas fait de recherche sur le format d'encodage,accédant au pointer,assignant ces valeurs pour les convertir,les modifier,les reconvertir ,les réassigner au pointer.en fait peut-être très peu.

Catégorie de cette source : Exemple
en réponse au forum !!!

Donc oui je ne suis pas froissé ,loin de là ,et tu as tout à fait raison JP je me suis trompé de titre,en fait il n'aurait pas fallu la posté tout de suite car trop incomplète ...

Il ne faut pas interpréter un commentaire , les sentiments obtenus ne sont pas représentatif de la situation réelle, l'important est le commentaire en soi et il est justifié ,et c'est toujours positif un commentaire ce qui est à l'opposé de l'indifférence.

Donc pas de tiraillement pour mes émotions svp,salut à vous Et bonne journée .
Yve


1 2 3 4 5


Nos sponsors

Sondage...

CalendriCode


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,156 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.