vban commands added, tests updated

Added vban_in/vban_out to definetypes in base

Added string attribute label for strips

Added vban.ps1 which defines instream/oustream attributes.

Version bumped and changelog updated

Unit tests updated to reflect changes

lib/Voicemeeter.psm1

@@ -5,6 +5,8 @@ class Remote {
     [System.Collections.ArrayList]$button
     [System.Collections.ArrayList]$strip
     [System.Collections.ArrayList]$bus
+    [System.Collections.ArrayList]$vban_in
+    [System.Collections.ArrayList]$vban_out
 
     # Constructor
     Remote ([String]$type)
@@ -20,6 +22,8 @@ class Remote {
             $this.button = Buttons
             $this.strip = Strips
             $this.bus = Buses
+            $this.vban_in = Vban_In
+            $this.vban_out = Vban_Out
         }
         else { Exit }
     }

lib/base.ps1

@@ -3,6 +3,7 @@
 . $PSScriptRoot\strip.ps1
 . $PSScriptRoot\bus.ps1
 . $PSScriptRoot\macrobuttons.ps1
+. $PSScriptRoot\vban.ps1
 
 $global:layout = $null
 
@@ -224,18 +225,24 @@ Function DefineVersion {
         $layout = @{
            "strip" = 3
            "bus" = 2
+           "vban_in" = 4
+           "vban_out" = 4
         }
     }
     elseif($TYPE -eq 2) {
         $layout = @{
            "strip" = 5
            "bus" = 5
+           "vban_in" = 8
+           "vban_out" = 8
         }
     }
     elseif($TYPE -eq 3) {
         $layout = @{
            "strip" = 8
            "bus" = 8
+           "vban_in" = 8
+           "vban_out" = 8
         }
     }
     $global:layout = $layout

lib/strip.ps1

