ＳＲＣ質問掲示板Mk2 [One Topic All View / Re[6]: Args()について / Page: 0]

ＳＲＣ質問掲示板Mk2
(現在過去ログ63 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■11998 / inTopicNo.1)

　Args()について

□投稿者/ 那智 -(2004/01/11(Sun) 23:09:09)

こんばんは
那智です。

今回は私はタイトル表示インクルードを作成しようと思い着手中なのです。
が、どうもうまくいかない部分があるのです。
それは、
Font Args(1)
のようにし、Callの時に自分でフォントが選べるというものにしたいのですがうまくいきません。
どなたか教えてください。

引用返信/返信削除キー/

■11999 / inTopicNo.2)

　Re[1]: Args()について

▲▼■

□投稿者/ ＧＡＭＥＭＡＳＴＥＲ -(2004/01/11(Sun) 23:20:49)
http://nagoya.cool.ne.jp/gamemaster/

　ＧＡＭＥＭＡＳＴＥＲです。

> 今回は私はタイトル表示インクルードを作成しようと思い着手中なのです。
> が、どうもうまくいかない部分があるのです。
> それは、
> Font Args(1)
> のようにし、Callの時に自分でフォントが選べるというものにしたいのですがうまくいきません。

　フォントのオプションをリスト形式で一括したものをサブルーチンの引数とし、Forコマンドを使ってリストの各要素を１つずつFontコマンドに代入しましょう。

　Call フォント指定 "16pt #000000 Ｐ明朝 Bold 通常"

　フォント指定:

　For i = 1 To LLength(Args(1))

　　Font LIndex(Args(1),i)

　Next

　Return

　参考になれば幸いです。

　もう時間がないようでございますね。では、これにて退散させてもらいましょう。

引用返信/返信削除キー/

■12000 / inTopicNo.3)

　Re[2]: Args()について

▲▼■

□投稿者/ 那智 -(2004/01/11(Sun) 23:33:37)

ご返信ありがとうございます。
しかし、いまいち分からないのでサブルーチンの本文を掲載しますのでご観覧願います。

タイトル表示:
fadeout 20
For i = 1 to 16
Font Args(1)
Font RGB(16 * i, 16 * i, 16 * i)
Paintstring - - Args(2)
Refresh
Wait 1
Refresh
Font
Next
Wait 20
fadeout 20
For i = 1 to 16
Font Args(3)
Font RGB(16 * i, 16 * i, 16 * i)
Paintstring - - Args(4)
Wait 1
Next
Wait 20
fadein 20
ClearPicture
Return

引用返信/返信削除キー/

■12001 / inTopicNo.4)

　Re[3]: Args()について

▲▼■

□投稿者/ ＧＡＭＥＭＡＳＴＥＲ -(2004/01/11(Sun) 23:47:50)
http://nagoya.cool.ne.jp/gamemaster/

　ＧＡＭＥＭＡＳＴＥＲです。

> ご返信ありがとうございます。
> しかし、いまいち分からないのでサブルーチンの本文を掲載しますのでご観覧願います。
>
> （後略）

　ます、このサブルーチンの引数はこのような形にしましょう。

　Call タイトル表示 "最初の文字の設定リスト" "最初の文字" "次の文字の設定リスト" "次の文字"

　色はForコマンドで段階的に変化させる模様ですので、それ以外のオプション（サイズ・タイプ・斜体・太字）をリスト形式で一括して下さい。

　オプションのリストは、文字を表示させる前に分解してFontコマンドで適用させます。

　タイトル表示:

　Local i

　FadeOut 20

　For i = 1 To LLength(Args(1))

　　Font LIndex(Args(1),i)

　Next

　For i = 1 to 16

　　Font RGB(16 * i, 16 * i, 16 * i)

　　PaintString - - Args(2)

　　Refresh

　　Wait 1

　Next

　Wait 20

　FadeOut 20

　For i = 1 To LLength(Args(3))

　　Font LIndex(Args(3),i)

　Next

　For i = 1 to 16

　　Font RGB(16 * i, 16 * i, 16 * i)

　　PaintString - - Args(4)

　　Wait 1

　Next

　Wait 20

　FadeIn 20

　ClearPicture

　Return

　リストの詳細はヘルプをご覧下さい。

　参考になれば幸いです。

　もう時間がないようでございますね。では、これにて退散させてもらいましょう。

解決済み!

引用返信/返信削除キー/

■12002 / inTopicNo.5)

　Re[4]: Args()について

▲▼■

□投稿者/ 那智 -(2004/01/12(Mon) 00:02:50)

度々すいません。

Call タイトル表示 "16pt Bold" "第一話" "40pt Bold 通常" "テスト飛行"

とした場合、

第一話　→　テスト飛行　→　テスト飛行

とでてしまうのですが･･･どうしたものでしょうか？

あと、文字の書式設定は必要ないものを抜かして記述してもOKでしょうか？

引用返信/返信削除キー/

■12003 / inTopicNo.6)

　Re[5]: Args()について

▲▼■

□投稿者/ 野牛 -(2004/01/12(Mon) 07:46:35)

> 第一話　→　テスト飛行　→　テスト飛行
>
> とでてしまうのですが･･･どうしたものでしょうか？

最後のFadeOutであるべきところがFadeInになってるためかと。

> あと、文字の書式設定は必要ないものを抜かして記述してもOKでしょうか？

For i = 1 To LLength(Args(1))
　　Font LIndex(Args(1),i)
Next

↑この意味を考えて見ればおのずと分かります。　

　ついでに，ちょっと簡略化しつつ改造して見ました。
　文字の色も指定できます。ただ，RGB関数ではうまくいかないようなので，16進数での表記（#000000 ～ #FFFFFF）を使いましょう。

タイトル表示:
Local i
FadeOut 20
Font
For i = 1 To LLength(Args(1))
　　Font LIndex(Args(1),i)
Next
PaintString - - Args(2)
FadeIn 32
Wait 20
FadeOut 20
Font
For i = 1 To LLength(Args(3))
　　Font LIndex(Args(3),i)
Next
PaintString - - Args(4)
FadeIn 32
Wait 20
FadeOut 20
ClearPicture
Return

引用返信/返信削除キー/

■12005 / inTopicNo.7)

　Re[6]: Args()について

▲▼■

□投稿者/ 那智 -(2004/01/12(Mon) 11:16:41)
http://www.geocities.co.jp/SiliconValley-PaloAlto/8125/sincle.zip

完成しました。
ありがとうございます。
UPしましたので見てください。

追記

HNを那智からChicoに変更します。

解決済み!

引用返信/返信削除キー/

トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

HOME HELP 新規作成新着記事トピック表示検索新着情報過去ログ

- Child Tree -
- Antispam Version -