Kinect v2のジェスチャーでBing Mapsを未来的に直感操作する

リスト2：MainWindow.xaml.vbの一部

Imports Microsoft.Maps.MapControl.WPF　　　（1）
Imports System.Net.Http　　　（2）
Imports Microsoft.Kinect
Imports System.ComponentModel
Class MainWindow
    Private myKinect As KinectSensor
    Private myBodyFrameReader As BodyFrameReader
    Private myBodies As Body()

    Private myHandPositionX As Double
    Private myHandPositionY As Double
    Private myColorSpacePoint As ColorSpacePoint　　　（3）
    Private MyBytesPerPixel As Integer = 4

    Private myColorFrameReader As ColorFrameReader = Nothing
    Private colorBitmap As WriteableBitmap = Nothing
    Private ColorImagePixelData As Byte()
    Private BytesPerPixel As Integer = 4
    Private commonJoint As Joint　　　（4）
    Private point As DepthSpacePoint　　　（5）
    Private Index As Integer = 0
    Private no As Integer = 0

リスト3：MainWindow.xaml.vbの一部（リスト2の続き）

Private Async Sub MainWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
    Dim client As New HttpClient　　　（1）
    Dim myPin As New Pushpin　　　（2）
    Dim myAddress As String = "愛媛県松山市道後"　　　（3）
    Dim addressUri = String.Format("http://www.geocoding.jp/api/?v=1.1&q={0}", myAddress)　（4）
    Dim myResponse = Await client.GetStringAsync(New Uri(addressUri, UriKind.Absolute))　　（5）
    Dim doc = XElement.Parse(myResponse)　　　（6）
    Dim myAddressLatitude = doc.Descendants("coordinate").Elements("lat").Value　　（7）
    Dim myAddressLongitude = doc.Descendants("coordinate").Elements("lng").Value
    Dim myLabel As New Label　　　（8）
    With myLabel
        .Content = myAddress
        .Foreground = New SolidColorBrush(Colors.Navy) 　　　（9）
        .Background = New SolidColorBrush(Colors.Beige)
        .FontSize = 20
    End With

    Dim myLocation As New Location　　　（10）
    myLocation.Latitude = myAddressLatitude　　　（11）
    myLocation.Longitude = myAddressLongitude
    myPin.Location = New Location(myAddressLatitude, myAddressLongitude)　（12）
    MapLayer.SetPosition(myLabel, myLocation)　　　（13）

    myMap.SetView(myLocation, 16)　　　（14）
    myMap.Children.Add(myPin)　　　（15）
    myMap.Children.Add(myLabel)

    myKinect = KinectSensor.GetDefault　　　（16）
    If myKinect Is Nothing = False Then　　　（17）
        Dim myDepthDescription = myKinect.DepthFrameSource.FrameDescription　　（18）
        myKinect.Open()　　　（19）
        myBodyFrameReader = myKinect.BodyFrameSource.OpenReader　　（20）
        AddHandler myBodyFrameReader.FrameArrived, AddressOf myBodyFrameReader_FrameArrived　　（21）
        myBodies = New Body(myKinect.BodyFrameSource.BodyCount - 1) {}　（22）
        myColorFrameReader = myKinect.ColorFrameSource.OpenReader （23）
        Dim myColorFrameDescription As FrameDescription = myKinect.ColorFrameSource.CreateFrameDescription(ColorImageFormat.Bgra)　 （24）
        ColorImagePixelData = New Byte(myColorFrameDescription.Width * myColorFrameDescription.Height * BytesPerPixel - 1) {}　　（25）
        colorBitmap = New WriteableBitmap(myColorFrameDescription.Width, myColorFrameDescription.Height, 96.0, 96.0, PixelFormats.Bgr32, Nothing)　　（26）
    End If
End Sub