Skip to content

Commit 87036db

Browse files
Add files via upload
1 parent 8286c6d commit 87036db

File tree

1 file changed

+48
-0
lines changed

1 file changed

+48
-0
lines changed

LEARNERS_ARRAY.pbi

Lines changed: 48 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
Dim classNumberBoys.s(25)
2+
Dim classNumberGirls.s(25)
3+
4+
For x.b = 0 To 24
5+
classNumberBoys(x) = "B" + Str(x + 1)
6+
classNumberGirls(x) = "G" + Str(x + 1)
7+
;Debug classNumberBoys(x)
8+
;Debug classNumberGirls(x)
9+
Next
10+
11+
;will be coming from the interface
12+
desiredNumberBoys = 20 - 1
13+
14+
NewList stuList.s()
15+
For x.b = 0 To desiredNumberBoys
16+
AddElement(stuList()) : stuList() = classNumberBoys(x)
17+
Next
18+
19+
;will be coming from the interface
20+
desiredNumberGirls = 20 - 1
21+
22+
For x.b = 0 To desiredNumberGirls
23+
AddElement(stuList()) : stuList() = classNumberGirls(x)
24+
Next
25+
26+
; iteration = 0
27+
; ForEach stuList()
28+
; ;Debug stuList()
29+
; iteration = iteration + 1
30+
; iteration2 = iteration - 1
31+
; ;Debug iteration2
32+
; SelectElement(stuList(),iteration2)
33+
; ;Debug "Element selected: " + Str(SelectElement(stuList(),iteration2))
34+
; ;Debug ""
35+
; If stuList() = "B4"
36+
; DeleteElement(stuList())
37+
; Break
38+
; EndIf
39+
; Next
40+
;
41+
; ForEach stuList()
42+
; Debug stuList()
43+
; Next
44+
;
45+
; ;Debug ListIndex(stuList())
46+
; Debug ListSize(stuList())
47+
; IDE Options = PureBasic 5.00 (Windows - x64)
48+
; EnableXP

0 commit comments

Comments
 (0)