4/5 (1 avis)
Vue 11 764 fois - Téléchargée 634 fois
<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>
15 janv. 2017 à 18:32
bravo
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.