Anfängerfragen zum Programmieren mit PureBasic.
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 » 16.06.2006 19:08
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]
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 » 16.06.2006 19:17
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 » 23.06.2006 04:56
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 -
bobobo
jaAdmin
Beiträge: 3873 Registriert: 13.09.2004 17:48
Kontaktdaten:
Beitrag
von bobobo » 23.06.2006 10:43
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.
Dostej
Beiträge: 529 Registriert: 01.10.2004 10:02
Kontaktdaten:
Beitrag
von Dostej » 23.06.2006 11:12
Geht das eigentlich nun auch mit Arrays?
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 » 23.06.2006 11:30
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 ...
bobobo
jaAdmin
Beiträge: 3873 Registriert: 13.09.2004 17:48
Kontaktdaten:
Beitrag
von bobobo » 23.06.2006 11:56
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.
AND51
Beiträge: 5220 Registriert: 01.10.2005 13:15
Beitrag
von AND51 » 24.06.2006 11:31
ts-soft hat geschrieben: Code sagt mehr als Worte ...
In diesem Fall hätt's aber auch ein einfaches "Ja" getan...