by MH35 » 2006年3月09日(木) 17:21
アラームソフトを作りました。ソースを書きます。
#N88BASIC
10 dim hour As Integer
13 dim min As Integer
15 dim sec As Integer
20 dim chk As String
23 dim chk1 As String
25 dim chk2 As String
28 dim chk3 As String
29 dim chk4 As String
30 print "何時";
40 input hour
50 If hour<0 or hour>23 Then goto 30
60 print "何分";
70 input min
80 If min<0 or min>59 Then goto 60
90 print "何秒";
100 input sec
110 If sec<0 or sec>59 Then goto 90
112 If hour<10 Then chk1="0"+Str$(hour As Double) Else chk1=Str$(hour As Double)
115 If min<10 Then chk2="0"+Str$(min As Double) Else chk2=Str$(min As Double)
117 If sec<10 Then chk3="0"+Str$(sec As Double) Else chk3=Str$(sec As Double)
120 chk=chk1+":"+chk2+":"+chk3
130 print chk
140 print "この時刻でよろしいならyを、そうでなければnを入力してください。";
150 input chk4
160 If chk4="n" or chk4="N" Then goto 30
170 If chk4<>"y" and chk4<>"Y" Then goto 140
180 If chk<>Time$() Then goto 180
200 print "時間です。"
210 beep
改良するにはどうすればよいのでしょうか。GUIにしたいと思っているのですが、自分ではできません。どうすればよいのでしょう。
アラームソフトを作りました。ソースを書きます。
#N88BASIC
10 dim hour As Integer
13 dim min As Integer
15 dim sec As Integer
20 dim chk As String
23 dim chk1 As String
25 dim chk2 As String
28 dim chk3 As String
29 dim chk4 As String
30 print "何時";
40 input hour
50 If hour<0 or hour>23 Then goto 30
60 print "何分";
70 input min
80 If min<0 or min>59 Then goto 60
90 print "何秒";
100 input sec
110 If sec<0 or sec>59 Then goto 90
112 If hour<10 Then chk1="0"+Str$(hour As Double) Else chk1=Str$(hour As Double)
115 If min<10 Then chk2="0"+Str$(min As Double) Else chk2=Str$(min As Double)
117 If sec<10 Then chk3="0"+Str$(sec As Double) Else chk3=Str$(sec As Double)
120 chk=chk1+":"+chk2+":"+chk3
130 print chk
140 print "この時刻でよろしいならyを、そうでなければnを入力してください。";
150 input chk4
160 If chk4="n" or chk4="N" Then goto 30
170 If chk4<>"y" and chk4<>"Y" Then goto 140
180 If chk<>Time$() Then goto 180
200 print "時間です。"
210 beep
改良するにはどうすればよいのでしょうか。GUIにしたいと思っているのですが、自分ではできません。どうすればよいのでしょう。