- ベストアンサー
VB6.0のプログラムで足りない部分があると言われて困っています
- VB6.0のプログラムで足りない部分があると言われて困っています。プログラム作成中で困っている方は、教えてください。
- VB6.0のプログラムで足りない部分があります。具体的に教えていただけると助かります。
- VB6.0のプログラムで問題が発生しています。足りない部分についてアドバイスが欲しいです。
- imarusu
- お礼率80% (45/56)
- Visual Basic
- 回答数5
- ありがとう数2
- みんなの回答 （5）
- 専門家の回答
質問者が選んだベストアンサー
＃３です。 修正箇所としては・・・ １．lblAnswer を TEXTBOX にしてtxtAnswer 等にしま しょう。 ２．intNum1 = Rnd() * 50 の前に call Randomize で 乱数を初期化させましょう。 ３．intNum1 = Rnd() * 50 ではなく、 intNum1 = int(50 * Rnd + 1) にしましょう ４．○×の採点の後にtxtAnswer = "" としてクリア しましょう。 ５．○×の採点の時にプログレスバーを操作しましょう このくらいでしょうか・・・
その他の回答 (4)
- king_joe1006
- ベストアンサー率37% (70/189)
＃３です。 続けて、cmdStartで答え合わせした後クリアされないから前回の答えが残ったままになる。 問題をRnd()で生成する前にRandomize関数を使っていないから一発目の問題がいつも同じ数字になる。 ＃３でも言ったが回答の入力場所がない。 プログレスバーは何も変化しない。 以上、気になった点です
お礼
すいませんでした； 自分もまだVBのことがよく分からないので詳しくはいえません;
- king_joe1006
- ベストアンサー率37% (70/189)
どこに答えを入力するんでしょうか？ また、初回起動だとlblNum1とlblNum2に数値が入らないのでは？
補足
２回目から入るようになってるんですが； intNum1 = Rnd() * 50ってところです。
表示が変更されないままに、ただただ、３０秒が過ぎて終了するのでは・・・。 そこで、何かが足りないと言われているのでは？
補足
表示はスクロールバーの位置をずらせば数字をかえられます。
- king_joe1006
- ベストアンサー率37% (70/189)
それぞれのラベルの名前、コマンドボタンの名前が標記されていないので解読が非常に面倒臭いです。 どのラベルがlblAnswer？どのラベルがlblResult？などなど・・・。 ざっと見た所、３０秒以内に出来るだけ足算に答えて行くというプログラムのようですが、よろしいでしょうか？ 私の見た限りハイスコアを計算している所が見当たりませんが？大体HScrollbarとはプログレスバーの事なんでしょうか？
補足
>HScrollbarとはプログレスバーの事なんでしょうか？ そうです。 後、言い忘れていた所を書きますね。 000+000=000 最初の000はlblNum1 +がlblPlus 次の000はlblNum2 =がlblEqual 次の000はlblAnswerです。 「残り３０秒」のところがlblTime その隣のラベルはlblResult Hscrollbarの方はhsbAnswer コマンドボタンがcmdStart タイマーがtmrSecond です。
お礼
ありがとうございます！ これで何とか進めそうです。