投稿日 | : 2003/01/18(Sat) 08:56 |
投稿者 | : batchman |
Eメール | : batchman@ae.wakwak.com |
URL | : |
タイトル | : Re: 処理速度 |
繰り返し同じ計算をしているものをFor文の頭で変数に移すようにする。
1) For i = 0 To 20000
A = (i * myp)
2) For j = 0 To 15
B = A + (j * 12)
3) .Data = ByteToLng(dlist(B + 8), dlist(B + 9), _
dlist(B + 10), dlist(B + 11))
.Flag1 = dlist(B + 12)
.Flag2 = dlist(B + 13)
.Flag3 = dlist(B + 14)
.Flag4 = dlist(B + 15)
.Flag5 = dlist(B + 16)
.Flag6 = dlist(B + 17)
.Flag7 = dlist(B + 18)
.Flag8 = dlist(B + 19)
がぱっと見の思いつきです...