Перевод кода c # в vb с ошибкой - PullRequest
0 голосов
/ 30 октября 2019

Мне было интересно, где в моем переводе неверно, это заставит меня дать эту ошибку. а также я попытался удалить код Await, и он работает

C #

    var manager = new AnvizManager();

#if true //authenticate with device password
            manager.ConnectionUser = "admin";
            manager.ConnectionPassword = "12345";
            manager.AuthenticateConnection = true;
#endif
#if true //false for client mode
            manager.Listen();
            Console.WriteLine($"Listening on port 5010");
            using (var device = await manager.Accept())
#else
            using (var device = await manager.Connect(DEVICE_HOST))
#endif
            {
                device.DevicePing += (s, e) => Console.WriteLine("Device Ping Received");
                device.ReceivedPacket += (s, e) => Console.WriteLine("Received packet");
                var id = await device.GetDeviceID();
                var sn = await device.GetDeviceSN();
                var type = await device.GetDeviceTypeCode();
                Console.WriteLine($"Connected to device {type} ID {id} SN {sn}");
                if (id != DEVICE_ID)
                {
                    await device.SetDeviceID(DEVICE_ID);
                }

Мой перевод на VB.NET дает мне ошибку в строке: Using device = await manager.Accept()

VB.NET Перевод Я уже пробовал:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Dim DEVICE_ID As ULong = "1"
    Dim DEVICE_HOST As String = "10.0.0.1"

    Dim manager = New AnvizManager()

    If True Then
        manager.ConnectionUser = "admin"
        manager.ConnectionPassword = "123"
        manager.AuthenticateConnection = True

    End If
    If True Then
        manager.Listen()
        Using device = Await manager.Accept() 'I'm getting an error in this line.



        End Using
    End If

End Sub

Sample image of Error

...