プチコン 非公式コミュニティ
プレイ日記
はやっち
◆rzTHe0.B55x0
2017/12/2 15:53
2017/12/2 15:53
5つの文字を平仮名50音中から乱数を使って取り出すにはどうすれば良いでしょうか？
ドラクエXI始めたので名前つけに困っています。
ドラクエXI始めたので名前つけに困っています。
コメント
ほしけん
2017/12/2 16:16
◆BJ4kbE35MkgI
KANA$="あいうえお…………わをん"
' KANA$ から、ランダムで1文字取り出す
' RND(最大数)は乱数。LEN(文字列)は文字列の長さをとる
A$=MID$(KANA$, RND(LEN(KANA$)), 1)
PRINT A$
これで1文字分です。これを5回繰り返して下さい。
名前乱数でいいんですかｗ
追記
MID$(KANA$, RND(LEN(KANA$)), 1)
じゃなくて
KANA$[RND(LEN(KANA$))]
でよかっだてす
' KANA$ から、ランダムで1文字取り出す
' RND(最大数)は乱数。LEN(文字列)は文字列の長さをとる
A$=MID$(KANA$, RND(LEN(KANA$)), 1)
PRINT A$
これで1文字分です。これを5回繰り返して下さい。
名前乱数でいいんですかｗ
追記
MID$(KANA$, RND(LEN(KANA$)), 1)
じゃなくて
KANA$[RND(LEN(KANA$))]
でよかっだてす
こういち
2017/12/2 16:17
◆ou0jbJnEJ0Kb
一番簡単な方法は
DIM C$="あいうえおかきくけこさ…"
DIM NAME$
VAR I
FOR I=1 TO 5
PUSH NAME$,C$[RND(46)]
NEXT I
?NAME$
です。
DIM C$="あいうえおかきくけこさ…"
DIM NAME$
VAR I
FOR I=1 TO 5
PUSH NAME$,C$[RND(46)]
NEXT I
?NAME$
です。
はる
2017/12/2 17:44
◆75Vh4SY8TdKS
FOR I=0 TO 4
INC N$,CHR$(12353+RND(83))
NEXT
DIALOG N$
こんな感じでCHR$を使う方法もあります。
INC N$,CHR$(12353+RND(83))
NEXT
DIALOG N$
こんな感じでCHR$を使う方法もあります。
はやっち
2017/12/2 22:33
◆rzTHe0.B55x0
皆さんコメントありがとうございます！
今日ははるさんのCHR$を使う方法を試しました
明日はこういちさんや、ほしけんさんの方法を試してみます。
今日ははるさんのCHR$を使う方法を試しました
明日はこういちさんや、ほしけんさんの方法を試してみます。
コメントを書く
この投稿にはコメントできません。
- WEB PATIO -