YOUR JOYFUL MEMBERSHIP CREDENTIALS HAVE NOT BEEN IDENTIFIED. PLEASE ENTER YOUR CREDENTIALS OR JOIN OUR JOYFUL COMMUNITY.
ENTER YOUR JOYFUL MEMBER CREDENTIALS REQUEST ACCESS TO OUR JOYFUL COMMUNITY


Hi Jack
05-08-2017, 09:34 AM
Post: #1
 (Print Post)
Always wanted to do that!

Hey, we haven't met, how are you? (who are you?)

I am Mark but go by blpus too. Do you know any Basic's.

For a bad joke 
http://www.laughfactory.com/jokes/joke-of-the-day 
worse than Pete's Big Grin
Find all posts by this user
Like Post
05-08-2017, 02:25 PM
Post: #2
 (Print Post)
Hello bplus, thank you for the welcome Smile
I am familiar with FreeBASIC but I seldom do any programming nowadays, other things keep me busy.
Find all posts by this user
Like Post
05-08-2017, 05:42 PM
Post: #3
 (Print Post)
Welcome Jack, I have recently started learning FB for compiling an SB favorite (before downloading Walter's QB64 fork).

Code Snippet: [Select]
'Psychedelic Star Swirl.bas for FreeBASIC [B+=MGA] 2017-03-15
'from SmallBASIC version 2017-03-01

Randomize Timer

Const As Double PI = ACos(-1)
Const As Double RAD = PI / 180
Common Shared As Double r, g, b, clr

'Set screen size here
dim as integer sw = 600, sh = 600, depth = 32
screenres sw, sh, depth, 2
WindowTitle "Psychedelic Star Swirl  -  Press esc to exit"

sub star( x As Integer, y As Integer, rInner As Double, rOuter As Double, nPoints As Integer, angleOffset As Double)
    ' x, y are same as for circle,
    ' rInner is center circle radius
    ' rOuter is the outer most point of star
    ' nPoints is the number of points,
    ' angleOffset = angle offset IN DEGREES, it will be converted to radians in sub
    ' this is to allow us to spin the polygon of n sides
    Dim As Double pAngle, radAngleOffset, x1, y1, x2, y2, x3, y3
    Dim As Integer i
    pAngle = RAD * (360 / nPoints)  :  radAngleOffset = RAD * (angleOffset)
    x1 = x + rInner * cos(radAngleOffset)
    y1 = y + rInner * sin(radAngleOffset)
    For i = 0 to nPoints - 1
        x2 = x + rOuter * cos(i * pAngle + radAngleOffset + .5 * pAngle)
        y2 = y + rOuter * sin(i * pAngle + radAngleOffset + .5 * pAngle)
        x3 = x + rInner * cos((i + 1) * pAngle + radAngleOffset)
        y3 = y + rInner * sin((i + 1) * pAngle + radAngleOffset)
        Line (x1, y1) - (x2, y2)
        Line (x2, y2) - (x3, y3)
        x1 = x3 : y1 = y3
    Next
end sub

sub chColor()
    clr = clr + 1
    Color rgb(127 + 127 * sin(r * clr), 127 + 127 * sin(g * clr), 127 + 127 * sin(b * clr))
    If clr > 50000 then r = Rnd(1) : g = Rnd(1): b = Rnd(1) : clr = 0
End Sub

Dim As Integer page, notpage, rd, cx, cy
Dim As Double size, radius, angle, sangle, x, y, r2
Dim ky as String

notpage = 1 : cx = sw/2 : cy = sh/2
sangle = 0.0 : r = Rnd(1) : g = Rnd(1) : b = Rnd(1)
While ky <> Chr(27)
    If page = 0 Then page = 1 ELSE page = 0   'These two lines flip the page and the
      If notpage = 1 THEN notpage = 0 ELSE notpage = 1 'backpage
      SCREENSET page, notpage 'This flips the page
           
      size = 1
      radius = .06
      angle = sangle
      cls
      While radius < 400
        x = cos(angle) * radius
        y = sin(angle) * radius
        r2 = (x ^ 2 + y ^ 2) ^ .5
        size = 4 * r2 ^ .25
        For rd = size to 1 step -10
          chColor
          star cx + x, cy + y, rd/3, rd*1.3, 7, 90
        Next
        angle -= .4
        radius += 1
      Wend

    Sleep(60)
   sangle = sangle + pi/18
      ky = InKey
Wend

For a bad joke 
http://www.laughfactory.com/jokes/joke-of-the-day 
worse than Pete's Big Grin
Find all posts by this user
Like Post
05-08-2017, 08:18 PM
Post: #4
 (Print Post)
I have no experience in using the FB graphic commands so I am no help but dodicat and dafhi are experts.
Find all posts by this user
Like Post
05-08-2017, 08:38 PM (This post was last modified: 05-08-2017 08:40 PM by bplus.)
Post: #5
 (Print Post)
Hi Jack,

Assuming you have fairly recent copy of FB, I thought the above code might be fun to watch specially as color patterns change. press esc when done.

For a bad joke 
http://www.laughfactory.com/jokes/joke-of-the-day 
worse than Pete's Big Grin
Find all posts by this user
Like Post
08-29-2017, 11:24 AM
Post: #6
 (Print Post)
Pardon me but I can barely contain myself.
I wanted to post a new topic about hacking but because this topic is titled "Hi Jack", I couldn't resist.
So on that note:

When I tell people I can program, the usual response is: "Oh, so... - you know how to hack?"

This typical response (question) lends to a conversation that I wish would be about programming such as writing programs in freebasic but sadly never does, instead it'll either be about hacking into the IRS and adjusting owed taxes or adding unlimited ammo or lives to a game.

So my question to you is: What is hacking?
Find all posts by this user
Like Post
08-29-2017, 12:07 PM
Post: #7
 (Print Post)
some links which are not at all random, but which answer the question with the nuance it deserves:

https://stallman.org/articles/on-hacking.html

https://hackaday.com/about/

https://news.ycombinator.com/

https://en.wikipedia.org/wiki/Hacker#Hacker_culture
Find all posts by this user
Like Post
08-29-2017, 01:14 PM
Post: #8
 (Print Post)
Well...

In the old days, for me, hacking was about learning a computers hardware and how to write software without any documentation or help from the manufactures. The one day, I heard that hacking was now about altering preexisting software for malicious reasons.

What I do every day when I try different techniques of programming is still hacking to me. But what do I know?


Walter Whitman
The Joyful Programmer

Dedicated to working with computer programming hobbyists, tinkerers, amateurs, and enthusiasts.
Find all posts by this user
Like Post
08-29-2017, 04:04 PM (This post was last modified: 08-29-2017 04:08 PM by owen.)
Post: #9
 (Print Post)
what hacking means to me would be something like this:
my goal is to hack my own game (freeze tag).
i want the game to have unlimited ammo.

two ways to go about it.
1. simply edit the source code and recompile. (no wait, this aint hacking - it more like programming)
or
2. if only the binary executable was available to me, i would have to figure out which bits to change in the binary.

in order to examine this idea i'll make two binaries.
one with 10 rounds of ammo and another with 20 rounds of ammo.
compare the two binaries to see which bits are different then see if by altering those bits, if my ammo is increased.
Find all posts by this user
Like Post
10-21-2017, 06:33 PM
Post: #10
 (Print Post)
Quote:
Always wanted to do that!

Hey, we haven't met, how are you? (who are you?)

I am Mark but go by blpus too. Do you know any Basic's.
I see you finally found a way to "Hi Jack" your own thread. Congratulations!

Pete Big Grin
Find all posts by this user
Like Post



Forum Jump:


User(s) browsing this thread: 1 Guest(s)




QB64 Member Project - Isolation
QB64 Member Project - Sabotage
QB64 Member Project - Qubic
QB64 Member Project - Spiro Roses
QB64 Member Project - Line Thickness
QB64 Member Project - RGB Color Wheel
QB64 Member Project - Dreamy Clock
QB64 Member Project - Martin Fractals version one
QB64 Member Project - Score 4
QB64 Member Project - 9 Board
QB64 Member Project - Splatter
QB64 Member Project - Touche
QB64 Member Project - Domain
QB64 Member Project - Color Triangles
QB64 Member Project - Spinning Color Wheel
QB64 Member Project - Swirl
QB64 Member Project - Kings Vallery version two
QB64 Member Project - Red Scrolling LED Sign
QB64 Member Project - Color Rotating Text
QB64 Member Project - Input
QB64 Member Project - Pivot version two
QB64 Member Project - Overboard
QB64 Member Project - Pivet version one
QB64 Member Project - Foursight
QB64 Member Project - Basic Dithering
QB64 Member Project - Exit
QB64 Member Project - Martin Fractals version two
QB64 Member Project - Algeria Weather
QB64 Member Project - Dakapo
QB64 Member Project - Kings Court
QB64 Member Project - Full Color LED Sign
QB64 Member Project - OpenGL Triangles
QB64 Member Project - Point Blank
QB64 Member Project - Rubix's Magic
QB64 Member Project - Martin Fractals version four
QB64 Member Project - Othello
QB64 Member Project - Quarto
QB64 Member Project - Kings Valley verion one
QB64 Member Project - Amazon
QB64 Member Project - Connect Four
QB64 Member Project - Blokus
QB64 Member Project - Rotating Background
QB64 Member Project - MAPTRIANGLE
QB64 Member Project - Kobolts Monopoly
QB64 Member Project - Martin Fractals version three
QB64 Member Project - Inside Moves
QB64 Member Project - STxAxTIC 3D World
QB64 Member Project - Bowditch curve
QB64 Member Project - ARB Checkers