会社員KNIGHTの株自動売買

さて今回はいよいよコーディングに入っていきますよ！
期待して待ってて下さっていた方、有難うございます。
前回までは、環境を作ってプロジェクトを作って画面を作っただけです。
これからが一番楽しいところですよね。

前回の状態にするために、VB2008EEを立ち上げてSampleApplicationを開いて下さい。
Form1のソースコードを開いていない方は、Form1.vbを選択した状態で「コードの表示」
ボタンをクリックして下さい。



解説は、なるべくオブジェクト指向やVBの言語仕様などの細かい話を省略して単純にして
いこうと思っています。
ですが、初めてプログラムを組む方にはちんぷんかんぷんになる内容も出てくると思います。
その場合は、このサンプルが出来上がった後にでも、独学で勉強される事をお勧めします。
そうしないと、何かトラブルがあった時や自分で新しい事をしたい時に挫折してしまうので。

前置きはこのぐらいにして早速始めていきます。

取得_Click()というメソッドは「取得ボタンがクリックされた時の処理」でしたよね。
やりたい事は

画面の銘柄コード、市場コードを元に、楽天RSSから銘柄名称と現在の株価を取得して
画面に表示したい

でした。
まずは、楽天RSSから情報を取得してくれるNDdeのクラスを準備します。
そのクラスは「NDde.Client.DdeClient」です。
プログラム中でこのクラスを使用する時には、こうやってフルネームで書いてあげても
良いのですが、長くなるので面倒ですし後でソースも読みにくくなります。
なので「NDde.Client.」という部分(名前空間と言います)を省略して、最後の
クラス名だけ記述すれば良いように定義してやる事が出来ます。

そのために、ファイルの先頭に「Imports NDde.Client」と書いてあげます。



ここで、非常に便利な開発環境の機能を伝授します(笑)。
それは「インテリセンス」と呼ばれるものですが、そこでコーディングすべき内容を予測して
候補として表示してくれる機能です。コードの途中で「CTRL+スペースキー」で実現出来ます。
どんな時でも記述の途中で押せば非常に効率よくコーディング出来ますし、スペルミスも
無くなるので便利ですよ。是非インテリセンスに慣れて下さい。



DdeClientクラスには色々なプロパティ(属性)やメソッド(操作)があります。
今回使用するもの以外にも沢山あります。

楽天RSSから情報を取得するための基本的な流れは、次の4ステップになります。
(1)DdeClientのインスタンス化(銘柄毎に1つ)
(2)楽天RSSに接続
(3)欲しい情報を取得(複数項目ある場合は複数回)
(4)DdeClientの破棄

では順番にいきます。

まずは「DdeClientのインスタンス化」です。
クラスというのは「こんな属性でこんな操作を持ったものです」という設計図です。
その設計図通りに実際のモノを作る作業がインスタンス化です。
分からない方は「そんなもんなんだ」で流して下さいｗ

インスタンス化するためには、引数(渡す情報)としてサービス名とトピック名が必要です。
サービス名は、楽天RSSの場合"RSS"という文字列固定です。変わりません。
そしてトピック名というのが「銘柄コード.市場コード」です。
ここまで書いて「あれ！？」と思われた方。そうです！
楽天RSSをExcelから関数で使用していた方は、セルに「=RSS|'4755.Q'!現在値」とか
入力していましたよね！
まさしくその時の「RSS」がサービス名で、「4755.Q」がトピック名なんです。
ExcelからDDEの機能を使って楽天RSSから情報を取得していたんですね。

まずはトピック名を作ります。
画面の銘柄コードと市場コードに入力された文字列をピリオドでつなげます。

Dim topic As String = 銘柄名称コード.Text & "." & 市場コード.Text
(2008.4.11訂正)

この1行が何を表しているかの説明は、すみませんが割愛させて頂きます。
分からない方は調べて頂く事をお勧めします。

トピック名が出来たので、サービス名の"RSS"と一緒に引き渡して、DdeClientの
インスタンス化を行います。

Dim client As New DdeClient("RSS", topic)

インスタンス化されたDdeClientのオブジェクトは、今後clientという変数名で
扱う事が出来ます。
但し「Dim」で宣言した変数はローカル変数ですので、このメソッド(取得_Click())の
中でしか使えません。・・・ややこしいのでこの辺りはハショります(苦笑)。

さて次は、このオブジェクトを楽天RSSに接続させます。

client.Connect()

これだけです！この行が実行されている時にMarketSpeedや楽天RSSが立ち上がって
いなかったり、MarketSpeedにログインされていない場合は例外が発生します。

・・・このサンプルプログラムではエラーのハンドリングを省略するつもりです。
異常が起こった時にどうしたら良いか分からない方は頑張って勉強して下さい。
省略していますが、非常に大事な部分です。

さてこれで、取得したい銘柄のDDEクライアントがインスタンス化されて
楽天RSSに接続している状態です。嘘みたいですよね。
いよいよ次は、銘柄名称と現在の株価を取得します！！

・・・と行きたいところですが長くなったので今日はここまでにします。
ほんとチョビットずつで申し訳無いです。m(_ _)m

現在のソースはこんな感じになってます。


(2008.4.11　×「銘柄名称」→○「銘柄コード」)

一応簡単にコメントを入れました。
シングルクォーテーションを入れるとそれ以降がコメントになり、ソースコードとして
コンパイルされません。後からの事を考えると、そこで何をしているか
分かりにくいコードにはこまめにコメントを入れる癖を付けましょうね。

ではまた次回。。。