anim_text
Publié : dim. 05/juin/2016 17:31
tout a l'heure j'ai vu une pub ou les lettres de l'anonceur s'affichaient
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
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
