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


HSPTV!掲示板


未解決 解決 停止 削除要請

2015
0119
uo至急!わりざん7未解決


uo

リンク

2015/1/19(Mon) 22:30:00|NO.67003

例えばa÷bの割り算をして、余りが無い時にはダイアログにa÷bの結果を表示させ、余りが出る時にはダイアログに○あまり×のように表示させたいのですがどうしたらいいですか?
先日始めたばっかりで、よくわからないのでよろしくお願いします



この記事に返信する


KA

リンク

2015/1/19(Mon) 22:35:56|NO.67005

先日始めたばっかりなら、マニュアルに一通り目を通しましょう。



UEA

リンク

2015/1/20(Tue) 21:06:51|NO.67018

とりあえずヒントだけ。
この程度ならあまり難しくないはずです。

あまりを求めるには、とある算術演算子を使います。
プログラミングマニュアルの 【3.6 式】 から探してみてください。

あまりがあるか、ないかで処理を分岐させるには if 命令を使います。
【3.12 条件判断】から探してみてください。
あまりがあるか、ないかの判断のしかたもあわせて考えてみましょう。

ダイアログの表示には dialog 命令を使います。



Mituki

リンク

2015/1/23(Fri) 21:43:56|NO.67051

少し誰かからもらったんですけど、
電卓、 + - ÷ × がはいってあるのでいいですかね?
これです

screen 0,800,800
*hontai
mes "ただしもしも何もしないで÷をおすと、Error,0で除算しましたとかかれます。ごめんなさい。"
title "電卓"
font "メイリオ",30,1
pos 50,10
mes "数字を入力し、記号を選んでください"
pos 200,100
input suuzi,50,20,5
pos 200,130
input suuzini,50,20,5
pos 150,250
objsize 30,30
button "+",*+
pos 190,250
button "-",*ー
pos 230,250
button "×",*×
pos 270,250
button "÷",*÷
pos 500,500
objsize 150,25
button goto "終わる" , *end1
button goto "初期化" , *kosin
button goto "使い方" , *tukaikata
stop
*初め
color 255,255,255:boxf 0,100,600,600
stop
*+
color 0,0,0
pos 200,300
mes suuzi+suuzini
pos 200,400
button "C",*初め
stop
*ー
color 0,0,0
pos 200,300
mes suuzi-suuzini
pos 200,400
button "C",*初め
stop

color 0,0,0
pos 200,300
mes suuzi*suuzini
pos 200,400
button "C",*初め
stop

color 0,0,0
pos 200,300
mes suuzi/suuzini
pos 200,400
button "C",*初め
stop
/*詳細とか書かないでごめんなさい。*/
*end1
dialog "ありがとうございました。またつかってください。メッセージボックスが消えて1秒で終わります。 " , 0 , "つかってくれてうれしいよ"
await 2450
/*これ消してもいいよ上のやつ*/
end
stop
*kosin
cls
goto *hontai
stop
*tukaikata
cls
mes "まず上にある inputbox があるのでそこに計算したい数字を入力します。\nそうして、計算したい記号をおすと、答えを見ることができます。"
mes "操作方法\n●input ========== 数字を入力。\n●+ ============== 足し算をする。"
mes "●- ============== 引き算をする。\n●× ============= 掛け算をする。\n●÷ ============= 割り算をする。\n●C ============== リセットする。\n●終わる ========= 終わる。\n●初期化 ========= リセットする。"
button goto "わかった" , *wakata
button goto "終わる" , *end1
stop
*wakata
cls
goto *hontai

です。いちおうこれだいじょうぶですかね?



UEA

リンク

2015/1/24(Sat) 09:53:49|NO.67058

質問したからには責任もっていただきたいものですが。
分からない場合でも、責任もって補足します。
一応5日も経ってしまっているのでサンプルを少し


a = 10 b = 6 //普通に割り算する c = a / b //次に余りを求める d = a \ b //あまりがない(あまりが0)ならば○あまり×のように表示、違えばダイアログ if (a \ b = 0) { mes a / b } else { dialog ""+a/b+"あまり"+a\b+"" }



Mituki

リンク

2015/1/24(Sat) 18:20:04|NO.67066

少し補充したほうがいいですかね?

screen 0,800,800 *hontai mes "ただしもしも何もしないで÷をおすと、Error,0で除算しましたとかかれます。ごめんなさい。" title "電卓" font "メイリオ",30,1 pos 50,10 mes "数字を入力し、記号を選んでください" pos 200,100 input suuzi,50,20,5 pos 200,130 input suuzini,50,20,5 pos 150,250 objsize 30,30 button "+",*+ pos 190,250 button "-",*ー pos 230,250 button "×",*× pos 270,250 button "÷",*÷ pos 500,500 objsize 150,25 button goto "終わる" , *end1 button goto "初期化" , *kosin button goto "使い方" , *tukaikata stop *初め color 255,255,255:boxf 0,100,600,600 stop *+ color 0,0,0 pos 200,300 mes suuzi+suuzini pos 200,400 button "C",*初め stop *ー color 0,0,0 pos 200,300 mes suuzi-suuzini pos 200,400 button "C",*初め stop *× color 0,0,0 pos 200,300 mes suuzi*suuzini pos 200,400 button "C",*初め stop *÷ color 0,0,0 pos 200,300 mes suuzi/suuzini pos 200,400 button "C",*初め stop /*詳細とか書かないでごめんなさい。*/ *end1 dialog "ありがとうございました。またつかってください。メッセージボックスが消えて1秒で終わります。 " , 0 , "つかってくれてうれしいよ" await 2450 /*これ消してもいいよ上のやつ*/ end stop *kosin cls goto *hontai stop *tukaikata cls mes "まず上にある inputbox があるのでそこに計算したい数字を入力します。\nそうして、計算したい記号をおすと、答えを見ることができます。" mes "操作方法\n●input ========== 数字を入力。\n●+ ============== 足し算をする。" mes "●- ============== 引き算をする。\n●× ============= 掛け算をする。\n●÷ ============= 割り算をする。\n●C ============== リセットする。\n●終わる ========= 終わる。\n●初期化 ========= リセットする。" button goto "わかった" , *wakata button goto "終わる" , *end1 stop *wakata cls goto *hontai
追加要素:青くなってる?



Mituki

リンク

2015/1/24(Sat) 18:56:32|NO.67068

>>5
は?

自動的じゃん。



 

リンク

2015/1/28(Wed) 11:48:31|NO.67144

>Mitukiさん
ボタンや入力ボックスなどのオブジェクトは1024個までしか設置できません。
ですがこのプログラムは、「+」ボタンを押すたびに「C」ボタンを作成しています。
なので恐らく「+」ボタンを1000回ちょっとクリックしたところで、
「オブジェクト数が多すぎます」とエラーが出るかと。



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