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 - Dav

Pages: [1] 2 3 ... 53
1
Programs / Re: Garland of pearls
« on: March 22, 2022, 09:59:26 pm »
Wow -- that image version is about the coolest effect I've seen in QB64...

- Dav

2
Programs / Re: Garland of pearls
« on: March 22, 2022, 09:34:14 am »
This is pretty amazing, @MasterGy!

- Dav

3
QB64 Discussion / Re: QB64 10-Liner programs or games
« on: March 21, 2022, 10:00:43 am »

When I was playing around making a small plasma code to add to programs, a year or so ago, I tried to make a small version in 10 lines or less, just for fun, and had saved this one.

Any old timers here remember Rels' 9 liner challenge at qbasicnews about 20 years ago?  Some really cool snippets were posted there...

- Dav

Code: QB64: [Select]
  2. 1 t = TIMER
  3. FOR x = 0 TO _WIDTH STEP 2
  4.     FOR y = 0 TO _HEIGHT STEP 3
  5.         r = SIN(1.1 * t) * (_WIDTH / 2) - y + (_HEIGHT / 2)
  6.         LINE (x, y)-(x, y), _RGB(r, r - y, -r), BF
  7.     NEXT
  8.     IF x = _WIDTH THEN _DISPLAY ELSE t = t + .005
  11.  

4
Programs / Re: Happy _PI Day!
« on: March 14, 2022, 07:51:28 pm »
PI day, huh?  Now I know why the pizza place around here had pizza pie specials today.  Here’s something real freaky - my wrist watch stopped working today. It’s battery died I’m guessing.  Stopped at 3:14pm EST. Not sure if that’s a good or bad sign...

- Dav

5
QB64 Discussion / Re: Some info regarding $IF precompiler directives
« on: March 13, 2022, 01:33:27 pm »
It's  been a while since I dabbled with API, but I remember that there is a message box flag that lets you keep it on top of everything.  Perhaps our API guru @SpriggsySpriggs can jump in for percise info, but for now I changed this and it seemed to work for me on Windows.

kind = 1 OR 4096   '4096 is the number for MB_SYSTEMMODAL flag

- Dav

6
Programs / Re: Eye Candy
« on: March 09, 2022, 11:04:41 am »
Yes, huge speed increase on my T430 laptop. Beautiful little program.

- Dav

7
Programs / Re: Eye Candy
« on: March 08, 2022, 10:23:27 pm »
Strange pattern.  I thought it was an animated image at first.  Appears to move a little when I look at it.

- Dav

8
Programs / Re: Eye Candy
« on: March 08, 2022, 08:24:30 pm »
Woah!  Very nice, @bplus. 

- Dav

9
Programs / Re: Wordle clone
« on: March 05, 2022, 01:21:13 pm »
Sounds interesting.

I don't think LINE INPUT accepts a given input limit, but I made a restricted input routine function that you can freely have/use/abuse.

- Dav

Code: QB64: [Select]
  1. '==========
  2. 'KINPUT.BAS
  3. '==========
  4. 'Restricted keyboard INPUT$ routine.
  5. 'Limit how many characters you can enter.
  6. 'Coded by Dav, JAN/2021
  7.  
  8. a$ = KINPUT$(3, 3, "Enter up to 12 letters: ", 12)
  9.  
  11. PRINT "You entered: "; a$
  12.  
  13.  
  14. FUNCTION KINPUT$ (y, x, text$, limitnum)
  15.  
  16.     LOCATE y, x: PRINT text$;
  17.  
  18.     entry$ = ""
  19.     y = CSRLIN: x = POS(1)
  20.  
  21.     DO
  22.         a$ = INPUT$(1)
  23.  
  24.         IF a$ = CHR$(13) THEN 'enter returns entry
  25.             KINPUT$ = entry$: EXIT FUNCTION
  26.         END IF
  27.  
  28.         IF a$ = CHR$(27) THEN 'ESC bails out
  29.             KINPUT$ = "": EXIT FUNCTION
  30.         END IF
  31.  
  32.         IF a$ = CHR$(8) THEN 'Backspace goes back a space
  33.             IF LEN(entry$) > 0 THEN
  34.                 entry$ = MID$(entry$, 1, LEN(entry$) - 1)
  35.             END IF
  36.         ELSE
  37.             'add letter entered, if not over limitnum
  38.             IF LEN(entry$) < limitnum THEN
  39.                 entry$ = entry$ + a$
  40.             END IF
  41.         END IF
  42.  
  43.         LOCATE y, x: PRINT SPACE$(limitnum);
  44.         LOCATE y, x: PRINT entry$;
  45.  
  46.     LOOP
  47.  
  49.  


10
Programs / Re: Ray Trace a translation from SpecBAS
« on: February 27, 2022, 10:05:18 am »
Very nice code.  I don’t understand it, but it is amazing.  I wonder if it’s possible to modify it to render several pages in advance, with the spheres moving a little, them play back the pages like an animation.

- Dav

11
QB64 Discussion / Re: GotBasic - QB64 Mention
« on: February 25, 2022, 12:28:48 pm »
Nice find.  On their QB64 page I think they made a typo mistake about QB64 supporting 32bit OS.

- Dav

12
Programs / Re: Mover Bricks 2D and 3D
« on: February 22, 2022, 09:25:37 am »
Awesome work, @MasterGy!

- Dav

13
Programs / Re: New 10x10 puzzle version
« on: February 19, 2022, 09:30:51 pm »
Latest 10x10 puzzle update, maybe final one.  I think the puzzle is finished, or close to it.

Biggest change is that game progress is now saved, so you can resume playing later where you left off when quitting the game.  Game now has a graphical menu system where you can play/resume, and change sound settings and reset hi score.  And @Dimster the menu pops up after a game now, as you asked.  All settings are saved to a file.   The game seems to be working OK here, but if you find an error/bug please let me know.  It's being distributed in a .ZIP file now because there are a lot of image files now.

Hope you enjoy this puzzle.

- Dav

Download 10x10 v 1.8 -->   (291k)

 
10x10-v1.8.jpg





14
Programs / Re: QBJS - QBasic for the Web
« on: February 18, 2022, 10:57:50 pm »
Quote from: Pete on February 18, 2022, 10:31:12 pm
It's a very neat project on a couple of levels!

I totally agree.  And Pete -- welcome back!  You were missed.

- Dav

15
Programs / Re: QBJS - QBasic for the Web
« on: February 18, 2022, 01:34:27 pm »
This is cool! Looks like you’ve done a great job.  I’m going to play with it some more later today.

- Dav

Pages: [1] 2 3 ... 53