Sub Process_Globals
Dim astream As AudioStreamer
Dim myaudio As List
Dim nowrecord As Boolean
end sub
Sub Button1_Click
If nowrecord=False Then
Button1.textColor=Colors.red
nowrecord=True
Log("recording")
myaudio.clear
astream.StartRecording
Else
astream.StopRecording
' Log("playing")
' astream.StartPlaying 'This is for playing :)
' For Each b() As Byte In myaudio
' astream.Write(b)
' Next
' astream.Write(Null)
'write to db
'HOW ?
....................
nowrecord=False
Button1.textColor=Colors.Green
End If
End Sub