QB64.org Forum

Active Forums => Programs => Topic started by: qbkiller101 on October 25, 2020, 12:20:26 pm

Title: Drawing App
Post by: qbkiller101 on October 25, 2020, 12:20:26 pm

Random drawing app made in 3 mins:

Code: QB64: [Select]

1. SCREEN 8
2. DO
3.     DO WHILE _MOUSEINPUT
4.         IF _MOUSEBUTTON(1) THEN
5.             PSET (_MOUSEX, _MOUSEY), 7
6.             PSET (_MOUSEX + 1, _MOUSEY), 7
7.             PSET (_MOUSEX - 1, _MOUSEY), 7
8.             PSET (_MOUSEX, _MOUSEY + 1), 7
9.             PSET (_MOUSEX, _MOUSEY - 1), 7
10.             PSET (_MOUSEX + 1, _MOUSEY + 1), 7
11.             PSET (_MOUSEX - 1, _MOUSEY + 1), 7
12.             PSET (_MOUSEX + 1, _MOUSEY - 1), 7
13.             PSET (_MOUSEX - 1, _MOUSEY - 1), 7
14.         ELSE IF _MOUSEBUTTON(2) THEN
15.                 PSET (_MOUSEX, _MOUSEY), 0
16.                 PSET (_MOUSEX + 1, _MOUSEY), 0
17.                 PSET (_MOUSEX - 1, _MOUSEY), 0
18.                 PSET (_MOUSEX, _MOUSEY + 1), 0
19.                 PSET (_MOUSEX, _MOUSEY - 1), 0
20.                 PSET (_MOUSEX + 1, _MOUSEY + 1), 0
21.                 PSET (_MOUSEX - 1, _MOUSEY + 1), 0
22.                 PSET (_MOUSEX + 1, _MOUSEY - 1), 0
23.                 PSET (_MOUSEX - 1, _MOUSEY - 1), 0
24.  
25.             END IF
26.         END IF
27.     LOOP
28. LOOP UNTIL _KEYDOWN(27)
29. SYSTEM

Draws 9 pixels each time
right button for delete
left for draw
might expand on it and add saving options

Title: Re: Drawing App
Post by: bplus on October 25, 2020, 01:15:08 pm

Well I see you really knocked yourself out with this ;-))

  [ This attachment cannot be displayed inline in 'Print Page' view ]  

Title: Re: Drawing App
Post by: Rubidium on October 26, 2020, 01:35:47 pm

Hey qbkiller,

you can compact your code like this:

For y = -1 to 1
For x = -1 to 1
            PSET (_MOUSEX+x, _MOUSEY+y), 7
next:next

and again for black

then if u want a bigger draw square you can
have it range from -2 to 2 or set size as
-n to +n

Title: Re: Drawing App
Post by: bplus on October 26, 2020, 02:52:10 pm

Or this:

Code: QB64: [Select]

1. SCREEN 12
2. DO
3.     DO WHILE _MOUSEINPUT
4.         IF _MOUSEBUTTON(1) THEN
5.             CIRCLE (_MOUSEX, _MOUSEY), 1, 7, BF
6.         ELSEIF _MOUSEBUTTON(2) THEN
7.             CIRCLE (_MOUSEX, _MOUSEY), 1, 0, BF
8.         END IF
9.     LOOP
10. LOOP UNTIL _KEYDOWN(27)
11.  

BTW ELSEIF in OP is better than ELSE IF (with space between)

Text Only | Text with Attachments