Il Bar dell'Ingegneria

<#
Ho preso il codice di afazio da https://bar-ingegneria.forumfree.it/?t=79336104&st=15#entry660882152

ho modificato leggermente il codice perché non mi tornava il risultato...

ci sono alcuni problemi:
1) funziona solo per carichi rettangolari...
2) il risultato è validato solo ad occhio confrontandolo con https://bar-ingegneria.forumfree.it/?t=79336104&st=15#entry660878737
3) non ho ancora ben capito come fare funzioni in PowerShell che ritornino un valore, quindi ho usato un trucchetto letto su internet
   per cui a funzione non dà un return e uso una variabile globale per memorizzare il valore di return.

Quindi, per quanto esposto sopra, il codice deve essere sottoposto a revisione critica per la verifica effettiva del funzionamento.

#>

cls
[System.Double]$script:dReturn = 0; #variabile globale dello script
function sigmaZ_q_trap {
   # definisco parametri
   param(
       [Double]$x,
       [Double]$z,
       [Double]$xi,
       [Double]$xf,
       [Double]$qi,
       [Double]$qf,
       [Double]$zo
       )
   # inizio funzione
   [System.Double] $alFa;
   [System.Double] $bEta1;
   [System.Double] $betA2;
   #[Math]::PI
   if($z -gt $zo) {
       $bEta1 = [Math]::Atan(($x-$xf)/($z-$zo));
       $betA2 = [Math]::Atan(($x-$xi)/($z-$zo));
       $alFa =  $betA2 - $bEta1;
       #parte rettangolare
       $script:dReturn = ($qi * ($alFa + [Math]::Sin($alFa) * [Math]::Cos($alFa + 2 * $bEta1)) / [Math]::PI)
       Return $null
       #parte triangolare
       #$script:dReturn = (($qf - $qi) * (($x - $xi) * $alFa / ($xf - $xi) - 0.5 * [Math]::Sin(2 * $bEta1)) / [Math]::PI)
       #Return $null
       }
   else {
       #vedere meglio cosa accade quando siamo in scavo
       $script:dReturn = (0)
       Return $null
       }
   }
[System.Double] $xiCoord = 10;
[System.Double] $xfCoord = 20;
[System.Double] $qIni = 200;
[System.Double] $qFin = 200;
[System.Double] $zetao = 0;
[System.Double] $dCalc = 0;

#sigmaZ_q_trap -x (0) -z (1/4) -xi $xiCoord -xf $xfCoord -qi $qIni -qf $qFin -zo $zetao > $null
#$script:dReturn

#<#
[System.String] $ImageFilePath = "C:\Users\Administrator\Pictures\";
$null=[System.Reflection.Assembly]::LoadWithPartialName("System.Drawing")
$bmp = New-Object System.Drawing.Bitmap(120, 120)

for ([System.Double]$i = 1; $i -le (120); $i++)
{
  for ([System.Double]$j = 1; $j -le 120; $j++)
  {
       sigmaZ_q_trap -x ($i/4) -z ($j/4) -xi $xiCoord -xf $xfCoord -qi $qIni -qf $qFin -zo $zetao > $null
       #$script:dReturn
       #[System.Int16]($script:dReturn/(($qIni,$qFin| Measure -Max).Maximum)*255) # normalizzo in
       $bmp.SetPixel($i-1, $j-1, [System.Drawing.Color]::FromArgb(255, [System.Int16](255-($script:dReturn/($qIni,$qFin| Measure -Max).Maximum)*255),0))
       #$bmp.SetPixel($i+($xiCoord*4)-1, $j-1, [System.Drawing.Color]::FromArgb(255, [System.Int16]($script:dReturn),0))
   }
}
$bmp.Save($ImageFilePath + "carico.bmp")
#$bmp.Save($ImageFilePath + "bmp.jpeg", [System.Drawing.Imaging.ImageFormat]::Jpeg);#posso convertire in JPEG
$bmp.Dispose(); #Rilascia tutte le risorse usate da questa classe Image.
ii ($ImageFilePath + "carico.bmp")
#>

#############################################################
## CONTEGGIO CELLE COLORATE DI UN FOGLIO EXCEL
#############################################################
## Da un'idea di Afazio, ma declinata a modo mio
#############################################################
## 08.ott.2022 - Versione A.00 -  by Tdoes
#############################################################
## v. https://bar-ingegneria.forumfree.it/?t=79336104
#############################################################

# PER FAR GIRARE LO SCRIPT BISOGNA:
# 1. Aprire il programma "Windows PowerShell ISE"
# 2. nel prompt inferiore posizionarsi nella cartella che contiene lo script, usando il comando:
#                
#                cd "nome_percorso_della_cartella_che_contiene_lo_script"
#                
# 3. una volta che il prompt è divenuto: PS nome_percorso_della_cartella_che_contiene_lo_script>
# 4. lanciare il comando:
#
#                powershell.exe .\ContaCelleColorate.ps1
#
# 5. Nota bene: bisogna avere le autorizzazioni per l'esecuzione di script powershell ps1.
#       Set-ExecutionPolicy Unrestricted
# 6. Consultare https://www.robadainformatici.it/abilitare-esecuzione-script-powershell/ per delucidazioni sul comando precedente
#    Attenzione: il comando "Unrestricted" potrebbe rendere il tuo PC vulnerabile
#############################################################
#A.00: prima versione
#
#
##############################################################à
$debug = $true; # modalità di debug 'manuale'
# puliamo la console
Start-Sleep -Milliseconds 150; # ms
cls
#
if($debug) {"STEP 001 : avvio script"}
# avvisiamo l'utente
if($debug) {"STEP 002 : preparo e visualizzo il MessageBox (non sempre è in primo piano!)"}
Add-Type -AssemblyName PresentationCore,PresentationFramework
Start-Sleep -Milliseconds 150; # ms
$Result = [System.Windows.MessageBox]::Show("Vuoi selezionare il file Excel che contiene le celle colorate da contare?","ContaCelleColorate",[System.Windows.MessageBoxButton]::YesNoCancel,'Question')
if($debug) {"STEP 003 : hai risposto " + $Result + " al MessageBox"}
if($Result -ne "Yes") {
   if($debug) {"STEP 004A: lo script è terminato."}
   Return #termino lo script
   }
