Saturday, May 2, 2015

Neural Synchronizer Application



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