Meant to follow the idea that the waves can be synced (right and left hemispheres of the brain) through stimuli, using audio and visual. Going to add a physical piece for the palms with a high speed solenoid. I used VB because of the libs for audio(.Beep())
Vis with Processing:
void setup() { size(600,600); } void draw(){ noCursor(); background(random(0,255)); }
The rest is using VB:
Auditory:
1 2 3 4 5 6 | Public Class Form2 Private Sub audodd_Click(sender As Object, e As EventArgs) Handles audodd.Click Console.Beep(250, 900000000) End Sub End Class |
The auditory is emmitting at 250Hz and the 900000000 is for timing.
Visual:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | Public Class Form1 Dim I As Integer Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub Sync_Click(sender As Object, e As EventArgs) Handles Sync.Click vis.Visible = True Dim SecondForm As New Form2 SecondForm.Show() visual.Enabled = True visualone.Enabled = True End Sub Private Sub visual_Tick(sender As Object, e As EventArgs) Handles visual.Tick vis.Visible = True End Sub Private Sub visualone_Tick(sender As Object, e As EventArgs) Handles visualone.Tick vis.Visible = False End Sub End Class |
No comments:
Post a Comment