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
  • 1273 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado fudmario

  • *
  • Cramel
  • *
  • Mensajes: 193
  • Actividad:
    0%
  • 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.No tienes permisos para ver links. Registrate o Entra con tu cuenta("{0} {1}", x, dic.Item(mStr)))).No tienes permisos para ver links. Registrate o Entra con tu cuenta()
  66.             Case Mode.Decode
  67.                 Return ((From letter In word.No tienes permisos para ver links. Registrate o Entra con tu cuenta(" "c) Select dic.Where(Function(pair) pair.Value = letter).Select(Function(pair) pair.Key).FirstOrDefault()).Aggregate(res, Function(x, key) String.No tienes permisos para ver links. Registrate o Entra con tu cuenta("{0}{1}", x, key))).No tienes permisos para ver links. Registrate o Entra con tu cuenta()
  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: 3418
Último mensaje Junio 22, 2016, 05:07:37 pm
por Kr3L