Morseモジュール

本ページには広告が含まれています。

引数に指定した文字列をモールス信号、またはモールス信号を文字列に変換します。

構文
  1. UString = Morse.encode( str )
  2. UString = Morse.decode( str )
引数
str 必須
encode
エンコードする文字列
decode
デコードする文字列
区切りは半角スペース
戻り値
変換した文字列

プログラム

UWSC

プログラム実行例

指定した文字列のモールス信号を鳴らす

  • Main
  • FUNCTIONS
UWSC
DEF_DLL Beep(long, long): long: kernel32.dll

DIM frequency = 880    // 周波数
DIM dot = 50           // 短点の長さ(ms)

DIM str = MORSE.encode("UWSC")
DIM len = LENGTH(str) -1
DIM array[len][2]

FOR i = 0 TO len
	SELECT COPY(str, i+1, 1)
		CASE "・"
			array[i][0] = dot
			array[i][1] = TRUE
		CASE "−"
			array[i][0] = dot * 3
			array[i][1] = TRUE
		CASE " "
			array[i][0] = dot
			array[i][1] = FALSE
	SELEND
NEXT

FOR i = 0 TO UBound(array)
	IFB array[i][1] THEN
		Beep(frequency, array[i][0])
	ELSE
		SLEEP(array[i][0] / 1000)
	ENDIF
NEXT
UWSC
使用関数
解説(自動生成)

関連記事

MODULE化
複数の変数や類似する機能を持つ関数をひとつのグループとしてまとめます。
QuotedPrintableモジュール (自作関数)
Quoted-printableのエンコード・デコードを行います。
Base64モジュール (自作関数)
Base64のエンコード・デコードを行います。
Cipherモジュール (自作関数)
文字列の暗号化・復号を行います。