ab.com コミュニティ

上記自分の名前を入力し忘れました。失礼いたしました

konisiさん

時間の測定・・・いい歳のおっさんがパソコンの前でストップウォッチで計測している姿がとても滑稽ですね。
GetTickCount関数ですね。次の機会にはそれを使ってみます。

HeapFreeの件、わざわざサンプルコードの作成までしていただきましてありがとうございます。
また、配列変数につきましても非常に参考になりました。
なるほど！コンパイルした実行ファイルを見るとそうなのですね。
逆アセンブルというヤツでしょうか？
うーん。私が機械語をやっていた時はZ80 & 6809なので雰囲気は理解できますが、（大昔の事なので忘れかけておりますし）難解です。
私の時代（２０数年前）ではハンドアセンブルが主流（私だけだったかな？）紙にコードを書いてから、直接16進入力したものです。２０年前にはさすがにソフトウェアによるアセンブラを使用しておりました。

ゲストさん

私もWin32プログラミング講座は目は通しているのですが、頭では理解したつもりでも構造体になじんでおりません。ついgosubを使ってしまうのです。
しかし、お陰様で配列のメモリ開放の件、理解出来ました。
sub（や構造化についても）の習慣を付け、少しづつ慣れていくしかなさそうです。
ありがとうございました。

Sub ReadDBFile()
	Dim ReadData    As BytePtr
	Dim FileSize    As DWord
	　　　－－－　中略　－－－
	　ReadDataを使い終わる箇所まで
End Sub

ReadDBFile()

>>しないのでメモリから開放したい（した方が良い？）のですが、いかがでしょうか？

サブルーチンにして、サブルーチン内で宣言すればローカル変数として自動的に開放されます。
こんな感じで、プログラムの最後（別のファイルを作ってプロジェクトに追加してもOK）において、

[hide][code]Sub ReadDBFile()
Dim ReadData As BytePtr
Dim FileSize As DWord
　　　－－－　中略　－－－
　ReadDataを使い終わる箇所まで
End Sub[/code][/hide]

メインプログラムでは、
[code]ReadDBFile()[/code]
と書けばOKです。（Gosubに相当します。）
本当は引数を付けて構造化した方がお勧めですが、追々勉強してください。

Function LoadFileData(FileName As *Byte) As *Byte
	Dim ReadData    As BytePtr 
	Dim FileSize    As DWord 
	Dim hFile    As HANDLE 
	Dim RBytes    As Long 

	hFile=CreateFile(FileName,GENERIC_READ,0,ByVal 0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0) 
	FileSize=GetFileSize(hFile,NULL) 
	ReadData=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,FileSize+1) 
	ReadFile(hFile,ReadData,FileSize,VarPtr(RBytes),ByVal 0) 
	CloseHandle(hFile) 

	LoadFileData=ReadData
End Function

Sub CloseFileData(Data As *Byte)
	HeapFree(GetProcessHeap(),0,Data)
End Sub

Dim ReadData As *Byte

'読み込む
ReadData=LoadFileData("table.dat")

'ここで内容を使う

'最終処理
CloseFileData(ReadData)

Dim A[99,99] As Byte
Dim B[9999] As Byte
Dim i As Long
Dim j As Long
Dim k As Long
k=A[i,j]
k=B[i*100+j]

k=A[i,j]の部分

XOR     ECX,ECX
PUSH    ECX
PUSH    0
PUSH    j
POP     EAX
IMUL    EAX,EAX,1
ADD     [ESP],EAX
PUSH    i
POP     EAX
IMUL    EAX,EAX,100
ADD     [ESP],EAX
POP     EAX
IMUL    EAX,EAX,1
POP     ECX
ADD     ECX,EAX
XOR     EAX,EAX
MOV     AL,[A+ECX]
PUSH    EAX
POP     EAX
AND     EAX,255
PUSH    EAX
POP     EAX
MOV     k,EAX

約46clock


k=B[i*100+j]の部分

XOR     ECX,ECX
PUSH    ECX
PUSH    0
PUSH    i
PUSH    100
POP     EBX
POP     EAX
SUB     ESP,4
IMUL    EAX,EBX
MOV     [ESP],EAX
PUSH    j
POP     EBX
POP     EAX
SUB     ESP,4
ADD     EAX,EBX
MOV     [ESP],EAX
POP     EAX
IMUL    EAX,EAX,1
ADD     [ESP],EAX
POP     EAX
IMUL    EAX,EAX,1
POP     ECX
ADD     ECX,EAX
XOR     EAX,EAX
MOV     AL,[B+ECX]
PUSH    EAX
POP     EAX
AND     EAX,255
PUSH    EAX
POP     EAX
MOV     k,EAX

