Script para enviar código Morse en PowerShell
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 |
#Morse code #A|. - #B|- . . . #C|- . - . #Ch|- - - - #D|- . . #E|. #F|. . - . #G|- - . #H|. . . . #I|. . #J|. - - - #K|- . - #L|. - . . #M|- - #N|- . #Ñ|- - . - - #O|- - - #P|. - - . #Q|- - . - #R|. - . #S|. . . #T|- #U|. . - #V|. . . - #W|. - - #X|- . . - #Y|- . - - #Z|- - . . Get-Content .\textomorse.txt | %{ $letter=$_.split("|")[0] $morse=$_.split("|")[1] $values=$morse.split(" ") Write-Host $letter,$morse foreach($sound in $values) { if($sound -eq ".") { #2000 Hz [console]::beep(2000,500) } elseif($sound -eq "-") { [console]::beep(2000,800) } Start-Sleep -Seconds 1 } } |
El texto enviado en código morse es
El texto recibido en la tarjeta de sonido es
Explicación sobre el texto recibido en la tarjeta de sonido