ab.com コミュニティ

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

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




新しいトピックを投稿する  トピックへ返信する  [ 2 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2006年2月07日(火) 16:06 
下記コードをV4.2で実行すると、V4.13の20倍(Print#)~30倍(Input#)位
時間がかかり、かつ非常に不安定になります。(高頻度で「~のメモリを
参照しました。メモリが"read"になることはできませんでした。」で死に
ます(回数やデータの桁を増やせば更に頻度が増します)。)

Do~LoopやWhile~Wendも試してみましたが、所要時間は多少変わっても
状況に大きな変化はありません。

Windows 2000 & XP で同じ現象です。

'↓↓↓↓↓
#prompt
Dim T1 As Long,I As Long,J As Long,LN As Long
'
LN=1
Time1()
Open "Test.txt" For Output As #1
For I=1 To 10000
Print #1,I
Locate 1,LN
Print "Print # --- "+Str$(I)
Next I
Close #1
Time2()
'
LN=4
Time1()
Open "Test.txt" For Input As #1
For I=1 To 10000
Input #1,J
Locate 1,LN
Print "Input # --- "+Str$(I)
Next I
Close #1
Time2()
'
Sub Time1()
Dim TH As String,TM As String,TS As String
TH=Mid$(Time$(),1,2)
TM=Mid$(Time$(),4,2)
TS=Mid$(Time$(),7,2)
T1=Val(TH)*3600+Val(TM)*60+Val(TS)
End Sub
'
Sub Time2()
Dim TH As String,TM As String,TS As String
Dim T2 As Long
TH=Mid$(Time$(),1,2)
TM=Mid$(Time$(),4,2)
TS=Mid$(Time$(),7,2)
T2=Val(TH)*3600+Val(TM)*60+Val(TS)
Locate 1,LN+1:Print Str$(T2-T1)+"秒"
End Sub
'↑↑↑↑↑


通報する
ページトップ
   
 記事の件名:
投稿記事Posted: 2006年2月08日(水) 19:49 
私のPCもまったく同じ現象でした。


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

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


オンラインデータ

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


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

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