@@ -1,21 +1,30 @@
 class Strip {
     [int32]$id
+    [Array]$stringparams
 
     # Constructor
     Strip ([Int]$id)
     {
         $this.id = $id
+        $this.stringparams = @('label')
     }
 
     [void] Setter($cmd, $set) {
-        Param_Set -PARAM $cmd -VALUE $set
+        if( $this.stringparams.Contains($cmd.Split('.')[1]) ) { 
+            Param_Set_String -PARAM $cmd -VALUE $set 
+        }
+        else { Param_Set -PARAM $cmd -VALUE $set }
     }
 
     [Single] Getter($cmd) {
         return Param_Get -PARAM $cmd
     }
 
-    [string] cmd ($arg) {
+    [String] Getter_String($cmd) {
+        return Param_Get_String -PARAM $cmd
+    }
+
+    [String] cmd ($arg) {
         return "Strip[" + $this.id + "].$arg"
     }
 
@@ -168,6 +177,16 @@ class Strip {
             $this._limit = $this.Setter($this.cmd('limit'), $arg)
         }
     )
+
+    hidden $_label = $($this | Add-Member ScriptProperty 'label' `
+        {
+            [String]$this.Getter_String($this.cmd('label'))
+        }`
+        {
+            param ( [String]$arg )
+            $this._label = $this.Setter($this.cmd('label'), $arg)
+        }
+    )
 }
 
 Function Strips {

lib/vban.ps1

@@ -0,0 +1,186 @@
+class Vban {
+    [int32]$id
+    [String]$direction
+    [Array]$stringparams
+
+    # Constructor
+    Vban ([Int]$id, [String]$direction)
+    {
+        $this.id = $id
+        $this.direction = $direction
+        $this.stringparams = @('name', 'ip')
+    }
+
+    [void] Setter($cmd, $set) {
+        if( $this.stringparams.Contains($cmd.Split('.')[2]) ) { 
+            Param_Set_String -PARAM $cmd -VALUE $set 
+        }
+        else { Param_Set -PARAM $cmd -VALUE $set }
+    }
+
+    [Single] Getter($cmd) {
+        return Param_Get -PARAM $cmd
+    }
+
+    [String] Getter_String($cmd) {
+        return Param_Get_String -PARAM $cmd
+    }
+
+    [String] cmd ($arg) {
+        return "vban." + $this.direction + "stream[" + $this.id + "].$arg"
+    }
+
+    hidden $_on = $($this | Add-Member ScriptProperty 'on' `
+        {
+            $this.Getter($this.cmd('on'))
+        }`
+        {
+            param ( [Bool]$arg )
+            $this._on = $this.Setter($this.cmd('on'), $arg)
+        }
+    )
+
+    hidden $_name = $($this | Add-Member ScriptProperty 'name' `
+        {
+            $this.Getter_String($this.cmd('name'))
+        }`
+        {
+            param ( [String]$arg )
+            $this._name = $this.Setter($this.cmd('name'), $arg)
+        }
+    )
+
+    hidden $_ip = $($this | Add-Member ScriptProperty 'ip' `
+        {
+            $this.Getter_String($this.cmd('ip'))
+        }`
+        {
+            param ( [String]$arg )
+            $this._ip = $this.Setter($this.cmd('ip'), $arg)
+        }
+    )
+
+    hidden $_port = $($this | Add-Member ScriptProperty 'port' `
+        {
+            $this.Getter($this.cmd('port'))
+        }`
+        {
+            param ( [String]$arg )
+            if($arg -In 1024..65535) {
+                $this._port = $this.Setter($this.cmd('port'), $arg)
+            }
+            else {
+                Write-Warning('Expected value from 1024 to 65535')
+            }
+        }
+    )
+
+    hidden $_sr = $($this | Add-Member ScriptProperty 'sr' `
+        {
+            $this.Getter($this.cmd('sr'))
+        }`
+        {
+            param ( [Int]$arg )
+            if($this.direction -eq "in") { Write-Warning('Error, read only value') }
+            else {
+                $opts = @(11025, 16000, 22050, 24000, 32000, 44100, 48000, 64000, 88200, 96000)
+                if($opts.Contains($arg)) {
+                    $this._port = $this.Setter($this.cmd('sr'), $arg)
+                }
+                else {
+                    Write-Warning('Expected one of', $opts)
+                }
+            }
+        }
+    )
+
+    hidden $_channel = $($this | Add-Member ScriptProperty 'channel' `
+        {
+            $this.Getter($this.cmd('channel'))
+        }`
+        {
+            param ( [Int]$arg )
+            if($this.direction -eq "in") { Write-Warning('Error, read only value') }
+            else {
+                if($arg -In 1..8) {
+                    $this._channel = $this.Setter($this.cmd('channel'), $arg)
+                }
+                else {
+                    Write-Warning('Expected value from 1 to 8')
+                }
+            }
+        }
+    )
+
+    hidden $_bit = $($this | Add-Member ScriptProperty 'bit' `
+        {
+            $val = if($this.Getter($this.cmd('bit')) -eq 1) {16} else {24}
+            return $val
+        }`
+        {
+            param ( [Int]$arg )
+            if($this.direction -eq "in") { Write-Warning('Error, read only value') }
+            else {
+                if(@(16,24).Contains($arg)) {
+                    $val = if($arg -eq 16) {1} else {2}
+                    $this._bit = $this.Setter($this.cmd('bit'), $val)
+                }
+                else {
+                    Write-Warning('Expected value 16 or 24')
+                }
+            }
+        }
+    )
+
+    hidden $_quality = $($this | Add-Member ScriptProperty 'quality' `
+        {
+            $this.Getter($this.cmd('quality'))
+        }`
+        {
+            param ( [Int]$arg )
+            if($this.direction -eq "in") { Write-Warning('Error, read only value') }
+            else {
+                if($arg -In 0..4) {
+                    $this._quality = $this.Setter($this.cmd('quality'), $arg)
+                }
+                else {
+                    Write-Warning('Expected value from 0 to 4')
+                }
+            }
+        }
+    )
+
+    hidden $_route = $($this | Add-Member ScriptProperty 'route' `
+        {
+            $this.Getter($this.cmd('route'))
+        }`
+        {
+            param ( [Int]$arg )
+            if($this.direction -eq "in") { Write-Warning('Error, read only value') }
+            else {
+                if($arg -In 0..8) {
+                    $this._route = $this.Setter($this.cmd('route'), $arg)
+                }
+                else {
+                    Write-Warning('Expected value from 0 to 8')
+                }
+            }
+        }
+    )
+}
+
+Function Vban_In {
+    [System.Collections.ArrayList]$vban_in = @()
+    0..$($layout.vban_in-1) | ForEach-Object {
+        [void]$vban_in.Add([Vban]::new($_, "in"))
+    }
+    $vban_in
+}
+
+Function Vban_Out {
+    [System.Collections.ArrayList]$vban_out = @()
+    0..$($layout.vban_out-1) | ForEach-Object {
+        [void]$vban_out.Add([Vban]::new($_, "out"))
+    }
+    $vban_out
+}