2012年7月14日投稿 / 投稿者 : AmakoSoft / タグ : 投稿プログラム 実用ツール QRコード mkII専用
ローマ字変換をするライブラリのようなものです
「PRG:ROMA4」を使いたいプログラムにAPPENDする
1:プログラムの最初に「@R_INIT」をよびだす
2:AGU$にローマ字の入った文字列を入れる
3:「@ROMA」をよびだす
4:RTN$に変換されたひらがな文字列が入っている
1:AGU$にひらがな文字列を入れる
2:「@H_K」をよびだす
3:RTN$にカタカナ文字列が入っている
@R_INIT:データの定義、初期化をする。
プログラムの最初に呼び出す。
@ROMA :ローマ字文字列をひらがな文字列に変換する。
@H_K :ひらがな文字列をカタカナ文字列に変換する。
@ROMA:0.03〜2.12フレーム
@H_K :0.02フレーム
AmakoSoftとは、プチコンやWindows用ソフトを作る組織のことです。
ホームページ
暗号くん
プチコンmkII 向けの QR コードです。
美咲ひらがなフォントがついてきます。
(1/6) (2/6) (3/6)
(4/6) (5/6) (6/6)
- ’/////////////////////
- ’/ロ―マシ゛ノキュウシ゛ツ Ver3.0/
- ’/////////////////////
- ’コノフ゜ロク゛ラムハMISAKIヒラカ゛ナフォントヲシヨウシテイマス
- ’コウセイ
- ’ショキカ :@R_INIT
- ’ロ−マシ゛→ヒラカ゛ナ:@ROMA
- ’ヒラカ゛ナ→カタカナ :@H_K
- ’ツカイカタ
- ’1:フ゜ロク゛ラムサイショニ@R_INITヲヨヒ゛タ゛ス
- ’2:ロ−マシ゛→ヒラカ゛ナノハ゛アイ
- ’ AGU$ニロ−マシ゛ヲイレテ、@ROMAヲヨヒ゛タ゛ス
- ’ スルトRTN$ニヒラカ゛ナカ゛カエッテクル
- ’ ヒラカ゛ナ→カタカナノハ゛アイ
- ’ AGU$ニヒラカ゛ナヲイレテ、@H_Kヲヨヒ゛タ゛ス
- ’ スルトRTN$ニカタカナカ゛カエッテクル
- ’サンフ゜ル
- CLEAR:CLS
- GOSUB@R_INIT
- ?”Э▽フ゜ロク゛ラムЮmisakiフォント┸├ЩЯ├┘бУ┼。
- ?”ロ−マ├Ц┸б┝┘┐╂Ц─б
- LINPUT AGU$GOSUB@ROMA
- ?RTN$
- AGU$=RTN$GOSUB@H_K
- TALK RTN$
- @B
- IF BTRIG()==0GOTO@B
- CLS
- END
- @R_INIT
- DIM R_D$(9,4),R_K$(9,4)
- FOR X=0TO 7
- FOR Y=0TO 3R_D$(X,Y)=”
- R_K$(X,Y)=”
- NEXT
- NEXT
- R_D$(0,0)=”AIUEO[].,
- R_K$(0,0)=”абЯвВ「」。、
- RESTORE@R_DATA
- FOR X=1TO 8
- FOR Y=0TO 3READ R_D$(X,Y)
- NEXT
- FOR Y=0TO 3READ R_K$(X,Y)
- NEXT
- NEXT
- HDAT$=”абЯвВ┌┬┐ЫЭ─├┼┤С╂└┴┘к○◎□△▽ЮЬМНДУТгеёлм┿┝┰дЪЩЙЦЧ┸┥ж↑и↓
- KDAT$=”アイウエオカキクケコサシスセソタチツテトナニヌネノハヒフヘホマミムメモラリルレロヤユヨン゛゜ヲワャュョッ
- RETURN
- @R_DATA
- DATA KKKKKSSSSSTTTTTNNNNNHHHHHMMMMMYYYRRRRRWWLLLLLXXXXXFCCCCC
- DATA AIUEOAIUEOAIUEOAIUEOAIUEOAIUEOAUOAIUEOAOAIUEOAIUEOUAIUEO,,
- DATA┌┬┐ЫЭ─├┼┤С╂└┴┘к○◎□△▽ЮЬМНДУТгеёдЪЩлм┿┝┰┥┸■▲▼ОЖ■▲▼ОЖМ┌├┐┤Э,,,,GGGGGZZZZZDDDDDBBBBBPPPPPVJFFFF
- DATA AIUEOAIUEOAIUEOAIUEOAIUEOUIAIEO,,,┌┬┐ЫЭ─├┼┤С╂└┴┘кЮЬМНДЮЬМНДЯ├ММММ
- DATAЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЧЧЧЧЧЦЦ■▲ОЖ,,,JJJJVVVV,AUEOAIEO,,,├├├├ЯЯЯЯ,ЦЦЦЦЦЦЦЦ,ж↑Ои■▲ОЖ,
- DATA KSTNHMYRWGZDBP,KSTNHMYRWGZDBP,,,↓↓↓↓↓↓↓↓↓↓↓↓↓↓,,,,SCLXT,HHTTS,IIUUU,,├└↓↓┴,,,
- DATA SSSSCCCCKKKSSSTTTNNNHHHMMMRRR,HHHHHHHHYYYYYYYYYYYYYYYYYYYYY,AUEOAUEOAUOAUOAUOAUOAUOAUOAUO,
- DATA├├├├└└└└┬┬┬├├├└└└◎◎◎ЬЬЬТТТммм,ж↑Оиж↑Оиж↑иж↑иж↑иж↑иж↑иж↑иж↑и,,,GGGZZZDDDBBBPPP,YYYYYYYYYYYYYYY
- DATA AUOAUOAUOAUOAUO,,┬┬┬├├├└└└ЬЬЬЬЬЬ,ЦЦЦЦЦЦЦЦЦЦЦЦЧЧЧ,ж↑иж↑иж↑иж↑иж↑и,,LX,TT,SS,UU,↓↓,,,
- @ROMA
- RA$=AGU$R$=”
- FOR R=0TO LEN(RA$)−1S$=MID$(RA$,R,1)S=INSTR(R_D$(0,0),S$)IF S$==”N”THEN GOSUB@NN
- IF ASE==1GOTO@REND
- IF S==−1GOTO@NOT1 ELSE R$=R$+MID$(R_K$(0,0),S,1)
- GOTO@REND
- @NOT1
- S$=MID$(RA$,R,2)
- FOR R2=0TO LEN(R_D$(1,0))−1RW$=MID$(R_D$(1,0),R2,1)+MID$(R_D$(1,1),R2,1)IF S$!=RW$GOTO@RLE
- IF R+1>=LEN(RA$)GOTO@RLE
- R$=R$+MID$(R_K$(1,0),R2,1)+MID$(R_K$(1,1),R2,1)R=R+1R2=999
- @RLE
- NEXT
- IF R2>998GOTO@REND
- FOR R2=0TO LEN(R_D$(2,0))−1RW$=MID$(R_D$(2,0),R2,1)+MID$(R_D$(2,1),R2,1)IF S$!=RW$GOTO@RLE2
- R$=R$+MID$(R_K$(2,0),R2,1)+MID$(R_K$(2,1),R2,1)R=R+1R2=999
- @RLE2
- NEXT
- IF R2>998GOTO@REND
- FOR R2=0TO LEN(R_D$(3,0))−1RW$=MID$(R_D$(3,0),R2,1)+MID$(R_D$(3,1),R2,1)IF S$!=RW$GOTO@RLE3
- R$=R$+MID$(R_K$(3,0),R2,1)+MID$(R_K$(3,1),R2,1)+MID$(R_K$(3,2),R2,1)R=R+1R2=999
- @RLE3
- NEXT
- IF R2>998GOTO@REND
- FOR R2=0TO LEN(R_D$(4,0))−1RW$=MID$(R_D$(4,0),R2,1)+MID$(R_D$(4,1),R2,1)IF S$!=RW$GOTO@RLE4
- R$=R$+MID$(R_K$(4,0),R2,1)+MID$(R_K$(4,1),R2,1)R2=999
- @RLE4
- NEXT
- IF R2>998GOTO@REND
- S$=MID$(RA$,R,3)
- FOR R2=0TO LEN(R_D$(5,0))−1RW$=MID$(R_D$(5,0),R2,1)+MID$(R_D$(5,1),R2,1)+MID$(R_D$(5,2),R2,1)
- IF R+2>=LEN(RA$)GOTO@RLE5
- IF S$!=RW$GOTO@RLE5
- R$=R$+MID$(R_K$(5,0),R2,1)R=R+2R2=999
- @RLE5
- NEXT
- IF R2>998GOTO@REND
- S$=MID$(RA$,R,3)
- FOR R2=0TO LEN(R_D$(6,0))−1RW$=MID$(R_D$(6,0),R2,1)+MID$(R_D$(6,1),R2,1)+MID$(R_D$(6,2),R2,1)
- IF R+2>=LEN(RA$)GOTO@RLE6
- IF S$!=RW$GOTO@RLE6
- R$=R$+MID$(R_K$(6,0),R2,1)+MID$(R_K$(6,1),R2,1)R=R+2R2=999
- @RLE6
- NEXT
- IF R2>998GOTO@REND
- S$=MID$(RA$,R,3)
- FOR R2=0TO LEN(R_D$(7,0))−1RW$=MID$(R_D$(7,0),R2,1)+MID$(R_D$(7,1),R2,1)+MID$(R_D$(7,2),R2,1)
- IF R+2>=LEN(RA$)GOTO@RLE7
- IF S$!=RW$GOTO@RLE7
- R$=R$+MID$(R_K$(7,0),R2,1)+MID$(R_K$(7,1),R2,1)+MID$(R_K$(7,2),R2,1)R=R+2R2=999
- @RLE7
- NEXT
- IF R2>998GOTO@REND
- S$=MID$(RA$,R,4)
- FOR R2=0TO LEN(R_D$(8,0))−1
- IF R+3>=LEN(RA$)GOTO@RLE8
- RW$=MID$(R_D$(8,0),R2,1)+MID$(R_D$(8,1),R2,1)+MID$(R_D$(8,2),R2,1)+MID$(R_D$(8,3),R2,1)
- IF S$!=RW$GOTO@RLE8
- R$=R$+MID$(R_K$(8,0),R2,1)R=R+3R2=999
- @RLE8
- NEXT
- IF R2>998GOTO@REND
- R$=R$+MID$(RA$,R,1)
- @REND
- ASE=0
- NEXT
- RTN$=R$RETURN
- @NN
- IF R+1>=LEN(RA$)THEN RETURN
- RX$=MID$(RA$,R+1,1)IF RX$==”A”OR RX$==”I”THEN RETURN
- IF RX$==”U”OR RX$==”E”THEN RETURN
- IF RX$==”O”THEN RETURN
- IF RX$==”N”THEN R=R+1
- ASE=1R$=R$+”Й
- RETURN
- @H_K
- RTN$=”
- FOR R=0TO LEN(AGU$)−1RF=1S=INSTR(HDAT$,MID$(AGU$,R,1))IF S==−1THEN RF=0
- IF RF THEN RTN$=RTN$+MID$(KDAT$,S,1)ELSE RTN$=RTN$+MID$(AGU$,R,1)
- NEXT
- RETURN
この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)
表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.126 秒 | このページの最終更新 : 2022/09/20 (火) 12:44:07 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30