PureBasic

Code : Tout sélectionner

 Texte$ = "Bonjour"
  *Texte = @Texte$ ;*Texte a pour valeur l'adresse où réside la chaîne de caractères en mémoire
  *Pointeur.String = @*Texte ; *Pointeur pointe sur *Texte
  Debug *Pointeur\s ; Lit la chaîne de caractères qui réside à l'adresse écrite en *Pointeur (c-a-d @Texte$)

Code : Tout sélectionner

myInt.i = 10

*PmyInt = @myInt

Debug *PmyInt

Code : Tout sélectionner

Structure Entier
  value.i  
EndStructure

myInt.i = 10

*PmyInt.Entier = @myInt
*PmyInt2       = @myInt

Debug *PmyInt\value
Debug PeekI(*PmyInt2)

Code : Tout sélectionner

; Define *ok.l 		; Erreur car un pointeur ne peut être q'un integer
Define.l *ok			; On crée un pointeur integer vers une variable long façon 1
Define.long *ptr	; On crée un pointeur façon 2
Define.l n				; Et un entier long "n"

n=10 				; A partir d'ici, on a n = 10  
*ptr = @n 	; *ptr contient maintenant l'adresse de la variable n  
*ptr\l + 5  ; On peut modifier directement la valeur de n  et n = 15
						

Debug n
Debug *ptr
Debug *ptr\l

Code : Tout sélectionner

Procedure SomeStuff (*Byref.Double)
		*Byref\d = 1.5
EndProcedure

Define.d T
SomeStuff(@T)
Debug StrD(T, 8)

Code : Tout sélectionner

Procedure.s Test(*Path)
	Protected *s.string = @*Path
	Debug *s\s
EndProcedure

file.s ="ABCD"
	
Debug Test(@file)

Code : Tout sélectionner

Global *newMemory
Procedure GetMemory(*MyMemory.Integer)
	*MyMemory\i = AllocateMemory(10000)
EndProcedure
Debug "*NewMemory BEFORE: " + Str(*newMemory)
GetMemory(@*newMemory)
Debug "*newMemory AFTER: " + Str(*newMemory)
If *newMemory
	FreeMemory(*NewMemory)
EndIf

Code : Tout sélectionner

myInt.i = 10

*PmyInt = myInt

Debug *PmyInt

Code : Tout sélectionner

; Based on book : Algorithmes et structures de données by Michel Divay (C programming)
; Coded and adapted by threedslider 09.07.2022

Structure Pos_AB
  NX.i
  NY.i
EndStructure

Procedure Avance(L.i, X.i, Y.i, Angle.i, *pointer.Pos_AB)
  i.i = 0
 
  *pointer\NX = X + Int(L * Cos (Angle*2*PI / 360.0))
  
  *pointer\NY = Y - Int(L * Sin (Angle*2*PI / 360.0))
  
 
  Len = L/15
  
  
  For i=0 To Len
    LineXY(X+i, Y, *pointer\NX+i, *pointer\NY, RGB(255,0,0)) 
  Next
  
EndProcedure

Procedure Arbres(H.i, X.i, Y.i, Angle.i)
  Define.Pos_AB variable_AB
  variable_AB\NX = 0
  variable_AB\NY = 0
  N.i 
  I.i
  Dev.i
  rr1.i = Random(H)
  Rad.i = rr1 % H
  
  H = Int(H + 0.1 * rr1)
    
  Avance(H, X, Y, Angle, @variable_AB)
  H = 2*H / 3
    
  If H > 1
    rr2.i = Random(H)
    N = rr2 + 2
    Dev = 180/N
    For I = 1 To N
        Arbres(H, variable_AB\NX, variable_AB\NY, Angle - 90 - Dev/2 + I*Dev)
    Next
  EndIf       
EndProcedure

If OpenWindow(0, 0, 0, 600, 600, "Tree lines in recursive", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
    If CreateImage(0, 600, 600) And StartDrawing(ImageOutput(0))
      
      Arbres(10,300,400,90) 
           
      StopDrawing() 
      ImageGadget(0, 0, 0, 200, 200, ImageID(0))
    EndIf
    
    Repeat
      Event = WaitWindowEvent()
    Until Event = #PB_Event_CloseWindow
EndIf

Code : Tout sélectionner

NombreDeWord.l = 55


*Memory = AllocateMemory( NombreDeWord * SizeOf(Word) ) ; on alloue de la mémoire CONTIGÜE



; On stocke ce que l'on veut dedans : 

; Au debut de la mémoire on écrit 2542 dans un LONG
PokeL(*Memory ,2542)

; On stock la valeur de pi après le LONG
PokeF(*Memory + SizeOf(Long) , #PI ) 

; Du texte
PokeS(*Memory + SizeOf(Long) + SizeOf(Float) , "Hello memory!")

;un double
PokeD(*Memory + SizeOf(Long) + SizeOf(Float) + (StringByteLength("Hello memory!")+2), 9.64532145)


; la mémoire ressemble à cela : 
 
; [INT][FLOAT][     TEXTE     ][   DOUBLE    ].......................................... 
; ↑ 
; *Memory



; la lecture 

Debug PeekL(*Memory)
Debug PeekF(*Memory + SizeOf(Long))
Debug PeekS(*Memory + SizeOf(Long) + SizeOf(Float) )
Debug PeekD(*Memory + SizeOf(Long) + SizeOf(Float)  + (StringByteLength("Hello memory!")+2) )