Morse Code(모스부호)
2013.12.15
FILE. CONTENT. * : 전신기에 짧게 입력합니다. - : 전신기에 길게 입력합니다. PROJECT. [출처] 모스 부호표|작성자 버드가지 SRC. Dim sMossMsg As String, sNum As String, sResult As String Dim sLen As Integer sMossMsg = InputBox("모스 부호를 입력하세요." & vbNewLine & "예) *--* *- *** *** *-- --- *-* -**", "I/O", "*--* *- *** *** *-- --- *-* -**") sNum = UBound(Split(sMossMsg, " ")) sLen = sNum For i = 0 To sLen sNum = Split(sMossMsg, " ")(i) Selec..