カレンダー

09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

FC2ブログランキング

気に入ったら押してくださいな~

FC2ブログランキング

1日1回のクリック有効です。

HSPについて

おにたま氏作成の無料で使える プログラム言語です。

こちらからダウンロード出来ます。

最近の記事

最近のこめんと~

最近のトラックバック

月別あ~かいぶ

かてごり~

ぷろふぃ~る

BYTE

Author:BYTE
QMAプレイヤー。
もはや1ヶ月に10プレイ程度の
今も昔も鍍金賢者。

カード名は明かせないな(w

りんく~

ブロとも申請フォーム

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

lesson ○× 1-8 自動改行機能を装備するのだ!

自動改行

15文字以上なら自動的に15文字改行改行します。
ただし、奇数個の半角文字が問題文にあった場合の制御はしていないので
この場合は一部文字化けします。

プログラムが長くなってきたので、今回は書き換えた *問題読み込み
のルーチンのみ記述します。

*問題読み込み
a = 0
mondai_tmp = mondai.rnd(notemax)
getstr keisiki , mondai_tmp , a , '\t' : a=a+strsize
getstr jyanru , mondai_tmp , a , '\t' : a=a+strsize
getstr hint , mondai_tmp , a , '\t' : a=a+strsize
hint_size = strsize ;重要

getstr kotae , mondai_tmp , a , '\t'

b = 0
hyouji_max_length = 0
gyousuu = 0
repeat
getstr hyouji.cnt , hint , b , '/'
b=b+strsize
hyouji_length.cnt = strlen(hyouji.cnt)
if hyouji_max_length<hyouji_length.cnt{
hyouji_max_length=hyouji_length.cnt
}
gyousuu = cnt
if strsize = 0 : break
loop

if hyouji_length.0>31{
hyouji_length=30
hyouji_max_length=30
gyousuu = (hint_size/30)+1

repeat gyousuu
hyouji.cnt = strmid(hint,cnt*30,30)
loop
}


return

*問題読み込み の
↑の*の辺りを素早く3回クリック(トリプルクリック)すると
プログラムのところが反転すると思うので、
反転したらブラウザの 編集→コピー
でコピーして、
前回の lesson ○× 1-7.hsp を開いて
*問題読み込み のルーチン部分だけ書き換えて
lesson ○× 1-8.hsp で保存して実行してみてください。

次回は問題文のフォント表示を
同じフォントなのにもう少し綺麗に表示しようと思います。



FC2ブログランキング
プギャーと思ったら押してくださいな

1日1回のクリック有効です。

スポンサーサイト

テーマ : クイズマジックアカデミー - ジャンル : ゲーム

タグ : 改行 文字化け


コメント

コメントの投稿


管理者にだけ表示を許可する

 BLOG TOP 


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。