LinkedList() als Parameter übergeben ???

Anfängerfragen zum Programmieren mit PureBasic.
Benutzeravatar
stab
Beiträge: 96
Registriert: 24.02.2006 16:09
Computerausstattung: 286er Big Tower; 16MHz; 1MB Ram; 40MB Festplatte, 5 1/4" und 3 1/2" Diskettenlaufwerk; VGA Farbmonitor 14"; Windows 3.1; PureBasic 0.5
Wohnort: Hardt
Kontaktdaten:

LinkedList() als Parameter übergeben ???

Beitrag von stab »

Hallo PureBasic Freunde!


PB4:

Gibt es die Möglichkeit, eine LinkedList() als Parameter zu übergeben?

Also z.B:

Code: Alles auswählen


NewList L1(): NewList L2(): NewList L3()

Procedure diese_brauche_ich_oefter (zubearbeitendeListe)
AddElement(zubearbeitendeListe)
CountList(zubearbeitendeListe) 
; 
; 
ForEach zubearbeitendeListe
Beep_(400,50)
Next
; usw.
EndProcedure



Danke für die Antworten!
st-a-b
[/code]
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

http://www.purebasic.fr/german/viewtopic.php?t=8881
Guck Dir einfach den ersten Parameter an :wink:
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
stab
Beiträge: 96
Registriert: 24.02.2006 16:09
Computerausstattung: 286er Big Tower; 16MHz; 1MB Ram; 40MB Festplatte, 5 1/4" und 3 1/2" Diskettenlaufwerk; VGA Farbmonitor 14"; Windows 3.1; PureBasic 0.5
Wohnort: Hardt
Kontaktdaten:

Beitrag von stab »

Ja, danke nochmal.

Einfacher, als ich dachte.

Ich hatte es schon mit allen möglichen Pointern versucht.
Habe aber auch sonst keine Hinweise gefunden.

- stab -
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:

Beitrag von bobobo »

das ist seid PB4 eingebaut und geht so

Code: Alles auswählen

;PB4
NewList L1()
NewList L2()
NewList L3() 

Procedure diese_brauche_ich_oefter (zubearbeitendeListe()) 
  AddElement(zubearbeitendeListe()) 
  zubearbeitendeListe()
  Debug CountList(zubearbeitendeListe()) 
ForEach zubearbeitendeListe() 
Beep_(400,50) 
Next 
; usw. 
EndProcedure


diese_brauche_ich_oefter(L1())
diese_brauche_ich_oefter(L1())
diese_brauche_ich_oefter(L2())
diese_brauche_ich_oefter(L2())
diese_brauche_ich_oefter(L3())
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
Benutzeravatar
Dostej
Beiträge: 529
Registriert: 01.10.2004 10:02
Kontaktdaten:

Beitrag von Dostej »

Geht das eigentlich nun auch mit Arrays?
Benutzeravatar
ts-soft
Beiträge: 22292
Registriert: 08.09.2004 00:57
Computerausstattung: Mainboard: MSI 970A-G43
CPU: AMD FX-6300 Six-Core Processor
GraKa: GeForce GTX 750 Ti, 2 GB
Memory: 16 GB DDR3-1600 - Dual Channel
Wohnort: Berlin

Beitrag von ts-soft »

Dostej hat geschrieben:Geht das eigentlich nun auch mit Arrays?

Code: Alles auswählen

Procedure Test(Array(2)); 2 = 2 Dimensionen
  Array(0,0) = 100
  Array(0,1) = 200 
EndProcedure

Dim MyArray.l(5,5)

MyArray(0,0) = 50
Debug MyArray(0,0)

Test(MyArray())

Debug MyArray(0,0)
Debug MyArray(0,1)
Code sagt mehr als Worte ...
PureBasic 5.73 LTS | SpiderBasic 2.30 | Windows 10 Pro (x64) | Linux Mint 20.1 (x64)
Nutella hat nur sehr wenig Vitamine. Deswegen muss man davon relativ viel essen.
Bild
Benutzeravatar
bobobo
jaAdmin
Beiträge: 3873
Registriert: 13.09.2004 17:48
Kontaktdaten:

Beitrag von bobobo »

oder auch

Code: Alles auswählen

Dim dumm(10)
For i=0 To 10
  dumm(i)=i
Next i

Procedure guckmal(test(1))  ; die 1 bezeichnet hier die Anzahl der Dimensionen des Arrays
  For i=0 To 10
    Debug test(i)
  Next i
EndProcedure

guckmal(dumm())
‮pb aktuel 6.2 windoof aktuell und sowas von 10
Ich hab Tinnitus im Auge. Ich seh nur Pfeifen.
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:

Beitrag von Andre »

Siehe auch die neue/erweiterte Beschreibung in der Hilfe zu Prozeduren:
http://www.purearea.net/pb/german/manua ... dures.html
Bye,
...André
(PureBasicTeam::Docs - PureArea.net | Bestellen:: PureBasic | PureVisionXP)
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

ts-soft hat geschrieben:Code sagt mehr als Worte ...
In diesem Fall hätt's aber auch ein einfaches "Ja" getan... :D
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Antworten