Afficher La version de PB que vous utilisez !
Publié : lun. 29/mai/2017 13:24
Bonjour les pures (comme dirait Celtic 
),
Avec toutes les versions de pure basique que l'on peut utiliser, il serait bon d'indiquer dans votre signature sur le forum les infos adéquats ainsi que votre OS.
Mais quand on utilise une version de PB, parfois on change de compilateur ou de format x86 / x64 me direz vous, et vous auriez raison ^^.
Donc :
Voilà une petite procédure à lancer ou ajouter au début de votre code qui va insérer une petit ligne dans le presse papier que vous pourrez coller dans vos topics avant votre code afin que l'on ait pas à vous poser toujours THE QUESTION "Quelle version de PB utilises-tu ?"
),Avec toutes les versions de pure basique que l'on peut utiliser, il serait bon d'indiquer dans votre signature sur le forum les infos adéquats ainsi que votre OS.
Mais quand on utilise une version de PB, parfois on change de compilateur ou de format x86 / x64 me direz vous, et vous auriez raison ^^.
Donc :
Voilà une petite procédure à lancer ou ajouter au début de votre code qui va insérer une petit ligne dans le presse papier que vous pourrez coller dans vos topics avant votre code afin que l'on ait pas à vous poser toujours THE QUESTION "Quelle version de PB utilises-tu ?"
Code : Tout sélectionner
; Ar-S / 2017
Procedure.s DebugInfo()
m$="//// Informations ////"+Chr(10)+"[b]"
v$ = Str(#PB_Compiler_Version)
v1$ = Left (v$,1):v2$ = Right(v$,2):v$ = v1$+"."+v2$
m$ + "Version de PB : " + v$ + " - "
If #PB_Compiler_Processor = #PB_Processor_x86
m$ + "32 bits" : Else : m$ + "64 bits"
EndIf
m$+"[/b]"+Chr(10)
ProcedureReturn m$
EndProcedure
SetClipboardText(DebugInfo())
MessageRequester("Info","Information copiée dans le presse papier, vous pouvez la coller directement sur le forum."+Chr(10)+DebugInfo(),0) ; vous pouvez commenter cette ligne.
