|
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 |
#Morse code #morse.txt #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 F:\power\morse.txt | %{ $letter=$_.split("|")[0] $morse=$_.split("|")[1] $values=$morse.split(" ") Write-Host $letter,$morse foreach($sound in $values) { if($sound -eq ".") { [console]::beep(2000,500) } elseif($sound -eq "-") { [console]::beep(2000,800) } } } |