Welcome to the Lounge

Import-Module ShowUi

############################################################################
# Hibernate_WPF_V2.ps1
# start with Cmd-Batch example:
# @echo off
# cd /D  C:\Users\Public\Documents\prog\Hibernate
# start powershell -STA -WindowStyle Hidden -Command .\Hibernate_WPF_V2.ps1
############################################################################

function global:Hours_and_Mins ( [Int16]$MinsTill ) {
    if ( -not ( $MinsTill -gt 0 -and $MinsTill -lt 1440 ) ) {
        return "--:--"
    }
    do { #get certain time 
        $nowdue = Get-Date
        $now = Get-Date
        $nowminutes = $now.Minute
        $nowhours = $now.Hour
    } while ( ( $nowminutes -ne $nowdue.Minute ) -or ( $nowhours -ne $nowdue.Hour )  )

    $TimeAtTill = $now.AddMinutes( 0.5 + $MinsTill ) #a half minute in plus
    # Write-Host  ("TimeAtTill: " +  $TimeAtTill.ToString("HH:mm:ss"))
    $HoursAndMins = $TimeAtTill.ToString("HH:mm")
    return ( $HoursAndMins )
}

function global:MinutesTill ( [string]$AtTimStr, [ref]$TodayTomor ) {

    $now = Get-Date
    try {
            [DateTime]$AtTim = Get-Date $AtTimStr
    } catch {
            [DateTime]$AtTim = $now.AddMonths( 12 )
    }
    
    if ( ( [int64]$span = [Math]::round(( $AtTim - $now ).TotalMinutes )) -lt 0 ) {
        $span += 1440
        $TodayTomor.value = "tomorrow"
    } else {
        $TodayTomor.value = "today"
    }
    return ( $span )                    
}

