

badaze
Membres-
Compteur de contenus
113 -
Inscription
-
Dernière visite
Contact Methods
-
AIM
badazem
-
ICQ
0
Profile Information
-
Localisation
pas trop loin de Lyon
badaze's Achievements

Power Member (5/12)
0
Réputation sur la communauté
-
Zébulon Déjà 6 ans
badaze a répondu à un(e) sujet de lordtoniok dans J'ai rien à dire mais j'le dis quand même
Bon anniversaire Zéb. Zébulon a été le premier forum dans lequel je me suis inscrit et en plus ç'était au tout début ( je dois être le membre n°9 si je ne me trompe pas ). Je ne viens pas ici souvent mais tout de même de temps en temps ne serait-ce que grâce à la newsletter. Bonne continuation et longue vie à Zebulon !!! -
Voici un bout de code que j'ai publié sur un forum italien. Il est aussi possible de cliquer sur la ligne <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <title>Untitled</title> <style type="text/css"> <!-- .normal1 {font-family:tahoma;font-size:8pt;background-color:yellow} .normal2 {font-family:tahoma;font-size:8pt;background-color:white} .overTR {font-family:tahoma;font-size:8pt;background-color:blue;color:white} .clicked {font-family:tahoma;font-size:8pt;background-color:red;color:white} --> </style> <script language="JavaScript" type="text/javascript"> var savClass = ""; var savClass2 = ""; var lastTR = null; <!-- function rOver(aTR) { savClass = aTR.className; aTR.className = "overTR"; } // function rOver(aTR) function rOut(aTR) { if (aTR.className == "clicked") return; aTR.className = savClass; } // rOut(aTR) function rEvidenzia(tr) { for (i = 0; i < tr.cells.length; i++) { var tdata = tr.cells(i); if (tdata.style.sav_backgroundColor == null) { tdata.style.sav_backgroundColor = tdata.style.backgroundColor; tdata.style.sav_color = tdata.style.color; tdata.style.backgroundColor = 'green'; tdata.style.color = 'white'; } else { tdata.style.backgroundColor = tdata.style.sav_backgroundColor; tdata.style.color = tdata.style.sav_color; tdata.style.sav_backgroundColor = null; tdata.style.sav_color = null; } // if (tdata.style.sav_backgroundColor == null) } // for (i = 0; i < tr.cells.length; i++) } // function rEvidenzia(tr) //--> </script> </head> <body> <table summary="" cellpadding="0" > <tr class="normal1" onmouseover="rOver(this);" onmouseout="rOut(this);" onclick="rEvidenzia(this);"> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> </tr> <tr class="normal2" onmouseover="rOver(this);" onmouseout="rOut(this);" onclick="rEvidenzia(this);"> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> </tr> <tr class="normal1" onmouseover="rOver(this);" onmouseout="rOut(this);" onclick="rEvidenzia(this);"> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> </tr> <tr class="normal2" onmouseover="rOver(this);" onmouseout="rOut(this);" onclick="rEvidenzia(this);"> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> <td>AAAAAAAAAAAAAAAAAAAAA</td> </tr> </table> </body> </html>
-
Et que donne le code HTML généré ?
-
En fait, un exécutable Delphi n'a pas besoin de dll externes pour tourner comme c'était le cas avec VB 3 ou 4 avec les dll runtime VBRUNxxx.exe. Mais un programme Delphi peut faire appel à certaines routines contenues dans des dll il faut lors que ces dll soient présentes et accessibles. Comme la plupart du temps, ces dll (qu'elles soient système ou propriétaires) se trouvent dans un répertoire faisant partie du path c'est transparent pour l'utilisateur.
-
Cela signifie que ta dll n'est pas trouvée dans la liste des chemins d'accès indiquée. Copie la dans un de ces chemins et réessaie.
-
ou bien en javascript <script language="javascript"> var aDate = new Date(); document.write(aDate.toLocaleString() ); </script>
-
Pas vraiment optimisé.
-
Quel est le langage de programmation le plus simple ?
badaze a répondu à un(e) sujet de Quetzalcoatl dans Programmation
Je persiste à penser qu'il faut d'abord débuter avec un langage "normal" avant de passer aux langages objets. -
Quel est le langage de programmation le plus simple ?
badaze a répondu à un(e) sujet de Quetzalcoatl dans Programmation
La programmation ne se limite pas à la création d'un .exe !!!! Pour commencer à apprendre la programmation, il vaut mieux commencer avec un langage simple... ce qui sera un bon tremplin pour des langages plus compliqués !!! Mais bon s'il faut en prendre un dans ta liste, je choisis Delphi sans aucune hésitation. -
Quel est le langage de programmation le plus simple ?
badaze a répondu à un(e) sujet de Quetzalcoatl dans Programmation
Tout simplement PHP. Très puissant, facile à apprendre.... gratuit !!! -
En Access basic tu ouvres le fichier comme un fichier texte, puis tu le parcours jusqu'à la fin en comptant le nombre de lectures.
-
Je ne sais pas si c'est ce que vous cherchez.... (c'est en php) <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <? $smiley[0] = array("oo","<img src=\"http://forum.zebulon.fr/html/emoticons/icon_eek.gif\">"); $smiley[1] = array(":D","<img src=\"http://forum.zebulon.fr/html/emoticons/icon_biggrin.gif\">"); $smiley[2] = array(":)","<img src=\"http://forum.zebulon.fr/html/emoticons/icon_lol.gif\">"); ?> <html> <head> <script language="JavaScript" type="text/javascript"> <!-- function addSmileyCode(code) { document.all.myTxt.value = document.all.myTxt.value + code; } //--> </script> <title>Untitled</title> </head> <body> <? $myTxt2 = ""; if ($validation == "Ok") { $myTxt2 = $myTxt; for($i=0;$i<=2;$i++) { $myTxt2 = str_replace($smiley[$i][0],$smiley[$i][1], $myTxt2); } }?> <table summary=""> <tr><td colspan="3">Cliquer sur un smiley</td></tr> <tr> <? for($i=0;$i<=2;$i++) { ?> <td onclick="addSmileyCode('<? print $smiley[$i][0] ?>');"><? print $smiley[$i][1] ?></td> <? } ?> </tr> </table> <form action="" method="post"> <textarea name="myTxt" cols="50" rows="20"><? print $myTxt ?></textarea> <br> <input type="submit" name="validation" value="Ok"> </form> <table border rules=none> <tr> <td><? print $myTxt2 ?></td> </tr> </table> </body> </html>
-
document.write(navigator.browserLanguage);
-
Ben TP sur windows je ne pense pas que cela existe.... Il y avait bien Borland Pascal pour windows mais c'est très vieux.... Le mieux c'est de passer à Delphi.
-
procedure TForm1.Button1Click(Sender: TObject); var a : int64; begin a := StrToInt64(Edit1.Text); end;