Do It Yourself Project Ideas

[bplus]

Nothing beats the feeling of coding your own project successfully except maybe having a child, writing a book, painting a masterpiece, ... well I guess the list could be endless

Here's an idea I worked on recently that I will save you from showing the code I came up with.

I wanted to practice meditation more and I always liked following your breath exercises so:

I started with what I call a "Tesla Breath" Tesla loved numbers 3, 6, 9 
1. Inhale for count of 3
2. Hold count of 6
3. Exhale for count of 9 

not exactly box breathing but we want to be genuii like Tesla right?

4. then I added mod to slow the counts down over time so that you breath significantly slower when you finish than from when you start.

5. then I added positive words list to display while counting out Inhales, Holds and Exhales. A randomly selected word for each count. This list is separate from bas source to edit whenever you like or maybe change the flavor of meditation with a whole different list.

6. next up in last session I realized I need to build in a timer for a minimum session length to set at start.

So that's my idea for a neat little project you can make All Your Own!

[Pete]

Okay, but what's a...

geunii?

Maybe reduce the amount of time you're holding your breath?

Code: (Select All)

Do

? "Inhale":  _delay 3: Cls

? "Hold...": _delay 6 : Cls

? "Exhale": _delay 9 : Cls

Loop

Hey Mark, I was thinking about the random comments; why not jokes? See if the user can hold his friggin' breath when he hears the one about, "Why did the North Korean chicken cross the road?"

Pete

[bplus]

OK I meant genii sorta like jedi   (multiple of genius)

I dont know who you quoted here ?? I spelled it (wrongly) genuii

Quote:

geunii?

Your code is a start but I use full screen and... well see!
   

[Pete]

Oops, I transposed the u and n. Oh well, I couldn't find anything for "genuii." I figured you blacked out when trying to type genius.

But mine's in screen 0, the most relaxing screen you'll ever need!

Pete

[bplus]

Well if you really, really, really need the sleep

Oh! I like the jokes idea, for sure! but that is a different meditation.

At the break of an Exhale ha, ha, ha, ha, ha, ha, ha, ha, ha!

[bplus]

Update: I am adding Plasma Coloring to positive word display so every session will have a color theme mostly different from previous day. What could be more signature bplus than Plasma Coloring! 

Also I counted the first cycles of breath for 1 minute and get 4, that's 15 secs per breath cycle. I think that is impressive to start with but maybe someone brand new might try 10 or 12 sec cycles and work up?

I did my first 10 minute session (with 2 sips of coffee adding 2 extra cycles to 10 m) and Holy Cow I raised my diastolic from what I think is too low 55 to 71 keeping systolic 124. I think that is good? 
@Pete what do you think pro bono?

[bplus]

Since the mention of jokes for meditation I pulled up my Henny pecked application from 2018.
   

Just a collection of one-liners saved in a Jokes.txt file:
sample of mine:

A computer once beat me at chess, but it was no match for me at kick boxing.
What did one ocean say to the other ocean? Nothing, they just waved.
A bank is a place that will lend you money, if you can prove that you do not need it.
What is faster, hot or cold? Hot, because you can catch a cold.
Whats the difference between a new husband and a new dog? After a year, the dog is still excited to see you.
Love may be blind, but marriage is a real eye-opener.
I say no to sweets, they dont listen.

read the txt file into a string array.
add some code to display one-liners in center of screen.
I could make mine with a little bigger text that we've been playing with here recently.

Code: (Select All)

Sub Text (x, y, textHeight, fore As _Unsigned Long, back As _Unsigned Long, txt$)
    Dim fg As _Unsigned Long, bg As _Unsigned Long, cur&, i&
    fg = _DefaultColor: bg = _BackgroundColor: cur& = _Dest
    i& = _NewImage(8 * Len(txt$), 16, 32)
    _Dest i&: Color fore, back: _PrintString (0, 0), txt$
    _PutImage (x, y)-Step(Len(txt$) * textHeight / 2, textHeight), i&, cur&
    Color fg, bg: _FreeImage i&: _Dest cur&
End Sub

Or just load your favorite font

and I added a voice to read the joke, nothing beats the monotone of computer voice for Steven Wright jokes

code I use in Windows for voice read jokes:

Code: (Select All)

Sub speak (message As String)
    Shell _Hide "Powershell -Command " + Chr$(34) + "Add-Type -AssemblyName System.Speech; (New-Object System.Speech.Synthesis.SpeechSynthesizer).Speak('" + message + "');" + Chr$(34)
End Sub

There you have it, another Do-It-Yourself Project!

[PhilOfPerth]

Since the mention of jokes for meditation I pulled up my Henny pecked application from 2018.


Just a collection of one-liners saved in a Jokes.txt file:
sample of mine:

A computer once beat me at chess, but it was no match for me at kick boxing.
What did one ocean say to the other ocean? Nothing, they just waved.
A bank is a place that will lend you money, if you can prove that you do not need it.
What is faster, hot or cold? Hot, because you can catch a cold.
Whats the difference between a new husband and a new dog? After a year, the dog is still excited to see you.
Love may be blind, but marriage is a real eye-opener.
I say no to sweets, they dont listen.

read the txt file into a string array.
add some code to display one-liners in center of screen.
I could make mine with a little bigger text that we've been playing with here recently.

Code: (Select All)

Sub Text (x, y, textHeight, fore As _Unsigned Long, back As _Unsigned Long, txt$)
    Dim fg As _Unsigned Long, bg As _Unsigned Long, cur&, i&
    fg = _DefaultColor: bg = _BackgroundColor: cur& = _Dest
    i& = _NewImage(8 * Len(txt$), 16, 32)
    _Dest i&: Color fore, back: _PrintString (0, 0), txt$
    _PutImage (x, y)-Step(Len(txt$) * textHeight / 2, textHeight), i&, cur&
    Color fg, bg: _FreeImage i&: _Dest cur&
End Sub

Or just load your favorite font

and I added a voice to read the joke, nothing beats the monotone of computer voice for Steven Wright jokes

code I use in Windows for voice read jokes:

Code: (Select All)

Sub speak (message As String)
    Shell _Hide "Powershell -Command " + Chr$(34) + "Add-Type -AssemblyName System.Speech; (New-Object System.Speech.Synthesis.SpeechSynthesizer).Speak('" + message + "');" + Chr$(34)
End Sub

There you have it, another Do-It-Yourself Project!

Great; Respiration: a real inspiration (but may bring on excessive perspiration)!
I love that text-to-voice sub - may add that to some of my games to read Instructions etc. if that's ok ?

[bplus]

Hey @PhilOfPerth

Here is an alternate of text to speech in case 1 line is just not enough!

Code: (Select All)

'   alternate way for speech
'Sub speak (message As String)
'    '''modifed from "Code" at JB forum
'    Open "sound.vbs" For Output As #1
'    Print #1, "Dim message, sapi"
'    Print #1, "message=" + Chr$(34) + message + Chr$(34) + " "
'    Print #1, "Set sapi=CreateObject(" + Chr$(34) + "sapi.spvoice" + Chr$(34) + ")"
'    Print #1, "sapi.Speak message"
'    Close #1
'    Shell "wscript sound.vbs"
'End Sub

[SMcNeill]

https://qb64phoenix.com/forum/showthread.php?tid=132 <-- Text to Speech with various options.