comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB.NET] Morse Encode/Decode

  • 0 Respuestas
  • 1217 Vistas

0 Usuarios y 2 Visitantes están viendo este tema.

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 193
  • Actividad:
    1.67%
  • Reputación 11
    • Ver Perfil
    • fudmario - GitHub
  • Skype: fudmario
« en: Diciembre 04, 2016, 05:33:10 pm »


Ejemplo de Uso:

Código: vb.net
  1. Dim textEnc As String = MorseEncDec.Morse(word:="EXAMPLE MORSE ENCODE DECODE FUNCTION",
  2.                                     mode:=Morse.Mode.Encode)
  3.  
  4. Dim textDec As String = MorseEncDec.Morse(word:=". -..- .- -- .--. .-.. .  -- --- .-. ... .  . -. -.-. --- -.. .  -.. . -.-. --- -.. .  ..-. ..- -. -.-. - .. --- -.",
  5.                                     mode:=Morse.Mode.Decode)
  6.  

Código: vb.net
  1. Public NotInheritable Class MorseEncDec
  2.     Public Enum Mode As Integer
  3.         [Encode] = 0I
  4.         [Decode] = 1I
  5.     End Enum
  6.     Public Shared Function Morse(ByVal word As String, mode As Mode) As String
  7.         Dim res As String = String.Empty
  8.         Dim dic As Dictionary(Of String, String)
  9.         dic = New Dictionary(Of String, String) From
  10.                     {
  11.                         {"A", ".-"},
  12.                         {"B", "-..."},
  13.                         {"C", "-.-."},
  14.                         {"D", "-.."},
  15.                         {"E", "."},
  16.                         {"F", "..-."},
  17.                         {"G", "--."},
  18.                         {"H", "...."},
  19.                         {"I", ".."},
  20.                         {"J", ".---"},
  21.                         {"K", "-.-"},
  22.                         {"L", ".-.."},
  23.                         {"M", "--"},
  24.                         {"N", "-."},
  25.                         {"Ñ", "--.--"},
  26.                         {"O", "---"},
  27.                         {"P", ".--."},
  28.                         {"Q", "--.-"},
  29.                         {"R", ".-."},
  30.                         {"S", "..."},
  31.                         {"T", "-"},
  32.                         {"U", "..-"},
  33.                         {"V", "...-"},
  34.                         {"W", ".--"},
  35.                         {"X", "-..-"},
  36.                         {"Y", "-.--"},
  37.                         {"Z", "--.."},
  38.                         {"Ä", ".-.-"},
  39.                         {"Ö", "---."},
  40.                         {"Ü", "..--"},
  41.                         {" ", ""},
  42.                         {"0", "-----"},
  43.                         {"1", ".----"},
  44.                         {"2", "..---"},
  45.                         {"3", "...--"},
  46.                         {"4", "....-"},
  47.                         {"5", "....."},
  48.                         {"6", "-...."},
  49.                         {"7", "--..."},
  50.                         {"8", "---.."},
  51.                         {"9", "----."},
  52.                         {".", ".-.-.-"},
  53.                         {",", "--..--"},
  54.                         {"?", "..--.."},
  55.                         {"!", "..--."},
  56.                         {":", "---..."},
  57.                         {"""", ".-..-."},
  58.                         {"'", ".----."},
  59.                         {"-", "-....-"},
  60.                         {"=", "-...-"}
  61.                     }
  62.         Select Case mode
  63.             Case Mode.Encode
  64.                 Dim arrWord As IEnumerable(Of Char) = word.ToUpper().ToCharArray()
  65.                 Return ((From mStr In arrWord Where dic.ContainsKey(mStr)).Aggregate(res, Function(x, mStr) String.You are not allowed to view links. Register or Login("{0} {1}", x, dic.Item(mStr)))).You are not allowed to view links. Register or Login()
  66.             Case Mode.Decode
  67.                 Return ((From letter In word.You are not allowed to view links. Register or Login(" "c) Select dic.Where(Function(pair) pair.Value = letter).Select(Function(pair) pair.Key).FirstOrDefault()).Aggregate(res, Function(x, key) String.You are not allowed to view links. Register or Login("{0}{1}", x, key))).You are not allowed to view links. Register or Login()
  68.         End Select
  69.         Return String.Empty
  70.     End Function
  71.  
  72. End Class
  73.  


 

¿Te gustó el post? COMPARTILO!



[Function] Adf.ly Decode by fudmario[vb.net]

Iniciado por fudmario

Respuestas: 5
Vistas: 3343
Último mensaje Junio 22, 2016, 05:07:37 pm
por Kr3L