[2241] 少し改良してみました

投稿日 2018/09/20(Thu) 21:26:26
投稿者 アーク
参照先

前回のサンプルを少し改良してみました。

前回のPowershellプログラムの最後の2行を下記と差し替えます。

----------------------------------------------------
if ($args.Length -eq 0) {
  $a = [audio]::Volume;
  $b = [audio]::Mute;
  if ($b -eq $true) {
    $c = "m";
  } else {
    $c = "n";
  }
  echo $a+$c;
} else {
  [audio]::Volume = $Args[0];
  [audio]::Mute = $Args[1];
}
----------------------------------------------------

プロデルの方は全面的に書き換えました。

----------------------------------------------------
メイン画面を表示する
待機する

メイン画面とは
  ウィンドウを継承する
  はじめの手順
    初期化する
    //貼り付けた部品に対する操作をここに書きます
    ミュートは、0
  終わり
  初期化する手順
  //自動生成された手順です。ここにプログラムを書き加えても消える場合があります
  この内部領域大きさを{332,130}に変える
  この内容を「メイン画面」に変える
  ボタン5というボタンを作る
    その位置と大きさを{250,80,65,27}に変える
    その内容を「閉じる」に変える
    その移動順を7に変える
  ボタン4というボタンを作る
    その位置と大きさを{167,80,64,28}に変える
    その内容を「ミュート」に変える
    その移動順を6に変える
  ボタン3というボタンを作る
    その位置と大きさを{95,80,66,28}に変える
    その内容を「ミキサー」に変える
    その移動順を5に変える
  ボタン2というボタンを作る
    その位置と大きさを{17,80,72,28}に変える
    その内容を「サウンド」に変える
    その移動順を4に変える
  スライダ1というスライダを作る
  スライダ1を初期化開始する
    その位置と大きさを{72,17,243,45}に変える
    その目盛り間隔を5に変える
    その最大値を100に変える
    その移動順を1に変える
  スライダ1を初期化終了する
  ラベル1というラベルを作る
    その位置と大きさを{17,17,49,33}に変える
    そのフォントを「MS UI Gothic,24」に変える
    その自動調整を×に変える
    その枠を「線」に変える
    その文字配置を「右」に変える
    その移動順を3に変える
終わり

  開いた時の手順
    結果は、「@PowerShell.exe ".\setVolume.ps1"」をコマンド実行したもの
    配列は、結果を「+」で区切ったもの
    ラベル1の内容を([配列(1)]*100)に変える
    スライダ1の値は、(ラベル1の内容)の整数
    もし配列(2)が「m[改行]」なら
      ラベル1の有効を×に変える
    もし終わり
  終わり

  ボタン2がクリックされた時の手順
    サウンド項目を表示する
  終わり

  ボタン3がクリックされた時の手順
    ミキサーを表示する
  終わり

  ボタン4がクリックされた時の手順
    もしラベル1の有効が○なら
      ミュートを1に変える
      音量は、-1
      ラベル1の有効を×に変える
    そうでないなら
      ミュートを0に変える
      音量は、(スライダ1の値を100で割ったもの)
      ラベル1の有効を○に変える
    もし終わり
    「@PowerShell.exe ".\setVolume.ps1" [音量] [ミュート]」をコマンド実行する
  終わり

  ボタン5がクリックされた時の手順
    終了する
  終わり

  スライダ1がスライドした時の手順
    ラベル1の内容を[スライダ1の値]に変える
  終わり

  サウンド項目を表示する時の手順
    メイン画面の最前面を×に変える
    「control /name Microsoft.Sound」をコマンド実行する
  終わり

  ミキサーを表示する時の手順
    メイン画面の最前面を×に変える
    「[システムフォルダ]SndVol.exe」を起動する
  終わり
  
  スライダ1のマウスのボタンが離された時の手順
    音量は、(スライダ1の値を100で割ったもの)
    「@PowerShell.exe ".\setVolume.ps1" [音量] [ミュート]」をコマンド実行する
  終わり
終わり
----------------------------------------------------

これで音量もミュート共に取得と設定をリアルタイムに行えます。


関連一覧ツリー

をクリックするとツリーを一括表示します)

返信フォーム

(この投稿に返信する場合は下記フォームから投稿して下さい)
(1MBまで)
(英数字で8文字以内)

- 投稿修正/削除フォーム -
処理 No パスワード

▲ページの先頭へ

- WebForum -