function global:BtnOKdekorate ( [object]$Btn, [string] $clicked ) {
    if ( $clicked -eq "clicked" ) {
            $Btn.Tag = $Btn.Name
            $Btn.FontSize = 13.0
            $Btn.Content = "count down"
            $Btn.Foreground = "green"
        } else { 
            $Btn.Tag = $clicked
            $Btn.FontSize = 22.0
            $Btn.Content = "OK"
            $Btn.Foreground = "black"
        }
}
#############################################################
# main
#############################################################
New-Window  -Name MainWindow -Width 200 -Height 286 -title 'Minutes till hibernate' `
            -ResizeMode CanMinimize -Background Pink -Top 0 -Left 0 {
    New-StackPanel -Margin 7 -Background Pink {
        New-TextBox -Text "minutes`ntill hibernate" -IsReadOnly $True `
            -Background Pink -BorderThickness 0 -FontFamily Arial -FontSize 22.0 `
            -HorizontalContentAlignment Center `
            -TextWrapping Wrap `
            -On_GotFocus {
                $TxtForMinutes.Focus()
            }
        New-Separator -Height 1  -Background Pink
        New-Label "Minutes:" -FontFamily Consolas -FontSize 13.0 -FontWeight Bold 
        New-TextBox -Name TxtForMinutes -Text "0" <# init value defined in windows onLoad event routine #>  `
                    -TabIndex 2 `
                    -FontFamily Consolas -FontSize 24.0 `
                    -HorizontalContentAlignment Right -FontWeight Bold -Tag "" `
                    -On_TextChanged {
                        # Write-Host  ("enter Change Event for " + $this.name + "`: " + $this.gettype()  + " Tag=" + $this.tag)
                        if (  $this.Tag.Length -gt 0 ) {
                            # Write-Host  ("Enter code for the Change Event for " + $this.name + "`: " + $this.gettype() + " Tag=" + $this.tag )
                            try {
                                [int16]$Mins = [convert]::ToInt16($this.Text)
                            } catch {
                                [int16]$Mins = -1
                            }
                            if ( $btnOK.IsEnabled = ( $Mins -gt 0 -and $Mins -lt 1440 ) ) {
                                $this.Background = "white"
                                if ( $this.Tag -ne $TxtForTime.Name ) {
                                    $ResultFromHours_and_Mins = Hours_and_Mins( $Mins )
                                    # Write-Host ("after Hours_and_Mins " + $ResultFromHours_and_Mins + " from " + $Mins )
                                    $TxtForTime.Tag = $this.Name #I'm the sender
                                    $TxtForTime.Text = $ResultFromHours_and_Mins
                                }
                            } else {
                                $this.Background = "red"
                            }
                            if ( "X" -eq $this.Tag ) {
                                BtnOKdekorate $btnOK "X"
                            } 
                        }
                        $this.Tag = "X"
                    }
        New-Separator -Height 1  -Background Pink
        New-Label "Time:" -FontFamily Consolas -FontSize 13.0 -FontWeight Bold
        New-StackPanel -name StkForTime -Background Pink -Orientation Horizontal -HorizontalAlignment Center {
            New-Label -Name "lblDay" -content "        " -Background White -Width 100 `
            -FontFamily Consolas -FontSize 20.0 `
            -HorizontalContentAlignment Center -FontWeight Bold  
            New-TextBox -Name TxtForTime -Text "--`:--" -Width 80 `
            -FontFamily Consolas -FontSize 24.0 `
            -HorizontalContentAlignment Right -FontWeight Bold  -Tag "" `
            -On_TextChanged {
                # Write-Host ("enter Change Event for " + $this.name + "`: " + $this.gettype()  + " Tag=" + $this.tag)
                if (  $this.Tag.Length -gt 0  ) {
                    # Write-Host ("Enter code for the Change Event for " + $this.name + "`: " + $this.gettype() + " Tag=" + $this.tag )
                    $TodayStr = ""
                    [int64]$span = MinutesTill ($this.Text) ([ref]$TodayStr) 
                    # Write-Host ("after MinutesTill span=" + $span + " Todaystr=" + $TodayStr )
                    if ( $btnOK.IsEnabled = ( $span -le 1439 -and $span -ge 1 ) ) {
                            $this.Background = "white"
                            if ( $this.Tag -ne $TxtForMinutes.Name ) {
                                $TxtForMinutes.Tag = $this.Name #I'm the sender
                                $TxtForMinutes.Text = $span
                            }
                    } else {
                            $this.Background = "red"
                            $TodayStr = "        "
                    }
                    if ( "Y" -eq $this.Tag ) {
                        BtnOKdekorate $btnOK "Y"
                    } 
                    $lblDay.Content = $TodayStr
                }
                $this.Tag = "Y"
            }
        }
        New-Separator -Height 15  -Background Pink
        New-StackPanel -name StkForBtn -Background Pink -Orientation Horizontal -HorizontalAlignment Center {
            New-Button -Content "OK" -name btnOK -Margin 5 -Width 80 -Height 32 `
                            -FontFamily Consolas -FontSize 22.0 -FontWeight Bold `
                            -Tag "" `
                            -On_Click {
                                BtnOKdekorate $this "clicked" 
                            } 
            New-Button -Content "Cancel" -name btnCancel -Margin 5 -Width 80 -Height 32 -FontFamily Consolas -FontSize 22.0 -TabIndex 1 `
                            -On_Click {
                                Close-Control
                            }                    
          }  # end of second StackPanel
        } # end of first StackPanel
} -on_Load {
    #####################################################  
    $TxtForMinutes.text = "60" #initial Value of minutes
    ##################################################### 
    $btnCancel.Focus() 
    Register-PowerShellCommand -ScriptBlock { 
        # Write-Host ("TimerEvent at " + ( Get-Date ).ToString("HH:mm:ss") )
        if ( $btnOK.Tag -eq $btnOK.Name ) {
            # calc new minutes from now and TxtForTime
            $TodayStr = ""
            [int64]$MinsByTimer = MinutesTill ($TxtForTime.Text) ([ref]$TodayStr)
            $TxtForMinutes.Tag = $TxtForTime.Name #simulate that Inf comes from TxtForTime
            $TxtForMinutes.Text = $MinsByTimer
            if ( 0 -eq $MinsByTimer ) {
                # disable further processings
                $btnOK.IsEnabled = $False
                $btnOK.Tag = "Z" 
                # shutdown /h
                $EXE = 'C:\Windows\System32\shutdown.exe'
                [string[]]$PARGS = '/h'
                # Write-Host ( "Hibernate with " + $EXE + " " + $PARGS )
                start-process $EXE -ArgumentList $PARGS -NoNewWindow
                $btnOK.Content = "hibernated"
                $btnOK.Foreground = "cyan"

            }
        } else {
            if ( $btnOK.IsEnabled ) {
                [int16]$MinsByTimer = [convert]::ToInt16($TxtForMinutes.Text)
                $Hours_and_MinsByTimer = Hours_and_Mins( $MinsByTimer )
                # Write-Host ("after Hours_and_Mins " + $Hours_and_MinsByTimer + " from " + $MinsByTimer )
                $TxtForTime.Tag = $TxtForMinutes.Name #simulate that Inf comes from TxtForMinutes
                $TxtForTime.Text = $Hours_and_MinsByTimer
            }
        }
    } -run -interval "0:0:30" #each 30 seconds
} -show > $Null

Quietly           P
tap               H
amateur           A
and run           R
a                 A
circuit,          O
nominated first   N
one               I
then caught       C

"Quietly tap amateur and run a circuit, nominated first one then caught the era of Tutankhamun for example."(9)

Quietly tap amateur and run a circuit

the era of Tutankhamun for example.

Quietly tap amateur and run a circuit, nominated first one then caught

Quietly       - P for "Pianissimo": an Italian word, meaning "very soft", used in musical scores
tap           - You get hot and cold taps, so probably either H or C
amateur       - 
and run 
a             - If I need a vowel, there is "A" here. 
circuit,       
nominated 
first         - Ah! This could well mean "first letter of preceding word" so assume "N"
one           - I is the Roman numeral for one
then caught   - C from Cricketing terms and abreviations.

amateur       - Single letter for Amateur: A

and run       - "R" - again, Cricket terms.

circuit       - Ah! Single letter, could be "C" (perhaps) or "O" - it's a circuit!

Mohamad M. Mohamad wrote:

What do you do?

Mohamad M. Mohamad wrote:

Do you make profits?

OriginalGriff wrote:

Given the nature of this site, would you care to guess?

OriginalGriff wrote:

I have a roof over my head, and I can still eat