PR
Calendar
Category
カテゴリ未分類
(0)卓球
(1235)盆太鼓・盆踊り
(411)トイドローン
(21)その他
(337)■■■■■■↓以下は凍結カテゴリー↓■■■■■■
(0)KATS(自動売買プログラム)
(87)「VB.NETで自動売買」入門
(24)本日の取引
(1292)デイトレ結果(勝ち)
(365)デイトレ結果(負け)
(591)夜間取引結果
(15)今週の取引
(480)今月の取引
(103)明日の監視銘柄
(54)株関連
(55)草野球
(36)Keyword Search
▼キーワード検索
Comments
May 12, 2008
カテゴリ： 「VB.NETで自動売買」入門
ずっと連載が止まっていました。すみません。
＜その７＞までは順調に書いていたのですが、GWを挟んだというのもありますし
内容がややこしくなるので「どうやって解説しようか」と悩んでいたら遅くなりました。
実は今日、職場の後輩から「入門シリーズ、滞ってますよね」と突っ込まれました(苦笑)。
彼は自動売買プログラム「MATS」開発のために私のブログでAdvice()編が進むのを
心待ちにしているそうですが、肝心なところで記事が止まったのでヤキモキしていた
らしいです。すんませ～～ん。
もしかしたら彼以外にも「早く書いてくれよ」と思っていた方がいらっしゃるかも知れません。
それに応え、今日は久しぶりに続きを書きたいと思います。
お勧めします。
左のカテゴリから 「「VB.NETで自動売買」入門 」 をクリックして頂いたら楽です。
一番下から順番に見る事が出来ます。
さてさて、前回は
client.StartAdvise("現在値", 1, True, 60000)
をソースに追加すると書きました。ですが、このメソッドを呼び出しても
変更通知イベントは発生しません。
何故か分からないのですが、Request()メソッドを呼び出したDDEクライアントは
Advice()メソッドで使い回し出来ないようなのです。 テストしてみて改めて分かりました。
すみません。
なので前回「取得_Click」メソッドからコピーしてこなかった
client.Dispose()
で一旦インスタンスを破棄し、その後再び新たなインスタンスを生成しないといけません。
書きます(笑)。それは 「Usingブロック」 です。
あるインスタンスを生成し、いらなくなった時にそのインスタンスを破棄しないと
無意味にメモリを圧迫する事になります。
いらなくなる時に今回のようにDispose()を呼び出せば良いですが、もし例外が発生して
及ぼす危険があります。
例外処理をご存知の方は「Finallyブロック」内に記述するという方法を思い付くかも
知れませんが、それより確実なのが「Usingブロック」です。
DDEクライアントをインスタンス化する時に「Using」と記述し、使用する部分の最後に
「End Using」と記述して囲めば終わりです。
これで、処理が進みUsingブロックの外に制御が移った時に、自動的にDDEクライアントは
破棄されるのです。是非そう記述して下さい。
念のためにソースを載せます。
この下に前回ご紹介した文を追加します。
その前に、DDEクライアントを改めてインスタンス化し、接続しないといけないので
ご注意下さい。追加するのは3文です。
Dim adviceClient As DdeClient = New DdeClient("RSS", topic)
adviceClient.Connect()
adviceClient.StartAdvise("現在値", 1, True, 60000)
あれ？今まで「client」と書いていたDDEクライアントの変数名を変えています。
同じ名前だとカブるので、名前は何でも良いのですが今回は「adviceClient」としました。
これで、 現在値に変更があれば変更通知イベントが発生します。
前回ご紹介したadviceClient.Adviseイベントです。
ですが、 このイベントが発生したからと言って今のままでは何もしません。
「adviceClient.Adviseイベントが発生したら、このメソッドを呼んでね」という宣言を
しておく必要があるのです。
ではまず、肝心の「このメソッド」を作っておく必要があります。
メソッド名は何でも良いですが、今回は現在値(現在の株価)が変わった時に動く
メソッドなので「PriceChange()メソッド」にしました。以下のように書いて下さい。
監視_Click()メソッドの最後の「End Sub」の下に記述して下さいね。
Private Sub PriceChange(ByVal sender As Object, ByVal e As DdeAdviseEventArgs)
End Sub
細かくは解説しませんが、引数の「sender」はこのメソッドを呼んだ人。つまり
イベントを発生させた人が入ってきます。つまりDDEクライアントのインスタンスです。
「e」は、このメソッドが呼び出されるきっかけとなったイベントから引き渡された
色々な値が入ったオブジェクトです。
まだ中身は記述してません。まずはこのまま放置して下さい。
ではイベントが発生したらこのメソッドを呼び出すようにソースに追加します。
こちらもお作法だと思ってこのまま記述して下さい。
AddHandler adviceClient.Advise, AddressOf PriceChange
この行はPriceChange()メソッドにイベントハンドラを追加するという作業ですが、
平たく言うと「adviceClientのAdviseイベントが発生したら、PriceChange()メソッドを
呼んでね」です。何となく分かりますよね？
ちなみにこの行を追加する場所ですが、
adviceClient.StartAdvise("現在値", 1, True, 60000)
の上にして下さい！
「何で？」と思われるかも知れません。別に一番下で良いのではないかと。
理由は、adviceClient.StartAdvise()によって更新通知を開始したら、次に
Addhandlerが実行されるまでのほんのわずかな時間(数ミリ秒とかの単位)に
Adviseイベントが発生する可能性があります。
すると、まだPriceChange()メソッドとの紐付けが行われていないので、その通知は
無視されてしまいます。出来れば避けたいですよね。という訳で、先に紐付けてから
更新通知を開始するようにします。こうです。
これで、 現在値に変更があるたび(値動きするたび)にPriceChange()メソッドが
呼び出されます ので、このメソッド内に、画面の現在値を更新する記述を書けば
終わりじゃないですか！
取得_Click()メソッドから
'現在値のバイト配列を取得
Dim praceByte As Byte() = client.Request("現在値", 1, 60000)
'バイト配列を文字列に変換して画面に表示
Dim priceText As String = Encoding.Default.GetString(praceByte).Trim
Dim dotIndex As Integer = priceText.IndexOf(".")
If dotIndex > -1 Then
'小数点があれば小数点以下を破棄
priceText = priceText.Substring(0, dotIndex)
End If
現在値.Text = priceText
をゴッソリコピーしましょう( 本当は同じソースが複数箇所にあるのは望ましくないと
以前書きましたが、今はそうします )。
すると、一箇所コンパイルエラーが出てます。「client」です。
このメソッド内にはclientもadviceClientもありません。
※実はadviceClientは取得出来ますが今は触れません
ここではこのメソッドの引数である「e」から現在値を取得します。
e(DdeAdviseEventArgsというオブジェクト)は 「Data」 というプロパティを持っています。
ここには、変更通知のあった値そのものがバイト配列で入っているのです。
つまり現在値を表すバイト配列。「client.Request("現在値", 1, 60000)」と同じです。
なので、代わりに「e.Data」と書いてやれば終わりです！！
ソースはこうなりました。
ここまでくればそれなりに動作すると思うでしょう。
では動かしてみましょう！デバッグ開始ボタン(再生ボタンっぽいやつ)を押します。
そして前回のように楽天を・・・と思いましたが、今日は私が印象に残っている
オックスHLDGSを検索したいので(笑) 「2350」「OJ」 と入力します。そして取得ではなく
監視ボタンをクリックです！！
すると・・・ 上手く・・・行きません(ぉぃ)。
こんなダイアログが表示され、現在値を画面に移送する所で例外が発生しているのが
分かります。
どうしようもないので 停止ボタン(■)をクリックしてプログラムを停止します。
興味のある方は勉強されたら良いと思いますが、これは マルチスレッドが原因で
起こっています。
更新通知のイベントはメイン処理とは別のスレッドが非同期で発生しているのですが、
スレッドをまたいでオブジェクトを操作するにはややこしい制御が必要になります。
画面の現在値というテキストボックスはメインスレッド上に存在するオブジェクトですが
PriceChange()メソッドを実行しているのは別スレッドです。このスレッドが直接
画面のオブジェクトを操作すると怒られるのです。
最良の解決方法は Thread や BackGroundWorker 、 Invoke などというキーワードで勉強されれば
良いかと思いますが、今は一番簡単な方法で解決します。
DDEクライアントのコンストラクタ(インスタンス化するメソッド)には、別の
シグニチャ(引数の組み合わせ)が存在します。
今まで
Dim adviceClient As DdeClient = New DdeClient("RSS", topic)
と書いてましたが、ヘルプを見ると、引数が3つのものがあります。
第三引数は、同期を取るオブジェクトです。
詳しくは書きませんが、第三引数で渡すオブジェクト毎にDDEインスタンスのメソッドを
同期を取って動作させてくれます。
そうする事によって、現在値.Textを直接更新出来るようになるんです！
分からない方は理由は考えず、次のように書き換えて下さい(^-^;
Dim adviceClient As DdeClient = New DdeClient("RSS", topic , Me )
「Me」とは自分自身のオブジェクトの事を指します。ここでは「Form1」の事です。
もう一度実行させると、正しく動作する事が分かります。
実行するのがザラ場中だったら尚良いんですが。画面上の株価がリアルタイムで
更新されるのを見る事が出来ますからね！！
・・・今日はここまでにします。
一応、更新通知イベントを受けて現在値を更新する処理が出来ました。
ですが、監視を停止する処理が無いのでプログラムを止めるしかないですし、
例外処理も一切書いていないので、実運用するにはプログラムが異常終了しないように
ちゃんと実装する必要があるでしょう。
それらを解説するかどうかは決めてませんが、 Advice()形式の肝である
複数銘柄、複数項目の監視をどうやって実現するかについてまだ書いていませんので
これについては是非書きたいと思っています。
次回にご期待下さい。
＜その７＞までは順調に書いていたのですが、GWを挟んだというのもありますし
内容がややこしくなるので「どうやって解説しようか」と悩んでいたら遅くなりました。
実は今日、職場の後輩から「入門シリーズ、滞ってますよね」と突っ込まれました(苦笑)。
彼は自動売買プログラム「MATS」開発のために私のブログでAdvice()編が進むのを
心待ちにしているそうですが、肝心なところで記事が止まったのでヤキモキしていた
らしいです。すんませ～～ん。
もしかしたら彼以外にも「早く書いてくれよ」と思っていた方がいらっしゃるかも知れません。
それに応え、今日は久しぶりに続きを書きたいと思います。
お勧めします。
左のカテゴリから 「「VB.NETで自動売買」入門 」 をクリックして頂いたら楽です。
一番下から順番に見る事が出来ます。
さてさて、前回は
client.StartAdvise("現在値", 1, True, 60000)
をソースに追加すると書きました。ですが、このメソッドを呼び出しても
変更通知イベントは発生しません。
何故か分からないのですが、Request()メソッドを呼び出したDDEクライアントは
Advice()メソッドで使い回し出来ないようなのです。 テストしてみて改めて分かりました。
すみません。
なので前回「取得_Click」メソッドからコピーしてこなかった
client.Dispose()
で一旦インスタンスを破棄し、その後再び新たなインスタンスを生成しないといけません。
書きます(笑)。それは 「Usingブロック」 です。
あるインスタンスを生成し、いらなくなった時にそのインスタンスを破棄しないと
無意味にメモリを圧迫する事になります。
いらなくなる時に今回のようにDispose()を呼び出せば良いですが、もし例外が発生して
及ぼす危険があります。
例外処理をご存知の方は「Finallyブロック」内に記述するという方法を思い付くかも
知れませんが、それより確実なのが「Usingブロック」です。
DDEクライアントをインスタンス化する時に「Using」と記述し、使用する部分の最後に
「End Using」と記述して囲めば終わりです。
これで、処理が進みUsingブロックの外に制御が移った時に、自動的にDDEクライアントは
破棄されるのです。是非そう記述して下さい。
念のためにソースを載せます。
この下に前回ご紹介した文を追加します。
その前に、DDEクライアントを改めてインスタンス化し、接続しないといけないので
ご注意下さい。追加するのは3文です。
Dim adviceClient As DdeClient = New DdeClient("RSS", topic)
adviceClient.Connect()
adviceClient.StartAdvise("現在値", 1, True, 60000)
あれ？今まで「client」と書いていたDDEクライアントの変数名を変えています。
同じ名前だとカブるので、名前は何でも良いのですが今回は「adviceClient」としました。
これで、 現在値に変更があれば変更通知イベントが発生します。
前回ご紹介したadviceClient.Adviseイベントです。
ですが、 このイベントが発生したからと言って今のままでは何もしません。
「adviceClient.Adviseイベントが発生したら、このメソッドを呼んでね」という宣言を
しておく必要があるのです。
ではまず、肝心の「このメソッド」を作っておく必要があります。
メソッド名は何でも良いですが、今回は現在値(現在の株価)が変わった時に動く
メソッドなので「PriceChange()メソッド」にしました。以下のように書いて下さい。
監視_Click()メソッドの最後の「End Sub」の下に記述して下さいね。
Private Sub PriceChange(ByVal sender As Object, ByVal e As DdeAdviseEventArgs)
End Sub
細かくは解説しませんが、引数の「sender」はこのメソッドを呼んだ人。つまり
イベントを発生させた人が入ってきます。つまりDDEクライアントのインスタンスです。
「e」は、このメソッドが呼び出されるきっかけとなったイベントから引き渡された
色々な値が入ったオブジェクトです。
まだ中身は記述してません。まずはこのまま放置して下さい。
ではイベントが発生したらこのメソッドを呼び出すようにソースに追加します。
こちらもお作法だと思ってこのまま記述して下さい。
AddHandler adviceClient.Advise, AddressOf PriceChange
この行はPriceChange()メソッドにイベントハンドラを追加するという作業ですが、
平たく言うと「adviceClientのAdviseイベントが発生したら、PriceChange()メソッドを
呼んでね」です。何となく分かりますよね？
ちなみにこの行を追加する場所ですが、
adviceClient.StartAdvise("現在値", 1, True, 60000)
の上にして下さい！
「何で？」と思われるかも知れません。別に一番下で良いのではないかと。
理由は、adviceClient.StartAdvise()によって更新通知を開始したら、次に
Addhandlerが実行されるまでのほんのわずかな時間(数ミリ秒とかの単位)に
Adviseイベントが発生する可能性があります。
すると、まだPriceChange()メソッドとの紐付けが行われていないので、その通知は
無視されてしまいます。出来れば避けたいですよね。という訳で、先に紐付けてから
更新通知を開始するようにします。こうです。
これで、 現在値に変更があるたび(値動きするたび)にPriceChange()メソッドが
呼び出されます ので、このメソッド内に、画面の現在値を更新する記述を書けば
終わりじゃないですか！
取得_Click()メソッドから
'現在値のバイト配列を取得
Dim praceByte As Byte() = client.Request("現在値", 1, 60000)
'バイト配列を文字列に変換して画面に表示
Dim priceText As String = Encoding.Default.GetString(praceByte).Trim
Dim dotIndex As Integer = priceText.IndexOf(".")
If dotIndex > -1 Then
'小数点があれば小数点以下を破棄
priceText = priceText.Substring(0, dotIndex)
End If
現在値.Text = priceText
をゴッソリコピーしましょう( 本当は同じソースが複数箇所にあるのは望ましくないと
以前書きましたが、今はそうします )。
すると、一箇所コンパイルエラーが出てます。「client」です。
このメソッド内にはclientもadviceClientもありません。
※実はadviceClientは取得出来ますが今は触れません
ここではこのメソッドの引数である「e」から現在値を取得します。
e(DdeAdviseEventArgsというオブジェクト)は 「Data」 というプロパティを持っています。
ここには、変更通知のあった値そのものがバイト配列で入っているのです。
つまり現在値を表すバイト配列。「client.Request("現在値", 1, 60000)」と同じです。
なので、代わりに「e.Data」と書いてやれば終わりです！！
ソースはこうなりました。
ここまでくればそれなりに動作すると思うでしょう。
では動かしてみましょう！デバッグ開始ボタン(再生ボタンっぽいやつ)を押します。
そして前回のように楽天を・・・と思いましたが、今日は私が印象に残っている
オックスHLDGSを検索したいので(笑) 「2350」「OJ」 と入力します。そして取得ではなく
監視ボタンをクリックです！！
すると・・・ 上手く・・・行きません(ぉぃ)。
こんなダイアログが表示され、現在値を画面に移送する所で例外が発生しているのが
分かります。
どうしようもないので 停止ボタン(■)をクリックしてプログラムを停止します。
興味のある方は勉強されたら良いと思いますが、これは マルチスレッドが原因で
起こっています。
更新通知のイベントはメイン処理とは別のスレッドが非同期で発生しているのですが、
スレッドをまたいでオブジェクトを操作するにはややこしい制御が必要になります。
画面の現在値というテキストボックスはメインスレッド上に存在するオブジェクトですが
PriceChange()メソッドを実行しているのは別スレッドです。このスレッドが直接
画面のオブジェクトを操作すると怒られるのです。
最良の解決方法は Thread や BackGroundWorker 、 Invoke などというキーワードで勉強されれば
良いかと思いますが、今は一番簡単な方法で解決します。
DDEクライアントのコンストラクタ(インスタンス化するメソッド)には、別の
シグニチャ(引数の組み合わせ)が存在します。
今まで
Dim adviceClient As DdeClient = New DdeClient("RSS", topic)
と書いてましたが、ヘルプを見ると、引数が3つのものがあります。
第三引数は、同期を取るオブジェクトです。
詳しくは書きませんが、第三引数で渡すオブジェクト毎にDDEインスタンスのメソッドを
同期を取って動作させてくれます。
そうする事によって、現在値.Textを直接更新出来るようになるんです！
分からない方は理由は考えず、次のように書き換えて下さい(^-^;
Dim adviceClient As DdeClient = New DdeClient("RSS", topic , Me )
「Me」とは自分自身のオブジェクトの事を指します。ここでは「Form1」の事です。
もう一度実行させると、正しく動作する事が分かります。
実行するのがザラ場中だったら尚良いんですが。画面上の株価がリアルタイムで
更新されるのを見る事が出来ますからね！！
・・・今日はここまでにします。
一応、更新通知イベントを受けて現在値を更新する処理が出来ました。
ですが、監視を停止する処理が無いのでプログラムを止めるしかないですし、
例外処理も一切書いていないので、実運用するにはプログラムが異常終了しないように
ちゃんと実装する必要があるでしょう。
それらを解説するかどうかは決めてませんが、 Advice()形式の肝である
複数銘柄、複数項目の監視をどうやって実現するかについてまだ書いていませんので
これについては是非書きたいと思っています。
次回にご期待下さい。
お気に入りの記事を「いいね！」で応援しよう
[「VB.NETで自動売買」入門] カテゴリの最新記事
-
SBI証券バックアップサイトで発注する＜そ… Nov 21, 2010 コメント(2)
-
SBI証券バックアップサイトで発注する＜そ… Nov 20, 2010
-
SBI証券バックアップサイトで発注する＜そ… Nov 13, 2010
物凄く参考になりました
p.h.u.q. さん
いつもKNIGHTさんのブログで勉強させて頂いています。
Advice()編が再開されて嬉しいです。
KNIGHTさんの入門講座では、NDdeとRSSの扱い方を丁寧に解説して下さっているのでとても参考になります。NDdeのドキュメントを見ても理解し難い箇所が多いので、KNIGHTさんの解説が大きな手がかりになっています。
今回の引数3つのコンストラクターについても自分の力では到達できない難易度の箇所だったので有り難いです。まだ理解しきれていませんが、KNIGHTさんの解説を手がかりに勉強したいと思います。
これだけの情報をまとめるのは大変な労力が必要だと思います。それでもボランティア的に情報を発信して下さるKNIGHTさんに感謝感激です。入門講座、これからも楽しみにしています。長文、すいませんでした。
(May 13, 2008 12:48:02 AM)
Advice()編が再開されて嬉しいです。
KNIGHTさんの入門講座では、NDdeとRSSの扱い方を丁寧に解説して下さっているのでとても参考になります。NDdeのドキュメントを見ても理解し難い箇所が多いので、KNIGHTさんの解説が大きな手がかりになっています。
今回の引数3つのコンストラクターについても自分の力では到達できない難易度の箇所だったので有り難いです。まだ理解しきれていませんが、KNIGHTさんの解説を手がかりに勉強したいと思います。
これだけの情報をまとめるのは大変な労力が必要だと思います。それでもボランティア的に情報を発信して下さるKNIGHTさんに感謝感激です。入門講座、これからも楽しみにしています。長文、すいませんでした。
(May 13, 2008 12:48:02 AM)
おはようございます。
ac_knight
さん
p.h.u.q.さん
応援コメント有難うございます。
解説を省略してる部分も多いので本当にエッセンスだけですが、
参考になる内容があるなら幸いです。
もし「もっと詳しく書いて欲しい」という部分があればコメント下さいね。
全てに応えられませんが、どの部分を重点的に解説すれば皆さんが
満足するのか理解するきっかけになると思いますので。
ではp.h.u.q.さんも開発頑張って下さい！
(May 13, 2008 07:57:11 AM)
応援コメント有難うございます。
解説を省略してる部分も多いので本当にエッセンスだけですが、
参考になる内容があるなら幸いです。
もし「もっと詳しく書いて欲しい」という部分があればコメント下さいね。
全てに応えられませんが、どの部分を重点的に解説すれば皆さんが
満足するのか理解するきっかけになると思いますので。
ではp.h.u.q.さんも開発頑張って下さい！
(May 13, 2008 07:57:11 AM)
連載再開感激！
ttt さん
つい先日コメントした者ですが、
再開されてたので感激！
adviceを使う場合、
どのタイミングでインスタンスをdisposeするのか、
またUsingを使う場合にはどうすればいいのか良くわからず困ってます。
Using adviceClient As DdeClient = New (略
AddHandler (略
addviceClient.StartAdvise( 略
End Using
なんてやっちゃったらだめですよね…
低レベルな話ですいません。そのあたりについても次回以降触れていただければ幸いです。
マルチスレッドについても勉強しときますんで！
(May 13, 2008 08:30:33 AM)
再開されてたので感激！
adviceを使う場合、
どのタイミングでインスタンスをdisposeするのか、
またUsingを使う場合にはどうすればいいのか良くわからず困ってます。
Using adviceClient As DdeClient = New (略
AddHandler (略
addviceClient.StartAdvise( 略
End Using
なんてやっちゃったらだめですよね…
低レベルな話ですいません。そのあたりについても次回以降触れていただければ幸いです。
マルチスレッドについても勉強しときますんで！
(May 13, 2008 08:30:33 AM)
コメント有難うございます！
KNIGHT@会社 さん
tttさん
＞つい先日コメントした者ですが、
＞再開されてたので感激！
昨日後輩に「最近止まってますよね。。。次が一番気になるところなんですが」と言われ、
「実は今日帰宅したら続きを書こうと思っててん。」と答えました。
そのきっかけとなったのがtttさんのコメントです。
初めて書き込みをくれる方から期待されている旨のコメントを頂いて「書かないと！」という
気持ちになりました。私がお礼を言いたいぐらいです。有難うございます。
＞adviceを使う場合、
＞どのタイミングでインスタンスをdisposeするのか、
＞またUsingを使う場合にはどうすればいいのか良くわからず困ってます。
＞Using adviceClient As DdeClient = New (略
＞ AddHandler (略
＞ addviceClient.StartAdvise( 略
＞End Using
＞なんてやっちゃったらだめですよね…
＞低レベルな話ですいません。そのあたりについても次回以降触れていただければ幸いです。
＞マルチスレッドについても勉強しときますんで！
Advice()形式の場合はUsingブロックは適していません。
監視している間、DDEクライアントのインスタンスはずっと保持されたまま動いてくれないと
いけませんので。
上のソースだと監視を開始した直後にDDEクライアントを破棄するのでイベントが発生しません。
(May 13, 2008 12:28:44 PM)
＞つい先日コメントした者ですが、
＞再開されてたので感激！
昨日後輩に「最近止まってますよね。。。次が一番気になるところなんですが」と言われ、
「実は今日帰宅したら続きを書こうと思っててん。」と答えました。
そのきっかけとなったのがtttさんのコメントです。
初めて書き込みをくれる方から期待されている旨のコメントを頂いて「書かないと！」という
気持ちになりました。私がお礼を言いたいぐらいです。有難うございます。
＞adviceを使う場合、
＞どのタイミングでインスタンスをdisposeするのか、
＞またUsingを使う場合にはどうすればいいのか良くわからず困ってます。
＞Using adviceClient As DdeClient = New (略
＞ AddHandler (略
＞ addviceClient.StartAdvise( 略
＞End Using
＞なんてやっちゃったらだめですよね…
＞低レベルな話ですいません。そのあたりについても次回以降触れていただければ幸いです。
＞マルチスレッドについても勉強しときますんで！
Advice()形式の場合はUsingブロックは適していません。
監視している間、DDEクライアントのインスタンスはずっと保持されたまま動いてくれないと
いけませんので。
上のソースだと監視を開始した直後にDDEクライアントを破棄するのでイベントが発生しません。
(May 13, 2008 12:28:44 PM)
tttさんへの続きです。
KNIGHT@会社 さん
tttさん
だからと言って私が＜その８＞で書いているように単に
Dim adviceClient As DdeClient = New (略
としてしまったら非常に中途半端です。自分で書いといてナンですが。。。(汗
正確に処理するなら、メソッド内のローカル変数ではなくインスタンス変数(メンバー変数)として
Private adviceClient As DdeClient = Nothing
と定義しておいて、監視_Click()メソッド内ではその変数を使って
adviceClient = New (略
と書くのが良いのでは無いかと思います。
そして、プログラムの終了時(Form1.Closeイベントのメソッドなど)や、停止ボタンを作って
そのクリック時に
adviceClient.Dispose()
です。
この辺りについては私の説明が全然足りないので、次回以降に書けたらと思います。
複数銘柄を扱う場合にはDDEクライアントのインスタンスをいくつもインスタンス化する
必要がありますから、また違うテクニックが必要ですし。
マルチスレッドはかなり難解ですが、頑張って下さい！！
正直、私も分からない部分が沢山あるんですよ。。。(^-^;
(May 13, 2008 12:29:30 PM)
だからと言って私が＜その８＞で書いているように単に
Dim adviceClient As DdeClient = New (略
としてしまったら非常に中途半端です。自分で書いといてナンですが。。。(汗
正確に処理するなら、メソッド内のローカル変数ではなくインスタンス変数(メンバー変数)として
Private adviceClient As DdeClient = Nothing
と定義しておいて、監視_Click()メソッド内ではその変数を使って
adviceClient = New (略
と書くのが良いのでは無いかと思います。
そして、プログラムの終了時(Form1.Closeイベントのメソッドなど)や、停止ボタンを作って
そのクリック時に
adviceClient.Dispose()
です。
この辺りについては私の説明が全然足りないので、次回以降に書けたらと思います。
複数銘柄を扱う場合にはDDEクライアントのインスタンスをいくつもインスタンス化する
必要がありますから、また違うテクニックが必要ですし。
マルチスレッドはかなり難解ですが、頑張って下さい！！
正直、私も分からない部分が沢山あるんですよ。。。(^-^;
(May 13, 2008 12:29:30 PM)
コメントありがとうございます
ttt さん
KNIGHTさん、早速のコメントありがとうございます！！
私のコメントなんかでやる気が出たのならうれしい限りです。コメントして良かったです！！
Dispose，Usingの件ですが、
やっぱりUsingは適さないんですね。
教えていただいたようにddeClientをメンバ変数にして使ってみたいと思います。
その後に、ddeを管理するクラスを作って複数のインスタンスに対応できたらなあと。
まだまだ勉強することが多いですけどがんばります。
マルチスレッドも難解ですがなんとか勉強していきますよ(^_^;)
お忙しい中、コメントありがとうございました。 (May 14, 2008 07:27:04 AM)
私のコメントなんかでやる気が出たのならうれしい限りです。コメントして良かったです！！
Dispose，Usingの件ですが、
やっぱりUsingは適さないんですね。
教えていただいたようにddeClientをメンバ変数にして使ってみたいと思います。
その後に、ddeを管理するクラスを作って複数のインスタンスに対応できたらなあと。
まだまだ勉強することが多いですけどがんばります。
マルチスレッドも難解ですがなんとか勉強していきますよ(^_^;)
お忙しい中、コメントありがとうございました。 (May 14, 2008 07:27:04 AM)
おはようございます！
ac_knight
さん
tttさん
皆さんの応援コメントでモチベーションを保ってますので(^-^;
もしどなたかもコメントが無ければ続けてないと思います。
・・・複数銘柄、複数項目の扱いは次回書こうと思ってますので！
(May 14, 2008 08:12:27 AM)
皆さんの応援コメントでモチベーションを保ってますので(^-^;
もしどなたかもコメントが無ければ続けてないと思います。
・・・複数銘柄、複数項目の扱いは次回書こうと思ってますので！
(May 14, 2008 08:12:27 AM)
【毎日開催】
15記事にいいね！で1ポイント
© Rakuten Group, Inc.
