PowerShell/Scripts/write-morse-code.ps1

85 lines
3.0 KiB
PowerShell
Raw Normal View History

2021-04-07 11:53:57 +02:00
#!/usr/bin/pwsh
2020-12-29 15:14:21 +01:00
<#
2021-04-07 15:17:49 +02:00
.SYNTAX write-morse-code.ps1 [<text>] [<speed>]
2021-03-22 20:10:18 +01:00
.DESCRIPTION writes the given text in Morse code
.LINK https://github.com/fleschutz/PowerShell
.NOTES Author: Markus Fleschutz / License: CC0
2020-12-29 15:14:21 +01:00
#>
2020-12-21 18:03:36 +01:00
2021-02-18 20:17:55 +01:00
param($Text = "", [int]$OneTimeUnit = 100) # in milliseconds
2020-12-21 18:03:36 +01:00
2021-01-27 15:12:17 +01:00
function gap { param([int]$Length)
2020-12-29 15:14:21 +01:00
for ([int]$i = 1; $i -lt $Length; $i++) {
2020-12-22 09:24:30 +01:00
write-host " " -nonewline
}
start-sleep -milliseconds ($Length * $OneTimeUnit)
}
2020-12-21 18:03:36 +01:00
2021-01-27 15:12:17 +01:00
function dot {
2020-12-21 18:03:36 +01:00
write-host "." -nonewline
2020-12-22 09:24:30 +01:00
start-sleep -milliseconds $OneTimeUnit # signal
2020-12-21 18:03:36 +01:00
}
2021-01-27 15:12:17 +01:00
function dash {
2020-12-22 09:24:30 +01:00
write-host "_" -nonewline
start-sleep -milliseconds (3 * $OneTimeUnit) # signal
2020-12-21 18:03:36 +01:00
}
2021-01-27 15:12:17 +01:00
function Char2MorseCode { param([string]$Char)
2020-12-21 18:03:36 +01:00
switch($Char) {
2020-12-22 09:24:30 +01:00
'A' { dot; gap 1; dash; gap 3 }
'B' { dash; gap 1; dot; gap 1; dot; gap 1; dot; gap 3 }
'C' { dash; gap 1; dot; gap 1; dash; gap 1; dot; gap 3 }
'D' { dash; gap 1; dot; gap 1; dot; gap 3 }
'E' { dot; gap 3 }
'F' { dot; gap 1; dot; gap 1; dash; gap 1; dot; gap 3 }
'G' { dash; gap 1; dash; gap 1; dot; gap 3 }
'H' { dot; gap 1; dot; gap 1; dot; gap 1; dot; gap 3 }
'I' { dot; gap 1; dot; gap 3 }
'J' { dot; gap 1; dash; gap 1; dash; gap 1; dash; gap 3 }
'K' { dash; gap 1; dot; gap 1; dash; gap 3 }
'L' { dot; gap 1; dash; gap 1; dot; gap 1; dot; gap 3 }
'M' { dash; gap 1; dash; gap 3 }
'N' { dash; gap 1; dot; gap 3 }
'O' { dash; gap 1; dash; gap 1; dash; gap 3 }
'P' { dot; gap 1; dash; gap 1; dash; gap 1; dot; gap 3 }
'Q' { dash; gap 1; dash; gap 1; dot; gap 1; dash; gap 3 }
'R' { dot; gap 1; dash; gap 1; dot; gap 3 }
'S' { dot; gap 1; dot; gap 1; dot; gap 3 }
'T' { dash; gap 3 }
'U' { dot; gap 1; dot; gap 1; dash; gap 3 }
'V' { dot; gap 1; dot; gap 1; dot; gap 1; dash; gap 3 }
'W' { dot; gap 1; dash; gap 1; dash; gap 3 }
'X' { dash; gap 1; dot; gap 1; dot; gap 1; dash; gap 3 }
'Y' { dash; gap 1; dot; gap 1; dash; gap 1; dash; gap 3 }
'Z' { dash; gap 1; dash; gap 1; dot; gap 1; dot; gap 3 }
'1' { dot; gap 1; dash; gap 1; dash; gap 1; dash; gap 1; dash; gap 3 }
'2' { dot; gap 1; dot; gap 1; dash; gap 1; dash; gap 1; dash; gap 3 }
'3' { dot; gap 1; dot; gap 1; dot; gap 1; dash; gap 1; dash; gap 3 }
'4' { dot; gap 1; dot; gap 1; dot; gap 1; dot; gap 1; dash; gap 3 }
'5' { dot; gap 1; dot; gap 1; dot; gap 1; dot; gap 1; dot; gap 3 }
'6' { dash; gap 1; dot; gap 1; dot; gap 1; dot; gap 1; dot; gap 3 }
'7' { dash; gap 1; dash; gap 1; dot; gap 1; dot; gap 1; dot; gap 3 }
'8' { dash; gap 1; dash; gap 1; dash; gap 1; dot; gap 1; dot; gap 3 }
'9' { dash; gap 1; dash; gap 1; dash; gap 1; dash; gap 1; dot; gap 3 }
'0' { dash; gap 1; dash; gap 1; dash; gap 1; dash; gap 1; dash; gap 3 }
default { gap 7 } # medium gap (between words)
2020-12-21 18:03:36 +01:00
}
}
try {
if ($Text -eq "" ) {
2020-12-29 15:14:21 +01:00
[string]$Text = read-host "Enter text to write"
2020-12-21 18:03:36 +01:00
}
[char[]]$ArrayOfChars = $Text.ToUpper()
foreach($Char in $ArrayOfChars) {
Char2MorseCode $Char
}
write-host ""
2020-12-22 09:24:30 +01:00
write-host ""
2020-12-21 18:03:36 +01:00
exit 0
} catch {
2021-02-16 10:03:20 +01:00
write-error "ERROR: line $($_.InvocationInfo.ScriptLineNumber): $($Error[0])"
2020-12-21 18:03:36 +01:00
exit 1
}