2012年4月23日投稿 / 投稿者 : いったん / タグ : 投稿プログラム ツール QRコード mkII専用
モールス信号をタッチで打って変換できるプログラムです。
詳しく知りたい人はググってください。
モールス信号について
モールス信号から文章へ
文章からモールス信号へといろいろできます。
スタートボタンを押すとファンクションキーに文章とコードが記録されてプログラムが終了します。
動作しているところを撮影した写真や動画があれば貼り付けてください。
プチコンmkII 向けの QR コードです。
- ’モ-ルス シンコ゛ウ カイセキ PC by ittan
- ’v1.00 4/23
- ’コ-ト゛ヒョウ カ゛ンハ゛ッテ オホ゛エヨウ
- ’┌─┬─────┬─┬─────┬─┬─────┐
- ’│A│・- │B│-・・・ │C│-・-・ │
- ’│D│-・・ │E│・ │F│・・-・ │
- ’│G│--・ │H│・・・・ │I│・・ │
- ’│J│・--- │K│-・- │L│・-・・ │
- ’│M│-- │N│-・ │O│--- │
- ’│P│・--・ │Q│-・-- │R│・-・ │
- ’│S│・・・ │T│- │U│・・- │
- ’│V│・--- │W│・-- │X│-・・- │
- ’│Y│-・-- │Z│--・・ │ │ │
- ’│イ│・- │ロ│・-・- │ハ│-・・・ │
- ’│ニ│-・-・ │ホ│-・・ │ヘ│・ │
- ’│ト│・・-・・│チ│・・-・ │リ│--・ │
- ’│ヌ│・・・・ │ル│-・--・│ヲ│・--- │
- ’│ワ│-・- │カ│・-・・ │ヨ│-- │
- ’│タ│-・ │レ│--- │ソ│---・ │
- ’│ツ│・--・ │ネ│--・- │ナ│・-・ │
- ’│ラ│・・・ │ム│- │ウ│・・- │
- ’│#│・-・・-│ノ│・・-- │オ│・-・・・│
- ’│ク│・・・- │ヤ│・-- │マ│-・・- │
- ’│ケ│-・-- │フ│--・・ │コ│---- │
- ’│エ│-・---│テ│・-・--│ア│--・--│
- ’│サ│-・-・-│キ│-・-・・│ユ│-・・--│
- ’│メ│-・・・-│ミ│・・-・-│シ│--・-・│
- ’│*│・--・・│ヒ│--・・-│モ│-・・-・│
- ’│セ│・---・│ス│---・-│ン│・-・-・│
- ’│゛│・・ │゜│・・--・│-│・--・-│
- ’│、│・-・-・- │ │ │ │
- ’│1│・----│2│・・---│3│・・・--│
- ’│4│・・・・-│5│・・・・・│6│-・・・・│
- ’│7│--・・・│8│---・・│9│----・│
- ’│0│-----│ │ │ │ │
- ’└─┴─────┴─┴─────┴─┴─────┘
- ’SPACE(カンキョウイソ゛ン):・・・・・・
- ’#:ヤ キ゛ョウ ノ(イ)
- ’*:ヤ キ゛ョウ ノ(エ)
- VISIBLE 1,1,0,0,0,0
- ACLS
- CLEAR
- PNLTYPE”OFF”
- GOSUB @PRINT
- DIM SIGN$(8,55),MAX(4)
- RESTORE @DATA
- FOR J=0 TO 3
- FOR I=0 TO 100
- READ SIGN$(J*2+0,I)
- READ SIGN$(J*2+1,I)
- IF SIGN$(J*2,I)==”” THEN MAX(J)=I-1:I=100
- NEXT
- NEXT
- LOWT=7 ’(・)ノタイム
- HIGHT=21’モシ゛ノ カンカク
- BT_A=16
- BT_B=32
- BT_X=64
- BT_Y=128
- BT_R=512
- BT_S=1024
- @MAIN
- GOSUB @BTGET
- GOSUB @INPUT
- VSYNC 1
- GOTO@MAIN
- @INPUT
- LOCATE 7,11:?CODE$;” ”
- LOCATE 7,12:?WARD$;
- IF TCHST THEN T=T+1:TC=TRUE:TW=0
- IF TCHST AND T==1 THEN BGMPLAY”@147V50O8C1”
- IF T>0 AND TCHST==0 THEN GOSUB@CHKCODE
- IF TC==TRUE THEN TW=TW+1
- IF TW>HIGHT THEN GOSUB @CODEGET
- RETURN
- @CHKCODE
- BGMSTOP 0
- IF T<=LOWT THEN CODE$=CODE$+”・”
- IF T>LOWT THEN CODE$=CODE$+”-”
- T=0
- RETURN
- @CODEGET
- C=-1
- FOR J=0 TO 3
- M=MAX(J)
- IF MODE==1 AND J==1 THEN M=-1
- IF MODE==0 AND J==0 THEN M=-1
- FOR I=0 TO M
- IF CODE$==SIGN$(J*2+1,I) THEN C=I:C2=J*2
- NEXT
- NEXT
- CODE$=””
- TC=FALSE
- TW=FALSE
- IF C==-1 THEN BEEP 2:RETURN
- WARD$=WARD$+SIGN$(C2,C)
- RETURN
- @BTGET
- BT=BTRIG()
- IF BT AND BT_B THEN @INWARD
- IF BT AND BT_X THEN @DELWARD
- IF BT AND BT_R THEN @MODECHA
- IF BT AND BT_A THEN @CHACODE
- IF BT AND BT_Y THEN @BS
- IF BT AND BT_S THEN @CLOSE
- RETURN
- @BS ハ゛ックスヘ゜-ス
- WL=LEN(WARD$)-(WARD$!=””)
- WARD$=LEFT$(WARD$,WL)
- LOCATE 7+WL,12:?” ”
- RETURN
- @INWARD モシ゛ニュウリョク
- LOCATE 0,14
- INPUT WARD$
- WAIT 20
- CLS
- GOSUB @PRINT
- RETURN
- @MODECHA カナ←→アルファヘ゛ット
- MODE=!MODE
- LOCATE 7,10
- IF MODE==0 THEN ?”カナ ”
- IF MODE==1 THEN ?”アルファヘ゛ット”
- RETURN
- @DELWARD シ゛ヲケス
- WARD$=””
- CLS
- GOSUB @PRINT
- LOCATE 7,10
- IF MODE==1 THEN ?”アルファヘ゛ット”
- RETURN
- @CHACODE モシ゛→シンコ゛ウ
- WARDC$=””
- FOR I=0 TO LEN(WARD$)-1
- W$=MID$(WARD$,I,1)
- IF W$==”(” THEN W$=MID$(WARD$,I,3):I=I+2
- C=-1
- FOR J=0 TO 2
- M=MAX(J)
- FOR K=0 TO M
- IF W$==SIGN$(J*2,K) THEN C=K:C2=J*2+1
- NEXT
- NEXT
- IF C==-1 THEN C2=6:C=0
- IF W$==” ” THEN C2=7:C=1
- WARDC$=WARDC$+SIGN$(C2,C)+” ”
- @NEXT
- NEXT
- LOCATE 0,14
- ?WARDC$
- RETURN
- @CLOSE
- KEY 4,WARD$
- KEY 5,WARDC$
- END
- @PRINT カ゛メンセイセイ
- CLS
- ?”┌────────────────────────┐
- ?”│モ-ルス シンコ゛ウ カイセキ コンヒ゜ュ-タ │
- ?”│ by ittan│
- ?”├────────────────────────┤
- ?”│Б:モシ゛レツ ニュウリョク │
- ?”│А:モシ゛レツ ヲ ヘンカン │
- ?”│Ф:モシ゛レツ ショウキョ │
- ?”│Х:ハ゛ックスヘ゜-ス │
- ?”│н:ニュウリョク モ-ト゛ キリカエ │
- ?”│ │
- ?”│モ-ト゛ :カナ │
- ?”│シンコ゛ウ: │
- ?”│モシ゛レツ: │
- ?”┴ モシ゛レツコ-ト゛↓ ┴
- LOCATE 0,14:?WARDC$
- PNLSTR 9,10,”カ゛メ ン ヲ タ ッ チ”
- RETURN
- @DATA
- DATA ”A”,”・-” ,”B”,”-・・・”
- DATA ”C”,”-・-・” ,”D”,”-・・”
- DATA ”E”,”・” ,”F”,”・・-・”
- DATA ”G”,”--・” ,”H”,”・・・・”
- DATA ”I”,”・・” ,”J”,”・---”
- DATA ”K”,”-・-” ,”L”,”・-・・”
- DATA ”M”,”--” ,”N”,”-・”
- DATA ”O”,”---” ,”P”,”・--・”
- DATA ”Q”,”--・-” ,”R”,”・-・”
- DATA ”S”,”・・・” ,”T”,”-”
- DATA ”U”,”・・-” ,”V”,”・・・-”
- DATA ”W”,”・--” ,”X”,”-・・-”
- DATA ”Y”,”-・--” ,”Z”,”--・・”
- DATA ””,””
- DATA ”イ”,”・-” ,”ロ”,”・-・-”
- DATA ”ハ”,”-・・・” ,”ニ”,”-・-・”
- DATA ”ホ”,”-・・” ,”ヘ”,”・”
- DATA ”ト”,”・・-・・”,”チ”,”・・-・”
- DATA ”リ”,”--・” ,”ヌ”,”・・・・”
- DATA ”ル”,”-・--・”,”ヲ”,”・---”
- DATA ”ワ”,”-・-” ,”カ”,”・-・・”
- DATA ”ヨ”,”--” ,”タ”,”-・”
- DATA ”レ”,”---” ,”ソ”,”---・”
- DATA ”ツ”,”・--・” ,”ネ”,”--・-”
- DATA ”ナ”,”・-・” ,”ラ”,”・・・”
- DATA ”ム”,”-” ,”ウ”,”・・-”
- DATA ”(イ)”,”・-・・-”
- DATA ”ノ”,”・・--” ,”オ”,”・-・・・”
- DATA ”ク”,”・・・-” ,”ヤ”,”・--”
- DATA ”マ”,”-・・-” ,”ケ”,”-・--”
- DATA ”フ”,”--・・” ,”コ”,”----”
- DATA ”エ”,”-・---”,”テ”,”・-・--”
- DATA ”ア”,”--・--”,”サ”,”-・-・-”
- DATA ”キ”,”-・-・・”,”ユ”,”-・・--”
- DATA ”メ”,”-・・・-”,”ミ”,”・・-・-”
- DATA ”シ”,”--・-・”
- DATA ”(エ)”,”・--・・”
- DATA ”ヒ”,”--・・-”,”モ”,”-・・-・”
- DATA ”セ”,”・---・”,”ス”,”---・-”
- DATA ”ン”,”・-・-・”,”゛”,”・・”
- DATA ”゜”,”・・--・”,”-”,”・--・-”
- DATA ”、”,”・-・-・-”
- DATA ””,””
- DATA ”1”,”・----”,”2”,”・・---”
- DATA ”3”,”・・・--”,”4”,”・・・・-”
- DATA ”5”,”・・・・・”,”6”,”-・・・・”
- DATA ”7”,”--・・・”,”8”,”---・・”
- DATA ”9”,”----・”,”0”,”-----”
- DATA ””,””
- DATA ”?”,””,” ”,”・・・・・・”
- DATA ””,””
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)