Made good progress implementing more generic functions to write content and know when a space should be left after each letter. Need to finish the content to be displayed on the display

Author: DanielSSilva

README.md

@@ -8,4 +8,16 @@ If you don't have PowerShell installed on your Raspberry, follow [this guide](ht
 
 After that, you need to install [PowerShell-IoT Module](https://github.com/PowerShell/PowerShell-IoT#installation)
 
+# What's available so far?
+This is still in a really early phase. So far I've been "designing" (if you can call it that way) the alphabet so that later we can send a whole text.
+
+* So far you can only play with setting the brightness `Set-Brightness` (Low, Medium or High)
+
+* Turn the leds off with `Set-LedsOff`
+
+* Write some letters (a string) with `Write-String`. The number of letters actually depend, but it's usually 3 because each letter is using 3 rows. "M" for example uses 5.
+
+After setting the whole alphabet and things to be displayed on the ScrollpHat, will work on a way to scroll the text.
+
+
 Any suggestion/contribution is really welcome!

ScrollpHat.psm1

@@ -1,4 +1,15 @@
 # Implement your module commands in this script.
+$registerObjectArray = @();
+for([int] $i = 1; $i -le 11<#numberOfRegisters#>; ++$i){
+    $registerObjectArray += [PSCustomObject]@{
+        Address = $i
+        InUse   = $false
+    }
+}
+New-Variable -Name "MatrixRegisters" -Value $registerObjectArray -Scope Script
+
+New-Variable -Name "InitialEmptyColumns" -Value 0x04, 0x08 -Option Constant -Scope Script
+
 function Select-ScrollpHat {
         [int]$DeviceAddress = 0x60
         ######### Configuration Register and Value #########
@@ -12,6 +23,7 @@ function Select-ScrollpHat {
 function Set-Brightness{
     [CmdletBinding()]
         param (
+            [Parameter(Mandatory=$true)]
             [ValidateSet('Low', 'Medium', 'High')]
             [string]$Intensity
         )
@@ -22,23 +34,60 @@ function Set-Brightness{
             High = [convert]::toint32('0000111',2)
         }
     Set-I2CRegister -Device $Script:Device -Register $LightningEffectRegisterAddress -Data $IntensityMap[$Intensity]
+    Update-Registers
+}
+
+function Write-String {
+    param(
+        [string]$text
+    )
+    for($i =0; $i -lt $text.Length ; ++$i)
+    {
+        Write-Char $text[$i]
+            #After Writing the char, make sure to leave a space.
+    $blankSpaceRegister = Get-NextAvailableRegisters 1
+    if($blankSpaceRegister -eq $null){ #we have reached the end of the registers....
+        return
+    }
+    Set-I2CRegister -Device $Script:Device -Register $blankSpaceRegister.Address -Data 0
+    $blankSpaceRegister.InUse = $true
+    }
+    Update-Registers
 }
 
 function Write-Char {
-    [CmdletBinding()]
-    param (
-        [char]$character
+    param(
+        [ValidateLength(1,1)]
+        [string]$char
     )
-    #Until the dictionary is complete, this method will write the letter A on the 1st position, just for debug
-    #Get-NextAvailableRegister
-    [int[]]$Matrix1DataRegisterAddress = 0x01 ..0x03
-    [int[]]$values = 0x3E, 0x05, 0x3E
+    ##############TEMP#################
+    $alphabet = @{
+        A = 0x3E, 0x05, 0x3E
+        B = 0x1F, 0x15, 0x0A
+        C = 0x0E, 0x11, 0x11
+        D = 0x1F, 0x11, 0x0E
+        E = 0x1F, 0x15, 0x11
+        F = 0x1F, 0x05, 0x01
+        G = 0x0E, 0x11, 0x1D
+        H = 0x1F, 0x04, 0x1F
+        I = 0x11, 0x1F, 0x11
+        J = 0x09, 0x11, 0x0F
+        K = 0x1F, 0x04, 0x1B
+        L = 0x1F, 0x10, 0x10
+        M = 0x1F, 0x02, 0x04, 0x02, 0x1F
+        "!" = 0x17
+    }
+    ###################################
+    #get respective bits from hashtable
+    $bitsArray = $alphabet[$char] # this is an array with required data
+    $registers = Get-NextAvailableRegisters $bitsArray.Count
     $i = 0
-    foreach ($register in $Matrix1DataRegisterAddress) {
-        Set-RegisterValue -Device $Script:Device -Register $register -Value $values[$i]
-        $i++
+    foreach($register in $registers)
+    {
+        Set-I2CRegister -Device $Script:Device -Register $register.Address -Data $bitsArray[$i]
+        $register.InUse = $true
+        ++$i
     }
-    Update-Registers
 }
 
 function Update-Registers{
@@ -47,6 +96,31 @@ function Update-Registers{
     Set-I2CRegister -Device $Script:Device -Register $UpdateRegisterAddress -Data $UpdateValue
 }
 
+function Set-LedsOff {
+    foreach ($register in @($Script:MatrixRegisters | % {$_})) { # this weird sintax flattens the list.
+        Set-I2CRegister -Device $Script:Device -Register $register.Address -Data 0x0
+        $register.InUse = $false
+    }
+
+    Update-Registers
+}
+
+function Reset-Registers {
+    $resetRegisterAddress = 0xFF
+    $resetRegisterValue = 0xF #can be any value
+    Set-I2CRegister -Device $Script:Device -Register $resetRegisterAddress -Data $resetRegisterValue
+}
+
+function Get-NextAvailableRegisters {
+    param(
+        [int]$numberOfRequiredRegisters
+    )
+    $Script:MatrixRegisters | Where-Object {$_.InUse -eq $false} | Select-Object -First $numberOfRequiredRegisters
+
+}
+
+Select-ScrollpHat
+
 # Export only the functions using PowerShell standard verb-noun naming.
 # Be sure to list each exported functions in the FunctionsToExport field of the module manifest file.
 # This improves performance of command discovery in PowerShell.

alphabet.ps1

@@ -0,0 +1,30 @@
+$alphabet = @{
+	A = 0x3E, 0x05, 0x3E
+	B = 0x1F, 0x15, 0x0A
+	C = 0x0E, 0x11, 0x11
+	D = 0x1F, 0x11, 0x0E
+	E = 0x1F, 0x15, 0x11
+	F = 0x1F, 0x05, 0x01
+	G = 0x0E, 0x11, 0x1D
+	H = 0x1F, 0x04, 0x1F
+	I = 0x11, 0x1F, 0x11
+	J = 0x09, 0x11, 0x0F
+	K = 0x1F, 0x04, 0x1B
+	L = 0x1F, 0x10, 0x10
+	M = 0x1F, 0x02, 0x04, 0x02, 0x1F
+}
+	N =
+	O =
+	P =
+	Q =
+	R =
+	S =
+	T =
+	U =
+	V =
+	W =
+	X =
+	Y =
+	Z =
+
+}