PureBasic

Code : Tout sélectionner

;Caractéristique des paramètres d'un Composant
Structure Composant
type.i						;Type de composant: 1=Résistance 2=Condensateur...
Nom.Txt						;Nom du composant:	Résistance
Num.i 						;Numéro d'ordre du composant dans le Montage 
Val.Txt						;Valeur électronique:
Unite.Txt						;Unité Volt/Ohms...
Pos.Pos						;Position X, Y, R du Composant dans le Montage ou la Planche
Couleur.i						;Couleur du Composant
Graphique.s					;Nom du fichier graphique
NConex.i						;Nombre de connexion du composant: 2 à déterminer...
NewList C.Connexion()		;Liste des Connexion du composant
EndStructure

Code : Tout sélectionner

Structure Box
    X.i
    Y.i
    W.i
    H.i
EndStructure
Structure Draw
    List myBox.Box()
    Map myCircle.Box()
    Array size.i(1)
EndStructure
Global NewList myDraw.Draw()
AddElement(myDraw())
With myDraw()
    AddElement(\myBox())
    \myBox()\X=0
    \myBox()\Y=10
    \myBox()\W=80
    \myBox()\H=20
    AddMapElement(\myCircle(),"1")
    \myCircle()\X=0
    \myCircle()\Y=10
    \myCircle()\W=80
    \myCircle()\H=20
    \size(0)=50
    \size(1)=40
EndWith

Code : Tout sélectionner

Exemple: Objet Dynamique

  Structure Personne
    Nom$
    Age.l
    List Amis$()
  EndStructure

  Jean.Personne
  Jean\Nom$ = "Jean"
  Jean\Age   = 23
  
  ; Ajoutons des amis à Jean
  ;
  AddElement(Jean\Amis$())
  Jean\Amis$() = "Jim"

  AddElement(Jean\Amis$())
  Jean\Amis$() = "Monica"
  
  ForEach Jean\Amis$()
    Debug Jean\Amis$()
  Next