Le scarabetiseur !!
Publié : dim. 23/oct./2005 23:04
oui comme vous le savez Scaraber est le roi du melange des lettres
dans ses posts !!
je me suis permis d'encoder son cerveau
ce petit programme en console permet en ecrivant normalement dedans
de "scarabetiser" la phrase entrée pour pouvoir ecrire dans son language
a la fin du traitement , il suffit de faire control+V pour coller le resultat
dans le post adresse a Scaraber !
du coup , en parlant son language , il comprend mieux ce qu'on dit
il me semble que les fonctions lier au clipboard deconne !!
je suis pas sur que ClearClipboard() efface le cliboard !
dans ses posts !!
je me suis permis d'encoder son cerveau


ce petit programme en console permet en ecrivant normalement dedans
de "scarabetiser" la phrase entrée pour pouvoir ecrire dans son language
a la fin du traitement , il suffit de faire control+V pour coller le resultat
dans le post adresse a Scaraber !
du coup , en parlant son language , il comprend mieux ce qu'on dit

; mis en Version purebasic 4.00
Declare.s scaraber(Chaine$)
CallDebugger
OpenConsole ()
recommence:
text$= ""
resultat$= ""
Chaine$= ""
PrintN ( "entrez la phrase a Scaraberiser " )
text$= Input ()
For u=1 To Len (text$)
Chaine$= StringField (text$, u, " " )
mot$=scaraber(Chaine$)
resultat$=resultat$+ " " +mot$
Next u
ClearClipboard ()
SetClipboardText (resultat$) ; copie la prase dans le press papier
PrintN ( "" )
PrintN ( "" )
PrintN ( "maintenant un ctrl+v dans le forum pour coller le resultat ! " )
PrintN ( "" )
PrintN ( "ensuite appuis sur return pour recommencer" )
text$= Input ()
Goto recommence
Procedure.s scaraber(Chaine$)
de= Random (6)+1
If de<4
For t=1 To Len (Chaine$) Step 2
car1$= Mid (Chaine$,t,1)
car2$= Mid (Chaine$,t+1,1)
resul$=car2$+car1$
resultat$= resultat$+resul$
Next t
Else
resultat$=Chaine$
Chaine$= ""
EndIf
ProcedureReturn resultat$
EndProcedure
; ya plus qu'a faire un ctrl+v dans le forum !!
il me semble que les fonctions lier au clipboard deconne !!
je suis pas sur que ClearClipboard() efface le cliboard !
