LinkedList in Prozedur

Anfängerfragen zum Programmieren mit PureBasic.
Antworten
Jake
Beiträge: 121
Registriert: 28.05.2005 04:10
Wohnort: Berlin

LinkedList in Prozedur

Beitrag von Jake »

In der PureBasic Hilfe steht das LinkedLists Global sind. Warum kann ich dann nicht darauf zugreifen?
Ich habe mal meinen ganzen Code hier reingestellt damit ihr sehen könnt was passiert.
Wenn ich den Inhalt der Przedur in einem Gosub aufrufe dann klappts.

Code: Alles auswählen

Structure Daten
  Name.s
  Kords.s
  Alli.s
  Pkt.l
  Kom.s
  Entf.f
EndStructure

NewList Eintrag.Daten()

Procedure Add()
  ResetList(Eintrag.Daten())
  For a = 1 To CountList(Eintrag.Daten())
    NextElement(Eintrag.Daten())
    AddGadgetItem(0,-1, Eintrag.Daten\Name +Chr(10)+ Eintrag.Daten\Kords +Chr(10)+ Eintrag.Daten\Alli +Chr(10)+ Str(Eintrag.Daten\Pkt) +Chr(10)+  Eintrag.Daten\Kom +Chr(10)+ StrF(Eintrag.Daten\Entf))
  Next a
EndProcedure

Procedure Sort()
  
EndProcedure

;1.Eintrag
AddElement(Eintrag.Daten())
Eintrag.Daten\Name = "Manuka"
Eintrag.Daten\Kords = "5:3:7"
Eintrag.Daten\Alli = "ESA"
Eintrag.Daten\Pkt = 720
Eintrag.Daten\Kom = "Kommentar"
Eintrag.DAten\Entf = 1.41

;2. Eintrag
AddElement(Eintrag.Daten())
Eintrag.Daten\Name = "Karola"
Eintrag.Daten\Kords = "12:134:16"
Eintrag.Daten\Alli = "TESA"
Eintrag.Daten\Pkt = 12
Eintrag.Daten\Kom = "BlaBla"
Eintrag.DAten\Entf = 5

;3. Eintrag
AddElement(Eintrag.Daten())
Eintrag.Daten\Name = "Nikolaus"
Eintrag.Daten\Kords = "122:34:1"
Eintrag.Daten\Alli = "-TS-"
Eintrag.Daten\Pkt = 27634
Eintrag.Daten\Kom = "totschlagen"
Eintrag.DAten\Entf = 230

;4. Eintrag
AddElement(Eintrag.Daten())
Eintrag.Daten\Name = "Synapse"
Eintrag.Daten\Kords = "1:1:1"
Eintrag.Daten\Alli = "LEA#"
Eintrag.Daten\Pkt = 7
Eintrag.Daten\Kom = "überfallen"
Eintrag.DAten\Entf = 9.89949

