PureBasic

nico a écrit :En fait le passage des mots de fonctions fait toute la puissance des macros:

Procedure Multiplication(a.l,b.l)
  ProcedureReturn a*b
EndProcedure 

Procedure Addition(a.l,b.l)
  ProcedureReturn a+b
EndProcedure 

Macro Multiple_operation(fonction,param1, param2)
  fonction#(param1,param2)
EndMacro 

Debug Multiple_operation(Addition,5,7)

Debug Multiple_operation(Multiplication,5,7)

C'est exactement ce que je demandais à Fred concernant le support des noms de fonctions pour les macros, ça peut être tres utile dans, par exemple, l'émulation d'un processeur : il suffit de définir les noms de fonction de type OP_## où ## deviendra invariablement OP_AND, OP_XOR, OP_WRITEMEM etc ... ça permet une certaine souplesse dans la saisie de code rébarbatif.
En tout cas, PB a avancé à grand pas car bien que les différences ne soient pas visibles, le fond, lui l'est et permet moultes astuces terribles.

Oué PB semble être devenu encore plus puissant et plus souple...

la Cross-compil est prevu ?

Le Cross-Compil mais qu'est-ce donc?

CameleonTH a écrit :Le Cross-Compil mais qu'est-ce donc?

Compilateur croisé

Un compilateur croisé (en anglais cross compiler) est un programme capable de traduire un code source en code objet ayant un environnement d'exécution (architecture matérielle, système d'exploitation) différent de celui où la compilation est effectuée. Ces compilateurs sont principalement utilisés en informatique industrielle.

en clair la possibilité de programmer sur ton pc , et de compiler pour un MAC, Linux , ou que sais-je !!

sa serai super sa !

Dobro a écrit :la Cross-compil est prevu ?

Il me semble que j'avais lu que oui sur le forum Anglais, et que ça venait de Fred ou Freaks il y a quelques temps mais je ne suis pas sur du tout , en tout cas ça pourrais être terrible

C'est prevu, mais pas a court terme car ca demande plutot pas mal de changement. A voir donc

.

freddix: c'est vrai qu'il y'a un petit residu en fin de procedure, j'avais essayé de le virer mais ca necessité des hacks un peu trop crade a mon gout, donc pour l'instant je laisse comme ca. Mais un jour ca sera virer

. Ca change quand meme pas mal entre les procedures v3.94 et v4.00

.

Tellement absorbé par regarder les nouveautés, je n'arrive pas à poster mes fellicitations à l'équipe de PUREBASIC LONGUE VIE !!!

Je m'arrette devant un problème tout simple, ce code ne marche plus

et je reste

alors si vous aviez une piste pour me dé

,

Code : Tout sélectionner

Procedure.s codage(texte$)
    texte_coder$=""
    For i=1 To Len(texte$)
        char$=Mid(texte$,i,1)

        If Asc(char$)>=30 And Asc(char$)<=127
            
            nv_char$= Chr(Asc(char$)+80)
        EndIf
        
        texte_coder$=texte_coder$+nv_char$
    Next
    ProcedureReturn texte_coder$
EndProcedure

Procedure.s DeCodage(texte$)
    texte_decoder$=""
    For i=1 To Len(texte$)
        char$=Mid(texte$,i,1)
        If Asc(char$)>=110 And Asc(char$)<=207
            char$=Chr(Asc(char$)-80)
            
        EndIf
        texte_decoder$=texte_decoder$+char$
    Next
    ;Debug texte_decoder$
    ProcedureReturn texte_decoder$
EndProcedure

Debug DeCodage(codage("abcdefgh"))

@Droopy : c'est la mise à jour de ta lib qui doit arrivé un lundi ????

Juste une boutade pour te remercier encore pour ta fabuleuse lib et que j'attends apres pour pouvoir corriger mes progs....

Merci d'avance.

Ô Plaisir ecstatique !
Ô Joie surannée !
Ô Félicité !
Purebasic 4 est arrivé !

Je ne suis pas prêt de me coucher !

Merci Fred! Je suis super excité! Yahoo!!!

vivement la version finale
mais je suis content de voir que la 4 est sorti

Je m'arrette devant un problème tout simple, ce code ne marche plus Shocked

j'ai regardé ! pour moi c'est un Gros Bug bien nourri !

Olivier, c'est bien de coder quelque chose mais c'est encore mieux de savoir le debugger.

Alors au boulot, parce que si tu laisses tomber un prog de 23 lignes t'as pas fini d'être emm*****.

N'est-ce arrivé qu'a moi? parmis les appels de fonctions de mon code, un foire et le message d'erreur est.....

---------------------------
PureBasic
---------------------------
Line 128: A array name need to start with a character (a-z, _ or *)
---------------------------
OK
---------------------------

ma fonction s'appelle redim() et elle est appellée depuis une autre fonction.

je regrette ya bien un problemm !!!

dans un premier temps les code ascii sont augmenté de 80

au decodage , le meme code ascii augmenté de 80 de retrouve avec une valeur de -79 !!!!

ya un blemm !

PureBasic

PureBasic 4.00 - Beta 1