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 10 10 20:40:37
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 !

15 commentaire(s) de jihelb sur des sources sur tout CodeS-SourceS

Le : 07/07/2008 11:42:17
Source : COMPOSANT "LISTE DE CHOIX ORDONNÉS DEPUIS UNE LISTE TRIÉE"
Merci Jackalunion.
Celà réchauffe le coeur de savoir que son travail sert à au moins une personne !

Le : 28/05/2008 18:18:49
Source : COMPOSANT "LISTE DE CHOIX ORDONNÉS DEPUIS UNE LISTE TRIÉE"
Vu 1211 fois et téléchargé 124 fois, ET...pas même un petit message ???
Si vous n'aimer pas ou si je me plante ou...ou...ou..., soyez sympa de le dire !
Inutile que je me fatigue à faire un fichier de démo (qui, me semble-t-il n'est pas trop mal) pour permettre de prendre connaissance rapidement et dans tous les aspects, du composant. Autant le mettre brut sur le site !
Ouf, ça soulage un peu.
Enfin ... chacun doit bien savoir ce que ça fait ? non !
Merci quand même d'avoir lu jusqu'ici, et bonne prog !

Le : 16/03/2008 20:29:38
Source : BAC À SABLE
Bravo Barbichette, j'aime beaucoup la façon de résoudre ce problème, et je pense que celà vaut bien un 9 (étonné que personne n'ai noté !?)
Je me suis par contre demandé pourquoi il y avait une dissymétrie entre l'écoulemnt vers la droite(trés réaliste) et celui vers la gauche(qui fait apparaitre des murs verticaux) alors que l'algo de gestion d'une ligne est parfaitement symétrique.
Celà provient du fait qu'une ligne est balayée de la gauche vers la droite.
J'ai donc légèrement modifié ceci pour que les lignes paires soit balayées dans un sens et les impaires dans l'autre (peut-être y-a-t'il une autre solution, mais je ne l'ai pas trouvée).
Donne-nous encore des animations.
////////////////////
PROCEDURE INITIALE

procedure TForm1.DoSand;
var
x,y:integer;
a,b,c,d,e:integer;
bg:integer;
p:PQuadArray;
begin
bg:=$FFFFFF; //couleur du fond
p:=bitmap.scanline[h-1];
// on balaye de bas en haut l'image,
// sinon, des grains de sable pourraient tomber d'un coup du haut en bas...
for y:=0 to h-2 do
begin
   //-+-+-+ début partie à déplacer -+-+-+-
                    .
                    .
                    .
   //-+-+-+ fin   partie à déplacer -+-+-+-
end;
end;

REMPLACEE PAR

procedure TForm1.DoSand;
var
x,y:integer;
a,b,c,d,e:integer;
bg:integer;
p:PQuadArray;
//---------
   procedure UneLigne(x: integer);
   begin
     //-+-+-+ début partie déplacée -+-+-+-
                      .
                      .
                      .
     //-+-+-+ fin   partie déplacée -+-+-+-
   end;
//---------
begin
bg:=$FFFFFF; //couleur du fond
p:=bitmap.scanline[h-1];
// on balaye de bas en haut l'image,
// sinon, des grains de sable pourraient tomber d'un coup du haut en bas...
for y:=0 to h-2 do
begin
  //-+-+-+ début partie modifiée -+-+-
   if odd(y)
   then for x:= 1 to w-2 do UneLigne(x)
   else for x:= w-2 downto 1 do UneLigne(x);
  //-+-+-+ fin   partie modifiée -+-+-
end;
end;

Le : 10/06/2005 11:38:36
Source : RETOUCHE D'IMAGES (FLOUS, SEUIL, HISTOGRAMMES, OPÉRATIONS ARITHMÉTIQUES)
Bravo Cedricbi pour ton travail, et ton enthousiasme est raffraichissant !
Impatient de connaitre la suite !

Le : 02/05/2005 12:25:46
Source : ADRESSE,PSEUDO ET MDPASSE PAR LE CLIPBOARD.
Pas un seul commentaire !? Ce n'est pas trés encourageant. Si le boulot ne vous plait pas, dites le !
Aucune réponse à ma question.

Le : 05/04/2005 13:04:18
Source : PROBABILITÉ DANS LES RANDOM (NOMBRES ALÉATOIRES)
Effectivement Forman, aucun test n'est nécessaire. Jai répondu trop vite sans vérifier (j'étais à mon boulot, pas chez moi). Toutes mes excuses.
Dans ma proposition, je ne m'étais pas attardé sur mon utilisation de RANDOM à la place de RANDOM() croyant que celà allait de soi pour tous. Erreur. Tu as bien fait de préciser.
Décidemment Theos n'aime pas les conseils (pardon "...critiques à 2 balles " ???)
Dommage pour lui, mais ils sont utiles pour nous tous, sinon à quoi sert cette rubrique ?
Bonne Prog à tous.

Le : 04/04/2005 16:53:05
Source : PROBABILITÉ DANS LES RANDOM (NOMBRES ALÉATOIRES)
Oui Forman, sauf si Proba est négatif (sait-on jamais ???) donc on gagne encore un test  !
Merci.

Le : 04/04/2005 14:51:18
Source : [GETTICKCOUNT] DÉTERMINER DEPUIS COMBIEN DE TEMPS WINDOWS N'A PAS PLANTÉ
Belle preuve d'humour Ken@vo.
Bravo !!!

Le : 04/04/2005 14:36:23
Source : PROBABILITÉ DANS LES RANDOM (NOMBRES ALÉATOIRES)
Que de complications inutiles pour une chose si simple !
function RandomProba(Proba:real):boolean;
begin
   if Proba <= 0 then Result:= false
  else if Proba >=1 then Result:= true
  else Result:= (Random < Proba)
end;
De plus il serait bon d'écouter les conseils de ceux qui nous veulent du bien; je suis parfaitement d'accord avec WhiteHippo. Un "progragramme pour débutant" ne doit pas être une excuse pour ne pas réfléchir et programmer correctement, AU CONTRAIRE.
Bonne Prog.
    

Le : 07/03/2005 14:06:35
Source : INSTRREV
Le 1er test est également inutile car il est fait par le 1er test de boucle.
De plus, si le résultat doit être -1 lorsque le car. n'est pas trouvé il est préférable de faire:

function InstrRev(Src:string; s: Char): integer;
    var B:integer;
begin
result := -1;//pour pas trouvé
for B:= length(src) downto 1 do
    if src[B] = s
    then begin
      result := B;//rang changé avant la sortie de boucle  
      break;
    end;
end;

ou bien pour éviter une attribution inutile:

function InstrRev(Src:string; s: Char): integer;
    var B:integer;
begin
for B:= length(src) downto 1 do
    if src[B] = s
    then begin
      result := B;//rang changé avant la sortie de boucle  
      EXIT;//trouvé, on sort de la function
    end;
//on arrive ici seulement si car. pas trouvé ou src vide
result := -1
end;


1


Nos sponsors

Sondage...

CalendriCode

Octobre 2008
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du 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,312 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é.