ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年11月21日(火) 13:15

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 1 件の記事 ] 
作成者 メッセージ
 記事の件名: CInt 高速化
投稿記事Posted: 2007年6月06日(水) 17:24 
以前、ここのコミュで マクロ の使い方を教えてもらったのですが、
色々試してたら、CInt関数の高速化ができたのでとりあえず公開しておこうかと(^^ゞ

といっても、大したことはないのですが。
CInt関数は、ABルートフォルダの
Include\basic\function.sbp
に定義されているようです。

こちらが関数ルーチンを使っていたので、
マクロに置き換えてみました。
コード:
Const CIntEx(number) = (number As Double) As Long
使い方は、CInt と定義する所を CIntEx とするだけです。


とりあえず、BASIC PROMPT で試してみましたが
ノーマルに比べると早くなったようです。
#ちなみに、ほかの関数も置き換えられますね。 > function.sbp
コード:
Dim AAA As Long
Dim BBB As Long

'CIntの高速版を定義。
Const CIntEx(number) = (number As Double) As Long

AAA = 1000.223243232343534334232

Dim i As Long,j As Long

Print "CInt開始"
Print Time$()
For i=0 To 2^21
    BBB=CInt(AAA)
Next
Print Time$()
Print "CInt完了"

Print "-------------"

Print "CIntEx開始"
Print Time$()
For i=0 To 2^21
    BBB=CIntEx(AAA)
Next
Print Time$()
Print "CIntEx完了"

あまり役に立たないかもですが、とりあえず情報共有まで。


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

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[1人]


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

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