ブログジャンル

にほんブログ村 為替ブログ 100通貨単位・1000通貨単位へ
にほんブログ村の為替ブログランキングに参加中です。応援よろしくお願いいたします♪

検索フォーム


カレンダー

05 | 2017/06 | 07
- - - - 1 2 3
4 5 6 7 8 9 10
11 12 13 14 15 16 17
18 19 20 21 22 23 24
25 26 27 28 29 30 -

最新記事


最新コメント


最新トラックバック


月別アーカイブ


カテゴリ


リンク


スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

第04回 自動売買用プログラム - for ExcelVBA

こんにちわ!

今日の課題は「スリープを使う」です。
待つという意味合いでは過去に紹介してきたものと同じですが、今回のは個人的に大好きです!


その理由は・・・「CPUへの負荷が減る」からです!w
ココ大事!!パソコンの性能が悪い、自分にとっては死活問題ですのでw
プログラム実行中にフリーズして何回泣かされたことか^^;


「Sleep」は「Application.Wait」のように
指定した時間を待つことができます。

んで、両者の違いは、、、

「Sleep」・・・CPUへの負荷をかなり減らすことができる。
「Application.Wait」・・・実行中はCPUに負担がかかる。というかフリーズする場合があるw

です。
なぜかは分かりません。

ただ、スリープを使うには下記のコードを追加する必要があります。
プログラムの一番上に貼り付けてください。
20110619-vba02


-------------------- ここから --------------------
'スリープの定義・・・Sleepを使用すると処理にミリ秒単位でウエイトを入れる事が出来ます。
'1秒待ちたい場合は Sleep (1000) と指定する。
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
-------------------- ここまで --------------------


スリープはこんな感じで使用します。
前回の課題を使ってみます。

-------------------- ここから --------------------

'2011/06/19 第04回 自動売買用プログラム - for ExcelVBA
'本日の課題:「スリープを使う」

Sub IE_from()


'IE起動
Dim objIE As Object 'IE用の変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'IE用のオブジェクトを作成します。
objIE.Visible = True 'IEのウィンドウをTrueで可視状態にします。 Falseなら見えません。

'目的のページのURLを指定し、開きます。
objIE.Navigate "http://fxbouz2011.blog67.fc2.com/"

'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True
DoEvents
Wend

'検索フォームに文字を入力する。
objIE.Document.forms("barForm").Item("q").Value = "くるくるワイド"
objIE.Document.forms("barForm").Item("range").Value = "blog"

'キーワードがきちんと入力できたか3秒間の間に目視する。
Sleep (3000)

'フォームを送信
objIE.Document.forms("barForm").submit '送信処理


End Sub

-------------------- ここまで --------------------


こうすることで、検索フォームに文字を入力後、すぐに検索をさせず、その間にきちんと動作が実行できたか確認することができます。

本日の課題は以上です。
お疲れ様でした☆


追記
バグを見つけたいときなどは、プログラムを完全に停止できる「stop」を使います。
ストップをプログラムの途中に噛ませることで、どこまで正常に動くか確認ができます。
20110619-vba03




スポンサーサイト

コメント

おはようございます
更新お疲れ様です。今回も完了です^^
うちのPCも瀕死なのでsleepは不可欠ですね^^;
2011-06-20 05:43 ねもどん #- URL [ 編集 ]

相互リンクお願いします。

始めまして

私もFXnanoで取引をしております。

VBAでの自動取引大変興味があります。
よろしければ相互リンクをお願いします。
当方リンク設置済みです。


2011-06-21 10:35 s_step #- URL編集 ]

Re: タイトルなし

sleepはとても大事ですねw

いつもCPUやメモリの使用率と格闘しながら、VBAを使ってます^^;
あと、定期的にPCを初期化してやらないと、使い物にならなくなりますねw

いつかは性能が良いパソコン買って、無駄にモニタを追加してトレーディングルームみたいな環境でしてみたいものです。くるくるワイドには絶対必要ないですけどw
2011-06-21 13:57 ヒゲ☆坊主 #- URL編集 ]

Re: 相互リンクお願いします。

s_step さん

はじめまして。
リンクありがとうございます!
とっても嬉しいです♪

私のほうも早速リンクを貼らせて頂きますね。


VBAのほうは、頑張って更新していきます!
今後ともよろしくお願いいたします。
2011-06-21 14:03 ヒゲ☆坊主 #- URL編集 ]

コメントの投稿



管理者にだけ表示を許可する


トラックバック

http://fxbouz2011.blog67.fc2.com/tb.php/22-1e6921ad

 | ホーム | 


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。