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.


Topics - bplus

Pages: 1 ... 19 20 [21]
301
QB64 Discussion / Getting git
« on: February 16, 2018, 12:10:14 pm »
Ah skimming through
https://github.com/wfbarnes/sprezzo/blob/master/HELP.txt
(for BOTify your code)

I see I need to bring this topic from NET to ORG.

Here is the gist of that, study Pro Git first (as in try learning at the shallow end of the pool before jumping into the deep end):
https://git-scm.com/book/en/v2

I have since learned that git comes automatically for Windows users with GitHub Setup.exe

I have GitHubDesktopSetup.exe downloaded but for some reason am balking... yikes this is getting complicated!

Ha! but looks at the project link in BOTify your code thread, yikes! ^ 2

What's a (lazy) Basic Beginner to do?

Gird one's loins, I guess.

302
QB64 Discussion / BOTify your code
« on: February 16, 2018, 11:29:32 am »
So who knows what about code connecting to Internet and interacting with stuff on it?

Fellipe showed me this project which looks very interesting:
https://github.com/wfbarnes/sprezzo/blob/master/HELP.txt

I'd like to be ready for the Singularity or at least The Terminator.

303
Programs / Maze Mirrors
« on: February 15, 2018, 02:56:19 pm »
Code: QB64: [Select]
  1. _TITLE "1 Maze in 3 Reflectionss, press any key for next image..."
  2. ' 2017-10-19 (B+=MGA) Maze Mirrors.bas
  3.  
  4. CONST xmax = 800 'set screen width to this
  5. CONST ymax = 600 'set screen height to this
  6.  
  7. SCREEN _NEWIMAGE(xmax, ymax, 32) ' this sets the screen to the above settings
  8. _SCREENMOVE 360, 60
  9.  
  10. DEFINT A-Z
  12. CONST w = 14
  13. CONST h = 7
  14.  
  15. COMMON SHARED maze(), x2pixel!, xThk!, y2pixel!, yThk!
  16. DIM maze(w + 1, h + 1)
  17. x2pixel! = xmax / (w + 2)
  18. xThk! = .5 * x2pixel!
  19. y2pixel! = ymax / (h + 2)
  20. yThk! = .5 * y2pixel!
  21.  
  22. FOR y = 1 TO h 'read in data for maze
  23.     FOR x = 1 TO w
  24.         READ maze(x, y)
  25.     NEXT
  27.  
  28. COLOR _RGB(200, 200, 255)
  30.     drawMaze: ck
  31.     drawMazeHorizontalMirror: ck
  32.     drawMaze: ck
  33.     drawMazeVerticalMirror: ck
  34.     drawMaze: ck
  35.     drawMazeBothMirror: ck
  37.  
  38. SUB ck 'check key
  39.     SLEEP: CLS: IF _KEYDOWN(27) THEN END
  41.  
  42. SUB drawMaze
  43.     PRINT "Maze from array:"
  44.     FOR y = 1 TO h
  45.         FOR x = 1 TO w
  46.             IF maze(x, y) AND maze(x, y + 1) THEN
  47.                 LINE (x * x2pixel!, y * y2pixel!)-(x * x2pixel! + xThk!, (y + 1) * y2pixel! + yThk!), , BF
  48.             END IF
  49.             IF maze(x, y) AND maze(x + 1, y) THEN
  50.                 LINE (x * x2pixel!, y * y2pixel!)-((x + 1) * x2pixel! + xThk!, y * y2pixel! + yThk!), , BF
  51.             END IF
  52.         NEXT
  53.     NEXT
  55.  
  56. SUB drawMazeHorizontalMirror
  57.     PRINT "Maze upside down:"
  58.     FOR y = 1 TO h
  59.         FOR x = 1 TO w
  60.             IF maze(x, y) AND maze(x, y + 1) THEN
  61.                 LINE (x * x2pixel!, ymax - (y * y2pixel!))-(x * x2pixel! + xThk!, ymax - ((y + 1) * y2pixel! + yThk!)), , BF
  62.             END IF
  63.             IF maze(x, y) AND maze(x + 1, y) THEN
  64.                 LINE (x * x2pixel!, ymax - (y * y2pixel!))-((x + 1) * x2pixel! + xThk!, ymax - (y * y2pixel! + yThk!)), , BF
  65.             END IF
  66.         NEXT
  67.     NEXT
  69.  
  70. SUB drawMazeVerticalMirror
  71.     PRINT "Maze mirror (vertical):"
  72.     FOR y = 1 TO h
  73.         FOR x = 1 TO w
  74.             IF maze(x, y) AND maze(x, y + 1) THEN
  75.                 LINE (xmax - (x * x2pixel!), y * y2pixel!)-(xmax - (x * x2pixel! + xThk!), (y + 1) * y2pixel! + yThk!), , BF
  76.             END IF
  77.             IF maze(x, y) AND maze(x + 1, y) THEN
  78.                 LINE (xmax - (x * x2pixel!), y * y2pixel!)-(xmax - ((x + 1) * x2pixel! + xThk!), y * y2pixel! + yThk!), , BF
  79.             END IF
  80.         NEXT
  81.     NEXT
  83.  
  84. SUB drawMazeBothMirror
  85.     PRINT "Maze upside down and mirrored:"
  86.     FOR y = 1 TO h
  87.         FOR x = 1 TO w
  88.             IF maze(x, y) AND maze(x, y + 1) THEN
  89.                 LINE (xmax - (x * x2pixel!), ymax - (y * y2pixel!))-(xmax - (x * x2pixel! + xThk!), ymax - ((y + 1) * y2pixel! + yThk!)), , BF
  90.             END IF
  91.             IF maze(x, y) AND maze(x + 1, y) THEN
  92.                 LINE (xmax - (x * x2pixel!), ymax - (y * y2pixel!))-(xmax - ((x + 1) * x2pixel! + xThk!), ymax - (y * y2pixel! + yThk!)), , BF
  93.             END IF
  94.         NEXT
  95.     NEXT
  97.  
  98. 'maze
  99. DATA 1,1,1,1,1,1,1,1,1,1,1,1,1,1
  100. DATA 1,0,0,0,0,0,0,0,0,0,0,0,0,1
  101. DATA 1,0,1,1,1,0,1,1,1,1,1,1,0,1
  102. DATA 1,0,0,0,1,0,0,0,0,0,0,0,0,1
  103. DATA 1,0,1,0,1,0,1,1,1,1,1,1,0,1
  104. DATA 1,0,1,0,0,0,0,0,0,0,0,1,0,1
  105. DATA 1,0,1,1,1,1,1,0,1,1,1,1,1,1
  106.  
  107.  
  108.  

