音声認識処理

リスト6：MainWindow.xaml.vbの一部、リスト5の続き

Private Sub speechEngine_SpeechRecognized(sender As Object, e As SpeechRecognizedEventArgs)
    Const myConfidence As Double = 0.6
    If e.Result.Confidence >= myConfidence Then　　　（1）
        Select Case e.Result.Text
            Case "うえ"　　　（2）
                If Index <= 0 Then
                    Index = 0
                    Exit Sub
                Else
                    Index -= 1
                End If
                ListBox1.SelectedIndex = Index　　　（4）
                ListBox1.ScrollIntoView(ListBox1.SelectedItem) 　　　（5）
            Case "した"　　　（3）
                If Index >= ListBox1.Items.Count - 1 Then
                    Index = ListBox1.Items.Count - 1
                    Exit Sub
                Else
                    Index += 1
                End If
                ListBox1.SelectedIndex = Index　　　（4）
                ListBox1.ScrollIntoView(ListBox1.SelectedItem) 　　　（5）
        End Select
    End If
End Sub

リスト7：MainWindow.xaml.vbの一部、リスト6の続き

Private Sub myBodyFrameReader_FrameArrived(sender As Object, e As BodyFrameArrivedEventArgs)
    CanvasBody.Children.Clear()　　　（1）
    CanvasBody2.Children.Clear()
    Using myBodyFrame = e.FrameReference.AcquireFrame　　　（2）
        If myBodyFrame Is Nothing = True Then
            Return
        End If
        myBodyFrame.GetAndRefreshBodyData(myBodies) 　　　（3）
    End Using
    For Each body In myBodies
        For Each joint In body.Joints　　　（4）
            If joint.Value.TrackingState = TrackingState.Tracked Then
                DrawEllipse(joint.Value, 10, Brushes.Transparent)　　 （5）
            End If
        Next
    Next
End Sub

リスト8：MainWindow.xaml.vbの一部、リスト7の続き

Private Sub MainWindow_Closing(sender As Object, e As ComponentModel.CancelEventArgs) Handles Me.Closing
    If myKinect Is Nothing = False Then
        myKinect.Close()
        myKinect = Nothing
    End If
End Sub

リスト9：MainWindow.xaml.vbの一部、リスト8の続き

Private Sub ListBox1_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles ListBox1.SelectionChanged
    myMask = DirectCast(ListBox1.SelectedItem, Mask).画像名
End Sub

リスト10：MainWindow.xaml.vbの一部、リスト9の続き

Private Sub DrawEllipse(myJoint As Joint, R As Integer, myBrush As Brush)
    Dim myEllipse = New Ellipse
    With myEllipse
        .Width = R
        .Height = R
        .Fill = myBrush
    End With

    point = myKinect.CoordinateMapper.MapCameraPointToDepthSpace(myJoint.Position)　（1）
    If point.X < 0 OrElse point.Y < 0 Then
        Return
    End If
    Canvas.SetLeft(myEllipse, point.X - (R / 2))　　　（2）
    Canvas.SetTop(myEllipse, point.Y - (R / 2))
    If myJoint.JointType = JointType.Head AndAlso myMask <> String.Empty Then
        myImage = New Image　　　（3）
        With myImage　　　（4）
            .Width = 60
            .Height = 75
            .Source = New BitmapImage(New Uri(myMask, UriKind.Relative))
        End With
        Canvas.SetLeft(myImage, point.X - 30)　　　（5）
        Canvas.SetTop(myImage, point.Y - 30)
        CanvasBody2.Children.Add(myImage)
    End If
    CanvasBody.Children.Add(myEllipse)　　　（6）
End Sub

リスト11：MainWindow.xaml.vbの一部、リスト10の続き

Private Sub myColorFrameReader_FrameArrived(sender As Object, e As ColorFrameArrivedEventArgs)
    Dim colorFrameProcessed As Boolean = False
    Using myColorFrame As ColorFrame = e.FrameReference.AcquireFrame　　（1）
        If myColorFrame Is Nothing = False Then
            Dim myColorFrameDescription As FrameDescription = myColorFrame.FrameDescription　　　（2）
            If myColorFrameDescription.Width = colorBitmap.PixelWidth AndAlso myColorFrameDescription.Height = colorBitmap.PixelHeight Then　　　（3）
                If myColorFrame.RawColorImageFormat = ColorImageFormat.Bgra Then　　　（4）
                    myColorFrame.CopyRawFrameDataToArray(ColorImagePixelData)
                Else
                    myColorFrame.CopyConvertedFrameDataToArray(ColorImagePixelData, ColorImageFormat.Bgra)
                End If
                colorFrameProcessed = True　　　（5）
            End If
        End If
    End Using
    If colorFrameProcessed = True Then
        colorBitmap.WritePixels(New Int32Rect(0, 0, colorBitmap.PixelWidth, colorBitmap.PixelHeight), ColorImagePixelData, colorBitmap.PixelWidth * BytesPerPixel, 0)　　　（6）
        roomImage.Source = colorBitmap　　　（7）
    End If
End Sub
End Class