OpenWindow(0, 0, 0, 500, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "ListIconSortTest")
CreateGadgetList(WindowID(0))
  CreatePopupMenu(0)
    MenuItem(1, "Sortierung")
    DisableMenuItem(1, 1)
    MenuBar()
    MenuItem(2, "Spielername")
    MenuItem(3, "Koordinaten")
    MenuItem(4, "Allianz")
    MenuItem(5, "Punkte")
    MenuItem(6, "Kommentar")
    MenuItem(7, "Entfernung")
  ListIconGadget(0, 10, 10, 480, 180, "Spielername", 70 , #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection | #PB_ListIcon_GridLines)
    AddGadgetColumn(0, 1, "Koordinaten", 70)
    AddGadgetColumn(0, 2,"Allianz",60)
    AddGadgetColumn(0, 3,"Punkte",50)
    AddGadgetColumn(0, 4,"Kommentar",155)
    AddGadgetColumn(0, 5,"Entfernung",70)

Add()

Repeat
  Event = WaitWindowEvent()
  Select Event
    Case #WM_RButtonDown
      DisplayPopupMenu(0, WindowID(0))
    Case #PB_Event_Gadget
      Select EventType()
        Case #PB_EventType_RightClick
          DisplayPopupMenu(0, WindowID(0))
      EndSelect
  EndSelect
Until Event = #PB_EVent_Closewindow
Ich weiß das das Theme o Ä. hier schon behandelt wurde aber dea hab ich nicht so ganz verstanden.
MfG Jake
Nach oben
Benutzeravatar
freedimension
Admin
Beiträge: 1987
Registriert: 08.09.2004 13:19
Wohnort: Ludwigsburg
Kontaktdaten:
Kontaktdaten von freedimension

Beitrag von freedimension »

Deine Syntax der Verwendung von Linked Lists war einfach falsch, so geht's:

Code: Alles auswählen

Structure Daten
  name.s 
  Kords.s 
  Alli.s 
  Pkt.l 
  Kom.s 
  Entf.f 
EndStructure 

NewList Eintrag.Daten()

Procedure Add() 
  ResetList(Eintrag()) 
  For a = 1 To CountList(Eintrag()) 
    NextElement(Eintrag()) 
    AddGadgetItem(0,-1, Eintrag()\name +Chr(10)+ Eintrag()\Kords +Chr(10)+ Eintrag()\Alli +Chr(10)+ Str(Eintrag()\Pkt) +Chr(10)+  Eintrag()\Kom +Chr(10)+ StrF(Eintrag()\Entf)) 
  Next
EndProcedure 

Procedure Sort() 
  
EndProcedure 

;1.Eintrag 
AddElement(Eintrag()) 
Eintrag()\name = "Manuka" 
Eintrag()\Kords = "5:3:7" 
Eintrag()\Alli = "ESA" 
Eintrag()\Pkt = 720 
Eintrag()\Kom = "Kommentar" 
Eintrag()\Entf = 1.41 

;2. Eintrag 
AddElement(Eintrag()) 
Eintrag()\name = "Karola" 
Eintrag()\Kords = "12:134:16" 
Eintrag()\Alli = "TESA" 
Eintrag()\Pkt = 12 
Eintrag()\Kom = "BlaBla" 
Eintrag()\Entf = 5 

;3. Eintrag 
AddElement(Eintrag()) 
Eintrag()\name = "Nikolaus" 
Eintrag()\Kords = "122:34:1" 
Eintrag()\Alli = "-TS-" 
Eintrag()\Pkt = 27634 
Eintrag()\Kom = "totschlagen" 
Eintrag()\Entf = 230 

;4. Eintrag 
AddElement(Eintrag()) 
Eintrag()\name = "Synapse" 
Eintrag()\Kords = "1:1:1" 
Eintrag()\Alli = "LEA#" 
Eintrag()\Pkt = 7 
Eintrag()\Kom = "überfallen" 
Eintrag()\Entf = 9.89949 

OpenWindow(0, 0, 0, 500, 200, #PB_Window_SystemMenu | #PB_Window_ScreenCentered, "ListIconSortTest") 
CreateGadgetList(WindowID(0)) 
CreatePopupMenu(0) 
MenuItem(1, "Sortierung") 
DisableMenuItem(1, 1) 
MenuBar() 
MenuItem(2, "Spielername") 
MenuItem(3, "Koordinaten") 
MenuItem(4, "Allianz") 
MenuItem(5, "Punkte") 
MenuItem(6, "Kommentar") 
MenuItem(7, "Entfernung") 
ListIconGadget(0, 10, 10, 480, 180, "Spielername", 70 , #PB_ListIcon_FullRowSelect | #PB_ListIcon_AlwaysShowSelection | #PB_ListIcon_GridLines) 
AddGadgetColumn(0, 1, "Koordinaten", 70) 
AddGadgetColumn(0, 2,"Allianz",60) 
AddGadgetColumn(0, 3,"Punkte",50) 
AddGadgetColumn(0, 4,"Kommentar",155) 
AddGadgetColumn(0, 5,"Entfernung",70) 

Add()
ResetList(Eintrag()) 
 
Repeat
  Event = WaitWindowEvent() 
  Select Event 
    Case #WM_RBUTTONDOWN 
      DisplayPopupMenu(0, WindowID(0)) 
    Case #PB_Event_Gadget 
      Select EventType() 
        Case #PB_EventType_RightClick 
          DisplayPopupMenu(0, WindowID(0)) 
      EndSelect 
  EndSelect 
Until Event = #PB_Event_CloseWindow
Beginne jeden Tag als ob es Absicht wäre!
Bild
BILDblog
Nach oben
Jake
Beiträge: 121
Registriert: 28.05.2005 04:10
Wohnort: Berlin

Beitrag von Jake »

Blöder Fehler das gleiche ist mir auch schon mit verschachtelten Strukturen passiert für die ich dann ein Array angelegt hatte.
Kann mir einfach nicht merken daß "Daten" in diesem Fall dann als Variablen-Typ anzusehen ist.

Danke
MfG Jake
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8809
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 »

:o
Also wenn ich sowas nur sehe:

Code: Alles auswählen

Procedure Add() 
  ResetList(Eintrag()) 
  For a = 1 To CountList(Eintrag()) 
    NextElement(Eintrag()) 
    AddGadgetItem(0,-1, Eintrag()\name +Chr(10)+ Eintrag()\Kords +Chr(10)+ Eintrag()\Alli +Chr(10)+ Str(Eintrag()\Pkt) +Chr(10)+  Eintrag()\Kom +Chr(10)+ StrF(Eintrag()\Entf)) 
  Next 
EndProcedure
Das ist ja langsam wie eine Sau.

Das macht man wenn schon so:

Code: Alles auswählen

Procedure Add() 
  ForEach Eintrag()
    AddGadgetItem(0,-1, Eintrag()\Name +Chr(10)+ Eintrag()\Kords +Chr(10)+ Eintrag()\Alli +Chr(10)+ Str(Eintrag()\Pkt) +Chr(10)+  Eintrag()\Kom +Chr(10)+ StrF(Eintrag()\Entf)) 
  Next 
EndProcedure
Oder so:

Code: Alles auswählen


Procedure Add() 
  ResetList(Eintrag())
  While NextElement(Eintrag())
    AddGadgetItem(0,-1, Eintrag()\Name +Chr(10)+ Eintrag()\Kords +Chr(10)+ Eintrag()\Alli +Chr(10)+ Str(Eintrag()\Pkt) +Chr(10)+  Eintrag()\Kom +Chr(10)+ StrF(Eintrag()\Entf)) 
  Next 
EndProcedure
Ersteres steht so übrigens auch in der Hilfe drin. :wink:
Nach oben
Benutzeravatar
Andre
PureBasic Team
Beiträge: 1765
Registriert: 11.09.2004 16:35
Computerausstattung: MacBook Core2Duo mit MacOS 10.6.8
Lenovo Y50 i7 mit Windows 10
Wohnort: Saxony / Deutscheinsiedel
Kontaktdaten:
Kontaktdaten von Andre

Beitrag von Andre »

NicTheQuick hat geschrieben:Ersteres steht so übrigens auch in der Hilfe drin. :wink:
Hä, des koa doch net war sei... :wink:

Werds mal überprüfen. 8)
Bye,
...André
(PureBasicTeam::Docs - PureArea.net | Bestellen:: PureBasic | PureVisionXP)
Nach oben
Benutzeravatar
NicTheQuick
Ein Admin
Beiträge: 8809
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 »

@Andre:
Ich meine damit meinen ersten Code. Dieser ist allerdings der zweite, wenn man von allen drei Codes ausgeht, die in meinem Post stehen.
Damit habe ich also nicht gemeint, dass das in der Hilfe auch mit dem [c]CountList()[/c] und einer [c]For[/c]-[c]Next[/c]-Schleife gemacht ist. :wink:
Nach oben
Antworten

Zurück zu „Anfänger“