File tree Expand file tree Collapse file tree 1 file changed +48
-0
lines changed Expand file tree Collapse file tree 1 file changed +48
-0
lines changed Original file line number Diff line number Diff line change 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
You can’t perform that action at this time.
0 commit comments