VQB .04

[Unseen Machine]

Hi Guys

Extract files to your QB64 directory.

For an advanced demo....
Open Qb_Desk_03.bas in QB64, run it and hopefully it works. Press ESC to exit the program.

Included is a file called 'VQB_SUB_DUMP' this is a basic reference for commands. Ill make some more documents and demos available soon.

Unseen

[johnno56]

It's not that I do not trust you, but before adding stuff to my directory(ies), I would like to know what VQB and QBDesk actually do...

J

[bplus]

Hi Johnno,

Here is a snap of the Desk and the descriptions:

After extracting both .rar I had to copy VQB into QBDesk folder then I realized I had to eliminate the redundant  folder that extract always adds.

I tried the Desktop Icons and only got 1 Demo of 5 displayed, the Games that looked like they may be ready did nothing when I clicked the buttons.

So far, if this is all there is, I'd say don't waste the space but I am certain Unseen has more to come and this is a teaser he is eager to show us.

  [ You are not allowed to view this attachment ]  

This isn't too long for code window:

Code: QB64: [Select]

1. #######################################################################################################
2. ##########################   Visual QB v.04   #########################################################
3. #######################################################################################################
4. ######################   SUB/FUNCTION Reference   #####################################################
5. #######################################################################################################
6.  
7.  
8.  
9.  
10.  
11. SUB VQB_Screen (X%, Y%, Width%, Height%, CLR&, Title$)
12.  
13.         - Creates a Screen (Width% * Height), positioned at X%, Y%.
14.         - CLR& is a _RGB32 value and designates the background colour.
15.         - Title$ sets the program title.
16.  
17.  
18. SUB VQB_StoreScreen (ImageHandle&)
19.  
20.         - Stores a copy of the screen to the given handle.
21.  
22.  
23. SUB VQB_RestoreScreen (ImageHandle&)
24.  
25.         - Restores a previously saved screen image
26.  
27.  
28. SUB VQB_Frame (X%, Y%, Width%, Height%, CLR&)
29.  
30.         - Draws a graduated frame at X%, Y%
31.         - CLR& is and _RGB32 value
32.  
33.  
34. SUB VQB_Button_New (Button AS Button, X%, Y%, Width%, Height%, CLR&, TextClr&, Text$, Shape%)
35.  
36.         - Creates a new button
37.         - X%, Y%, Width% and Height% are dicated by the Shape% variable
38.           1 = Rectangle(X%, Y% are top left, Width% and Height% are obvious)
39.           2 = Circular (X%,Y% are center, Width% and Height% dictate shape of ellipse)
40.  
41.        
42. SUB VQB_Button_Draw (Button AS Button)
43.  
44.         - Draws the button specified
45.  
46.  
47. FUNCTION VQB_Button_Click (Button AS Button, Mouse AS MouseInfo)
48.  
49.         - Returns TRUE if the button was clicked by the left mouse button, FALSE if not.
50.  
51.  
52. SUB VQB_CheckBox_New (CBox AS CheckBox, X%, Y%, Width%, Height%, CheckVal%)
53.  
54.         - Creates a new check box at X%, Y%, Dimensions are controlled with Width%, Height%
55.         - CheckVal% is TRUE or FALSE
56.  
57.  
58. SUB VQB_CheckBox_Draw (CBox AS CheckBox)
59.  
60.         - Draws a specified checkbox
61.  
62.  
63. FUNCTION VQB_CheckBox_Click (cBox AS CheckBox, Mouse AS MouseInfo)
64.  
65.         - Checks if the checkbox has been clicked, returns either TRUE or FALSE
66.         - DOES NOT CHANGE CHECK VALUE - YOU MUST DO IT MANUALY
67.  
68.  
69. SUB EllipseXS (X%, Y%, XRadius!, YRadius!, Wide%, CLR&, ShadeClr&)
70.  
71.         - Only called by VQB_BUTTON_DRAW when round buttons are used.
72.  
73.  
74. SUB VQB_Mouse_GetInfo (Mouse AS MouseInfo)
75.  
76.         - Gets the state of the left and right mouse buttons and X, Y position of the mouse, stored in the given MOUSE_INFO array
77.  
78.  
79. SUB VQB_AutoFont (Size%)
80.  
81.         - Loads and sets the VQB standard font to the specified Size%
82.  
83.  
84.  
85. ########################################### NEW FEATURES ##########################################
86.  
87. SUB VQB_Dialog_Font_Load (DState AS DIALOG, FontFile$, Size%)
88.  
89.         - Internal SUB, NOT USED BY END USER
90.  
91.  
92. SUB VQB_Dialog_Font_Set (Dstate AS DIALOG)
93.  
94.         - INTERNAL SUB, NOT USED BY END USER
95.  
96.  
97. SUB VQB_PROGRAM_STATE_NEW (PState AS PROGRAM_STATE, GFX_Mouse%%, TotalApps%%, WSI%, HSI%)
98.  
99.         - Sets up the initial program info
100.         - GFX_Mouse%% - Either TRUE or FALSE, dictates if the program uses the custom mouse pointers
101.         - TotalApps%% - Total number of dialogs in the program
102.         - WSI% - Screen Image Width
103.         - HSI% - Screen Image Height
104.  
105.  
106. FUNCTION VQB_PROGRAM_STATE_UPDATE (PState AS PROGRAM_STATE, Mouse() AS MouseInfo, Dialog() AS DIALOG)
107.        
108.         - Updates all active dialogs
109.         - Draws all active dialogs in order
110.         - Draws GFX mouse pointer (if in use)
111.  
112.  
113. SUB VQB_DOCK_NEW (Dock AS DOCK, NumItems%%, MaxItems%%, Colour~&, Allign%%, Reflect%%, Hide%%, WSI%, HSI%)
114.        
115. SUB VQB_DOCK_ITEM_NEW (DockItem AS DOCK_ITEM, FileName$, Text$)
116.  
117. FUNCTION VQB_DOCK_UPDATE (Dock AS DOCK, DockItem() AS DOCK_ITEM, Mouse() AS MouseInfo)
118.        
119.        
120.  
121. SUB VQB_IMAGE_BUTTON_NEW (ImageButton AS IMAGE_BUTTON, X%, Y%, WIDTH%, HEIGHT%, CLR&, IMAGEFILE$)
122.  
123.         - Creates a new image button.
124.         - CLR& is a _RGB32 value and dicates the buttons colour.
125.         - IMAGEFILE$ is the given image for the button, no
126.  
127.  
128. SUB VQB_IMAGE_BUTTON_DRAW (Btn AS IMAGE_BUTTON)
129.  
130.         - Draws the specified image button     
131.  
132.  
133. SUB VQB_DIALOG_NEW (State AS DIALOG, MultiTaskApp%, X%, Y%, WIDTH%, HEIGHT%, CLR&, Title$, Resizeable%)
134.  
135.         - Sets the initial values for the given dialog.
136.         - MultiTaskApp% is a TRUE or FALSE value and dicates if the given dialog's control
137.           sub should update even if its not the top window.
138.         - CLR& is the background colour.
139.         - Title$ is as 32 character limited string.
140.         - Resizeable% is a TRUE or FALSE value and dictates if the window can be resized or not.
141.  
142.  
143. SUB VQB_DIALOG_SET_MIN_MAX (PState AS PROGRAM_STATE, DIALOG AS DIALOG, MinWidth%, MinHeight%, MaxWidth%, MaxHeight%)
144.  
145.         - Sets the minimum and maximum resize dimensions for the given dialog.
146.         - Sizes are limited to the folowing
147.                 - Minimum width. Title$ length (Given by _PRINTWIDTH) + 100 pixels
148.                 - Minimum height. 28 pixels
149.                 - Maximum width and height values are dictated by screen image width and screen image height.
150.                         - These are stored in the PROGRAM_STATE variable
151.  
152.  
153. SUB VQB_DIALOG_DRAW (PState AS PROGRAM_STATE, DIALOG AS DIALOG)
154.  
155.         - Draws a given Dialog - CAN be called by end user but is primarily an internal sub.
156.  
157.  
158. SUB VQB_RUN_PROGRAM (PState AS PROGRAM_STATE, ProgramID%, Program() AS DIALOG)
159.  
160.         - Controls dialog states and dialog layers.
161.         - Any programs that have been minimised will return to NORMAL size when Un-Minimised
162.  
163.  
164. SUB DrawRoundedRectangle (X%, Y%, Width%, Height%, Colour AS _UNSIGNED LONG, Radius)
165.        
166.         - INTERNAL SUB, NOT CALLED BY END USER
167.         - WILL BE MADE AND OPTIONAL FEATURE SO THE LIBRARY DRAWS DIALOGS FASTER.
168.  
169.  
170. FUNCTION TRIM$ (StringToTrim$)
171.  
172.         - Removes all leading and end spaces from the given string
173.         - INTERNAL FUNCTION, NOT CALLED BY END USER
174.  
175.  
176. SUB VQB_Mouse_Adjust (DState AS DIALOG, MouseSource AS MouseInfo, MouseDest AS MouseInfo)
177.  
178.         - Adjusts Mouse position relative to given DIALOG
179.         - Called in each control sub at the start of the UPDATE case
180.        
181.  
182. FUNCTION VQB_Mouse_WithinBounds (Position AS MouseInfo, X%, Y%, XX%, YY%)
183.  
184.         - Returns TRUE or FALSE if the mouse pointer is within the given area.

