EmoApp.vb

Public Class Multimod
    'creamos la subrutina para cambiar el tema con el CheckedBox

    Private Sub ThemeCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ThemeCheckBox.CheckedChanged
        If DarkTheme Then
            'cambiamos al Light Theme cuando tengamos el Dark
            CurrentTheme = MetroFramework.MetroThemeStyle.Light
            ''MetroTextColor = MetroFramework.MetroColors.Black
            MetroBackColor = MetroFramework.MetroColors.White
            DarkTheme = False
            VideoPlayerForm.playButton.Image = My.Resources.lplay
            VideoPlayerForm.pauseButton.Image = My.Resources.lpause
            VideoPlayerForm.stopButton.Image = My.Resources.lstop
            DataViewerForm.eegViewer.Image = My.Resources.lsensors
        Else
            'y lo mismo para a la inversa
            CurrentTheme = MetroFramework.MetroThemeStyle.Dark
            ''MetroTextColor = MetroFramework.MetroColors.White
            MetroBackColor = MetroFramework.MetroColors.Black
            DarkTheme = True
            VideoPlayerForm.playButton.Image = My.Resources.dplay
            VideoPlayerForm.pauseButton.Image = My.Resources.dpause
            VideoPlayerForm.stopButton.Image = My.Resources.dstop
            DataViewerForm.eegViewer.Image = My.Resources.dsensors

        End If
        'actulizamos el tema de todos los formularios y sus objetos
        Me.Theme = CurrentTheme
        ThemeCheckBox.Theme = CurrentTheme
        SynchroButton.Theme = CurrentTheme
        DataViewerButton.Theme = CurrentTheme
        VideoPlayerButton.Theme = CurrentTheme
        AudioPlayerButton.Theme = CurrentTheme
        WebcamButton.Theme = CurrentTheme
        EmotivButton.Theme = CurrentTheme
        PraatButton.Theme = CurrentTheme
        ElanButton.Theme = CurrentTheme

        WebcamForm.Theme = CurrentTheme
        WebcamForm.recordButton.Theme = CurrentTheme
        WebcamForm.cameraButton.Theme = CurrentTheme

        VideoPlayerForm.Theme = CurrentTheme

        DataViewerForm.Theme = CurrentTheme
        DataViewerForm.durationTrackBar.Theme = CurrentTheme
        DataViewerForm.timeTextBox.Theme = CurrentTheme
        DataViewerForm.setTimeButton.Theme = CurrentTheme
        DataViewerForm.loadVideoButton.Theme = CurrentTheme
        DataViewerForm.loadWebcamButton.Theme = CurrentTheme
        DataViewerForm.eegViewerLabel.Theme = CurrentTheme
        DataViewerForm.csvView.BackgroundColor = MetroBackColor
        DataViewerForm.loadCsvButton.Theme = CurrentTheme
        'y refrescamos todos ellos
        Me.Refresh()
        WebcamForm.Refresh()
        VideoPlayerForm.Refresh()
        DataViewerForm.Refresh()
    End Sub
    'creamos la subrutina para el boton del Praat
    Private Sub PraatButton_Click(sender As Object, e As EventArgs) Handles PraatButton.Click
        'intentamos abrir el programa
        Try
            System.Diagnostics.Process.Start(PraatPath)
            'si no lo conseguimos, mostramos el error correspondiente
        Catch startError As Exception
            ''Console.WriteLine(startError.Message)
            Msg = "No Program Path Specified"
            MsgForm.ShowDialog()
            OpenFileDialog.ShowDialog()
            MsgForm.Close()
            'si se ha seleccionado una ruta válida...
            If OpenFileDialog.FileName <> NullPath Then
                PraatPath = OpenFileDialog.FileName
                Msg = "SUCCESSFULLY CHANGED!"
                MsgForm.Show()
            End If
            'devolvemos la ruta predefinida para evitar futuros errores
            OpenFileDialog.FileName = NullPath
        End Try
    End Sub
    'creamos la subrutina para el boton del Elan
    Private Sub ElanButton_Click(sender As Object, e As EventArgs) Handles ElanButton.Click
        'intentamos abrir el programa
        Try
            System.Diagnostics.Process.Start(ElanPath)
            'si no lo conseguimos, mostramos el error correspondiente
        Catch startError As Exception
            ''Console.WriteLine(startError.Message)
            Msg = "No Program Path Specified"
            MsgForm.ShowDialog()
            OpenFileDialog.ShowDialog()
            MsgForm.Close()
            'si se ha seleccionado una ruta válida...
            If OpenFileDialog.FileName <> NullPath Then
                ElanPath = OpenFileDialog.FileName
                Msg = "SUCCESSFULLY CHANGED!"
                MsgForm.Show()
            End If
            'devolvemos la ruta predefinida para evitar futuros errores
            OpenFileDialog.FileName = NullPath
        End Try
    End Sub
    'creamos la subrutina para el boton de la webcam
    Private Sub WebcamButton_Click(sender As Object, e As EventArgs) Handles WebcamButton.Click
        'mostramos el formulario
        WebcamForm.Show()
    End Sub
    'creamos la subrutina para el boton del EEGWriter
    Private Sub EmotivButton_Click(sender As Object, e As EventArgs) Handles EmotivButton.Click
        'intentamos abrir el programa
        Try
            System.Diagnostics.Process.Start(EEGWriterPath)
        Catch ex As Exception

        End Try
    End Sub
    'creamos una subrutina para tener todos los archivos generados en una misma carpeta
    Private Sub getOutputFiles()
        Try
            'buscamos todos los .csv generados con el EEGWriter
            For Each csvFile As String In My.Computer.FileSystem.GetFiles(MyPath, FileIO.SearchOption.SearchTopLevelOnly, "*.csv")
                'y los copiamos a la ruta deseada
                My.Computer.FileSystem.MoveFile(csvFile, defaultOutputPath & My.Computer.FileSystem.GetName(csvFile))
            Next
        Catch ex As Exception
            'si nos sale una IOException, que es la as comun, mostramos el mensaje, pero por si acaso nosotros hemos recogido cualquier excepcion
            If TypeOf ex Is IO.IOException Then
                Console.WriteLine("HAY UNO O VARIOS ARCHIVOS QUE YA EXISTEN EN LA CARPETA DESTINO, POR FAVOR RENOMBRE DICHOS ARCHIVOS")
            End If
        End Try
    End Sub
    'creamos la subrutina para el boton de la Sincronizacion
    Private Sub synchroButton_Click(sender As Object, e As EventArgs) Handles SynchroButton.Click
        'la primera vez que pulsemos el boton de sincronizar
        If SynchroButton.Text = "START SYNCHRO" Then
            'damos la opcion de elegir un video
            If MetroFramework.MetroMessageBox.Show(Me, "Would you like to load a video?", "Sample video", MessageBoxButtons.OKCancel, MessageBoxIcon.Question
                                                   ) = DialogResult.OK Then
                VideoPlayerForm.Show()
            End If
            'si la camara no está visible
            If WebcamForm.Visible <> True Then
                'mostramos el Form de la cámara
                WebcamForm.Show()
                'si no se ha seleccionado una cámara previamente
                If Not cameraSet Then
                    'obligamos a ello
                    WebcamForm.cameraButton_Click(sender, e)
                End If
            End If
            'una vez hecho esto, cambiamos el texto del boton
            SynchroButton.Text = "START RECORDING"
            'si ya esta todo sincronizado...
        ElseIf SynchroButton.Text = "START RECORDING" Then
            'abrimos todo aquello que recoja datos
            Try
                EmotivButton_Click(sender, e)
                WebcamForm.startRecording()
                System.Threading.Thread.Sleep(100)
                VideoPlayerForm.playButton_Click(sender, e)



                WebcamForm.mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
                WebcamForm.mciSendString("record recsound", "", 0, 0)
                WebcamForm.SaveFileDialog1.FileName = defaultOutputPath + DateTime.Now.ToString("ddMMyyyyHHmmssffff") + ".mp3"
                'ponemos nombre al archivo 
            Catch ex As Exception
            End Try
            'cambiamos el texto del boton y el estilo del Form
            SynchroButton.Text = "STOP RECORDING"
            Style = MetroFramework.MetroColorStyle.Red
            Refresh()
            'si estamos grabando...
        ElseIf SynchroButton.Text = "STOP RECORDING" Then
            'paramos todo aquello que este grabando algo
            Try
                VideoPlayerForm.pauseButton_Click(sender, e)
                WebcamForm.mciSendString("save recsound " & WebcamForm.SaveFileDialog1.FileName, "", 0, 0)
                WebcamForm.mciSendString("close recsound", "", 0, 0)
                My.Computer.Audio.Stop()
                WebcamForm.startRecording()
                Dim eegWriterProcess As Process
                Dim eegWriterProcesses() As Process
                eegWriterProcesses = Process.GetProcessesByName("eegwriter")
                For Each eegWriterProcess In eegWriterProcesses
                    eegWriterProcess.CloseMainWindow()
                Next
            Catch ex As Exception
            End Try
            'cambiamos los estilos y el texto
            SynchroButton.Text = "START SYNCHRO"
            Style = MetroFramework.MetroColorStyle.Green
            Refresh()
            'agrupamos los archivos en una misma carpeta
            getOutputFiles()
        End If
    End Sub
    'creamos la subrutina para el boton del reproductor de video
    Private Sub videoPlayerButton_Click(sender As Object, e As EventArgs) Handles VideoPlayerButton.Click
        'mostramos el formulario
        VideoPlayerForm.Show()
    End Sub
    'creamos la subrutina para el boton del reproductor de video
    Private Sub dataViewerButton_Click(sender As Object, e As EventArgs) Handles DataViewerButton.Click
        'mostramos el formulario
        DataViewerForm.Show()
    End Sub

    Private Sub AudioPlayerButton_Click(sender As Object, e As EventArgs) Handles AudioPlayerButton.Click
        AudioForm.Show()
    End Sub

    Private Sub EmoApp_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        WebcamForm.WebcamForm_FormClosing(sender, e)
    End Sub

    Private Sub diadema_Click(sender As Object, e As EventArgs)

    End Sub
End Class