1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52
| <HTML>
<HEAD>
<TITLE> vocaliser le jour en cours </TITLE>
<HTA:APPLICATION
ApplicationName = "ProgDemo"
Id="ProgDemo"
>
</HEAD>
<SCRIPT language="VBScript" type="text/VBScript" >
Sub Window_Onload()
ResizeTo 500, 250 ' dimensionnement de la fenêtre HTA (largeur, hauteur)
MeTop = (Screen.availHeight - 250) / 2: MeLeft = (Screen.availWidth-500)/2
End sub
'------------------------------------------------------------------------------------------------------------------
Sub ProgDemo_OnDBlClick()
'ApplicationName = "ProgDemo" nom donné au HTA
'toutes Subs consernant les evenements du HTA comencera par son id donc "ProgDemo_" + nom de l'evenement
Dim Voix
Dim TblNomJour(7), MotDuJour(7), NumJour, NomJour
TblNomJour(0)="lundi"
TblNomJour(1)="mardi"
TblNomJour(2)="mercredi"
TblNomJour(3)="jeudi":
TblNomJour(4)="vendredi"
TblNomJour(5)="samedi"
TblNomJour(6)="dimanche":
MotDuJour(0) = "Du courage pour ce " 'lundi
MotDuJour(1) = "Bon " 'mardi
MotDuJour(2) = "Milieu de semaine ce " 'mercredi
MotDuJour(3) = "Dernière ligne droite, " 'jeudi
MotDuJour(4) = "Demain la quille, " 'vendredi
MotDuJour(5) = "Ouf " 'samedi
MotDuJour(6) = "Grace matinée? " 'dimanche
NumJour = (Weekday(date,2) - 1) ' <------- lundi = 1-1 ..... samedi = 7-1
NomJour = TblNomJour(NumJour) ' <------- 0 = lundi ..... 6 = dimanche
Set Voix = CreateObject("SAPI.SpVoice")
Voix.Speak MotDuJour(NumJOur) + NomJour
Set Voix = NotHing ' Nettoyage
Window.Close()
End Sub
'------------------------------------------------------------------------------------------------------------------
</SCRIPT>
<Body>
Démonstration simplifiée<br /><br />
Double cliquez pour écouter
</Body>
</HTML> |
Partager