HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2016
0417
かゆぽん。input 指定した変数に代入されない2未解決


かゆぽん。

リンク

2016/4/17(Sun) 23:25:59|NO.75257

英単語の練習ついでにタイピング練習ができたらいいなと思って
ちょっと作ってみたんですが、
まあとにかく、問題文と答えを一行ずつ取り出して
答えとinputの代入された文字が一致した時に
ループさせるといった感じです。

fontをいちいち呼び出しているなど
見るだけで汚い感じにはなっていますが
これだと、13問目からinputの変数(この場合b)
に何も代入されなくなってしまいます。

listaが問題
listbが答え
aが何行目を読見込むかを表します

中学生がサンプルを切り張りして作ったものなので、
ゴミなところもいろいろあると思いますが、
代入されなくなってしまう理由と改善策を教えていただけると幸いです。

notesel listd repeat notemax cls 0 clrobj notesel liste noteget qestiona , a notesel listd noteget qestionb , a font "メイリオ" , 40 , 1 pos 100 , 50 mes qestiona font "メイリオ" , 20 , 1 pos 100 , 90 mes qestionb a+=1 #define ctype HIWORD(%1) (%1 >> 16 & $FFFF) oncmd gosub *command, $111 b = "" input b , 200 , 30 objsel hInput = objinfo(stat, 2) stop *command if lparam = hInput { if HIWORD(wparam) = $300 { if b = qestionb :loop return } return } return </per>



この記事に返信する


KA

リンク

2016/4/18(Mon) 05:50:24|NO.75259

何をどう考えたのか、各行にコメントを入れてみましょう。



Cheesehamburg7273

リンク

2016/4/19(Tue) 21:09:45|NO.75274

暇だったから書いてみました
小6なんでクソみたいなスクリプトですけど...
よかったら参考にしてみてください


lista="";問題 listb="";答え(ここにinputの初期値を入力) times=10;残り時間の初期値 mes"問題 : "+lista input listb,320,20,-1 button gosub"解答!",*check repeat color 0,0,0 pos 0,300:mes"残り "+times+"秒" wait 100 color 255,255,255:boxf 0,300,640,330 if times==0 :break times-1 loop dialog"Game over",0,"Game over" end *check if lista==listb:dialog"正解!!!!",0,"正解!!!!":end dialog"不正解...",0,"不正解..." return



ONION software Copyright 1997-2023(c) All rights reserved.