約50clock

MOV EAX,i
MOV EDX,j
LEA EAX,[EAX+EAX*4]
XOR ECX,ECX
LEA EAX,[EAX+EAX*4]
LEA EAX,[EDX+EAX*4]
MOV CL,[B+EAX]
MOV k,ECX

時間の測定には、GetTickCount関数が使えると思います。


HeapFreeをじかに書くと読みにくいと思うので[code]Function LoadFileData(FileName As *Byte) As *Byte
Dim ReadData As BytePtr
Dim FileSize As DWord
Dim hFile As HANDLE
Dim RBytes As Long

hFile=CreateFile(FileName,GENERIC_READ,0,ByVal 0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
FileSize=GetFileSize(hFile,NULL)
ReadData=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,FileSize+1)
ReadFile(hFile,ReadData,FileSize,VarPtr(RBytes),ByVal 0)
CloseHandle(hFile)

LoadFileData=ReadData
End Function

Sub CloseFileData(Data As *Byte)
HeapFree(GetProcessHeap(),0,Data)
End Sub

Dim ReadData As *Byte

'読み込む
ReadData=LoadFileData("table.dat")

'ここで内容を使う

'最終処理
CloseFileData(ReadData)[/code]のように関数化すれば使いやすいかと思います

ところで自分で掛け算した場合と多次元配列を使った場合の違いについて調べてみたのですが、[hide=出力結果]ソースコード[code]Dim A[99,99] As Byte
Dim B[9999] As Byte
Dim i As Long
Dim j As Long
Dim k As Long
k=A[i,j]
k=B[i*100+j][/code]をコンパイルして出てきた実行ファイルを調べた結果
[code]k=A[i,j]の部分

XOR ECX,ECX
PUSH ECX
PUSH 0
PUSH j
POP EAX
IMUL EAX,EAX,1
ADD [ESP],EAX
PUSH i
POP EAX
IMUL EAX,EAX,100
ADD [ESP],EAX
POP EAX
IMUL EAX,EAX,1
POP ECX
ADD ECX,EAX
XOR EAX,EAX
MOV AL,[A+ECX]
PUSH EAX
POP EAX
AND EAX,255
PUSH EAX
POP EAX
MOV k,EAX

約46clock


k=B[i*100+j]の部分

XOR ECX,ECX
PUSH ECX
PUSH 0
PUSH i
PUSH 100
POP EBX
POP EAX
SUB ESP,4
IMUL EAX,EBX
MOV [ESP],EAX
PUSH j
POP EBX
POP EAX
SUB ESP,4
ADD EAX,EBX
MOV [ESP],EAX
POP EAX
IMUL EAX,EAX,1
ADD [ESP],EAX
POP EAX
IMUL EAX,EAX,1
POP ECX
ADD ECX,EAX
XOR EAX,EAX
MOV AL,[B+ECX]
PUSH EAX
POP EAX
AND EAX,255
PUSH EAX
POP EAX
MOV k,EAX

約50clock[/code]

ちなみに理想的な出力は
k=B[i*100+j]
を翻訳した時に
[code]MOV EAX,i
MOV EDX,j
LEA EAX,[EAX+EAX*4]
XOR ECX,ECX
LEA EAX,[EAX+EAX*4]
LEA EAX,[EDX+EAX*4]
MOV CL,[B+EAX]
MOV k,ECX[/code]で約6clock　等。[/hide]どうやら掛け算を使うくらいなら多次元配列を使った方がいいようです

konisiさん、いつも気にかけてくださいましてありがとうございます。

多次元配列の件、実は私もそう思っていたところなのです。
高速化するには（今回のファイル読取とは別件ですが・・）１次元配列に直そうとも思うのですが、配列引数に対して掛算するのと、内部的に（？）掛算をしているのでは、どちらが速いのかなぁなんて考えておりました。
全てを１次元に直すのも結構大変だし、大変な割にはあまり（スピードの）コストダウンにあまりなってない事を想像すると躊躇してしまいます。
間違いなく速くはなるとは思うのですが・・・・

ゲストさん、ありがとうございました。

劇的に速くなりました！！
実行速度を測定（ストップウォッチにて測定につき、正確ではありませんが）しましたが、以下の通りでした。

