Forums PureBasic - Français
https://www.purebasic.fr/french/
Le dossier SDK montre comment faire ( dossier visualc ) je crois , en C le principe est le même, mais pas besoin de fasm, les compilos C/C++ génère très bien les .lib .objJohnJohnsonSHERMAN a écrit :Merci beaucoup G-Rom, ca ouvre un tas de possibilités
Du coup, si j'ai bien compris, on peut grâce à cela écrire des libs en C pour PB.... Intéressant
Pourquoi le corbeau ? tu fait référence a quoi ?Zorro a écrit :
Génie ? je ne sais pas, merci quand mêmeomega a écrit :Bravo G_Rom (même si je ne suis pas sûr d'avoir bien compris, enfin pas à 100%). Vous êtes un génie G_Rom, merci encore !
un corbeau qui a un Fromage dans le Bec ....G-Rom a écrit :Pourquoi le corbeau ? tu fait référence a quoi ?
omega te dit pour résumer :omega a écrit :Vous êtes un génie G_Rom, merci encore !
....noooon pas chirac !!! 
) ou j'ai eu l'idée de demander "cake" chose sur ce langage dans ce forumJ'avais compris pour la fable, mais pas fait le rapprochement avec le com d'Omega.Zorro a écrit :un corbeau qui a un Fromage dans le Bec ....G-Rom a écrit :Pourquoi le corbeau ? tu fait référence a quoi ?
aucune culture !!
Merci, mais..., Dieu ? je suis devenu le Dieu de dieu alors, Fred à petit niveau en prog, comme au loto, il a tapé du bytecode a la main de façon random, ca lui a sorti un précompilateur, uniquement de la chance pour le coup ^^. il aurais mieux fait de jouer au lotoKwai chang caine a écrit :Moi GRom, je l'admire parce qu'il a atteint un niveau bien supérieur à une très grande partie de nous tous, et de ce que je sais juste par la force des ses petits poings musclés
Aussi parce qu'il a parlé à dieu !!!! il a même codé un peu avec lu
http://www.eternels-eclairs.fr/Poeme-Je ... es-MaitresLasource a écrit : L'Âne et ses Maîtres
L'Âne d'un Jardinier se plaignait au destin
De ce qu'on le faisait lever devant l'Aurore.
Les Coqs, lui disait-il, ont beau chanter matin ;
Je suis plus matineux encor.
Et pourquoi ? Pour porter des herbes au marché.
Belle nécessité d'interrompre mon somme !
Le sort de sa plainte touché
Lui donne un autre Maître ; et l'Animal de somme
Passe du Jardinier aux mains d'un Corroyeur.
La pesanteur des peaux, et leur mauvaise odeur
Eurent bientôt choqué l'impertinente Bête.
J'ai regret, disait-il, à mon premier Seigneur.
Encor quand il tournait la tête,
J'attrapais, s'il m'en souvient bien,
Quelque morceau de chou qui ne me coûtait rien.
Mais ici point d'aubaine ; ou, si j'en ai quelqu'une,
C'est de coups. Il obtint changement de fortune,
Et sur l'état d'un Charbonnier
Il fut couché tout le dernier.
Autre plainte. Quoi donc ! dit le Sort en colère,
Ce Baudet-ci m'occupe autant
Que cent Monarques pourraient faire.
Croit-il être le seul qui ne soit pas content ?
N'ai-je en l'esprit que son affaire ?
Le Sort avait raison ; tous gens sont ainsi faits :
Notre condition jamais ne nous contente :
La pire est toujours la présente.
Nous fatiguons le Ciel à force de placets.
Qu'à chacun Jupiter accorde sa requête,
Nous lui romprons encor la tête.
Mais non, Michou.G est au dessus de tout cela.omega a écrit :@Zorro
J'espère que tu n'es pas jaloux cher Michel??
Code : Tout sélectionner
ProcedureDLL.s StrMask(Value$, CurrencySymbol = "€")
ProcedureReturn Value$ + " " + CurrencySymbol$
EndProcedure
Comment faire ?Code : Tout sélectionner
ProcedureDLL.s StrMask(Value$)
ProcedureReturn Value$ + " €"
EndProcedure
ProcedureDLL.s StrMask2(Value$, CurrencySymbol$ = "€")
ProcedureReturn Value$ + " " + CurrencySymbol$
EndProcedure
Code : Tout sélectionner
StrMask, String, [String], (Value$, [CurrencySymbol$]) - Your description
String | StdCall | UnicodeCode : Tout sélectionner
ASM
0
OBJ
2
; 2 Dependancies
String
Memory
; Your help file
HelpFileName
; Procedure summary
StrMask, String, [String], (Value$ [, CurrencySymbol$]) - Your IDE help description
String | StdCall | Unicode
Code : Tout sélectionner
ProcedureDLL.s StrMask(Value$, CurrencySymbol = "€", Negative.i = #True)
ProcedureReturn Value$ + " " + CurrencySymbol$
EndProcedureCode : Tout sélectionner
ProcedureDLL.s StrMask(Value$)
ProcedureReturn Value$ + " €"
EndProcedure
ProcedureDLL.s StrMask2(Value$, CurrencySymbol$ = "€")
ProcedureReturn Value$ + " " + CurrencySymbol$
EndProcedure
ProcedureDLL.s StrMask3(Value$, CurrencySymbol$ = "€", Negative.i = #True)
Protected Buffer.s
If Negative = #True
Buffer = "-" + Value$ + " " + CurrencySymbol$
EndIf
ProcedureReturn Buffer
EndProcedure
Code : Tout sélectionner
StrMask, String,[String],[Long], (Value$ [, CurrencySymbol$ [, Negative]]) - Your IDE help description
String | StdCall | Unicode
Code : Tout sélectionner
Debug StrMask("1000")
Debug StrMask("1000", "F")
Debug StrMask("1000", "F", #True)