écrire à l'envers...comment ça passe?

Partagez votre expérience de PureBasic avec les autres utilisateurs.
Avatar de l’utilisateur
sevny
Messages : 7
Inscription : mer. 10/janv./2018 14:20

écrire à l'envers...comment ça passe?

Message par sevny »

Code : Tout sélectionner

; un tout petit prog qui écrit à l'envers parmi d'autres 
; plus ou moins ludiques... avec purebasic mac. 

;-------------------------------------------------------------
;INVERSION                                                                                                                                              
Global invMinus$= "ɐqɔpǝɟɓɥıՐʞյɯuodbɹsʇnʌʍxɦz"                                                   
Global invMajus$= "ꓯꓭꓛꓷꓱꓞꓨHIꓩꓘꓶWNOꓒÒꓤSꓕꓵꓥMX⅄Z"  

Procedure.s Inversion(text$)
  Define Resultat$, invCAR$, CAR$, Valeur.c, iText.c
  If text$=#Empty$: ProcedureReturn "ɓuıɥʇou":EndIf 
  
  For iText = 1 To Len(text$)
      CAR$= Mid(text$, iText, 1): Valeur= Asc(CAR$): invCAR$= ""
        
          Select Valeur
          Case $41 To $5A ;UPPERCASE
          invCAR$= Mid(invMajus$, Valeur-$40, 1)
          
          Case $61 To $7A ;lowercase
          invCAR$= Mid(invMinus$, Valeur-$60, 1)                                                  
          
          Case Asc(",") ;virgule
          invCAR$= "'"
          Case Asc("'") ;apostrophe
          invCAR$= ","
          Case Asc("?") ;interrogation
          invCAR$= "¿"
          Case $20,$2E,$2D;chars do not change
          invCAR$= CAR$
          
          Default ;ANOMALIE
          invCAR$= " " 
          
          EndSelect        
      Resultat$= invCAR$+ Resultat$
  Next iText
  
  ProcedureReturn Resultat$
EndProcedure 
;-------------------------------------------------------------
;exemple
Debug Inversion("I don't care if the WORLD turns upside down") 
; ;uʍop ǝpısdn suɹnʇ ꓷꓶꓤOM ǝɥʇ ɟı ǝɹɐɔ ʇ,uop I
;-------------------------------------------------------------
MacBook Air M1 2020 PB 6.00 LTS
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: écrire à l'envers...comment ça passe?

Message par Ar-S »

Bonjour,
Merci de mettre vos codes entre balises CODE
J'ai corrigé
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Ollivier
Messages : 4197
Inscription : ven. 29/juin/2007 17:50
Localisation : Encore ?
Contact :

Re: écrire à l'envers...comment ça passe?

Message par Ollivier »

Imagination : 20/20 perfect !

Évolution possible : les 3 lettres "S", "Z" et "N" n'ont pas encore trouvé leur image inversée...

Meilleurs voeux
Avatar de l’utilisateur
Ar-S
Messages : 9539
Inscription : dim. 09/oct./2005 16:51
Contact :

Re: écrire à l'envers...comment ça passe?

Message par Ar-S »

Ajout du N n, du S s et ajout du point sur le i min
Rien pour le Z :)

Code : Tout sélectionner

Global invMinus$= "ɐqɔpǝɟɓɥᴉՐʞյɯuodbɹƨʇnʌʍxɦz"                                                   
Global invMajus$= "ꓯꓭꓛꓷꓱꓞꓨHIꓩꓘꓶWИOꓒÒꓤƧꓕꓵꓥMX⅄Z"  
~~~~Règles du forum ~~~~
⋅.˳˳.⋅ॱ˙˙ॱ⋅.˳Ar-S ˳.⋅ॱ˙˙ॱ⋅.˳˳.⋅
W11x64 PB 6.x
Section HORS SUJET : ICI
LDV MULTIMEDIA : Dépannage informatique & mes Logiciels PB
UPLOAD D'IMAGES : Uploader des images de vos logiciels
Avatar de l’utilisateur
sevny
Messages : 7
Inscription : mer. 10/janv./2018 14:20

Re: écrire à l'envers...comment ça passe?

Message par sevny »

j'ai un petit problème avec le nouveau i et la police Arial Narrow (macos), il est décalé vers le haut...
MacBook Air M1 2020 PB 6.00 LTS
Répondre