Skip to content

Commit 84499ac

Browse files
jfullstackdevjfullstackdev
authored
Add files via upload
1 parent 826d055 commit 84499ac

File tree

3 files changed

+176
-0
lines changed

3 files changed

+176
-0
lines changed

‎src/ArrayData.pbi

Lines changed: 24 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,24 @@
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+
Next
8+
9+
;maximum is 25
10+
desiredNumberBoys = 20 - 1
11+
12+
NewList stuList.s()
13+
For x.b = 0 To desiredNumberBoys
14+
AddElement(stuList()) : stuList() = classNumberBoys(x)
15+
Next
16+
17+
;maximum is 25
18+
desiredNumberGirls = 20 - 1
19+
20+
For x.b = 0 To desiredNumberGirls
21+
AddElement(stuList()) : stuList() = classNumberGirls(x)
22+
Next
23+
; IDE Options = PureBasic 5.00 (Windows - x64)
24+
; EnableXP

‎src/UserInterfaceBoys.pb

Lines changed: 76 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
XIncludeFile "ArrayData.pbi"
2+
NewList indexArray.i()
3+
4+
;the increment everytime the program
5+
;is run until such time it is already
6+
;greater than 25
7+
addToItself.i = 0
8+
9+
Enumeration
10+
#WINDOW_1
11+
#LISTVIEW_1
12+
#TEXT_GADGET_1
13+
#BUTTON_GADGET_1
14+
#BUTTON_GADGET_2
15+
EndEnumeration
16+
17+
#WINDOWS_FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
18+
19+
If OpenWindow(#WINDOW_1, 0, 0, 420, 120, "RANDOM SELECTION BOYS", #WINDOWS_FLAGS)
20+
21+
TextGadget(#TEXT_GADGET_1, 5, 10, 400, 30, "RANDOM LEARNERS:")
22+
23+
ButtonGadget(#BUTTON_GADGET_1, 230 , 0, 85, 40, "RUN!")
24+
ButtonGadget(#BUTTON_GADGET_2, 320, 0, 85, 40, "CLEAR")
25+
ListViewGadget(#LISTVIEW_1, 10, 40, 400, 68)
26+
27+
SetGadgetFont(#WINDOW_1, FontID(LoadFont(#PB_Any,"Century Gothic", 12)))
28+
SetGadgetFont(#LISTVIEW_1, FontID(LoadFont(#PB_Any,"Century Gothic", 40)))
29+
SetGadgetFont(#TEXT_GADGET_1, FontID(LoadFont(#PB_Any,"Comic Sans MS", 16)))
30+
SetGadgetFont(#BUTTON_GADGET_1, FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
31+
SetGadgetFont(#BUTTON_GADGET_2, FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
32+
33+
For x.b = 0 To 24
34+
AddElement(indexArray())
35+
indexArray() = x
36+
Next
37+
38+
RandomizeList(indexArray())
39+
DisableGadget(#BUTTON_GADGET_2, 1)
40+
41+
Repeat
42+
43+
Event = WaitWindowEvent()
44+
45+
Select Event
46+
Case #PB_Event_Gadget
47+
Select EventGadget()
48+
49+
;run button
50+
Case #BUTTON_GADGET_1
51+
DisableGadget(#BUTTON_GADGET_1, 1)
52+
DisableGadget(#BUTTON_GADGET_2, 0)
53+
54+
If addToItself >= 25
55+
MessageRequester("ATTENTION: ", "Nothing left, program will exit.")
56+
Break
57+
EndIf
58+
59+
SelectElement(indexArray(), addToItself)
60+
AddGadgetItem(#LISTVIEW_1, 0, classNumberBoys(indexArray()))
61+
SetGadgetState(#LISTVIEW_1, 0)
62+
63+
addToItself.i = addToItself + 1
64+
65+
;clear button, proceed to the next random number
66+
Case #BUTTON_GADGET_2
67+
DisableGadget(#BUTTON_GADGET_1, 0)
68+
RemoveGadgetItem(#LISTVIEW_1, 0)
69+
DisableGadget(#BUTTON_GADGET_2, 1)
70+
EndSelect
71+
72+
EndSelect
73+
Until Event = #PB_Event_CloseWindow
74+
EndIf
75+
; IDE Options = PureBasic 5.00 (Windows - x64)
76+
; EnableXP

‎src/UserInterfaceGirls.pb

Lines changed: 76 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,76 @@
1+
XIncludeFile "ArrayData.pbi"
2+
NewList indexArray.i()
3+
4+
;the increment everytime the program
5+
;is run until such time it is already
6+
;greater than 25
7+
addToItself.i = 0
8+
9+
Enumeration
10+
#WINDOW_1
11+
#LISTVIEW_1
12+
#TEXT_GADGET_1
13+
#BUTTON_GADGET_1
14+
#BUTTON_GADGET_2
15+
EndEnumeration
16+
17+
#WINDOWS_FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
18+
19+
If OpenWindow(#WINDOW_1, 0, 0, 420, 120, "RANDOM SELECTION GIRLS", #WINDOWS_FLAGS)
20+
21+
TextGadget(#TEXT_GADGET_1, 5, 10, 400, 30, "RANDOM LEARNERS:")
22+
23+
ButtonGadget(#BUTTON_GADGET_1, 230 , 0, 85, 40, "RUN!")
24+
ButtonGadget(#BUTTON_GADGET_2, 320, 0, 85, 40, "CLEAR")
25+
ListViewGadget(#LISTVIEW_1, 10, 40, 400, 68)
26+
27+
SetGadgetFont(#WINDOW_1, FontID(LoadFont(#PB_Any,"Century Gothic", 12)))
28+
SetGadgetFont(#LISTVIEW_1, FontID(LoadFont(#PB_Any,"Century Gothic", 40)))
29+
SetGadgetFont(#TEXT_GADGET_1, FontID(LoadFont(#PB_Any,"Comic Sans MS", 16)))
30+
SetGadgetFont(#BUTTON_GADGET_1, FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
31+
SetGadgetFont(#BUTTON_GADGET_2, FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
32+
33+
For x.b = 0 To 24
34+
AddElement(indexArray())
35+
indexArray() = x
36+
Next
37+
38+
RandomizeList(indexArray())
39+
DisableGadget(#BUTTON_GADGET_2, 1)
40+
41+
Repeat
42+
43+
Event = WaitWindowEvent()
44+
45+
Select Event
46+
Case #PB_Event_Gadget
47+
Select EventGadget()
48+
49+
;run button
50+
Case #BUTTON_GADGET_1
51+
DisableGadget(#BUTTON_GADGET_1, 1)
52+
DisableGadget(#BUTTON_GADGET_2, 0)
53+
54+
If addToItself >= 25
55+
MessageRequester("ATTENTION: ", "Nothing left, program will exit.")
56+
Break
57+
EndIf
58+
59+
SelectElement(indexArray(), addToItself)
60+
AddGadgetItem(#LISTVIEW_1, 0, classNumberGirls(indexArray()))
61+
SetGadgetState(#LISTVIEW_1, 0)
62+
63+
addToItself.i = addToItself + 1
64+
65+
;clear button, proceed to the next random number
66+
Case #BUTTON_GADGET_2
67+
DisableGadget(#BUTTON_GADGET_1, 0)
68+
RemoveGadgetItem(#LISTVIEW_1, 0)
69+
DisableGadget(#BUTTON_GADGET_2, 1)
70+
EndSelect
71+
72+
EndSelect
73+
Until Event = #PB_Event_CloseWindow
74+
EndIf
75+
; IDE Options = PureBasic 5.00 (Windows - x64)
76+
; EnableXP

0 commit comments

Comments
 (0)