Kinect v2を使った「じゃんけんゲーム」を作る

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

    Private Sub speechEngine_SpeechRecognized(sender As Object, e As SpeechRecognizedEventArgs)
        messageTextBlock.Text = String.Empty
        Rnd = New Random
        RandomNumber = Rnd.Next(0, 2)　　　（1）
        Const myConfidence As Double = 0.4　　　（2）
        If e.Result.Confidence >= myConfidence Then
            Select Case e.Result.Text
                Case “じゃんけんぽん”
                    computerJankenImage.Source = Nothing

                    JyankenImage = xmldoc.Descendants(“画像名”)(RandomNumber).Value　　　（3）
                    computerJankenImage.Source = New BitmapImage(New Uri(“Images/” & JyankenImage, UriKind.Relative))
                    If JyankenImage = “グー.png” AndAlso flagImage = “グー.png” Then　　　（4）
                        messageTextBlock.Text = “あいこです”
                    ElseIf JyankenImage = “パー.png” AndAlso flagImage = “パー.png” Then
                        messageTextBlock.Text = “あいこです”
                    ElseIf JyankenImage = “チョキ.png” AndAlso flagImage = “チョキ.png” Then
                        messageTextBlock.Text = “あいこです”
                    ElseIf JyankenImage = “グー.png” AndAlso flagImage = “パー.png” Then
                        messageTextBlock.Text = “あなたの勝です”
                        player_Score += 1
                    ElseIf JyankenImage = “パー.png” AndAlso flagImage = “グー.png” Then
                        messageTextBlock.Text = “コンピューターの勝です”
                        computer_Score += 1
                    ElseIf JyankenImage = “パー.png” AndAlso flagImage = “チョキ.png” Then
                        messageTextBlock.Text = “あなたの勝です”
                        player_Score += 1
                    ElseIf JyankenImage = “チョキ.png” AndAlso flagImage = “パー.png” Then
                        messageTextBlock.Text = “コンピューターの勝です”
                        computer_Score += 1
                    ElseIf JyankenImage = “グー.png” AndAlso flagImage = “チョキ.png” Then
                        messageTextBlock.Text = “コンピューターの勝です”
                        computer_Score += 1
                    ElseIf JyankenImage = “チョキ.png” AndAlso flagImage = “グー.png” Then
                        messageTextBlock.Text = “あなたの勝です”
                        player_Score += 1
                    End If
                    playerScoreTextBlock.Text = “あなたの得点=” & player_Score
                    computerScoreTextBlock.Text = “コンピューターの得点=” & computer_Score
            End Select
        End If
    End Sub

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

    Private Sub myBodyFrameReader_FrameArrived(sender As Object, e As BodyFrameArrivedEventArgs)
        Using frame = e.FrameReference.AcquireFrame　　　（1）
            If frame Is Nothing = False Then
                Using myDataContext = myBodyDrawingGroup.Open
                    myDataContext.DrawRectangle(Brushes.Black, Nothing, myRect)
                    frame.GetAndRefreshBodyData(myBodies)　　　（2）
                    For i As Integer = 0 To Me.myBodies.Length - 1　　　（3）
                        If myBodies(i).IsTracked = True Then
                            Dim joints As IReadOnlyDictionary(Of JointType, Joint) = myBodies(i).Joints　　　（4）
                            Dim points As New Dictionary(Of JointType, Point)　（5）
                            For Each joint In joints.Keys　　（6）
                                Dim pos = myKinect.CoordinateMapper.MapCameraPointToDepthSpace(joints(joint).Position)　　　（7）
                                points(joint) = New Point(pos.X, pos.Y)　　　（8）
                                If joint = JointType.HandLeft Then　　　（9）
                                    DrawHandState(myBodies(i).Joints(JointType.HandLeft), myBodies(i).HandLeftState, myBodies(i).HandLeftConfidence)
                                ElseIf joint = JointType.HandRight Then
                                    DrawHandState(myBodies(i).Joints(JointType.HandRight), myBodies(i).HandRightState, myBodies(i).HandRightConfidence)
                                End If
                            Next
                        End If
                    Next
                    Me.myBodyDrawingGroup.ClipGeometry = New RectangleGeometry(myRect)　　　（10）
                End Using
            End If
        End Using
    End Sub

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

    Private Sub MainWindow_Closing(sender As Object, e As 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 myColorFrameReader_FrameArrived(sender As Object, e As ColorFrameArrivedEventArgs)
        Using myColorFrame As ColorFrame = e.FrameReference.AcquireFrame　（1）
            If myColorFrame Is Nothing = True Then
                Return
            End If
            myColorFrame.CopyConvertedFrameDataToArray(ColorImagePixelData, ColorImageFormat.Bgra)　　　（2）
        End Using
        colorBitmap.WritePixels(New Int32Rect(0, 0, colorBitmap.PixelWidth, colorBitmap.PixelHeight), ColorImagePixelData, colorBitmap.PixelWidth * BytesPerPixel, 0)　　　（3）
        Image1.Source = colorBitmap　　　（4）
    End Sub

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

    Private Sub DrawHandState(joint As Joint, state As HandState, myTrackingConfidence As TrackingConfidence)

        If myTrackingConfidence <> TrackingConfidence.High Then
            Return
        End If

        If state = HandState.Open Then
            jankenImage.Source = New BitmapImage(New Uri("Images/パー.png", UriKind.Relative))
            flagImage = "パー.png"
        ElseIf state = HandState.Closed Then
            jankenImage.Source = New BitmapImage(New Uri("Images/グー.png", UriKind.Relative))
            flagImage = "グー.png"
        ElseIf state = HandState.Lasso Then
            jankenImage.Source = New BitmapImage(New Uri("Images/チョキ.png", UriKind.Relative))
            flagImage = "チョキ.png"
        Else
            jankenImage.Source = Nothing
            Exit Sub
        End If
    End Sub
End Class