if($debug) {"STEP 004B: lo script prosegue..."}
# Vediamo di aprire il dialogo per selezionare il file excel dalla cartella documenti:
Add-Type -AssemblyName System.Windows.Forms
$FileBrowser = New-Object System.Windows.Forms.OpenFileDialog -Property @{
   InitialDirectory = [Environment]::GetFolderPath('MyDocuments')
   Filter = 'Excel Worksheets 2007(*.xlsx)|*.xlsx|Excel Worksheets 2003(*.xls)|*.xls'
   }
$DialogExitStatus = $FileBrowser.ShowDialog()
if($DialogExitStatus  -ne "Cancel") {
   if($debug) {"STEP 005 : Hai scelto di aprire: " + $FileBrowser.FileName}
   }
# Apro Excel
$XL = New-Object -comobject Excel.Application;
$XL.Visible = $true;
# Get Windows handle of the application
$excelWinHwnd = $XL.Hwnd
# Get Process Id of the application
$process = Get-Process Excel | Where-Object {$_.MainWindowHandle -eq $excelWinHwnd}
$excelProcessId = $process.Id
# put excel window in foreground
$WSShell = New-Object -ComObject WScript.Shell;
$WSShell.AppActivate("Excel") | Out-Null;
Start-Sleep -Milliseconds 150; # ms
# Apro il file excel scelto
$WB = $XL.Workbooks.Open($FileBrowser.FileName)
# seleziono il foglio di lavoro (spreando per semplicità che sia l'ultimo creato)
if($debug) {"STEP 006 : Seleziono l'ultimo foglio di lavoro creato"}
$WS1 = $XL.Worksheets.Item($XL.Worksheets.count)
$WS1.Activate();
# Cerco il range Area
$RangeArea = $WS1.Range("Area")
# Cerco il range IndiceColori
$RangeIndiceColori = $WS1.Range("IndiceColori")
# vediamo di contare le celle
[System.Int64] $iCountTotColorate=0;
[System.Int16] $iCountAcc=0;
#Azzero la colonna successiva al RangeIndiceColori
foreach($cell in $RangeIndiceColori){
   $WS1.cells.item($cell.Row,($cell.Column+1)) = 0;
   }
if($debug) {"STEP 007 : Azzero i conteggi nella colonna successiva all'indice colori"}
# conto tutte le celle che NON hanno fondo trasparente, ma uguale all'indice colori se valorizzato
foreach($cellA in $RangeArea) {
   if($cellA.Interior.ColorIndex -ne -4142){
       $iCountTotColorate++
       foreach($cellB in $RangeIndiceColori){
           if($cellA.Interior.ColorIndex -eq $cellB.Interior.ColorIndex){
               $iCountAcc = ($WS1.cells.item($cellB.Row,($cellB.Column+1)).Value2);
               $WS1.cells.item($cellB.Row,($cellB.Column+1)) = ($iCountAcc + 1);
               }
           }
       }
   }
#$WS1.Cells.item(7,'B').Interior.Color #16777215 che numero é?
#$WS1.Cells.item(7,'B').Interior.ColorIndex #-4142
if($debug) {"STEP 008 : Conteggio effettuato"}
# scrivo il risultato in AX19 (dove AX = 50)
$WS1.cells.item(19,51) = "Conteggio automatico di tutte le celle colorate";
$WS1.cells.item(19,50).HorizontalAlignment = -4108; # $xlHAlignCenter
$WS1.cells.item(19,50).VerticalAlignment = -4108; # $xlHAlignCenter
$WS1.cells.item(19,50).NumberFormat = "#.##0,00 €\/\T\o\n"; # Euro/Ton
$WS1.cells.item(19,50) = $iCountTotColorate;
# faccio la somma della colonna in AX18 (dove AX = 50)
$WS1.cells.item(18,50).Formula = "=sum(AX6:AX17)";
$WS1.cells.item(18,51) = "Somma delle celle colorate";
if($debug) {"STEP 009 : Scrivo i risultati del conteggio"}
# salvo in un nuovo file:
# tolgo l'estensione
[System.string]$NewFileName = $FileBrowser.FileName;
[System.string]$NewFileDirN = $FileBrowser.FileName;
$NewFileDirN = (Get-Item $FileBrowser.FileName).DirectoryName
$NewFileName = (Get-Item $FileBrowser.FileName).Basename;
# aggiungo una data
[System.string]$CurrentDateTimeStr = Get-Date -Format "yyyy-MM-dd_HHmmss";
# salvo il file
[System.string]$FilePathXLSX = $NewFileDirN + "\" +$NewFileName + "_" + $CurrentDateTimeStr + ".xlsx";
#$FilePathXLSX
$WB.SaveAs($FilePathXLSX)
if($debug) {"STEP 010 : Ho salvato in un nuovo file: " + $FilePathXLSX }
# per chiudere bene excel:
#$WB.Close();
#$XL.Quit();
#$null = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($XL)
if($debug) {"STEP 011 : Fine."}