anim_text

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

anim_text

Message par Zorro »

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 Image

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


Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Avatar de l’utilisateur
Micoute
Messages : 2522
Inscription : dim. 02/oct./2011 16:17
Localisation : 35520 La Mézière

Re: anim_text

Message par Micoute »

Pas mal ! Merci pour le partage.
Microsoft Windows 10 Famille 64 bits : Carte mère : ASRock 970 Extreme3 R2.0 : Carte Graphique NVIDIA GeForce RTX 3080 : Processeur AMD FX 6300 6 cœurs 12 threads 3,50 GHz PB 5.73 PB 6.00 LTS (x64)
Un homme doit être poli, mais il doit aussi être libre !
Avatar de l’utilisateur
venom
Messages : 3071
Inscription : jeu. 29/juil./2004 16:33
Localisation : Klyntar
Contact :

Re: anim_text

Message par venom »

Oui merci.





@++
Windows 10 x64, PureBasic 5.73 x86 & x64
GPU : radeon HD6370M, CPU : p6200 2.13Ghz
Avatar de l’utilisateur
Zorro
Messages : 2185
Inscription : mar. 31/mai/2016 9:06

Re: anim_text

Message par Zorro »

:)
Image
Image
Site: http://michel.dobro.free.fr/
Devise :"dis moi ce dont tu as besoin, je t'expliquerai comment t'en passer"
Répondre