SyntaxBomb - Indie Coders

QuoteNothing 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 Smile

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!

QuoteA 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.

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

'  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

QuoteI tried the all whisky diet. I've lost three days already.