"Brightness Slider" for QBASIC and QB64.

[MarkSkits]

Note: Uses QBMOUSE Sub

Code: QB64: [Select]

1. SCREEN 12
2. startPos = 50
3. endPos = 590
4. currentPos = startPos
5. colorValue = 9
6. COLOR colorValue
7. LINE (50, 239)-(590, 241), colorValue, BF
8. LINE (startPos - 1, 230)-(startPos + 1, 250), colorValue, BF
9. MOUSE 1
10. Text$ = "Current Background Brightness:" + STR$(FIX(Brightness)) + "."
11. LOCATE 13, 40 - (LEN(Text$) / 2)
12. PRINT Text$
13. LOCATE 13, (40 + (LEN(Text$) / 2)) - 3
14. PRINT RTRIM$(STR$(FIX(Brightness))); ". "
15. DO
16.     MOUSE 3
17.     SELECT CASE B
18.         CASE 1
19.             IF H >= startPos AND H <= endPos AND V >= 230 AND V <= 250 THEN
20.                 DO WHILE B = 1
21.                     MOUSE 3
22.                     IF H >= startPos AND H <= endPos THEN
23.                         LINE (currentPos - 1, 230)-(currentPos + 1, 238), 0, BF
24.                         LINE (currentPos - 1, 242)-(currentPos + 1, 250), 0, BF
25.                         currentPos = H
26.                         Brightness = (currentPos - 50) / (540 / 63)
27.                         OUT &H3C8, 0
28.                         OUT &H3C9, Brightness
29.                         OUT &H3C9, Brightness
30.                         OUT &H3C9, Brightness
31.                         LINE (currentPos - 1, 230)-(currentPos + 1, 250), colorValue, BF
32.                         LOCATE 13, (40 + (LEN(Text$) / 2)) - 3
33.                         PRINT RTRIM$(STR$(FIX(Brightness))); ". "
34.                     END IF
35.                 LOOP
36.             END IF
37.     END SELECT
38. LOOP
39. SUB MOUSE (Funk)
40.     SHARED B, H, V
41.     STATIC Crsr
42.     IF Funk = 1 THEN Crsr = 1
43.     IF Funk = 2 AND Crsr = 0 THEN EXIT SUB
44.     IF Funk = 2 AND Crsr = 1 THEN: Crsr = 0
45.     POKE 100, 184: POKE 101, Funk: POKE 102, 0
46.     POKE 103, 205: POKE 104, 51: POKE 105, 137
47.     POKE 106, 30: POKE 107, 170: POKE 108, 10
48.     POKE 109, 137: POKE 110, 14: POKE 111, 187
49.     POKE 112, 11: POKE 113, 137: POKE 114, 22
50.     POKE 115, 204: POKE 116, 12: POKE 117, 203
51.     CALL ABSOLUTE(100)
52.     B = PEEK(&HAAA)
53.     H2 = PEEK(&HBBC)
54.     H2 = H2 * 256
55.     H = PEEK(&HBBB) + H2
56.     V = PEEK(&HCCC) + PEEK(&HCCD) * 256
57. END SUB
58.  

[Ashish]

Hi! I wonder why you don't use QB64's inbuilt mouse command. Using them will make your work easy.

[MarkSkits]

I made it so it would work with QB64 AND QBasic.

[Petr]

Nice work!