Post by: SierraKen on June 19, 2019, 09:30:36 pm
Post by: bplus on June 19, 2019, 11:07:30 pm
Welcome to the forum.
I tried your Ping Pong. That paddle action sucks! and it is disconcerting to see the ball go through the paddle.
I fixed both:
Code: QB64: [Select]
- 'Updated by Kenneth on May 27, 2019.
- _TITLE "PING PONG"
- begin:
- SCREEN 13
- COLOR 7
- PRINT " PING PONG"
- PRINT "By Kenneth G."
- PRINT "Use the up and down arrow keys to move"
- PRINT "the left paddle. If the ball passes the"
- PRINT "computer's paddle, you get a point."
- PRINT "Whoever gets 10 points first wins."
- PRINT "Use the right and left arrow keys to"
- PRINT "stop your paddle."
- PRINT "Press Esc to end anytime."
- INPUT "(F)ast, (M)edium, (S)low, (Q)uit:"; sp$
- INPUT "Press enter to start."; st$
- start:
- _LIMIT sd
- x = 10: y = 100
- x2 = 305: y2 = 100
- a = 140: b = 100
- d = 0: po1 = 0: po2 = 0
- l = 1: r = 0
- dr$ = ""
- ky:
- a$ = INKEY$
- ball:
- GOTO chk
- ball2:
- computer:
- y2 = y2 + rad
- y2 = y2 - rad
- tim:
- _LIMIT sd
- GOTO ky:
- chk:
- PRINT "YOU WIN"
- INPUT "Press enter to go to main menu."; mm$
- GOTO begin:
- PRINT "COMPUTER WINS"
- INPUT "Press enter to go to main menu."; mm$
- GOTO begin:
- po2 = 0
- po1 = 0
- GOTO ball2
BTW does the computer ever miss? :D
Post by: bplus on June 19, 2019, 11:13:19 pm
Code: QB64: [Select]
Post by: SierraKen on June 20, 2019, 01:27:39 am
Post by: bplus on June 20, 2019, 01:35:58 am
I did work on your game some more, if you like paddles always moving sorry :) but ball looks like it's bouncing pretty close to correct places and I handicapped the computer a bit.
Code: QB64: [Select]
- 'Updated by Kenneth on May 27, 2019.
- _TITLE "PING PONG"
- begin:
- SCREEN 13
- COLOR 7
- PRINT " PING PONG"
- PRINT "By Kenneth G."
- PRINT "Use the up and down arrow keys to move"
- PRINT "the left paddle. If the ball passes the"
- PRINT "computer's paddle, you get a point."
- PRINT "Whoever gets 10 points first wins."
- PRINT "Press Esc to end anytime."
- INPUT "(F)ast, (M)edium, (S)low, (Q)uit:"; sp$
- INPUT "Press enter to start."; st$
- start:
- _LIMIT sd
- x = 10: y = 100
- x2 = 305: y2 = 100
- a = 140: b = 100
- d = 0: po1 = 0: po2 = 0
- l = 1: r = 0
- dr$ = ""
- 'LINE (0, 15)-(400, 15), 3
- 'LINE (0, 176)-(400, 176), 3
- a$ = INKEY$
- 'your paddle
- 'LINE (x, y)-(x + 2, y + 15), 0, BF 'why 2 times black out old redrw new
- ball:
- 'CIRCLE (a, b), 3, 0 'black out
- 'IF a > x2 - 6 THEN l = 1: r = 0: d = INT(RND * 10) - 5: PLAY "l30c"
- 'IF a = x + 5 AND po1 THEN r = 1: l = 0: d = INT(RND * 10) - 5: PLAY "l30c"
- 'the ball is always moving left or right in inc of 5
- r = 1
- l = 0
- r = 0
- l = 1
- PRINT "YOU WIN, ";
- INPUT "Press enter."; mm$
- GOTO begin:
- PRINT "COMPUTER WINS, ";
- INPUT "Press enter."; mm$
- GOTO begin:
- po2 = 0
- po1 = 0
- computer:
- 'LINE (x2, y2)-(x2 + 2, y2 + 15), 0, BF
- y2 = y2 + rad
- y2 = y2 - rad
- tim:
- _LIMIT sd
Post by: SierraKen on June 20, 2019, 12:37:02 pm
Post by: SierraKen on June 20, 2019, 03:41:34 pm
http://ken.x10host.com/qb64/
Post by: SierraKen on June 20, 2019, 04:27:23 pm
I updated the new code to the website.
Post by: OldMoses on June 20, 2019, 04:39:25 pm
Post by: bplus on June 20, 2019, 05:31:26 pm
Oh, also if you are a constant paddle mover, no problem because this paddle runs off mouse.
Code: QB64: [Select]
- TYPE XYType
- TYPE Rectangle
- xy AS XYType
- xy AS XYType
- TYPE player
- pdl AS Rectangle
- TYPE game
- human AS player
- computer AS player
- table AS Rectangle
- initGame
- playGame
- SUB initGame 'most of thses remain constant start with table
- g.table.xy.x = 50: g.table.xy.y = 150: g.table.w = 700: g.table.h = 400: g.table.clr = &HFF005038
- g.computer.id = "Computer": g.computer.pts = 0 ' computer on the left
- g.computer.pdl.w = 15: g.computer.pdl.h = 40: g.computer.pdl.clr = &HFF0000FF
- g.computer.pdl.xy.x = g.table.xy.x - g.computer.pdl.w
- g.human.id = "Human": g.human.pts = 0 ' player on the right
- g.human.pdl.w = 15: g.human.pdl.h = 40: g.human.pdl.clr = &HFFFF0000
- g.human.pdl.xy.x = g.table.xy.x + g.table.w ' player paddle
- g.ball.r = 5: g.ball.clr = &HFFFFFFFF ' ball
- SUB playGame
- DIM my, inbounds
- getBallRolling
- inbounds = 1
- WHILE inbounds
- my = _MOUSEY
- g.human.pdl.xy.y = my - g.human.pdl.h / 2
- g.computer.pdl.xy.y = g.ball.xy.y - g.computer.pdl.h / 2
- g.ball.xy.x = g.ball.xy.x + g.ball.dx: g.ball.xy.y = g.ball.xy.y + g.ball.dy ' update ball
- 'past the table edge? or paddle edge
- g.ball.dx = -g.ball.dx
- inbounds = 0: g.human.pts = g.human.pts + 1
- g.ball.dx = -g.ball.dx
- inbounds = 0: g.computer.pts = g.computer.pts + 1
- g.ball.dy = -g.ball.dy
- g.ball.dy = -g.ball.dy
- drawGame
- _LIMIT 60
- _DELAY .5
- SUB getBallRolling
- g.computer.pdl.xy.y = g.table.xy.y + (g.table.h - g.computer.pdl.h) / 2 ' center paddles y
- g.human.pdl.xy.y = g.table.xy.y + (g.table.h - g.human.pdl.h) / 2
- g.ball.dy = g.ball.dy * d
- g.ball.dx = g.ball.dx * d
- g.ball.xy.x = g.table.xy.x + .9 * g.table.w
- g.ball.xy.x = g.table.xy.x + .1 * g.table.w
- g.ball.xy.y = g.table.xy.y + g.table.h / 2
- my = _MOUSEY
- g.human.pdl.xy.y = my - g.human.pdl.h / 2
- drawGame
- s$ = "Get ready for random serve..."
- COLOR , g.table.clr
- _LIMIT 60
- SUB drawGame
- DIM s$
- _PRINTSTRING (g.table.xy.x + 120, g.table.xy.y / 2 - 4), g.computer.id + ":" + STR$(g.computer.pts) ' score
- fcirc g.ball.xy.x, g.ball.xy.y, g.ball.r, g.ball.clr
- WHILE X > Y
- RadiusError = RadiusError + Y * 2 + 1
- X = X - 1
- RadiusError = RadiusError - X * 2
- Y = Y + 1
Unfortunately when I hide the mouse, my x alignment drifts off and so movement gets stuck all too often.
Post by: SierraKen on June 20, 2019, 08:52:08 pm
Post by: SierraKen on June 20, 2019, 11:42:55 pm
Post by: bplus on June 21, 2019, 12:15:55 am
If you or anyone can figure a way to keep the mouse from getting stuck in my Ping Pong version I would be eternally grateful. With arrow keys you don't have to worry about paddle getting off track but with mouse I drift sometimes all the way off the left side of the screen! and yet showing the mouse gets distracting.
Should be able to do everything you described for Paint program with QB64 specially easy for Windows. Steve has nifty code for saving images to image file formats. We can draw and fill any shape including tilted ellipse though N-gons might be tricky.
You say you have code? I say I'd be interested :D I am very curious what might not work in Windows, ah the saving to file format might be different and I don't know about printing an image.
We have started image editor here some time ago for modifying images, I think that is similar to Paint program except the pixels are blown up to squares.
Post by: SierraKen on June 21, 2019, 12:28:13 am
Well, here is the code to my Paint program. It also uses bloated boxes for the "pixels" but you can load any JPG with it first to edit. Another problem I have with it is that you have to draw pretty slowly to make your lines connect. But I still like it. It runs fine on my Windows 10 Home Edition computer. It might have just been that particular person's computer that had problems, I have no idea. You will probably laugh in how scattered the code is, I still program like I did in the 90's. LOL The biggest thing I like about this program is that it uses the ENTIRE screen to paint, no words, boxes, anything, just your canvas. :) But like I said, draw slow. And also make sure and read the 2 pages of instructions that start out.
Code: QB64: [Select]
- 'This program took on a life of its own starting from a basic mouse
- 'drawing program to then saving it as its own type of data file to
- 'then BMP pictures and now JPG pictures.
- 'Then other things were added such as rays, orbits, paint fill ins,
- 'boxes, printer support, Windows color picker, and editing.
- 'This program was made using QB64 and will always be Freeware.
- 'Paint PIxels was made by Kenneth G. with some help from
- 'the QB64 website Wiki pages.
- 'I want to thank the people who made and take care of the QB64 website
- 'and computer language. I have wanted to make a program like this for
- 'a very long time.
- 'It took 1 week to make this program and finished on June 5, 2019.
- 'Feel free to use any of its code below for your own creations but
- 'please don't copy more than half of it and sell it. Thank you.
- 'Just remember, there are much better graphics programs out there
- 'that can do much more than this can, but to me this is my pride and joy.
- 'One big thing I like a lot about this program is that it uses the
- 'entire computer screen to draw with. Also remember, I am no professional,
- 'just a guy who has loved BASIC programming for over 30 years.
- '
- 'Technical Notes:
- 'This program uses around 55 MB RAM and 1% of the CPU on my semi-new computer.
- 'Use at your own risk. I hold no responsibility for any problems whatsoever.
- 'Here is the code needed for the Color Picker. The Function code
- 'is also at the end of this program.
- '----------------------------------------------------------------------------------------
- TYPE COLORDIALOGTYPE
- _LIMIT 500
- start:
- SCREEN 0
- _TITLE "Paint Pixels"
- _FONT 16
- PRINT " Paint Pixels"
- PRINT " By Ken G."
- PRINT "This is a little program that you"
- PRINT "can draw using your mouse and"
- PRINT "save the picture and load it."
- PRINT "You also can make lines (Rays),"
- PRINT "circles (Orbits), and fill in the"
- PRINT "same color. You also can print to"
- PRINT "your USB printer as well as edit"
- PRINT "an old picture file."
- PRINT "It saves under .jpg files which can"
- PRINT "be used with most other programs."
- PRINT "Press the Space Bar to"
- PRINT "skip instructions."
- PRINT "Press Esc to end program."
- PRINT "Press any other key to continue."
- gggo:
- _LIMIT 10
- ecc$ = INKEY$
- PRINT " Instructions"
- PRINT "(S)ave (L)oad (H)ome"
- PRINT "(R)ay coordinates for line."
- PRINT "Press R once to start line"
- PRINT "and again to finish it."
- PRINT "(O)rbit coordinates for circles."
- PRINT "Press O once to start circle."
- PRINT "and again to finish it."
- PRINT "The size of the circle depends"
- PRINT "on the length difference"
- PRINT "between where you pressed O"
- PRINT "both times. The center of the circle"
- PRINT "will be the first place you pressed O."
- PRINT "(P)rints the picture on"
- PRINT "your printer. It will not work"
- PRINT "if you choose a black background"
- PRINT "because of heavy ink or toner use."
- PRINT "To go around that, choose a white"
- PRINT "background and on the color picker"
- PRINT "window, choose black and press F"
- PRINT "to fill entire window."
- PRINT "The paper printed outcome will NOT"
- PRINT "be proportionate to the screen."
- PRINT "Esc to end program."
- PRINT "Space Bar clears the screen."
- PRINT "Left Mouse Button draws."
- PRINT "Right Mouse Button erases."
- PRINT "There is no Undo feature on"
- PRINT "this program."
- PRINT "Press Esc to end program or"
- PRINT "any other key to continue."
- ggggo:
- _LIMIT 10
- ecc2$ = INKEY$
- PRINT " Instructions Page 2"
- PRINT "(C)olor changes colors."
- PRINT "A window will popup to use"
- PRINT "your mouse to choose a color."
- PRINT "This will also happen when you"
- PRINT "first start your painting."
- PRINT "(F)ill fills in a color between"
- PRINT "the lines of the same color only."
- PRINT "Also close any gaps or it will"
- PRINT "fill the whole screen."
- PRINT "(B)oxes makes a box."
- PRINT "First press B once to start the"
- PRINT "box corner, then press B again"
- PRINT "to set the 2nd corner and size"
- PRINT "diagonally from the first one."
- PRINT "Paint slowly to leave out gaps."
- PRINT "When you press S to save,"
- PRINT "the program will create a temp.jpg"
- PRINT "of the screen and when asking you"
- PRINT "for a file name, it will rename temp.jpg"
- PRINT "to your chosen name."
- PRINT "Press Esc to end program or"
- PRINT "any other key to start."
- gggggo:
- _LIMIT 10
- s$ = INKEY$
- start2:
- begin = 1
- PRINT "Background Color"
- PRINT "(B)lack (W)hite"
- PRINT "Or Esc to end program."
- start3:
- _LIMIT 10
- bcolor$ = INKEY$
- SCREEN s&
- GOTO more2:
- SCREEN s&
- GOTO more2:
- GOTO start3:
- more2:
- begin = 1
- GOSUB chosencolor:
- '---------------------------------------------------
- 'Here is the main loop of the program when painting.
- '---------------------------------------------------
- _LIMIT 500
- mouseX = _MOUSEX
- mouseY = _MOUSEY
- a$ = INKEY$
- 'Here is when someone whipes the screen blank with the space bar.
- 'Here is code needed to call up the Windows Color Picker.
- 'It also uses the code on top of this program and the Function at the end
- 'of this program.
- chosencolor:
- 'Color Dialog flag constants (use + or OR to use more than 1 flag)
- ColorString = "FFFFFFFFFF" 'not sure how this works?
- ' SCREEN _NEWIMAGE(640, 480, 12) '32 or 16 or 256 color screen modes
- 'Here is the Ray Lines code.
- ck = ck + 1
- xxx = mouseX: yyy = mouseY
- GOTO firstray:
- ray:
- xxx = 0: yyy = 0
- ck = 0
- firstray:
- 'Here is the Orbit Circles code.
- ck2 = ck2 + 1
- xxx2 = mouseX: yyy2 = mouseY
- GOTO firstorbit:
- orbit:
- xxx2 = 0: yyy2 = 0
- size = 0: size2 = 0: size3 = 0
- ck2 = 0
- firstorbit:
- 'Here is the Fill-in code.
- 'Here is the Boxes code.
- ck3 = ck3 + 1
- xxx3 = mouseX: yyy3 = mouseY
- GOTO firstbox:
- box:
- xxx3 = 0: yyy3 = 0
- ck3 = 0
- firstbox:
- 'Here is the Printing of the picture.
- _DELAY .25
- SCREEN j&
- _DELAY .25
- _DELAY 2
- j& = 0
- 'Saving
- 'This section first saves your picture as temp.jpg and then
- 'asks you a name for your picture and then renames temp.jpg to your name.
- saving:
- 'Now we call up the SUB to save the image to JPG.
- SaveImage 0, "temp.jpg"
- _DELAY .25
- SCREEN 0
- COLOR 12
- PRINT " Saving"
- PRINT "Your jpg file will be saved in the"
- PRINT "same directory as this program is."
- PRINT "It can be used with almost any"
- PRINT "other graphics program or website."
- PRINT "It is saved using:"
- PRINT "width: 640 height: 480 pixels."
- PRINT "Type a name to save your picture"
- PRINT "and press the Enter key. Do not"
- PRINT "add .jpg at the end, the program"
- PRINT "will do it automatically."
- PRINT "Also do not use the name temp"
- PRINT "because the program uses that name"
- PRINT "and it would be erased the next time"
- PRINT "you save a picture."
- PRINT "Example: MyPic"
- PRINT "Quit and Enter key ends program."
- INPUT "->"; nm$
- nm$ = nm$ + ".jpg"
- 'Checking to see if the file already exists on your computer.
- PRINT "File Already Exists"
- PRINT "Saving will delete your old"
- PRINT "jpg picture."
- PRINT "Would you like to still do it?"
- PRINT "(Y/N). Esc ends program."
- llloop:
- _LIMIT 10
- ag2$ = INKEY$
- GOTO saving:
- saving2:
- nm$ = ""
- NEXT snd
- GOTO start:
- loading: 'This section loads your picture from your computer.
- SCREEN 0
- COLOR 12
- PRINT " Loading"
- PRINT "Do not add .jpg at the end."
- PRINT "The jpg picture must be in the same"
- PRINT "directory as this program is."
- PRINT "Type the name of your picture file"
- PRINT "here and press the Enter key."
- PRINT "Example: MyPic"
- PRINT "Quit and Enter key ends program."
- INPUT "->"; nm$
- nm$ = nm$ + ".jpg"
- PRINT "File Does Not Exist."
- PRINT "Would you like to try again (Y/N)"
- PRINT "Esc ends program."
- _LIMIT 10
- llloop2:
- ag$ = INKEY$
- GOTO start:
- l = 0
- SCREEN i&
- 'j& = _COPYIMAGE(0)
- NEXT snd2
- s& = i&
- i& = 0
- SCREEN s&
- 'Here is the function for the Windows Color Picker,
- ' Parameters:
- ' InitialColor& - The initial color used, will take effect if CC_RGBINIT flag is specified
- ' CustomColors$ - A 64-byte string where the user's custom colors will be stored (4 bytes per color in RGB0 format).
- ' Cancel - Variable where the cancel flag will be stored.
- ' Flags& - Dialog flags
- ' hWnd& - Your program's window handle that should be aquired by the FindWindow function.
- ColorCall.hwndOwner = hWnd&
- ColorCall.flags = Flags&
- ' Do dialog call
- Result = ChooseColorA(ColorCall)
- rgbResult& = ColorCall.rgbResult
- ' Swap RED and BLUE color intensity values using _RGB
- Cancel = -1
- 'Here is the SUB needed to save the image to JPG.
- 'It also can be used for BMP pictures on your own program.
- lastsource& = _SOURCE
- _SOURCE image&
- r$ = ""
- NEXT px&
- d$ = d$ + r$ + padder$
- NEXT py&
- _SOURCE lastsource&
- b$ = b$ + d$ ' total file data bytes to create file
- f& = FREEFILE
- CLOSE #f&
Post by: bplus on June 21, 2019, 12:44:27 am
I see QB64 has compile error:
Quote
In file included from qbx.cpp:2171:
..\\temp\\main.txt: In function 'void QBMAIN(void*)':
..\\temp\\main.txt:1224:112: error: cast from 'HWND' {aka 'HWND__*'} to 'int' loses precision [-fpermissive]
*__LONG_HWND=( int32 )FindWindow(NULL,(char*)(qbs_add(qbs_new_txt_len("Paint Pixels",12),func_chr( 0 )))->chr);
^
compilation terminated due to -Wfatal-errors.
Probably this is problem:
Code: QB64: [Select]
I will look over code tomorrow.
BTW I have great Air Hockey game because mouse wouldn't stay on track for Ping Pong. ;-))
Post by: SMcNeill on June 21, 2019, 03:39:49 am
Thanks Kenneth,
I see QB64 has compile error:
Probably this is problem:Code: QB64: [Select]
I will look over code tomorrow.
BTW I have great Air Hockey game because mouse wouldn't stay on track for Ping Pong. ;-))
I’d say it’s the issue too. Try this:
Code: QB64: [Select]
Return a 32-bit value on QB64x32, and return a 64-bit value on QB64x64 versions.
Post by: bplus on June 21, 2019, 10:45:23 am
When I press B or W for Black or White Background, that's it full screen with Black or White.
escape key press works.
Color is probably not being set because no color dialog ever comes up. Some funky GOTO's too!
Well could make my own color dialog... is it worth it? ;-))
Post by: SierraKen on June 21, 2019, 12:07:34 pm
Post by: SierraKen on June 21, 2019, 12:17:41 pm
Post by: bplus on June 21, 2019, 02:19:44 pm
Bplus, the color dialog box didn't open even after SMcNeill's code? It's supposed to popup when the drawing window comes up, but it can take a few seconds. Try it again and wait about 5 seconds or so. It pops up before you can draw so you can choose a color to start out with.
I waited and waited... I started my own color dialog which might work in another OS besides Windows.
Post by: SierraKen on June 21, 2019, 03:31:45 pm
Post by: bplus on June 21, 2019, 06:05:15 pm
So now it is better than ever because not limited to Windows.
Code: QB64: [Select]
- 'This program took on a life of its own starting from a basic mouse
- 'drawing program to then saving it as its own type of data file to
- 'then BMP pictures and now JPG pictures.
- 'Then other things were added such as rays, orbits, paint fill ins,
- 'boxes, printer support, Windows color picker, and editing.
- 'This program was made using QB64 and will always be Freeware.
- 'Paint PIxels was made by Kenneth Green with some help from
- 'the QB64 website Wiki pages.
- 'I want to thank the people who made and take care of the QB64 website
- 'and computer language. I have wanted to make a program like this for
- 'a very long time.
- 'It took 1 week to make this program and finished on June 5, 2019.
- 'Feel free to use any of its code below for your own creations but
- 'please don't copy more than half of it and sell it. Thank you.
- 'Just remember, there are much better graphics programs out there
- 'that can do much more than this can, but to me this is my pride and joy.
- 'One big thing I like a lot about this program is that it uses the
- 'entire computer screen to draw with. Also remember, I am no professional,
- 'just a guy who has loved BASIC programming for over 30 years.
- '
- 'Technical Notes:
- 'This program uses around 55 MB RAM and 1% of the CPU on my semi-new computer.
- 'Use at your own risk. I hold no responsibility for any problems whatsoever.
- 'Here is the code needed for the Color Picker. The Function code
- 'is also at the end of this program.
- '----------------------------------------------------------------------------------------
- 'TYPE COLORDIALOGTYPE
- ' lStructSize AS LONG ' Length of this TYPE structure
- ' hwndOwner AS LONG 'Dialog owner's handle
- ' hInstance AS LONG ' ?
- ' rgbResult AS LONG ' The RGB color the user selected
- ' lpCustColors AS _OFFSET ' Pointer to an array of 16 custom colors (will be changed by user)
- ' flags AS LONG ' Dialog flags
- ' lCustData AS LONG ' Custom data
- ' lpfnHook AS LONG ' Hook
- ' lpTemplateName AS _OFFSET ' Custom template
- 'END TYPE
- _LIMIT 500
- start:
- SCREEN 0
- _TITLE "Paint Pixels"
- _FONT 16
- PRINT " Paint Pixels"
- PRINT " By Ken G."
- PRINT "This is a little program that you"
- PRINT "can draw using your mouse and"
- PRINT "save the picture and load it."
- PRINT "You also can make lines (Rays),"
- PRINT "circles (Orbits), and fill in the"
- PRINT "same color. You also can print to"
- PRINT "your USB printer as well as edit"
- PRINT "an old picture file."
- PRINT "It saves under .jpg files which can"
- PRINT "be used with most other programs."
- PRINT "Press the Space Bar to"
- PRINT "skip instructions."
- PRINT "Press Esc to end program."
- PRINT "Press any other key to continue."
- gggo:
- _LIMIT 10
- ecc$ = INKEY$
- PRINT " Instructions"
- PRINT "(S)ave (L)oad (H)ome"
- PRINT "(R)ay coordinates for line."
- PRINT "Press R once to start line"
- PRINT "and again to finish it."
- PRINT "(O)rbit coordinates for circles."
- PRINT "Press O once to start circle."
- PRINT "and again to finish it."
- PRINT "The size of the circle depends"
- PRINT "on the length difference"
- PRINT "between where you pressed O"
- PRINT "both times. The center of the circle"
- PRINT "will be the first place you pressed O."
- PRINT "(P)rints the picture on"
- PRINT "your printer. It will not work"
- PRINT "if you choose a black background"
- PRINT "because of heavy ink or toner use."
- PRINT "To go around that, choose a white"
- PRINT "background and on the color picker"
- PRINT "window, choose black and press F"
- PRINT "to fill entire window."
- PRINT "The paper printed outcome will NOT"
- PRINT "be proportionate to the screen."
- PRINT "Esc to end program."
- PRINT "Space Bar clears the screen."
- PRINT "Left Mouse Button draws."
- PRINT "Right Mouse Button erases."
- PRINT "There is no Undo feature on"
- PRINT "this program."
- PRINT "Press Esc to end program or"
- PRINT "any other key to continue."
- ggggo:
- _LIMIT 10
- ecc2$ = INKEY$
- PRINT " Instructions Page 2"
- PRINT "(C)olor changes colors."
- PRINT "A window will popup to use"
- PRINT "your mouse to choose a color."
- PRINT "This will also happen when you"
- PRINT "first start your painting."
- PRINT "(F)ill fills in a color between"
- PRINT "the lines of the same color only."
- PRINT "Also close any gaps or it will"
- PRINT "fill the whole screen."
- PRINT "(B)oxes makes a box."
- PRINT "First press B once to start the"
- PRINT "box corner, then press B again"
- PRINT "to set the 2nd corner and size"
- PRINT "diagonally from the first one."
- PRINT "Paint slowly to leave out gaps."
- PRINT "When you press S to save,"
- PRINT "the program will create a temp.jpg"
- PRINT "of the screen and when asking you"
- PRINT "for a file name, it will rename temp.jpg"
- PRINT "to your chosen name."
- PRINT "Press Esc to end program or"
- PRINT "any other key to start."
- gggggo:
- _LIMIT 10
- s$ = INKEY$
- start2:
- begin = 1
- PRINT "Background Color"
- PRINT "(B)lack (W)hite"
- PRINT "Or Esc to end program."
- start3:
- _LIMIT 10
- bcolor$ = INKEY$
- SCREEN s&
- GOTO more2:
- SCREEN s&
- GOTO more2:
- GOTO start3:
- more2:
- begin = 1
- GOSUB chosencolor:
- '---------------------------------------------------
- 'Here is the main loop of the program when painting.
- '---------------------------------------------------
- _LIMIT 500
- mouseX = _MOUSEX
- mouseY = _MOUSEY
- a$ = INKEY$
- 'Here is when someone whipes the screen blank with the space bar.
- 'Here is code needed to call up the Windows Color Picker.
- 'It also uses the code on top of this program and the Function at the end
- 'of this program.
- chosencolor:
- ''Color Dialog flag constants (use + or OR to use more than 1 flag)
- 'ColorString = "FFFFFFFFFF" 'not sure how this works?
- 'DECLARE DYNAMIC LIBRARY "comdlg32"
- ' FUNCTION ChooseColorA& (DIALOGPARAMS AS COLORDIALOGTYPE) ' Yet the also famous color dialog box
- 'END DECLARE
- 'DECLARE LIBRARY
- ' $IF 32BIT THEN
- ' FUNCTION FindWindow& (BYVAL ClassName AS _OFFSET, WindowName$) ' To get hWnd handle
- ' $ELSE
- ' FUNCTION FindWindow&& (BYVAL ClassName AS _OFFSET, WindowName$) ' To get hWnd handle
- ' $END IF
- 'END DECLARE
- '' SCREEN _NEWIMAGE(640, 480, 12) '32 or 16 or 256 color screen modes
- '_TITLE "Paint Pixels" 'set Title of program
- 'hWnd& = FindWindow(0, "Paint Pixels" + CHR$(0)) 'get window handle using _TITLE string
- 'clr~& = ChooseColor&(_RGB32(0, 0, 0), ColorString$, Cancel, CC_FULLOPEN, hWnd&)
- check$ = colorDialog$
- 'Here is the Ray Lines code.
- ck = ck + 1
- xxx = mouseX: yyy = mouseY
- GOTO firstray:
- ray:
- xxx = 0: yyy = 0
- ck = 0
- firstray:
- 'Here is the Orbit Circles code.
- ck2 = ck2 + 1
- xxx2 = mouseX: yyy2 = mouseY
- GOTO firstorbit:
- orbit:
- xxx2 = 0: yyy2 = 0
- size = 0: size2 = 0: size3 = 0
- ck2 = 0
- firstorbit:
- 'Here is the Fill-in code.
- 'Here is the Boxes code.
- ck3 = ck3 + 1
- xxx3 = mouseX: yyy3 = mouseY
- GOTO firstbox:
- box:
- xxx3 = 0: yyy3 = 0
- ck3 = 0
- firstbox:
- 'Here is the Printing of the picture.
- _DELAY .25
- SCREEN j&
- _DELAY .25
- _DELAY 2
- j& = 0
- 'Saving
- 'This section first saves your picture as temp.jpg and then
- 'asks you a name for your picture and then renames temp.jpg to your name.
- saving:
- 'Now we call up the SUB to save the image to JPG.
- SaveImage 0, "temp.jpg"
- _DELAY .25
- SCREEN 0
- COLOR 12
- PRINT " Saving"
- PRINT "Your jpg file will be saved in the"
- PRINT "same directory as this program is."
- PRINT "It can be used with almost any"
- PRINT "other graphics program or website."
- PRINT "It is saved using:"
- PRINT "width: 640 height: 480 pixels."
- PRINT "Type a name to save your picture"
- PRINT "and press the Enter key. Do not"
- PRINT "add .jpg at the end, the program"
- PRINT "will do it automatically."
- PRINT "Also do not use the name temp"
- PRINT "because the program uses that name"
- PRINT "and it would be erased the next time"
- PRINT "you save a picture."
- PRINT "Example: MyPic"
- PRINT "Quit and Enter key ends program."
- INPUT "->"; nm$
- nm$ = nm$ + ".jpg"
- 'Checking to see if the file already exists on your computer.
- PRINT "File Already Exists"
- PRINT "Saving will delete your old"
- PRINT "jpg picture."
- PRINT "Would you like to still do it?"
- PRINT "(Y/N). Esc ends program."
- llloop:
- _LIMIT 10
- ag2$ = INKEY$
- GOTO saving:
- saving2:
- nm$ = ""
- NEXT snd
- GOTO start:
- loading: 'This section loads your picture from your computer.
- SCREEN 0
- COLOR 12
- PRINT " Loading"
- PRINT "Do not add .jpg at the end."
- PRINT "The jpg picture must be in the same"
- PRINT "directory as this program is."
- PRINT "You will not be able to edit your"
- PRINT "picture file with this program."
- PRINT "Type the name of your picture file"
- PRINT "here and press the Enter key."
- PRINT "Example: MyPic"
- PRINT "Quit and Enter key ends program."
- INPUT "->"; nm$
- nm$ = nm$ + ".jpg"
- PRINT "File Does Not Exist."
- PRINT "Would you like to try again (Y/N)"
- PRINT "Esc ends program."
- _LIMIT 10
- llloop2:
- ag$ = INKEY$
- GOTO start:
- l = 0
- SCREEN i&
- 'j& = _COPYIMAGE(0)
- NEXT snd2
- s& = i&
- i& = 0
- SCREEN s&
- ''Here is the function for the Windows Color Picker,
- 'FUNCTION ChooseColor& (InitialColor&, CustomColors$, Cancel, Flags&, hWnd&)
- ' ' Parameters:
- ' ' InitialColor& - The initial color used, will take effect if CC_RGBINIT flag is specified
- ' ' CustomColors$ - A 64-byte string where the user's custom colors will be stored (4 bytes per color in RGB0 format).
- ' ' Cancel - Variable where the cancel flag will be stored.
- ' ' Flags& - Dialog flags
- ' ' hWnd& - Your program's window handle that should be aquired by the FindWindow function.
- ' DIM ColorCall AS COLORDIALOGTYPE
- ' ColorCall.rgbResult = _RGB32(_BLUE32(InitialColor&), _GREEN32(InitialColor&), _RED32(InitialColor&))
- ' ColorCall.lStructSize = LEN(ColorCall)
- ' ColorCall.hwndOwner = hWnd&
- ' ColorCall.flags = Flags&
- ' ColorCall.lpCustColors = _OFFSET(CustomColors$)
- ' ' Do dialog call
- ' Result = ChooseColorA(ColorCall)
- ' IF Result THEN
- ' rgbResult& = ColorCall.rgbResult
- ' ' Swap RED and BLUE color intensity values using _RGB
- ' ChooseColor& = _RGB(_BLUE32(rgbResult&), _GREEN32(rgbResult&), _RED32(rgbResult&))
- ' ELSE
- ' Cancel = -1
- ' END IF
- 'END FUNCTION
- 'Here is the SUB needed to save the image to JPG.
- 'It also can be used for BMP pictures on your own program.
- lastsource& = _SOURCE
- _SOURCE image&
- r$ = ""
- NEXT px&
- d$ = d$ + r$ + padder$
- NEXT py&
- _SOURCE lastsource&
- b$ = b$ + d$ ' total file data bytes to create file
- f& = FREEFILE
- CLOSE #f&
- FUNCTION colorDialog$
- 'first screen dimensions items to restore at exit
- DIM makeConst$, k$
- 'save old settings to restore at end ofsub
- curRow = CSRLIN
- autoDisplay = _AUTODISPLAY
- sw = _WIDTH
- sh = _HEIGHT
- fg = _DEFAULTCOLOR
- bg = _BACKGROUNDCOLOR
- 'screen snapshot
- curScrn = _DEST
- SCREEN cd
- r = 128: g = 128: b = 128: a = 128
- slider 16, 10, r, "Red"
- slider 16, 60, g, "Green"
- slider 16, 110, b, "Blue"
- slider 16, 160, a, "Alpha"
- f = 255 * (i - 100) / 600
- k$ = INKEY$
- _LIMIT 60
- 'put things back
- SCREEN curScrn
- _PUTIMAGE , backScrn
- COLOR fg, bg
- _FREEIMAGE backScrn
- _FREEIMAGE cd
- 'clear key presses
- 'clear mouse clicks
- WHILE mb 'OK!
- _LIMIT 10
- LOCATE curRow, curCol
- DIM c~&, s$
Post by: SierraKen on June 22, 2019, 06:28:38 pm
Line 586 "Invalid name on current line".
Code: QB64: [Select]
I don't know if it has to do with me having Windows 10 64 bit version of QB64 or what it could be. So weird. Maybe we can fix it?If I can get it to work on my computer, I'll add your name to it and put it on my website.
Post by: SierraKen on June 22, 2019, 06:40:39 pm
I replaced that error line by breaking it up into 3 lines. The _TRIM function you used either doesn't work on my computer or something is off. So I did it the old fashioned way and did this:
Code: QB64: [Select]
Post by: bplus on June 22, 2019, 06:52:44 pm
I believe I fixed it. It runs fine so far, I made a picture in 1 color and saved it and loaded it. THANKS!!!! I'll put it up on my page in a little bit after I run a few more tests.
I replaced that error line by breaking it up into 3 lines. The _TRIM function you used either doesn't work on my computer or something is off. So I did it the old fashioned way and did this:Code: QB64: [Select]
Your fix is exactly what _TRIM$ would do! I was happy to see the .JPG files working from your program. I tried a Printing but did not know about Black backgrounds until too late (nice safety feature), then one thing and another and hadn't had a chance to get back to test printing again.
The _TRIM$ function comes in QB64 version 1.3, It's worth updating just for that! :)
I have been wondering if your computer is 32 bit or 64? Just curious...
And thanks for the thanks, very encouraging... :)
Post by: SierraKen on June 22, 2019, 07:35:24 pm
Post by: SierraKen on June 22, 2019, 07:40:25 pm