Skip to content

Commit 9606d7c

Browse files
Create USER_INTERFACE_BOYS.pb
1 parent 87036db commit 9606d7c

File tree

1 file changed

+85
-0
lines changed

1 file changed

+85
-0
lines changed

USER_INTERFACE_BOYS.pb

Lines changed: 85 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,85 @@
1+
XIncludeFile "LEARNERS_ARRAY.pbi"
2+
NewList indexArray.i()
3+
4+
Enumeration
5+
;#Directory1
6+
#WINDOW_1
7+
#LISTVIEW_1
8+
;#LISTVIEW_2
9+
;#LISTVIEW_3
10+
#TEXT_GADGET_1
11+
;#TEXT_GADGET_2
12+
;#TEXT_GADGET_3
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+
;this will be for the next version of this program
24+
;TextGadget(#TEXT_GADGET_2,5,350,500,30,"SELECTED LEARNERS: ")
25+
ButtonGadget(#BUTTON_GADGET_1,230,0,85,40,"RUN!")
26+
27+
ButtonGadget(#BUTTON_GADGET_2,320,0,85,40,"CLEAR")
28+
ListViewGadget(#LISTVIEW_1, 10, 40, 400, 68)
29+
30+
SetGadgetFont(#WINDOW_1,FontID(LoadFont(#PB_Any,"Century Gothic", 12)))
31+
SetGadgetFont(#LISTVIEW_1,FontID(LoadFont(#PB_Any,"Century Gothic", 40)))
32+
SetGadgetFont(#TEXT_GADGET_1,FontID(LoadFont(#PB_Any,"Comic Sans MS", 16)))
33+
SetGadgetFont(#BUTTON_GADGET_1,FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
34+
SetGadgetFont(#BUTTON_GADGET_2,FontID(LoadFont(#PB_Any,"Century Gothic", 18)))
35+
36+
For x.b = 0 To 24
37+
AddElement(indexArray())
38+
indexArray() = x
39+
Next
40+
41+
; ForEach indexArray()
42+
; Debug indexArray()
43+
; Next
44+
RandomizeList(indexArray())
45+
; ForEach indexArray()
46+
; Debug indexArray()
47+
; Next
48+
addToItself.i = 0
49+
DisableGadget(#BUTTON_GADGET_2,1)
50+
51+
Repeat
52+
53+
Event = WaitWindowEvent()
54+
55+
Select Event
56+
Case #PB_Event_Gadget
57+
Select EventGadget()
58+
Case #BUTTON_GADGET_1
59+
DisableGadget(#BUTTON_GADGET_1,1)
60+
DisableGadget(#BUTTON_GADGET_2,0)
61+
62+
If addToItself >= 25
63+
MessageRequester("ATTENTION: ", "Nothing left, program will exit.")
64+
Break
65+
66+
EndIf
67+
68+
;Debug addToItself
69+
SelectElement(indexArray(),addToItself)
70+
71+
;Debug Str(indexArray())
72+
AddGadgetItem(#LISTVIEW_1,0,classNumberBoys(indexArray()))
73+
SetGadgetState(#LISTVIEW_1,0)
74+
75+
addToItself.i = addToItself + 1
76+
;Debug addToItself
77+
Case #BUTTON_GADGET_2
78+
DisableGadget(#BUTTON_GADGET_1,0)
79+
RemoveGadgetItem(#LISTVIEW_1,0)
80+
DisableGadget(#BUTTON_GADGET_2,1)
81+
EndSelect
82+
83+
EndSelect
84+
Until Event = #PB_Event_CloseWindow
85+
EndIf

0 commit comments

Comments
 (0)