ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2024年3月28日(木) 22:26

全ての表示時間は UTC+09:00 です




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年3月26日(日) 10:55 
下のプログラムを4.22.00で「デバッグ実行」すると正しく動きます。
しかし、4.23.00で「デバッグ実行」すると、下記のエラーになります。

どこがまずいのか、お教え下さい。

BasicCompiler.exeエラー
問題が発生したため、BasicCompiler.exe を終了します。 ご不便をおかけして申し訳ありません。
作業途中であった場合、その情報は失われた可能性があります。

*************************************************

#N88BASIC
10 DIM CL AS Integer
11 DIM X1 AS Integer
12 DIM Y1 AS Integer

15 DIM NAKA AS Long
16 DIM I AS Long
17 DIM SOTO AS Long

20 DIM X AS Single
21 DIM Y AS Single
22 DIM PAI AS Single

30 DIM L$ As String
31 DIM M$ As String
32 DIM R$ As String
33 DIM OWARY$ As String

34 dim t0 as Long
35 dim t1 as Long

40 Randomize
100 CLS 3
110 LOCATE 11,0
120 COLOR 4
121 print "開始時刻="; Time$()
123 L$=Left$(Time$(),2): M$=Mid$(Time$(),4,2): R$=Right$(Time$(),2)
125 'Print L$;M$;R$
128 't0=Val(Left$(Time$(),2))*3600+Val(Mid$(Time$(),4,2))*60+Val(Right$(Time$(),2))
129 t0=Val(L$)*3600+Val(M$)*60+Val(R$)
130 PRINT "モンテカルロ法によるπの計算"
140 LINE (100,40)-(300,240),7,B
150 X=Rnd()
160 Y=Rnd()
170 IF X*X+Y*Y<1 THEN
171 CL=2
172 NAKA=NAKA+1
175 ELSE
176 CL=7
177 SOTO=SOTO+1
178 END IF
180 X1=Int(X*200+.5)
190 Y1=Int(Y*200+.5)
200 IF (I mod 1000)=0 then PSET (X1+100,240-Y1),CL
202 I=I+1
203 PAI=NAKA/(NAKA+SOTO)*4
204 ' Locate 10,16: PRINT Using"####### π=###.####"; I,PAI
205 If (I mod 100000)=0 then Locate 10,16: PRINT I:Locate 20,17:PRINT PAI
206 IF I<1000000 THEN
210 GOTO 150
220 ELSE
230 PRINT "モンテカルロ法によるπの計算"
240 print "終了時刻="; Time$()
241 't1=Val(Left$(Time$(),2))*3600+Val(Mid$(Time$(),4,2))*60+Val(Right$(Time$(),2))
242 L$=Left$(Time$(),2): M$=Mid$(Time$(),4,2): R$=Right$(Time$(),2)
243 'Print L$;M$;R$
244 t1=Val(L$)*3600+Val(M$)*60+Val(R$)
245 print "計算時間=: ";
245 print (t1-t0) \ 60 ;"分 ";

247 print (t1-t0) mod 60;"秒"
248 END IF
249 INPUT OWARY$
250 END

http://makotowatana.ld.infoseek.co.jp/


通報する
ページトップ
   
投稿記事Posted: 2006年3月26日(日) 11:26 
掲示板に書いたプログラムを、新規作成でコピーして「デバッグ実行」したら動きました。

いろいろ試してみたら、旧バージョンの「_debug.exe」と「_debug.mdl」が残っている状態で、新しいバージョンで「デバッグ実行」すると、エラーになることが分かりました。

「_debug.exe」と「_debug.mdl」をきれいに消して、「デバッグ実行」したら動きました。

http://makotowatana.ld.infoseek.co.jp/


通報する
ページトップ
   
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 

全ての表示時間は UTC+09:00 です


オンラインデータ

このフォーラムを閲覧中のユーザー: Google [Bot] & ゲスト[10人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by ocean