Как передать аргумент в Async.RunSynchronously?

Question

Как передать аргумент в Async.RunSynchronously?

Я пытаюсь сделать следующее:

Async.RunSynchronously (moveAsync brick) 

Конечно, это не компилируется:

Значение или конструктор 'кирпич' не определен

Я обновил свой код, но я все еще сталкиваюсь с той же проблемой, связанной с передачей аргумента в Async.RunSynchronously

Клиент:

открытые LegoCommands

[<EntryPoint>] 
let main argv = 
    connectAsync |> Async.RunSynchronously |> ignore 
    moveAsync |> Async.RunSynchronously |> ignore 
    speakAsync |> Async.RunSynchronously |> ignore 

    0 // return an integer exit code 

Домен:

В настоящее время мой код работает, устанавливая внешнюю переменную-член и имеющий мои функции относятся к нему.

let brick = Brick(UsbCommunication()) 

Я не хочу этого.

module LegoCommands 

open Lego.Ev3.Core 
open Lego.Ev3.Desktop 
open System.Threading.Tasks 
open Arguments 

let brick = Brick(UsbCommunication()) 

let awaitTask (task: Task) = task |> Async.AwaitIAsyncResult 
            |> Async.Ignore 
let connectAsync = async { 
    do! brick.ConnectAsync() |> awaitTask } 

let moveAsync = async { 
    do! brick.DirectCommand.TurnMotorAtPowerForTimeAsync(motors, power, uint32 duration, breakEnabled) |> awaitTask } 

let speakAsync = async { 
    do! brick.DirectCommand.PlayToneAsync(volume, frequency, duration) |> awaitTask } 

Answer 1

Я не уверен, что я сделал неправильно.

Но я больше не наблюдаю за ошибкой.

Клиент:

open LegoCommands 
open Lego.Ev3.Core 
open Lego.Ev3.Desktop 

[<EntryPoint>] 
let main argv = 
    let brick = Brick(UsbCommunication()) 
    brick |> connectAsync |> Async.RunSynchronously |> ignore 
    brick |> moveAsync |> Async.RunSynchronously |> ignore 
    brick |> speakAsync |> Async.RunSynchronously |> ignore 

    0 // return an integer exit code 

Домен:

module LegoCommands 

open Lego.Ev3.Core 
open Lego.Ev3.Desktop 
open System.Threading.Tasks 
open Arguments 

let awaitTask (task: Task) = task |> Async.AwaitIAsyncResult 
            |> Async.Ignore 
let connectAsync (brick:Brick) = async { 
    do! brick.ConnectAsync() |> awaitTask } 

let moveAsync (brick:Brick) = async { 
    do! brick.DirectCommand.TurnMotorAtPowerForTimeAsync(motors, power, uint32 duration, breakEnabled) |> awaitTask } 

let speakAsync (brick:Brick) = async { 
    do! brick.DirectCommand.PlayToneAsync(volume, frequency, duration) |> awaitTask } 

Параметры:

module Arguments 
open Lego.Ev3.Core 

let volume = 50 
let frequency = uint16 3000 
let duration = uint16 333 
let power = 100 
let motors = OutputPort.B ||| OutputPort.C 
let breakEnabled = false 

Answer 2

На третьей строке «клиент» вы используете brick, который еще не определен в этой точке.

Async.RunSynchronously (connectAsync brick) 

То же самое происходит на последней строке «домена»:

Async.RunSynchronously (moveAsync(brick)) 

Сообщение об ошибке говорит вам именно это: brick не определен.