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)
Select Case sNum
Case "*-": sResult = sResult + "A "
Case "-***": sResult = sResult + "B "
Case "-*-*": sResult = sResult + "C "
Case "-**": sResult = sResult + "D "
Case "*": sResult = sResult + "E "
Case "**-*": sResult = sResult + "F "
Case "--*": sResult = sResult + "G "
Case "****": sResult = sResult + "H "
Case "**": sResult = sResult + "I "
Case "*---": sResult = sResult + "J "
Case "-*-": sResult = sResult + "K "
Case "*-**": sResult = sResult + "L "
Case "--": sResult = sResult + "M "
Case "-*": sResult = sResult + "N "
Case "---": sResult = sResult + "O "
Case "*--*": sResult = sResult + "P "
Case "--*-": sResult = sResult + "Q "
Case "*-*": sResult = sResult + "R "
Case "***": sResult = sResult + "S "
Case "-": sResult = sResult + "T "
Case "**-": sResult = sResult + "U "
Case "***-": sResult = sResult + "V "
Case "*--": sResult = sResult + "W "
Case "-**-": sResult = sResult + "X "
Case "-*--": sResult = sResult + "Y "
Case "--**": sResult = sResult + "Z "
Case "*----": sResult = sResult + "1 "
Case "**---": sResult = sResult + "2 "
Case "***--": sResult = sResult + "3 "
Case "****-": sResult = sResult + "4 "
Case "*****": sResult = sResult + "5 "
Case "-****": sResult = sResult + "6 "
Case "--***": sResult = sResult + "7 "
Case "---**": sResult = sResult + "8 "
Case "----*": sResult = sResult + "9 "
Case "-----": sResult = sResult + "0 "
Case "*-*-*-": sResult = sResult + ". "
Case "--**--": sResult = sResult + ", "
Case "**--**": sResult = sResult + "? "
Case "---***": sResult = sResult + ".. "
Case "-**-*": sResult = sResult + "/ "
Case "-****-": sResult = sResult + "- "
Case "-*--*": sResult = sResult + "( "
Case "-*--*-": sResult = sResult + ") "
Case "*******": sResult = sResult + "초기화(정정)"
End Select
Next i
MsgBox "클립보드에 저장되었습니다. 메모장에 CTRL + V 해보세요." & vbNewLine & "변환된 값 : " & sResult
Clipboard.Clear
Clipboard.SetText sResult
sResult = ""
Unload Me
'VB6.0' 카테고리의 다른 글
회사에서 바로 통하는 실무 엑셀 매크로 & VBA (1) | 2020.10.04 |
---|---|
페이스북 콕 찌르기 (facebook pokes) (2) | 2013.11.18 |
네이버 Mail 보내기 관련 소스 (0) | 2013.09.20 |
"C:\Windows\system32\ieframe.dll\1 을 찾을수없습니다" 라는 에러 (0) | 2013.09.01 |
인터넷 기초사용기 (0) | 2013.08.27 |