Private Sub m_tetClient_OnGazeData(ByVal gazedataholder As Object) Handles myTetClient.OnGazeData
Try
'SET the gazeData to the GazeDataHolder
gazeData = CType(gazedataholder, TetGazeDataHolder)
'Record X and Y Eye Data
'X
VideoEyeData(trial_Count, videoPlay_Count).x_coOrdinates.Add _
((gazeData.GazePosXLeftEye + gazeData.GazePosXRightEye) / 2)
'Y
VideoEyeData(trial_Count, videoPlay_Count).y_coOrdinates.Add _
((gazeData.GazePosYLeftEye + gazeData.GazePosYRightEye) / 2)
'Record TIME Data
'Seconds Time Stamp
VideoEyeData(trial_Count, videoPlay_Count).second_Stamp.Add _
(gazeData.TimeStampSec)
'Micro-Second Time Stamp (0 to 99999)
VideoEyeData(trial_Count, videoPlay_Count).micro_SecondStamp.Add _
(gazeData.TimeStampMicroSec)
'Record average distance
VideoEyeData(trial_Count, videoPlay_Count).distance_measure.Add _
((gazeData.DistanceLeftEye + gazeData.DistanceRightEye) / 2)
'Record Validity for Left Eye (0 = total accuracy)
VideoEyeData(trial_Count, videoPlay_Count).leftEye_Validity.Add _
(gazeData.ValidityLeftEye)
'Record Validity for Right Eye (0 = total accuracy)
VideoEyeData(trial_Count, videoPlay_Count).rightEye_Validity.Add _
(gazeData.ValidityRightEye)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub