PureBasic

J'ai trois fois l'âge qui tu avais quand j'avais ton âge, quand tu auras mon âge nous auront ensemble 72 ans quels âges avons-nous ?

(Moi) m
(Vous) v

Aujourd'hui, m = 3v

Quand v' = m; m' = m + (m - v)):
72 années = m' + v' = m + (m - v) + m = 3m - v = 3(3v) - v = 9v - v = 8v
v = 9

Aujourd ...

Ok, merci. Mais donc, le problème reste entier car, à moins que j'ai mal lu le code, la fonction Draw() est appelée sans argument alors qu'elle est définie avec un argument en entrée de type pointeur sur sRec. C'est ça que je n'arrive pas à comprendre. Et pourtant ça marche... Et c'est à ce niveau ...

Si vous pensez que ce n'est pas aléatoire ou que vous pensez que c'est prévisible, alors prédisez ce que cela fera et voyez si vous avez raison. Je ne parierais pas trop cependant, sinon vous pourriez perdre la ferme :wink: . Si vous n'êtes pas en mesure de le prédire, il semblerait que ce soit ...

J'ai commencé une conversion PB. Je travaille actuellement sur le texte et l'affichage graphique.

Il y a un peu de code qui est nécessaire. Comme Ollivier l'a mentionné, les fichiers utilisés avec la commande CHAIN sont nécessaires. Il s'agit de "GRAPHMOD" et "CALCUL". Le fichier "CALTRANS ...

Une Nème méthode utilisant un structuré pointer:

Global texte$=UCase("01020345f8c6deffcb")
;
opt=0
If #PB_Compiler_Debugger : opt=1 : EndIf

iter=1
If opt = 0 : iter = 100000000 : EndIf


; ;----------------------------------------------------------
; ;Debug "methode sph"
; k=ElapsedMilliseconds ...

Voir aussi:
Enumeration img 1
#IMG1
#IMG2
EndEnumeration


Structure Shap
idcurrent.l

px.l
py.l

wx.l
wy.l

Array Tab01.l(0,0)
EndStructure

*param.Shap = AllocateMemory(SizeOf(Shap))
Dim *param\Tab01(100,100)
*param\idcurrent = #IMG1
*param\wx = 100
*param\wy = 100
*param\Tab01(0,0 ...

Un moyen pour le désactiver ?

C'est simple :
Procedure FDS_Remplir(parameter)
Protected tmp.s
Protected Dim tbl.s(4)
Protected x.l

tbl(1) = "CB" : tbl(2) = "ESP" : tbl(3) = "CHQ" : tbl(4) = "NPY"
SendMessage_(GadgetID(#FDS_LST),#WM_SETREDRAW,#False,0)
For x = 1 To 9999
; SendMessage ...

Une question me taraude. Il me semble qu'une fois PB installé de façon classique, si on copie le dossier sur une clé il peut être lancé de n'importe ou non ?

Tout ce qui est nécessaire est de créer un raccourci qui exécute PureBasic avec le commutateur / PORTABLE.

J'ai un dossier organisé comme ...

Si je vous comprends bien, remplacez la procédure WndProc par celle-ci :

Procedure WndProc(hwnd, uMsg, wParam, lParam)
result = #PB_ProcessPureBasicEvents
Select uMsg
Case #WM_NOTIFY
*pnmh.NMHDR = lParam
Select *pnmh\code
Case #NM_CUSTOMDRAW
*LVCDHeader.NMLVCUSTOMDRAW = lParam
If ...

Une solution:
EnableExplicit

; Procedure.s type_string(value) ;return type as string for JSON values of null, array, or object or it's contents if a number, boolean or string
; Select JSONType(value)
; Case #PB_JSON_Null: ProcedureReturn "null"
; Case #PB_JSON_String: ProcedureReturn GetJSONString ...

SPH a écrit : @Demivec : on a la même méthode (je viens de te lire après avoir codé ma procedure...). Tu t'es basé sur la vidéo ?

Johnson & Story (1879) https://www.jstor.org/stable/2369492?se ... b_contents

Rendre le puzzle toujours résoluble:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Code : Crisot
; Graphisme : venom
; But de ce code : reduire encore le code de SPH :)
; Code : Demivec
; But de ce code: rendre le puzzle toujours résoluble.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Procedure Panic ...

venom a écrit :

Kwai chang caine a écrit :Bon...étonnant qu'il bloque la souris et il n'y a pas l'icone pour la compilation

Qu'entend tu par "il n'y a pas l'icône pour la compilation ?

Les paramètres du compilateur pour "puzzle slide.pb" dans le zip indiquent d'utiliser l'icône "..\ICONS\puzzle slide.ico".

Une manière:


; new position of the vector cursor position after drawing ;nouvelle position de la position du curseur vectoriel après le dessin
EnumerationBinary
#VCP_MoveToEnd ;add text width to starting cursor position ;ajouter la largeur du texte à la position de départ du curseur
#VCP ...

Qu'est-ce que «Visual Ascii»? GIF n'affiche pas toutes les valeurs hexadécimales.

Je soupçonne que cela a à voir avec le mélange de l'encodage UTF8 avec l'encodage Unicode16.