乱数を生成するスクリプトの作成

まず最初に、ユーザーの年齢に使用できる乱数を生成するスクリプトを作成します。

  1. ファイル > 新規作成 を選択します。
    資産の新規作成 ダイアログ ボックスが開きます。
  2. [資産の種類] リストから .NET スクリプト を選択し、資産名 テキスト ボックスに function_randomAge と入力して OK をクリックします。
    ヒント: スクリプトに「function」と名前を付けることにより、共通して使用されるテスト タスクのライブラリを整理でき、ここからすばやくタスクを選択して、ビジュアル テストに挿入することができます。
    スクリプトが コード ウィンドウに表示されます。
  3. Sub Main() の下の行にカーソルを置き、以下のように入力します。
    Dim rand As New Random()
    Dim TSrandomAge As Integer = rand.Next(10000, 99999)
    MsgBox(TSrandomAge)
    
  4. ツール バーで 再生 をクリックします。 再生 ダイアログ ボックスが開きます。
  5. OK をクリックします。 メッセージ ボックスが表示され、10,000 から 99,999 の生成された乱数が表示されます。
  6. OK をクリックします。 再生完了 ダイアログ ボックスが開きます。
  7. .NET スクリプトへ移動 をクリックします。
  8. 数値範囲パラメータの (10000, 99999) をパラメータ MinValMaxVal に置き換えます。 これら 2 つのパラメータを使用することにより、スクリプトを開いて値を変更するのではなく、このスクリプトを再生するビジュアル テストから乱数の範囲を設定することができます。 以下のように入力します。
    Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
  9. スクリプトが適切に動作することを確認するために、Sub Main() の直後で、以下の値をパラメータに割り当てます。
    Dim MinVal=16
    Dim MaxVal=105
    
    スクリプトは以下のコードのようになっているはずです。
    Public Sub Main()
      Dim rand As New Random()
      Dim MinVal=16
      Dim MaxVal=105
      Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
    
      MsgBox(TSrandomAge)
    End Sub
  10. ツール バーで 再生 をクリックします。 再生 ダイアログ ボックスが開きます。
  11. OK をクリックします。 メッセージ ボックスが表示され、16 から 105 の生成された乱数が表示されます。
  12. OK をクリックします。 再生完了 ダイアログ ボックスが開きます。
  13. .NET スクリプトへ移動 をクリックします。
  14. 入力パラメータを使用して MinVal および MaxVal パラメータを設定するには、以下のステップを実行します。
    1. 作成する入力パラメータが含まれるように Main() sub を変更します。
      Public Sub Main(args As IDictionary(Of String, Object))
        Dim MinVal=args ("MinVal")
        Dim MaxVal=args ("MaxVal")
      "MinVal""MaxVal" は、次の手順で作成する入力パラメーターの名前です。
    2. 作成する出力パラメータが含まれるように Main() sub を変更します。
      Public Sub Main(args As IDictionary(Of String, Object))
      		    	
        args ("TSrandomAge")=TSrandomAge
      "TSrandomAge" は、次の手順で作成する出力パラメーターの名前です。
    3. 年齢はスクリプトからビジュアル テストに渡されるため、ステートメントの先頭にアポストロフィを入力してメッセージ ボックスのコードをコメントにします。
      'MsgBox(TSrandomAge)
    スクリプト全体は以下のようになっているはずです。
    Public Module Main
    	Dim _desktop As Desktop = Agent.Desktop
    
    	Public Sub Main(args As IDictionary(Of String, Object))
    	
    		Dim rand As New Random()
    		
    		Dim MinVal= args("MinVal")
    		Dim MaxVal= args("MaxVal")
    		
    		Dim TSrandomAge As Integer = rand.Next(MinVal, MaxVal)
    		args ("TSrandomAge")=TSrandomAge
    		'MsgBox(TSrandomAge)
    				
    	End Sub
    End Module
    

次に、ランダム年齢をビジュアル テストに渡すために使用するスクリプトの入力パラメータと出力パラメータを定義します。