This is old code from net but I wanted to check out screen shots here at org, besides I don't think this code got enough press coverage at net ;-))

304
Programs / Fall Foliage
« on: October 21, 2017, 01:57:45 pm »
Where were we? Oh Ashish was doing fractals and his last was a marvelous 3D Tree but I thought it a bit bare so I will show how to do leaves. :) maybe then he can make them 3D too!

Code: QB64: [Select]
  1. _TITLE "Fall Foliage 2017-10-21 by bplus"
  2. 'fall foliage.bas SmallBASIC 0.12.9 (B+=MGA) 2017-10-21
  3. 'test landscape and portrait views for Android
  4. 'xmx = min(xmax, 400) : ymx = min(700, ymax) 'portrait
  5. 'OK it's just plain better in landscape view
  6.  
  7. 'now for full viewing enjoyment
  8. 'xmx = xmax : ymx = ymax
  9.  
  10. CONST xmx = 1200
  11. CONST ymx = 700
  13. DEFSNG A-Z
  14.  
  15. rad = _PI(1 / 180)
  16. SCREEN _NEWIMAGE(xmx, ymx, 32)
  17. _SCREENMOVE 100, 20 'adjust as needed _MIDDLE needs a delay .5 or more for me
  18.  
  19.  
  20. n = 3
  22.     IF n < 15 THEN n = n + 3
  23.     horizon = rand%(.8 * ymx, .9 * ymx)
  24.     FOR i = 0 TO horizon
  25.         midInk 0, 0, 128, 10, 120, 128, i / horizon
  26.         lien 0, i, xmx, i
  27.     NEXT
  28.     FOR i = horizon TO ymx
  29.         midInk 70, 108, 30, 60, 10, 5, (i - horizon) / (ymx - horizon)
  30.         lien 0, i, xmx, i
  31.     NEXT
  32.     FOR i = 1 TO xmx * ymx * .00018
  33.         leaf rand%(0, xmx), rand%(horizon * 1.002, ymx)
  34.     NEXT
  35.     IF n < .01 * xmx THEN trees = n ELSE trees = rand%(.002 * xmx, .03 * xmx)
  36.     FOR i = 1 TO trees
  37.         y = horizon + .04 * ymx + i / trees * (ymx - horizon - .1 * ymx)
  38.         r = .01 * y: h = rand%(y * .15, y * .18)
  39.         branch rand%(10, xmx - 10), y, r, 90, h, 0
  40.     NEXT
  41.     fRect xmx, 0, xmax, ymax, 0
  42.     fRect 0, ymx, xmx, ymax, 0
  43.     _DISPLAY
  44.     SLEEP 2
  46.  
  47. SUB branch (xx, yy, startrr, angDD, lengthh, levv)
  48.     x = xx: y = yy
  49.     lev = levv
  50.     length = lengthh
  51.     angD = angDD
  52.     startr = startrr
  53.     x2 = x + COS(rad * (angD)) * length
  54.     y2 = y - SIN(rad * (angD)) * length
  55.     dx = (x2 - x) / length
  56.     dy = (y2 - y) / length
  57.     bc& = _RGB(30 + 6 * lev, 15 + 3 * lev, 5 + 2 * lev)
  58.     FOR i = 0 TO length
  59.         COLOR bc&
  60.         fCirc x + dx * i, y + dy * i, startr
  61.     NEXT
  62.     IF lev > 1 THEN leaf x2, y2
  63.     IF .8 * startr < .1 OR lev > 7 OR length < 3 THEN EXIT SUB
  64.     lev = lev + 1
  65.     branch x2, y2, .8 * startr, angD + 22 + rand%(-10, 19), rand%(.75 * length, .9 * length), lev
  66.     branch x2, y2, .8 * startr, angD - 22 - rand%(-10, 19), rand%(.75 * length, .9 * length), lev
  68.  
  69. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  70. SUB fCirc (CX AS LONG, CY AS LONG, R AS LONG)
  71.     DIM subRadius AS LONG, RadiusError AS LONG
  72.     DIM X AS LONG, Y AS LONG
  73.  
  74.     subRadius = ABS(R)
  75.     RadiusError = -subRadius
  76.     X = subRadius
  77.     Y = 0
  78.  
  79.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  80.  
  81.     ' Draw the middle span here so we don't draw it twice in the main loop,
  82.     ' which would be a problem with blending turned on.
  83.     LINE (CX - X, CY)-(CX + X, CY), , BF
  84.  
  85.     WHILE X > Y
  86.         RadiusError = RadiusError + Y * 2 + 1
  87.         IF RadiusError >= 0 THEN
  88.             IF X <> Y + 1 THEN
  89.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  90.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  91.             END IF
  92.             X = X - 1
  93.             RadiusError = RadiusError - X * 2
  94.         END IF
  95.         Y = Y + 1
  96.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  97.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  98.     WEND
  100.  
  101. SUB fRect (x1, y1, x2, y2, c&)
  102.     LINE (x1, y1)-(x2, y2), c&, BF
  104.  
  105. SUB fRectStep (x1, y1, x2, y2)
  106.     LINE (x1, y1)-STEP(x2, y2), , BF
  108.  
  109. SUB lien (x1, y1, x2, y2)
  110.     LINE (x1, y1)-(x2, y2)
  112.  
  113. SUB leaf (x, y)
  114.     sp = 15: leafs = rand%(xmx * ymx * .00001, xmx * ymx * .00002)
  115.     FOR n = 1 TO leafs
  116.         COLOR _RGB(rand%(50, 250), rand%(25, 255), rand%(0, 40))
  117.         xoff = x + RND * sp - RND * sp
  118.         yoff = y + RND * sp - RND * sp
  119.         woff = 3 + RND * 3
  120.         hoff = 3 + RND * 3
  121.         fRectStep xoff, yoff, woff, hoff
  122.     NEXT
  124.  
  125. SUB midInk (r1%, g1%, b1%, r2%, g2%, b2%, fr##)
  126.     COLOR _RGB(r1% + (r2% - r1%) * fr##, g1% + (g2% - g1%) * fr##, b1% + (b2% - b1%) * fr##)
  128.  
  129. FUNCTION rand% (lo%, hi%)
  130.     rand% = INT(RND * (hi% - lo% + 1)) + lo%
  132.  
  133.  

Here is alternate code and screen shot:
http://www.thejoyfulprogrammer.com/qb64/forum/showthread.php?tid=1051&pid=4609&rndtime=1508574661435543493#pid4609

305
InForm Discussion / InForm
« on: July 25, 2017, 12:50:56 pm »
Hi All,

I just downloaded InForm and first of all want to say, Thank You Fellippe!

This looks more a VB style that I have used in 90's than JB's current version.

Are there any know issues using it with Walter's fork of QB64 1.1? (ie should I get a different version QB64?)

There is probably a wealth of stuff at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there] but could we get a few small samples here for getting started?

I am especially interested in using a texteditor control all the ins & outs, if there is one.

Also watching the Tic Tac Toe demo, I see ways to align controls that I don't remember having in 90's, cool!


Append: I guess there is an issue with the fork, I am getting blank screen running UiEditor.exe and .bas.

306
Programs / Plasma Waves
« on: July 21, 2017, 11:18:54 pm »
Press spacebar for new sea:
Code: QB64: [Select]
  1. 'Wavy with Plama.bas for QB64 fork (B+=MGA) 2017-05-05
  2. ' Wavy with Plasma Treatment.bas SmallBASIC 0.12.9 (B+=MGA) 2017-05-03
  3. ' from: animated circles started by Admin at SdlBasic 2017-05-03
  4. ' I added Plasma treatment and spacebar  changer
  5.  
  6.  
  7. '===================================================================
  8.  
  9. ' Instructions: press spacebar for new injection of plasma
  10.  
  11. '==================================================================
  12.  
  14. CONST sqr12! = .5 ^ .5
  15. CONST xmax = 1100
  16. CONST ymax = 700
  17. CONST DPI = 3.141516 * 2
  18. CONST PHIDELTA = DPI / 15
  19. CONST PHISTEP = DPI / 50
  20. CONST RADIUS = 20
  21. CONST SMALL_R = 20
  22. CONST DISTANCE = 23
  23. CONST W = xmax
  24. CONST H = ymax
  25.  
  26. SCREEN _NEWIMAGE(xmax, ymax, 32)
  27. _TITLE "Wavy with Plasma trans by bplus, Press Spacebar for New Plasma Injection."
  29. DIM SHARED pR, pG, pB AS INTEGER
  30. DIM x, y, xball, yball AS INTEGER
  31. DIM current_phi, phiIndex, phi AS DOUBLE
  32. current_phi = 0
  33. cN = 1
  34. resetPlasma
  36.     CLS
  37.     _LIMIT 10
  38.     IF _KEYHIT = 32 THEN cN = 1: resetPlasma
  39.     current_phi = current_phi + PHISTEP
  40.     FOR x = 0 TO (W + RADIUS) STEP DISTANCE
  41.         FOR y = 0 TO (H + RADIUS) STEP DISTANCE
  42.             'COLOR _RGB(120, 80, 80)
  43.             'CIRCLE (x, y), RADIUS
  44.             phiIndex = ((x + y) MOD (2 * W)) / RADIUS
  45.             phi = phiIndex * PHIDELTA + current_phi
  46.             xball = COS(phi) * RADIUS + x
  47.             yball = SIN(phi) * RADIUS + y
  48.             changePlasma
  49.             'LINE (x, y)-(xball, yball)
  50.             fcirc2 xball, yball, SMALL_R
  51.         NEXT
  52.     NEXT
  53.     _DISPLAY
  55.  
  56. SUB changePlasma ()
  57. cN = cN + 1
  58. COLOR _RGB(127 + 127 * SIN(pR * cN), 127 + 127 * SIN(pG * cN), 127 + 127 * SIN(pB * cN))
  60.  
  61. SUB resetPlasma ()
  62. pR = RND ^ 2: pG = RND ^ 2: pB = RND ^ 2
  64.  
  65. '========================================== sqrSeg Method for filled circle
  66. SUB fcirc2 (xx%, yy%, r%)
  67. 'const sqr12! = .5^.5  'in main const section
  68. r2% = r% * r%
  69. sqr12r% = sqr12! * r%
  70. LINE (xx% - sqr12r%, yy% - sqr12r%)-(xx% + sqr12r%, yy% + sqr12r%), , BF
  71. FOR x% = 0 TO sqr12r%
  72.     y% = SQR(r2% - x% * x%)
  73.     LINE (xx% - x%, yy% + sqr12r%)-(xx% - x%, yy% + y%)
  74.     LINE (xx% - x%, yy% - sqr12r%)-(xx% - x%, yy% - y%)
  75.     LINE (xx% + x%, yy% + sqr12r%)-(xx% + x%, yy% + y%)
  76.     LINE (xx% + x%, yy% - sqr12r%)-(xx% + x%, yy% - y%)
  78. FOR x% = sqr12r% TO r%
  79.     y% = SQR(r2% - x% * x%)
  80.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  81.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  84.  
  85. SUB fcirc (xx%, yy%, r%)
  86. r2% = r% * r%
  87. FOR x% = 0 TO r%
  88.     y% = INT(SQR(r2% - x% * x%))
  89.     LINE (xx% - x%, yy% + y%)-(xx% - x%, yy% - y%)
  90.     LINE (xx% + x%, yy% + y%)-(xx% + x%, yy% - y%)
  93.  
  94.  

Oh, I guess I was experimenting with circle drawing here too.

Pages: 1 ... 19 20 [21]