Pentium3　　67.7秒かかっていたものが1.8秒　（約37倍）
Pentium4　　18.4秒かかっていたものが1.5秒　（約12倍）

体感的にはP3もP4も変わりません。改善前は全然速度が違っていたのが不思議です。
もちろんCPU性能の要因の他にもディスク性能等あるのでしょうが、いずれにしても2秒以内なのでこれ未満のパソコンでも耐えられる処理速度になったと思います。

今回のファイル読取はメインプログラムを実行する前に１回だけの処理なので、ReadDat,FileSize,hFile ,RBytes 等の変数は以降使用しないのでメモリから開放したい（した方が良い？）のですが、いかがでしょうか？

ヘルプ見ましたが、"HeapFree"を使うのかなぁ？なんて思いましたが使用方法がわかりません。

度々恐縮ですが、ご教授の程よろしくお願いいたします。

#N88BASIC
Dim ReadData	As BytePtr
Dim FileSize	As DWord
Dim hFile	As HANDLE
Dim RBytes	As Long

hFile=CreateFile("table.dat",GENERIC_READ,0,ByVal 0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
FileSize=GetFileSize(hFile,NULL)
ReadData=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,FileSize+1)
ReadFile(hFile,ReadData,FileSize,VarPtr(RBytes),ByVal 0)
CloseHandle(hFile)

PⅢで動かしましたが、遅いですね。
N88系コマンドのファイル操作は、確かに遅いです。

>>改善できるのでしょうか？
はじめにファイルを全て読み込みます。
下記のコードで、ReadDataにファイルの内容が収録されます。
[hide][code]#N88BASIC
Dim ReadData As BytePtr
Dim FileSize As DWord
Dim hFile As HANDLE
Dim RBytes As Long

hFile=CreateFile("table.dat",GENERIC_READ,0,ByVal 0,OPEN_EXISTING,FILE_ATTRIBUTE_NORMAL,0)
FileSize=GetFileSize(hFile,NULL)
ReadData=HeapAlloc(GetProcessHeap(),HEAP_ZERO_MEMORY,FileSize+1)
ReadFile(hFile,ReadData,FileSize,VarPtr(RBytes),ByVal 0)
CloseHandle(hFile)
[/code][/hide]
この後で、カンマと改行を探しながら、配列にコピーすれば高速になると思います。

InputやPrint等の文字列を扱うN88BASIC命令はString型を引数にとった気がします。

それと多次元配列は掛け算を使って実現しているので、頻繁に使うと多少重くなると思います。
気にならない程度だと思いますが。

連続の質問で恐縮です。

以下のコードで実行は可能なのですが、読み取り速度が遅いのです。
ActiveBasicの場合だと、この程度のスピードなのでしょうか？
なお、読取ファイルは6560行、10列です。
（読取ファイルは、http://homepage3.nifty.com/ae85fcmxs/reversi/oth-ab-22b.lzh　の中の　"table.dat"　です）

もちろん、最新のパソコンであれば全然問題の無い速度ですが（～３秒程度で完了）
Pentium3位だと、1分程度待たされてしまいます。
なお、F-BASIC97(マイナーですね）で同じコードでコンパイルすると，F-BASIC版の方が5倍程度速いのです。　（因みにファイル読取以外は遥かにActiveBasicの方が速いのです）
何かコードの書き方が根本的に誤っているような気がいたします。

改善できるのでしょうか？
是非、ご教授の程、お願いいたします。


#N88BASIC
dim x,y
dim HEN%[6560,7] AS Char
dim OKE%[6560,1] AS Char
dim NO' AS Integer
Open "table.dat" For Input As #1
LOCATE 0,0:PRINT "ファイル読み込み中です。しばらくお待ち下さい"
DO
Input #1,NO ':NO =Val(A$) :PRINT NO;'"---";
y=x:x=Int(NO/6560*100):IF x<>y THEN LOCATE 0,1:PRINT x;"%"
Input #1,HEN%(NO,0)
Input #1,HEN%(NO,1)
Input #1,HEN%(NO,2)
Input #1,HEN%(NO,3)
Input #1,HEN%(NO,4)
Input #1,HEN%(NO,5)
Input #1,HEN%(NO,6)
Input #1,HEN%(NO,7)
Input #1,OKE%(NO,0)
Input #1,OKE%(NO,1)
Loop Until Eof(1) = -1
close #1