Simplified the "SadJoey" script. Added a simple setup.

Updated the module, so that functions now respect the following convention: [Verb]-[Phat][Noun]

Author: DanielSSilva

.vscode/launch.json

@@ -0,0 +1,48 @@
+{
+	// Use IntelliSense to learn about possible attributes.
+	// Hover to view descriptions of existing attributes.
+	// For more information, visit: https://go.microsoft.com/fwlink/?linkid=830387
+	"version": "0.2.0",
+	"configurations": [
+		{
+			"type": "PowerShell",
+			"request": "launch",
+			"name": "PowerShell Launch Current File",
+			"script": "${file}",
+			"args": [],
+			"cwd": "${file}"
+		},
+		{
+			"type": "PowerShell",
+			"request": "launch",
+			"name": "PowerShell Launch Current File in Temporary Console",
+			"script": "${file}",
+			"args": [],
+			"cwd": "${file}",
+			"createTemporaryIntegratedConsole": true
+		},
+		{
+			"type": "PowerShell",
+			"request": "launch",
+			"name": "PowerShell Launch Current File w/Args Prompt",
+			"script": "${file}",
+			"args": [
+				"${command:SpecifyScriptArgs}"
+			],
+			"cwd": "${file}"
+		},
+		{
+			"type": "PowerShell",
+			"request": "attach",
+			"name": "PowerShell Attach to Host Process",
+			"processId": "${command:PickPSHostProcess}",
+			"runspaceId": 1
+		},
+		{
+			"type": "PowerShell",
+			"request": "launch",
+			"name": "PowerShell Interactive Session",
+			"cwd": "${workspaceRoot}"
+		}
+	]
+}

Initialize_SadJoey.ps1

@@ -1,29 +1,17 @@
 Import-Module Microsoft.PowerShell.IoT
 
-function Set-RegisterValue {
-    param($Device, [int]$Register, [int]$Value)
-######### Update register Address and value #########
-    [int]$UpdateRegisterAddress = 0x0C
-    [int]$UpdateValue = 0xFF # for what I understood, it can be any value " A write operation of any 8-bit value to the Update Column Register is required to update the Data Registers"
-    
-    Set-I2CRegister -Device $Device -Register $Register -Data $Value #Write the value
-    Write-Host "Device: $($Device) - Value: $($Value) - Register: $($Register)"
-    Set-I2CRegister -Device $Device -Register $UpdateRegisterAddress -Data $UpdateValue #update the register
-}
-
 [int]$DeviceAddress = 0x60
-
 ######### Configuration Register and Value #########
-
 [int]$ConfigurationRegisterAddress = 0x00
 [int]$ConfigurationRegisterValue = 0x1B
 
-######### Matrix Registers and value #########
-[int[]]$Matrix1DataRegisterAddress = 0x01 ..0x0B
-[int[]]$values = 0x0,0x0,0x0,0x11,0x08,0x08,0x08,0x11,0x0,0x0,0x0
+######### Data Registers and value #########
+[int[]]$DataRegisterAddress = 0x04 ..0x08
+[int[]]$values = 0x12,0x08,0x08,0x08,0x12
 ######### Lightning Effect Register and value #########
 [int]$LightningEffectRegisterAddress = 0x0D
-[int]$LightningEffectRegisterValue = 0x08
+[int]$LightningEffectRegisterValue = 0x08 #Lowest intensity
+
 ######### Get the device and set the Configuration Register
 $Device = Get-I2CDevice -Id $DeviceAddress -FriendlyName phat
 Set-I2CRegister -Device $Device -Register $ConfigurationRegisterAddress -Data $ConfigurationRegisterValue
@@ -32,9 +20,15 @@ Set-I2CRegister -Device $Device -Register $ConfigurationRegisterAddress -Data $C
 Set-I2CRegister -Device $Device -Register $LightningEffectRegisterAddress -Data $LightningEffectRegisterValue
 
 ######### Write the #sadJoey pattern to the Data registers #########
-
 $i = 0
-foreach ($register in $Matrix1DataRegisterAddress) {
-    Set-RegisterValue -Device $Device -Register $register -Value $values[$i]
+foreach ($register in $DataRegisterAddress) {
+    Set-I2CRegister -Device $Device -Register $register -Data $values[$i]
     $i++
-}
+}
+
+#In order to update the registers, we need to write something to the column register, accoding to the datasheet: "A write operation of any 8-bit value to the Update Column Register is required to update the Data Registers"
+[int]$UpdateRegisterAddress = 0x0C
+[int]$UpdateValue = 0xFF
+
+#After executing this instruction, a Sad Joey should appear on your pHat :)
+Set-I2CRegister -Device $Device -Register $UpdateRegisterAddress -Data $UpdateValue

README.md

@@ -9,9 +9,8 @@ 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` (Lowest, Low, Medium, High or Highest)
+* Set the LEDs' brightness with `Set-Brightness` (Lowest, Low, Medium, High or Highest)
 
 * Turn the leds off with `Set-LedsOff`
 

ScrollpHat.psm1

@@ -13,7 +13,7 @@ function Select-ScrollpHat {
         $Script:Device
 }
 
-function Set-Brightness{
+function Set-PhatBrightness{
     [CmdletBinding()]
         param (
             [Parameter(Mandatory=$true)]
@@ -36,40 +36,43 @@ function Set-Brightness{
             Highest = [convert]::toint32('0111',2)
         }
     Set-I2CRegister -Device $Script:Device -Register $LightningEffectRegisterAddress -Data $IntensityMap[$Intensity]
-    Update-Registers
+    Update-PhatRegisters
 }
 
-function Write-String {
+function Write-PhatString {
     [CmdletBinding()]
     param(
         [parameter(ValueFromPipeline=$True)]
         [string]$text,
         [int]$WaitMiliseconds = 40,
         [System.Boolean]$forever = $false
     )
-    Set-LedsOff
+    Set-PhatLedsOff
+    if($forever)
+    {
+        $text +="   "
+    }
     $iterations = 0
-    Write-Host "Before While"
     do
     {
         for($i =0; $i -lt $text.Length ; ++$i)
         {
-            Write-Char $text[$i]
+            Write-PhatChar $text[$i]
                 #After Writing the char, make sure to leave a space.
   #          Write-Host "Wrote char $($text[$i])"
             if($Script:CurrentRegisterValues.Count -lt $Script:TotalRegisters){ #We can still set an white column
                 $Script:CurrentRegisterValues += 0
                 Set-I2CRegister -Device $Script:Device -Register $Script:CurrentRegisterValues.Count -Data 0
             }
-            Update-Registers
+            Update-PhatRegisters
             Start-Sleep -Milliseconds $WaitMiliseconds
         }
  #       $iterations +=1
   #      Write-Host $iterations
     }while($forever)
 }
 
-function Write-Char {
+function Write-PhatChar {
     param(
         [ValidateLength(1,1)]
         [string]$char
@@ -114,6 +117,7 @@ function Write-Char {
         "0" = 0x0E, 0x15, 0x0E
         "!" = 0x17
         " " = 0X00,0X00
+        "-" = 0x04,0x04,0x04
     }
     ###################################
     #get respective bits from hashtable
@@ -135,24 +139,22 @@ function Write-Char {
             for($j = 1 ; $j -le 10; ++$j) #10 because we will leave the 11 to the new value
             {
                 Set-I2CRegister -Device $Script:Device -Register $j -Data $Script:CurrentRegisterValues[$j-1]
-                Update-Registers
+                #Update-PhatRegisters
             }
-
-
             #start by writing a white column
             if($wroteWhiteSpace -eq $false)
             {
                 Set-I2CRegister -Device $Script:Device -Register 0xB -Data 0
                 $Script:CurrentRegisterValues+= 0
-                #Update-Registers
+                #Update-PhatRegisters
                 $wroteWhiteSpace = $true
                 continue
             }
 
             Set-I2CRegister -Device $Script:Device -Register 0xB -Data $bitsArray[$i]
             $Script:CurrentRegisterValues += $bitsArray[$i++]
-            Update-Registers
-            Start-Sleep -Milliseconds 5
+            Update-PhatRegisters
+            #Start-Sleep -Milliseconds 5
         }
         return
     }
@@ -165,21 +167,21 @@ function Write-Char {
     }
 }
 
-function Update-Registers{
+function Update-PhatRegisters{
     [int]$UpdateRegisterAddress = 0x0C
     [int]$UpdateValue = 0xFF # for what I understood, it can be any value " A write operation of any 8-bit value to the Update Column Register is required to update the Data Registers"
     Set-I2CRegister -Device $Script:Device -Register $UpdateRegisterAddress -Data $UpdateValue
 }
 
-function Set-LedsOff {
+function Set-PhatLedsOff {
     foreach ($register in @(1 .. $Script:TotalRegisters)) {
         Set-I2CRegister -Device $Script:Device -Register $register -Data 0x0
     }
     $Script:CurrentRegisterValues = @()
-    Update-Registers
+    Update-PhatRegisters
 }
 
-function Reset-Registers {
+function Reset-PhatRegisters {
     $resetRegisterAddress = 0xFF
     $resetRegisterValue = 0xF #can be any value
     Set-I2CRegister -Device $Script:Device -Register $resetRegisterAddress -Data $resetRegisterValue
@@ -198,9 +200,38 @@ function Get-NextAvailableRegisters {
         RequestedRegisters = $requestedRegisters
         TotalAvailable = $availableRegisters.Count
     }
+}
 
+function Set-PhatCrazyLeds () {
+    $brightnessValues = 'Lowest','Low', 'Medium', 'High', 'Highest'
+    $iteration
+    while($true)
+    {
+        $randomRegister = Get-Random -Minimum 1 -Maximum 11
+        $randomValue = Get-Random -Minimum 0 -Maximum 17
+
+        Set-I2CRegister -Device $Script:Device -Register $randomRegister -Data $randomValue
+        #if($iteration % 4 -eq 0)
+        #{
+            $brightnessIndex = Get-Random -Minimum 0 -Maximum ($brightnessValues.Count-1)
+            Set-PhatBrightness -Intensity ($brightnessValues[$brightnessIndex])
+        #}
+
+        Update-PhatRegisters
+        Start-Sleep -Milliseconds 30
+        #++$iteration
+    }
 }
 
+# function Get-SpotifyCurrentlyPlayingInfo()
+# {
+#     $header = @{"Authorization" = Get-Content -Path "/home/pi/token.txt"}
+
+# $trackInfo = ((Invoke-WebRequest -Uri https://api.spotify.com/v1/me/player/currently-playing?market=PT -Headers $header).Content | ConvertFrom-Json).item
+
+# $trackInfo.Artists[0].Name + " - "+ $trackInfo.name
+# }
+
 Select-ScrollpHat
 
 # Export only the functions using PowerShell standard verb-noun naming.

simple_Setup.ps1

@@ -0,0 +1,33 @@
+Import-Module Microsoft.PowerShell.IoT
+
+[int]$DeviceAddress = 0x60
+[int]$ConfigurationRegisterAddress = 0x00
+[int]$ConfigurationRegisterValue = 0x1B
+# Get the scroll pHat from I2C.
+$Device = Get-I2CDevice -Id $DeviceAddress -FriendlyName phat
+# Set the configuration register with the respective configuration value
+Set-I2CRegister -Device $Device -Register $ConfigurationRegisterAddress -Data $ConfigurationRegisterValue
+
+#Let's Write the A letter. For that, we will need 3 Registers
+#Registers: 1 2 3
+#             x
+#           x   x
+#           x x x
+#           x   x
+#           x   x
+
+$registers = 0x01..0x3
+$letterA = 0x3E, 0x05, 0x3E
+
+$index = 0
+#Set the value on $letterA array on the correspondent register.
+foreach($register in $registers)
+{
+	Set-I2CRegister -Device $Device -Register $register -Data $letterA[$index]
+	++$index
+}
+#In order to update the registers, we need to write something to the column register, accoding to the datasheet: "A write operation of any 8-bit value to the Update Column Register is required to update the Data Registers"
+[int]$UpdateRegisterAddress = 0x0C
+[int]$UpdateValue = 0xFF
+#After executing this instruction, you should see the A letter on your Scroll pHat :)
+Set-I2CRegister -Device $Device -Register $UpdateRegisterAddress -Data $UpdateValue