[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>
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.