Raspberry Pi -2
En esta ocasión comprobaré el programa de código morse que está en la siguiente dirección: https://github.com/jwhitehorn/pi_piper/blob/master/examples/morse_code/m...
Hay que tener en cuenta que no hay que escribir tildes ni ñ
El programa lo he modificado un poco y lo llamaré morsepi.rb, su contenido es el siguiente:
======================================
require 'pi_piper'
unit = 0.1
dot = unit #punto
dash = unit * 3 #raya
inter_element_gap = unit
short_gap = unit * 3
medium_gap = unit * 7
character_timing = { "a" => [dot, dash], "b" => [dash, dot, dot, dot], "c" => [dash, dot, dash, dot],
"d" => [dash, dot, dot], "e" => [dot], "f" => [dot, dot, dash, dot],
"g" => [dash, dash, dot], "h" => [dot, dot, dot, dot], "i" => [dot, dot],
"j" => [dot, dash, dash, dash], "k" => [dash, dot, dash], "l" => [dot, dash, dot, dot],
"m" => [dash, dash], "n" => [dash, dot], "o" => [dash, dash, dash],
"p" => [dot, dash, dash, dot], "q" => [dash, dash, dot, dash], "r" => [dot, dash, dot],
"s" => [dot, dot, dot], "t" => [dash], "u" => [dot, dot, dash],
"v" => [dot, dot, dot, dash], "w" => [dot, dash, dash], "x" => [dash, dot, dot, dash],
"y" => [dash, dot, dash, dash], "z" => [dash, dash, dot, dot],
"0" => [dash, dash, dash, dash, dash], "1" => [dot, dash, dash, dash, dash],
"2" => [dot, dot, dash, dash, dash], "3" => [dot, dot, dot, dash, dash],
"4" => [dot, dot, dot, dot, dash], "5" => [dot, dot, dot, dot, dot],
"6" => [dash, dot, dot, dot, dot], "7" => [dash, dash, dot, dot, dot],
"8" => [dash, dash, dash, dot, dot], "9" => [dash, dash, dash, dash, dot]
}
pin = PiPiper::Pin.new(:pin => 17, :direction => :out)
pin.off
loop do
puts "Escribe alguna cosa con el teclado"
@something = gets.chomp.downcase
@something.each_char do |letter|
if letter == " "
pin.off
sleep medium_gap
else
puts "Mira el Led"
character_timing[letter].each do |timing|
pin.on
sleep timing
pin.off
sleep inter_element_gap
end
sleep short_gap - inter_element_gap
end
end
pin.off
end
=======================================
