[Ex] Exemple d'utilisation SplashTextOn

[Gollem]

Bonjour à tous,
Je vous propose un petit script pour affiché un fichier texte via la fonction SplashTextOn.
Usage : Affichage de mémo, d'un log,... apparaît même sur le screen saver.
Version de base à améliorer .

► Afficher le texte

Code : Tout sélectionner

; Program :     Exemple d'utilisation SplashTextOn
; File Used :   "c:\memo.txt"
;               Contient 10 lignes de mémo format texte.
;               Ne pas oublier de le créer avec 10 lignes !
; Description : Use to help remember or flash informations
;
; Déclarations des includes
#include "Array.au3"             ; pour la fonction _ArrayToString()
#include "file.au3"

; Déclaration des Variables
dim $ar[11]
dim $incre = 1
dim $line
dim $fil

;
; Lecture du fichier memo.txt vers un tableau $AR
; contenant les informations texte à afficher
; 

$fil = FileOpen ("C:\memo.txt", 0)
                                         
 If $fil = -1 Then
    MsgBox(0, "Error", "Unable to open memo.txt file.")
    Exit
EndIf

; Lecture de 10 lignes du fichier ( memo.txt ) vers Tableau $AR 

for $incre = 1 to 10
    $line = FileReadLine($fil)
    $ar[$incre] = $line 
Next

FileClose($fil)

; Boucle sans fin pour l' affichage du mémo toutes les 2 minutes
; rem :  _ArrayToString permet d'imprimer l'ensemble ou partie du tableau $AR
;       necessite #include "Array.au3" (standard include)
;       paramètres intéressant : type de fenètre windows, type de caractère et grandeur

while 1

    SplashTextOn("Title", (_ArrayToString($Ar, @lf, 1, 10)),500, 300, 200, 200, 5, "", 14)       
                           
    Sleep(7*1000)         ; affichage pendant 7 secondes
    SplashOff()           ; Extinction du splash
    sleep (2*60*1000)     ; pause de 2 minutes ou plus suivant les goûts

WEnd

Bonne Journée à tous,
Gollem.

[jbnh]

Sujet déplacé dans la catégorie appropriée