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