Coin flip in PowerShell, GUI version.

Need to make a decision, like to bet, maybe you just like silly apps? Whatever the reason you’re reading this I hope it helps someone to learn some simple GUI tricks in PowerShell. I didn’t spend a lot of time on this. I already wrote one in C# years ago and had some downtime so why not code it in PowerShell?

Download the three images or make your own. They are 200×200 pixels. They are at the bottom of the post. Save the code and change the paths or make it better.

Flipper in Powershell from the original C# flipper by C. Nichols.
Click to flip the stupid coin...
$basePath would be better as a global or passed as arg. I'm lazy...
Be sure to chage both paths at line 14 and 47 if you're lazy like me.
Add-Type -AssemblyName System.Windows.Forms

Function flippin_Click {

        $basePath = "c:\flipper\res"
        $PictureBox1.Image = [System.Drawing.Image]::FromFile("$basePath\spin.jpg")
        $Label1.text = "You spin me right round, baby"

        $choices = @("heads.jpg"; "tails.jpg")
        $result = Get-Random $choices
        Start-Sleep -Seconds 1
        if ($result.Contains("heads") -eq $true) {
            $PictureBox1.Image = [System.Drawing.Image]::FromFile("$basePath\$result")
            $Label1.text = "Heads, man!"
        } elseif ($result.Contains("tails") -eq $true) {
            $PictureBox1.Image = [System.Drawing.Image]::FromFile("$basePath\$result")
            $Label1.text = "Tails, man!"

$Form                            = New-Object system.Windows.Forms.Form
$Form.ClientSize                 = '210,230'
$Form.text                       = "PS-Flipper"
$Form.TopMost                    = $false

$PictureBox1                     = New-Object system.Windows.Forms.PictureBox
$PictureBox1.width               = 200 
$PictureBox1.height              = 200 
$PictureBox1.location            = New-Object System.Drawing.Point(4,4)
$PictureBox1.imageLocation       = "c:\flipper\res\heads.jpg"
$PictureBox1.SizeMode            = [System.Windows.Forms.PictureBoxSizeMode]::zoom
$PictureBox1.add_click({ flippin_Click })

$Label1                          = New-Object system.Windows.Forms.Label
$Label1.text                     = "Click to flip."
$Label1.AutoSize                 = $true
$Label1.width                    = 180
$Label1.height                   = 10
$Label1.location                 = New-Object System.Drawing.Point(11,208)
$Label1.Font                     = 'Microsoft Sans Serif,10'

Quarter Heads JpegQuarter Tails JpegSpinning Quarter Jpeg