ab.com コミュニティ https://www.activebasic.com/forum/ |
|
V4.2で Print# と Input# が低速不安定に https://www.activebasic.com/forum/viewtopic.php?t=707 |
ページ 1 / 1 |
作成者: | るっとパパ [ 2006年2月07日(火) 16:06 ] |
記事の件名: | V4.2で Print# と Input# が低速不安定に |
下記コードを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 '↑↑↑↑↑ |
作成者: | た [ 2006年2月08日(水) 19:49 ] |
記事の件名: | |
私のPCもまったく同じ現象でした。 |
ページ 1 / 1 | 全ての表示時間は UTC+09:00 です |
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |