type? list? wie auch immer...

Anfängerfragen zum Programmieren mit PureBasic.
Mathias-Kwiatkowski
Beiträge: 118
Registriert: 26.06.2005 23:06
Wohnort: Dinslaken

type? list? wie auch immer...

Beitrag von Mathias-Kwiatkowski »

wie kann man soetwas machen was man in blitzbasic type nennt?

z.b.

global Gegner.Gegner
Type Gegner
field name:string
field x:int
field y:int
End type

for gegner.gegner=each gegner
print gegner.name
print gegner.x
print gegner.y
next

wie geht sowas in purebasic? also wie wird sowas gehandhabt?
Benutzeravatar
STARGÅTE
Kommando SG1
Beiträge: 7028
Registriert: 01.11.2005 13:34
Wohnort: Glienicke
Kontaktdaten:

Re: type? list? wie auch immer...

Beitrag von STARGÅTE »

Code: Alles auswählen

Structure Gegner
 name.s
 x.l
 y.l
EndStructure

Global NewList Gegner.Gegner()

ForEach Gegner()
  Debug gegner()\name
  Debug gegner()\x
  Debug gegner()\y
Next
PB 6.01 ― Win 10, 21H2 ― Ryzen 9 3900X, 32 GB ― NVIDIA GeForce RTX 3080 ― Vivaldi 6.0 ― www.unionbytes.de
Aktuelles Projekt: Lizard - Skriptsprache für symbolische Berechnungen und mehr
Kaeru Gaman
Beiträge: 17389
Registriert: 10.11.2004 03:22

Beitrag von Kaeru Gaman »

Structure

PB -> Help -> Referenz -> Arrays, Listen & Strukturen

bitte ruhig mal in der Help schmökern...


btw:
schätze mal, du hast nen schreibfehler in Dinslaken....
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Benutzeravatar
Fluid Byte
Beiträge: 3110
Registriert: 27.09.2006 22:06
Wohnort: Berlin, Mitte

Beitrag von Fluid Byte »

Hilfe lesen tut nicht weh ...

PS: Es heißt "Dinslaken" und nicht "Dinbslaken". Bild
Windows 10 Pro, 64-Bit / Outtakes | Derek
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8807
Registriert: 29.08.2004 20:20
Computerausstattung: Ryzen 7 5800X, 64 GB DDR4-3200
Ubuntu 24.04.2 LTS
GeForce RTX 3080 Ti
Wohnort: Saarbrücken

Beitrag von NicTheQuick »

So z.B.:

Code: Alles auswählen

Structure Gegner
  name.s
  x.l
  y.l
EndStructure
Global NewList Gegner.Gegner()

ForEach Gegner()
  Debug Gegner()\name
  Debug Gegner()\x
  Debug Gegner()\y
Next

;oder:
ForEach Gegner()
  With Gegner()
    Debug \name
    Debug \x
    Debug \y
  EndWith
Next
Type = Structure + LinkedList (siehe Hilfe)

///Edit:
lol :lol:
Das war ja viel zu langsam! :freak:
Antworten