プチコン 非公式コミュニティ
プレイ日記
takumi
◆Ce3Q40uXWJjn
2018/6/10 8:37
2018/6/10 8:37
こんにちは。
プチコン歴８ヶ月のtakumiです。
今、ローマ字入力の練習ソフトを作りたいのですが、ローマ字入力を実行するやり方が分かりません...
INPUTを使えば良いのか、INKEY$を使えば良いのか...。
分かる方、ヒントを下さい！
（少しは自分もやらないと意味がないので...）
よろしくお願いします。
プチコン歴８ヶ月のtakumiです。
今、ローマ字入力の練習ソフトを作りたいのですが、ローマ字入力を実行するやり方が分かりません...
INPUTを使えば良いのか、INKEY$を使えば良いのか...。
分かる方、ヒントを下さい！
（少しは自分もやらないと意味がないので...）
よろしくお願いします。
コメント
こういち
2018/6/10 8:45
◆ou0jbJnEJ0Kb
INKEY$かINPUTかLINPUTでしょうね。どれを使うかはどんなのを作りたいかによります。
リアルタイムでローマ字を変換したいならINKEY$
文を全て入力させてから変換したいならLINPUT
が適してると思います。
リアルタイムでローマ字を変換したいならINKEY$
文を全て入力させてから変換したいならLINPUT
が適してると思います。
takumi
2018/6/10 9:02
◆Ce3Q40uXWJjn
ありがとうございます！
僕は、リアルタイムで表示させたいです。
１度、作ってやってみましたが、Yボタンをおしても文字が削除されなくて...
勝手過ぎますが、どうしたら上手く行くか、教えてください。
プログラム
ACLS
@A
A$=INKEY$()
B$=B$+A$
LOCATE 0,2?B$
IF A$=="A" THEN C$="あ"
･･･と続く
LOCATE 0,2?C$
GOTO@A
ここまでつくっています。
よろしくお願いします。
僕は、リアルタイムで表示させたいです。
１度、作ってやってみましたが、Yボタンをおしても文字が削除されなくて...
勝手過ぎますが、どうしたら上手く行くか、教えてください。
プログラム
ACLS
@A
A$=INKEY$()
B$=B$+A$
LOCATE 0,2?B$
IF A$=="A" THEN C$="あ"
･･･と続く
LOCATE 0,2?C$
GOTO@A
ここまでつくっています。
よろしくお願いします。
moi
2018/6/10 9:17
◆hL/XpFV8MD2F
@A の前の行に
BREPEAT 7,14,2
を追加して
IF A$=="A"… の前の行に
IF BUTTON(1) AND 128 THEN BEEP 9:B$=MID$(B$,0,LEN(B$)-1)を追加すればできるよ
BREPEAT 7,14,2
を追加して
IF A$=="A"… の前の行に
IF BUTTON(1) AND 128 THEN BEEP 9:B$=MID$(B$,0,LEN(B$)-1)を追加すればできるよ
takumi
2018/6/10 9:48
◆Ce3Q40uXWJjn
takumi
2018/6/10 9:52
◆Ce3Q40uXWJjn
追記
まだ、あ〜おまでしか作っていないので、１５行までしかありません…
すみません。
まだ、あ〜おまでしか作っていないので、１５行までしかありません…
すみません。
moi
2018/6/10 10:23
◆hL/XpFV8MD2F
それで正常に動くはずです。
moi
2018/6/10 10:24
◆hL/XpFV8MD2F
あ、BEEP 8じゃなくて9です
takumi
2018/6/10 10:41
◆Ce3Q40uXWJjn
ありがとうございます。
しかし、ある程度文字を打ったところで、Ｙボタンをおすと、Ｏｕｔ ｏｆ ｒａｎｇｅ ｉｎ ０，７（ＭＩＤ＄：３）とエラーになります。
どこか間違っているのでしょうか。
誰か、エラーになる理由、教えてください。
しかし、ある程度文字を打ったところで、Ｙボタンをおすと、Ｏｕｔ ｏｆ ｒａｎｇｅ ｉｎ ０，７（ＭＩＤ＄：３）とエラーになります。
どこか間違っているのでしょうか。
誰か、エラーになる理由、教えてください。
三毛乱ジェロ
2018/6/10 10:45
◆dq48K1OR6slR
8行から12行の文は残しておいて、その前の部分ですね。
INSTR("AIUEO",A$) A$に入れた(打ち込んだ)文字が"AIUEO"のどこかにあるか探す関数です。覚えておくと便利ですよ。
あとやっつけで作ってみました。参考になれば。
こういち
2018/6/10 10:48
◆ou0jbJnEJ0Kb
多分原因はMID$の文字数に-1が渡されたためだと思います。
なので7行目を
IF LEN(B$)>=1&&(BUTTON(1) AND 128)==128 THEN(省略)
に変えれば動くと思われます。
なので7行目を
IF LEN(B$)>=1&&(BUTTON(1) AND 128)==128 THEN(省略)
に変えれば動くと思われます。
takumi
2018/6/10 11:10
◆Ce3Q40uXWJjn
みなさん、本当にありがとうございました！
近日に、ローマ字を使ったプログラムを公開しようと思います。
心から感謝しています。
ありがとうございました!
近日に、ローマ字を使ったプログラムを公開しようと思います。
心から感謝しています。
ありがとうございました!
takumi
2018/6/10 16:57
◆Ce3Q40uXWJjn
今、三毛乱ジェロさんのを参考に作っているのですが、NN,NYA,NYU,NYOの識別ができず、Ｎの時点でン となってしまいます。
識別させる方法がわかる方、教えて下さい･･･
識別させる方法がわかる方、教えて下さい･･･
こういち
2018/6/10 17:09
◆ou0jbJnEJ0Kb
ヒント：A$ではなくB$の方を見る。
takumi
2018/6/10 17:23
◆Ce3Q40uXWJjn
三毛乱ジェロさんの写真のどの部分の「B$」でしょうか…
ヒントくださったのに、すみません。
ヒントくださったのに、すみません。
こういち
2018/6/10 17:53
◆ou0jbJnEJ0Kb
6〜7行目ですね。
IF B$=="NN"||INSTR("AIUEO",A$)!=-1 THEN~
IF B$=="NN"||INSTR("AIUEO",A$)!=-1 THEN~
takumi
2018/6/10 18:04
◆Ce3Q40uXWJjn
こういちさん、ありがとうございました！！
D.K.
2018/6/10 21:08
◆EkxcVbktPuzX
takumiさんってふたばちゃんねるのゆ虐漫画描いてた人っすか？
takumi
2018/6/11 19:28
◆Ce3Q40uXWJjn
D.K.さんへ＞違います…。
コメントを書く
この投稿にはコメントできません。
- WEB PATIO -