de façon un peu particuliere
j'ai eu envie de refaire le truc en PB
voici ce que ça donne :
la procedure prends 2 parametres
le text a afficher (sans virgules !! )
le nombre d’occurrences avant affichage
c'est tout simple mais je trouve ça cool
Code : Tout sélectionner
;***********************************************
;Titre :anim_text
;Auteur : Zorro
;Date :05/06/2016
;Heure :18:26:01
;Version Purebasic : PureBasic 5.42 LTS (Windows - x86)
;Version de l'editeur :EPB V2.62
; Libairies necessaire : Aucune
;***********************************************
Declare.s anim_texte(texte.s,nbr)
texte.s= anim_texte("Purebasic is Cool",8) ; le text a afficher , le nombre d'occurence avant affichage du text en clair
If OpenWindow(0, 0, 0, 300, 50, "Les options de StringGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
Repeat
if Flag=0
For i=1 to CountString(texte.s,",")+1
textGadget(0, 8, 10, 250, 20, stringfield(texte.s,i,","),#PB_Text_Border)
delay(100) ; augmenter le delay change la façon dont ça s'affiche
Next i
Flag=1
Endif
Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf
Procedure.s anim_texte(texte.s,nbr)
; By Zorro
; le text a afficher , le nombre d'occurence avant affichage du text en clair
Dim champ.s(len(texte.s)-1)
For i=1 to len(texte.s)
champ.s(i-1)=mid(texte.s,i,1)
Next i
for A=1 to nbr
RandomizeArray(champ.s())
For i=0 to ArraySize(champ.s())
sortie.s=sortie.s+champ.s(i)
Next i
sortie.s=sortie.s+","
If a=nbr-1
sortie.s=sortie.s+texte.s
Break 1
Endif
Next A
ProcedureReturn Sortie.s
Endprocedure