Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - MarkSkits

Pages: [1]
1
QB64 Discussion / Returning from CHAIN Statement
« on: August 12, 2018, 02:23:54 pm »
I'm making another sort of interface in QBASIC, and it keeps running out of memory because it's in DOS. To fix this, I figured I'd separate the SUBs into different BAS/EXE files and just use a CHAIN statement, however, I cannot figure out how to have the secondary program return to the main program without restarting said main program. For example:

Main:
Code: QB64: [Select]
  1. CHAIN "calc.bas"
  2. lastRan = "Calculator"
  3. ...
  4.  

Calc.bas:
Code: QB64: [Select]
  1. TRUE = 1
  2. DO UNTIL exitProgram = TRUE
  3.     'Calculator Stuff
  4.     ...
  6. [return to main]
  7.  

Is it possible to have it return to where it was on the main program, and if so, how can I do so?

2
Programs / Re: "Brightness Slider" for QBASIC and QB64.
« on: June 12, 2018, 09:16:03 am »
I made it so it would work with QB64 AND QBasic.

3
Programs / "Brightness Slider" for QBASIC and QB64.
« on: June 11, 2018, 10:15:43 pm »
Note: Uses QBMOUSE Sub

Code: QB64: [Select]
  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))); ". "
  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
  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
  58.  

Pages: [1]