[Unseen Machine]

Hey Guys,

So what is it?

VQB is a GUI library for QB64. It has support for simple mouse input methods, buttons, check boxes,  frames, dialog windows (that can be moved, resized and support multitasking) and a MAC OS style dock. 

QB_Desk - A virtual OS that demos VQB's features. Includes a few demos, games and more to come.

Now, as for it not doing much! Thats my bad! i uploaded the wrong version! Ive gone through my current dev version and double checked it for functionality. Attched to this is the new version, maybe bplus could give it a try as he already has the files and report back.

Thanks

Unseen

[bplus]

Ah now the games work! and the 3 demos, there is a problem of the font (for desktop) being cut off at the tops:
  [ You are not allowed to view this attachment ]  

[Unseen Machine]

Sweet, thanks for testing it for me bplus. Glad it works and as for the fonts, it's on the list of things to tweak as is the dis-appearing mouse pointer when you go over the DOCK (I know where the problem is but fixing it without adding more commands is proving problematic).

I'll continue to work on it and post updates in the future. Anyone who wants to have a program added to QB_Desk, feel free to send me your code or...

Code: QB64: [Select]

1. '// VQB 04 - BASE CODE v.01
2. '// By John Onyon a.k.a Unseen Machine
3.  
4. '// Include library TYPE defs and CONSTANTS
5. REM $INCLUDE:'VQB\VQB.bi'
6.  
7. '// Set root directory to load all VQB required files (icons, mouse pointers, fonts, etc...)
8. '// Only needed if youre using dialogs
9. CHDIR "VQB\"
10.  
11. '// You wanna use the mouse so create a MouseInfo array to handle mouse events
12. DIM Mouse(1) AS MouseInfo
13.  
14. '// Create a screen at position at 0,0, size of 1024 * 768  and set title
15. VQB_Screen 0, 0, 1024, 768, _RGB32(120, 110, 100), "VQB 04 Base Code" '// Set title to whatever your program is called
16.  
17. '// The state of the program, generic icons and mouse pointer icons are stored in a predefined type array PROGRAM_STATE
18. '// The update call for this handles all window events, moving, layers and resizing.
19.  
20. '// so lets create the array
21. DIM ProgState AS PROGRAM_STATE
22.  
23. '// Variables are - Use GFX Mouse, Total windows, Screen width, Screen height
24. VQB_PROGRAM_STATE_NEW ProgState, TRUE, 2, 1024, 768
25.  
26. '// Each element of your program can have it's own window (DIALOG).
27. '// Create the DIALOG array
28. DIM Program(1) AS DIALOG
29. '// Now set up each window
30. '// Set's MultiTask, X,Y,Width,height,background colour,Window title and Resize true/false
31. VQB_DIALOG_NEW Program(0), FALSE, 0, 0, 640, 480, _RGB32(0, 0, 0), "New Program", FALSE
32. VQB_DIALOG_NEW Program(1), FALSE, (ProgState.WSI / 2) - 320, (ProgState.HSI / 2) - 240, 640, 480, _RGB32(0, 0, 0), "New Program 2", FALSE
33.  
34. '// Create two buttons, one to launch each window
35. DIM WndBtn(1) AS Button
36.  
37. '// Set the buttons up
38. VQB_Button_New WndBtn(0), 20, 20, 120, 40, _RGB(255, 0, 0), _RGB(0, 0, 0), "YOUR New App", 1
39. VQB_Button_New WndBtn(1), 160, 20, 120, 40, _RGB(255, 0, 0), _RGB(0, 0, 0), "Another App", 1
40.  
41.  
42.  
43. '###########################################################################################################################
44.  
45.  
46.  
47. DO
48.  
49.     CLS
50.  
51.     _LIMIT 45
52.  
53.     '// get the current state iof the mouse and store it in the array
54.     VQB_Mouse_GetInfo Mouse(0)
55.  
56.     '// Check for button clicks
57.     FOR i% = 0 TO 1
58.         IF VQB_Button_Click(WndBtn(i%), Mouse(0)) AND NOT Mouse(1).LMB THEN
59.             IF Program(i%).Running = FALSE THEN '// program has not been started
60.  
61.                 SELECT CASE i%
62.  
63.                     CASE 0 '// New program 1
64.  
65.                         New_Program Program(0), Mouse(), START_PROGRAM
66.  
67.                     CASE 1 '// new program 2
68.  
69.                         New_Program_2 Program(1), Mouse(), START_PROGRAM
70.  
71.                 END SELECT
72.  
73.                 '// update it's position in the stack
74.                 VQB_RUN_PROGRAM ProgState, i%, Program()
75.  
76.             ELSE '// program has been started but either closed or minimised
77.  
78.                 VQB_RUN_PROGRAM ProgState, i%, Program()
79.  
80.             END IF
81.  
82.  
83.         END IF
84.     NEXT
85.  
86.  
87.     '// Draw the buttons
88.     VQB_Button_Draw WndBtn(0)
89.     VQB_Button_Draw WndBtn(1)
90.  
91.     '// Check for any changes in the state of the program (switching between windows/window events)
92.     '// Also renders opn dialog windows in order and renders GFX mouse pointers
93.     ProgramEvent% = VQB_PROGRAM_STATE_UPDATE(ProgState, Mouse(), Program())
94.  
95.     '// Run through open apps and update the top level window
96.     FOR i% = 0 TO ProgState.TotalApps - 1
97.  
98.         IF Program(i%).Running = TRUE THEN
99.  
100.             IF Program(i%).Layer = ProgState.CurrentLayer - 1 THEN '// program on the top layer
101.  
102.                 SELECT CASE i%
103.  
104.                     CASE 0
105.                         New_Program Program(i%), Mouse(), UPDATE_PROGRAM
106.  
107.                     CASE 1
108.                         New_Program_2 Program(i%), Mouse(), UPDATE_PROGRAM
109.  
110.                 END SELECT
111.  
112.             END IF
113.  
114.         ELSE '// Not top window but need to check for multitask apps (for a future tutorial)
115.  
116.         END IF
117.  
118.     NEXT
119.  
120.  
121.     '// Copy mouse state for future comparisons
122.     Mouse(1) = Mouse(0)
123.  
124.     '// Update the display
125.     _DISPLAY
126.  
127. LOOP
128.  
129. '###########################################################################################################################
130. REM $INCLUDE:'VQB\VQB_04.bm'
131. '###########################################################################################################################
132.  
133.  
134.  
135. SUB New_Program (DState AS DIALOG, Mouse() AS MouseInfo, ACTION%)
136.     SELECT CASE ACTION%
137.         CASE START_PROGRAM
138.  
139.  
140.             '// Any variable you need to store needs to be set as STATIC
141.             '// These are DIM'd here
142.             STATIC App_Mouse(1) AS MouseInfo
143.  
144.  
145.  
146.         CASE UPDATE_PROGRAM
147.  
148.             '// Handle input
149.  
150.             '// Clone mouse data
151.             App_Mouse(0) = Mouse(0)
152.  
153.             '// - Make mouse position relative to window
154.             VQB_Mouse_Adjust DState, Mouse(0), App_Mouse(0)
155.  
156.             '// Logic here
157.  
158.  
159.  
160.  
161.             '// Draw the output
162.             '// Switch to dialogs image
163.             _DEST DState.Image
164.             CLS
165.             PAINT (0, 0), DState.CLR
166.  
167.             '// Do all your rendering here
168.  
169.  
170.  
171.             '// switch back to desktop
172.             _DEST 0
173.  
174.  
175.         CASE UPDATE_PROGRAM_NO_INPUT '// For multitask apps
176.  
177.  
178.         CASE END_PROGRAM
179.  
180.     END SELECT
181.     App_Mouse(1) = App_Mouse(0)
182. END SUB
183.  
184. '###########################################################################################################################
185.  
186. SUB New_Program_2 (DState AS DIALOG, Mouse() AS MouseInfo, ACTION%)
187.     SELECT CASE ACTION%
188.         CASE START_PROGRAM
189.  
190.             STATIC App_Mouse(1) AS MouseInfo
191.  
192.  
193.  
194.         CASE UPDATE_PROGRAM
195.  
196.             '// Handle input
197.  
198.             '// Clone mouse data
199.             App_Mouse(0) = Mouse(0)
200.  
201.             '// - Make mouse position relative to window
202.             VQB_Mouse_Adjust DState, Mouse(0), App_Mouse(0)
203.  
204.  
205.             '// Perform logic here
206.  
207.  
208.             '// Draw the output
209.             '// Switch to dialogs image
210.             _DEST DState.Image
211.             CLS
212.             PAINT (0, 0), DState.CLR
213.  
214.             '// Do all your rendering here
215.  
216.  
217.  
218.             '// switch back to desktop
219.             _DEST 0
220.  
221.  
222.         CASE UPDATE_PROGRAM_NO_INPUT '// For multitask apps
223.  
224.  
225.         CASE END_PROGRAM
226.  
227.     END SELECT
228.     App_Mouse(1) = App_Mouse(0)
229. END SUB
230.  
231.  

Thanks

Unseen

[STxAxTIC]

Hello Unseen,

Been following this for years - it looks better each time, and (just about) everything worked just now when I tested it - this includes the "feel free to send me your code or..." chunk above. One thing I wondered about was a custom INPUT statement that does everything the same except hang up the whole program like the normal INPUT does...

My mobile hotspot internet connection forbade me from trying out the IRC client or RSS feed feature. These are the kinds of things I would expect a proper member of the cult of QB64 to be running at all times. We want the fix on new forum posts and IRC fights and stuff, right? Everyone?

An actual question I have concerns the maximum number of icons allowed on the dock, namely, will there be a scrolling feature if the number of icons gets huge?

Next question: Do you want a calculator in there? If you or anyone builds the interface where someone can just mash buttons to make a math problem in the form of a string, I will drop in the logic circuit.

Aaaand finally, has keybone seen this?

Take care!

STx