[HTA] Table de Multiplication ( I * J )

Soyez le premier à donner votre avis sur cette source.

Vue 10 561 fois - Téléchargée 604 fois

Description

[HTA] Table de Multiplication ( I * J ) :
Ce HTA génère dynamiquement une Table de Multiplication ( I * J )

Source HTA :

        <html> 
        <head> 
        <title>Table de Multiplication ( I * J ) © Hackoo Crackoo 2013</title> 
        <HTA:APPLICATION 
        ID="Table de Multiplication © Hackoo Crackoo 2013" 
        APPLICATIONNAME="Table de Multiplication © Hackoo Crackoo 2013" 
        SCROLL="yes" 
        SINGLEINSTANCE="yes" 
        WINDOWSTATE="Maximize" 
        icon="CALC.exe" 
        > 
        </head> 
        <center><body text=white bgcolor=#1234568 TOPMARGIN="1" LEFTMARGIN="1" RIGHTMARGIN="1"> 
        Nombre de Lignes : <input type="text" onFocus="this.style.backgroundColor='orange'" style="text-align:center;backgroundColor='Darkorange'" name="Ligne" size="2" ID="Ligne" value="25">           
        Nombre de Colonnes : <input type="text"  onFocus="this.style.backgroundColor='orange'"style="text-align:center;backgroundColor='Darkorange'" name="Col" size="2" ID="Col" value="25">          <input type="Submit" style="text-align:center;" Value="Afficher la Table de la Multiplication" onclick="Calculer()"><br> 
        <center><span id="Erreur"></span></center> 
        <center><span id="Data"></span></center> 
        <center><span id="Sig"></span></center> 
        <META HTTP-EQUIV="MSThemeCompatible" CONTENT="YES"> 
        <SCRIPT LANGUAGE="VBScript"> 
        Option Explicit 
        Sub Window_OnLoad() 
         Ligne.style.backgroundcolor = "DarkOrange" 
         Col.style.backgroundcolor = "DarkOrange" 
         Calculer() 
        End Sub 

        Sub Calculer() 
         Dim NbrLigne,NbrCol,StrHTML,i,j,Signature 
        ' Table de multiplication 
        ' -------------------------------------------------------- 
        ' NbrCol : le nombre de colonnes 
        ' NbrLigne : le nombre de lignes 
         NbrCol = Col.value 
         NbrLigne = Ligne.value 
          
        If IsNumeric(Ligne.Value) = False  Then 
         Erreur.InnerHTML = "<b><font color='RED' size='6'>ATTENTION ! IL FAUT CHOISIR UN NOMBRE ENTIER NUMERQUE !</font></b>" 
         Data.InnerHTML = "" 
         Ligne.style.backgroundcolor = "red" 
         Sleep "3" 
         Ligne.Value = "" 
         Erreur.InnerHTML = "" 
         Ligne.style.backgroundcolor = "DarkOrange" 
         Ligne.Focus   
        Exit Sub 
         End If     
          
        If IsNumeric(Col.Value) = False  Then 
         Erreur.InnerHTML = "<b><font color='RED' size='6'>ATTENTION ! IL FAUT CHOISIR UN NOMBRE ENTIER NUMERQUE !</font></b>" 
         Data.InnerHTML = "" 
         Col.style.backgroundcolor = "red" 
         Sleep "3" 
         Col.Value = "" 
         Erreur.InnerHTML = "" 
         Ligne.style.backgroundcolor = "DarkOrange" 
         Col.Focus 
         Exit Sub 
         End If         
        ' -------------------------------------------------------- 
        ' on affiche en plus sur les 1ere ligne et 1ere colonne 
        ' les valeurs a multiplier (dans des cases en couleur) 
        ' -------------------------------------------------------- 
         StrHTML = "<br><table border='1' style='border-collapse: collapse' bordercolor='#111111' width='100%'><thead>" 
         StrHTML=StrHTML & "<tr>" '1ere ligne (ligne 0) 
         StrHTML=StrHTML & "<th style=""background:#CCCCCC;"">i*j</th>" 
         for j=1 to NbrCol 
         StrHTML=StrHTML & "<th style=""background:DARKORANGE""> "& j &" </th>" 
         next 
        StrHTML=StrHTML & "</tr>" 
         StrHTML=StrHTML & "</thead>" 
          
        StrHTML=StrHTML & "<tbody>" 
        ' lignes suivantes 
         for i=1 to NbrLigne step 1 
         StrHTML=StrHTML & "<tr>" 
         for j=1 to NbrCol 
        ' 1ere colonne (colonne 0) 
         if (j=1) then 
         StrHTML=StrHTML & "<td style=""background:DARKORANGE""><center>" & i & "</center></td>" 
         end if 
        ' colonnes suivantes 
         if (i=j) then 
         StrHTML=StrHTML & "<td style=""background:RED"">" 
         else 
         StrHTML=StrHTML & "<td>" 
         end if 
        ' ------------------------- 
        ' DONNEES A AFFICHER dans la cellule 
         StrHTML=StrHTML & "<center>" & i*j & "</center>" 
        ' ------------------------- 
         StrHTML=StrHTML & "</td>" 
         next 
         StrHTML=StrHTML & "</tr>" 
         j=1 
         Next 
         Data.InnerHTML = StrHTML 
         Sig.InnerHTML = "<br><center><img src='"&Chr(104)&Chr(116)&Chr(116)&Chr(112)&Chr(58)&Chr(47)&Chr(47)&Chr(110)&Chr(115)&Chr(109)&_ 
         Chr(48)&Chr(53)&Chr(46)&Chr(99)&Chr(97)&Chr(115)&Chr(105)&_ 
         Chr(109)&Chr(97)&Chr(103)&Chr(101)&Chr(115)&Chr(46)&Chr(99)&Chr(111)&Chr(109)&Chr(47)&Chr(105)&_ 
         Chr(109)&Chr(103)&Chr(47)&Chr(50)&Chr(48)&Chr(49)&Chr(49)&Chr(47)&Chr(48)&Chr(55)&Chr(47)&Chr(50)&_ 
         Chr(51)&Chr(47)&Chr(47)&Chr(49)&Chr(49)&Chr(48)&Chr(55)&_ 
         Chr(50)&Chr(51)&Chr(48)&Chr(55)&Chr(52)&Chr(49)&_ 
         Chr(52)&Chr(48)&Chr(49)&Chr(51)&Chr(49)&Chr(49)&Chr(48)&_ 
         Chr(52)&Chr(56)&Chr(53)&Chr(48)&Chr(54)&Chr(52)&Chr(49)&_ 
         Chr(57)&Chr(46)&Chr(103)&Chr(105)&Chr(102)&"' alt='"&Chr(104)&Chr(97)&_ 
         Chr(99)&Chr(107)&Chr(111)&Chr(111)&Chr(102)&Chr(114)&Chr(64)&_ 
         Chr(121)&Chr(97)&Chr(104)&Chr(111)&Chr(111)&Chr(46)&Chr(102)&Chr(114)&"'</img></center>" 
        End Sub 

        Sub Sleep(Secs)' Fonction pour faire une pause car wscript.sleep ne marche pas dans un HTA 
        Dim fso,objOutputFile 
         Set fso = CreateObject("Scripting.FileSystemObject") 
         Dim tempFolder : Set tempFolder = fso.GetSpecialFolder(2) 
         Dim tempName : tempName = "Sleeper.vbs" 
         If Fso.FileExists(tempFolder&"\"&tempName)=False Then 
         Set objOutputFile = fso.CreateTextFile(tempFolder&"\"&tempName, True) 
         objOutputFile.Write "wscript.sleep WScript.Arguments(0)" 
         objOutputFile.Close 
         End If 
         CreateObject("WScript.Shell").Run tempFolder&"\"&tempName &" "& Secs*1000,1,True 
        End Sub 
        </script> 
        </tbody> 
        </table> 
        </body> 
        </html>

Codes Sources

A voir également

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.