藤一番 涼麺＋温厚チャーシュー
さて、夏休み初日ですが、なぜか午後から仕事に呼ばれましたよ。
それはいいとして客先作業のため仕方なく古いほうのモバイルＰＣを持って出たら、なんだか動きがおかしくて、ＣＲＣエラーとか出てるし、こりゃＨＤＤクラッシュですな・・。
また分解してＨＤＤ取り替えなきゃな・・。６０ＧＢが余ってるからそれ入れよっと。
ああ、あみやき亭がいい感じですね。
2007年8月アーカイブ
夏休み初日
戌分解
こんな感じでwebサーバ
もう何回くらい分解したかわからない
さて、ＯＳ再インストールがめんどいので某ソフトで修復を試み、今はchkdsk中です。
修復中
モス カレーチキンバーガー
さて、壊れた銀戌さんはWindowsUpdateがうまく動かなくなり結局ＯＳから再インストールすることになりました。
システムのほうは株価データの取得とチャート作成処理を調整して安定稼動したら、あとはシグナルの様子をみて自動発注をＯＮにすればとりあえず全自動売買の再開となります。
並列化
暑い日に、なか卯カレーを食べて
デザートにマックフルーリー
さて、株価データ取得プログラムの並列化のアイデアを思いついたので実装してみます。
うまくいけばバックアップを兼ねつつ株価データの密度を上げれるかも。
DS 株トレーダー瞬
夏休みだしＤＳとやらを買ってみる
ソフトも３本ほど買ったのでしばらく遊べます。
・株トレーダー瞬
これ経験者のほうが楽しめるかも。
株価が移動平均にそってありえない速度でうにうにチャート上を動くのが快感になりつつ・・。
・世界樹の迷宮
これなんてウィザードリィ？
１Ｆでパーティー全滅を繰り返してますｗ
・逆転裁判４
サイトで体験版やったので後でゆっくり楽しむ予定
多重化と高密化
ヨッパでココイチは危険ですってば
さて、ちょっと思いつきで株価データ取得処理の改良してます。
・取得元サイトごとにデータ取得のみの機能を与えたモジュール
・一括して株価データ管理を行うモジュール
・複数ＰＣでの同時起動による多重化と協調動作によるデータ高密化
エンジョイプログラミン！
Ｐ２Ｐ
モス スパイシーチリドッグ
さて、取得した株価データの別ＰＣへの配信処理を作ってたら、かんたんなＰ２Ｐになりました。
むかしＰ２Ｐプログラミングを勉強しかけた頃があって、そのへんの技術がやっと実を結んだ形ですね。
ああ、Ｐ２Ｐはいろんな定義がある不遇な用語ですが、今回のはファイル共有とか一対一で通信とかいう意味でなく、ちゃんとノード管理を伴う仮想ネットワーク（まぁＬＡＮ内限定だけどね）への参加とかも実装してます。
ここからもう一手進めるプランも用意してあるのですが、それはまた別のお話。
ＤＤｏＳっぽいので封印
さて、多重化の結果
４０００銘柄を１分以内に拾えるようになってしまいました・・
実際、持ち越しトレードなのでこんなパフォーマンスは必要としてないわけですが、まぁ、技術的チャレンジとして全銘柄毎分の株価を取得できたら面白いかな・・と。
もはやＤＤｏＳ攻撃っぽくなってしまったので多重化は封印しますょ。
ねこ鍋
癒されたのでご紹介
細かな調整中
夏バテ防止にオクラとろろ丼（ほっかほっか亭）
さて、細かな調整をあれこれやってます。
ちょっとリスクの高めの新ロジックが２本。今はシグナルだけ拾ってザラ場テストしてます。明日は携帯へのシグナルメールの再実装とテスト。余裕がありそうなら自動発注までもっていけるかも。
テスト中
シグナル出ないね
ホットチリ
ホットチリ唐揚げ（ほっかほっか亭480円）
さて、封印の前に３台で時間計ってみたらデータ取得で４０４４銘柄１９秒でした。さっさと封印しますょ。１０分足とかでうちのはじゅうぶん。
ミニチャートの作成処理も改良
てりたま
築地銀だこ（てりたまマヨネーズ580円）
さて、手仕舞い処理の研究してます。
トレイリングストップでもなく損益率固定でもない、何か。
スマートに頂上を見つける。
盛り
刺身５種盛り
さて、いい感じの手仕舞いルールもできて、チャート描画の調整とか。
本番シグナルでやる前に保有銘柄の監視処理とかを再実装しますょ。
セリングクライマックスもどき
ピタマック タンドリーチキン
さて、更新が少ないのは忙しい証拠デス。
保有銘柄の監視処理。まだまだ途中な画面
世界同時株安のセリングクライマックスっぽい動きですが、今回は安心できませんよね。完全にアメリカのとばっちりだから。
引けにソフトバンクを買ってみたけど、どうなることやら・・
ぼーらく
凄い下げですねぇ・・。
退却ぅ～！ 。。。。。。。。(゜ _ ゜ )
ソフトバンクは寄りで続落してた時点ですぐ撤退しましたょ。
そっか、売りから入れば良かったんだ・・。と気づいて、あわてて売りのバックテストしたらシグナル山盛り出てましたが、気にしな～い。
Yahooメッセンジャープロトコル
うずらくん＋エビカツサンド（定番）でビール
さて、ちょっと気分転換
Yahooメッセンジャープロトコルをいじって遊ぶ
とりあえずこちらのサイトでパケット構造の基本をお勉強させていただきました。
Yahoo!Messenger Carpenter Association
あと必要なのは、チャットルームへのJOINとか、ルーム一覧の取得とかですが、ここではメッセンジャーとしての基本機能しかプロトコル解説が見つからないため、手ごろなサンプルを求めて海外サイトぶらり旅に出ますと以下サイトが見つかります。
↓ルーム一覧の取得手順が得られます。
Yahoo Protocol | How To Do Things.com
↓VB.NET/C#でのサンプルが得られます。
GotDotNet User Sample: YMSG.NET
日本サーバに合わせてそれなりの修正を加えれば動くようになります。
これでYahooMessengerクライアント不要なボットプログラム開発ができますね。
銘柄バトル
銘柄バトルつくった(゜ _ ゜)
Yahooチャット-「ビジネスと経済」-ユーザールーム「銘柄バトル（自動応答）」
そのうちweb版も作るね。
コミュニティ
藤一番 とんこつ＋温厚チャーシュー
さて、忙しいです。
なんとか新ロジックでシステムが回るようになってきました。
画面周りのルック＆フィールがまだまだ中途半端。
新興銘柄も扱うようにしたところ、利用している証券会社では新興の信用取引ができないことに今更ながらに気が付いてあわてて現物対応修正してます。
来月からまた仕事もあるので準備もしないといけないし・・。
みん株の株プログラミングのコミュニティも少しずつ参加者が増えつつあります。
株のSNSサイト『みんなの株式』(みんかぶ)
http://minkabu.jp/groups/topic/show/1121
山ちゃん
世界の山ちゃん
さて、利食いがゆるいので少しだけ欲張りますよ。
拾った銘柄がラジオ日経で期待銘柄として紹介とかされてました。ちょっとドキドキしますね。
あれです、欲張るとね、シッパイします。みなさんもご注意を。
[楽天RSS] EXCEL300銘柄制限
コード掲載の体裁テストです深い意味はなっしんぐ
EXCELで１セル書き換えでも300銘柄制限は突破できない事の検証
Sub Test1()
Dim row As Integer: row = 1
Dim code As Integer: For code = 1300 To 3000
For Each T In Array("T", "Q", "OS", "OJ")
Dim rss As String: rss = "=RSS|'[Code].[T]'!銘柄名称"
rss = Replace(rss, "[Code]", CStr(code))
rss = Replace(rss, "[T]", T)
Cells(1, 1).Value = code
Cells(1, 2).Formula = rss
DoEvents
If Cells(1, 2).Text <> "#N/A" Then
Debug.Print row, code, T, Cells(1, 2).Value
row = row + 1
Exit For
End If
Next
Next
End Sub
みごとに299銘柄で止まりますってこと
[楽天RSS] VB6で300銘柄制限を突破
お次はVB6で300銘柄制限を突破してみる。
標準機能のDDELinkを利用してみますね。
Private Sub Form_Load()
Dim count As Integer: count = 0
Dim code As Integer: For code = 1300 To 3000
For Each T In Array("T", "Q", "OS", "OJ")
Dim topic As String
topic = "RSS|[Code].[T]"
topic = Replace(topic, "[Code]", CStr(code))
topic = Replace(topic, "[T]", T)
On Error Resume Next
Label1.LinkMode = 0 '0.なし
Label1.LinkTopic = topic
Label1.LinkItem = "銘柄名称"
Label1.LinkMode = 1 '1.自動
If Err.Number = 0 Then
count = count + 1
Debug.Print count, code, T, Label1.Caption
Exit For
End If
DoEvents
Next
Next
End Sub
遅いね。でも一応300銘柄以上回ります。
ちなみにDDEは２０年近く昔の技術なので今のVB2005(VB.NET)にはDDELink機能はもうありませんよ。と
[楽天RSS] VB.NETでやってみる
で、VB2005(VB.NET)にはDDE機能はありませんが、NDdeなどの既存コンポーネントを利用してお手軽に同様の操作が可能です。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim enc As Encoding = Encoding.GetEncoding("Shift-JIS")
Dim count As Integer = 0
For code As Integer = 1300 To 3000
For Each T As String In New String() {"T", "Q", "OS", "OJ"}
Dim topic As String = "[Code].[T]"
topic = Replace(topic, "[Code]", CStr(code))
topic = Replace(topic, "[T]", T)
Dim item As String = "銘柄名称"
Using client As New DdeClient("RSS", topic)
client.Connect()
Dim buf(1024) As Byte
If client.TryRequest(item, 1, 60000, buf) = 0 Then
count = count + 1
Dim s As String = enc.GetString(buf)
s = s.Substring(0, s.Length - 1)
Debug.WriteLine(count & vbTab & code & vbTab & T & vbTab & s)
End If
End Using
Next
Next
End Sub
リクエスト方式だと遅いですがお手軽に全銘柄取得できます。
とりあえず入門用ってことでAPI直接呼出しとかコールバックとかはまた別のお話。
HP/MP
若狭家 見た目は良いが味はいまいち
さて、ちょっと精神的なお話。
モチベーションは維持するのではなく、沸いてくるものだと思うの。
やらなきゃいけないことや、アイデアがいっぱいある時に気が向いた事から順に片付けて行くと、ある時ぷっつりとやる気が切れることがある。
そういう時はねロープレのHP/MPみたくね。じっくり休んで回復が必要なんす。
[楽天RSS] AccessでDDE
AccessでDDE
Sub Test1()
Dim count As Integer: count = 0
Dim code As Integer: For code = 1300 To 3000
For Each T In Array("T", "Q", "OS", "OJ")
Dim topic As String
topic = "[Code].[T]"
topic = Replace(topic, "[Code]", CStr(code))
topic = Replace(topic, "[T]", T)
On Error Resume Next
Dim ChanNum As Long: ChanNum = Application.DDEInitiate("RSS", topic)
Dim s As String: s = Application.DDERequest(ChanNum, "銘柄名称")
If Err.Number = 0 Then
Application.DDETerminate ChanNum
count = count + 1
Debug.Print count, code, T, s
Exit For
End If
Application.DDETerminate ChanNum
DoEvents
Next
Next
End Sub
Wiki/ASP.NET2.0(C#)
ブログカード
ブログカードを作ってみる
さて、長いことネット生活を送っていると、リアル自分とネット自分の区別とかキャラ分けとかでジレンマに陥ります。
普通はいろいろあってネットは匿名にしたりするんだろうけど、両方の知人友人が混ざってくると別に本名とか隠す意味も無いんだろうな・・と。
キャラ的にはリアルもこんな感じだしね。
この猫さんは「あかねさん」です。
オスです。
モバイル
博多ラーメン ほんじん
さて、ブログカードにＱＲコードつけたので成り行きで携帯サイトっぽいページを作ってみた。
あかねさんのセクシーショットと最近食べたうまい物の壁紙画像がダウンロードできます。
うちのau携帯の画面サイズ480x800だとIMGタグで表示できなくて、こちらのEZget PHPを使わせていただいた。
→のＱＲコードはこちらのサイトで作成。背景色の指定ができて良い。
ぽちっとな
愛用のスピーカー ＢＯＳＥ ＭＭ－１
Bose®:（販売終了商品） MM-1
http://www.bose.co.jp/products/discontinued/mm1/
夜とか音量上げれない状況でもわりとクリアな良い音で鳴ってくれるんです。
ちょっと汚れてるでしょ.
たぶん１０年くらい使ってるんです。拭けよ。と。
おいこら拭くより新しいの買えよ。と。
新しいの出てるんです。知ってるんです。
え～、でもぉ～。MediaMateIIとか廉価版だから音がＭＭ－１ほどじゃないってゆ～し～。
Ｍ３は音良いってゆ～けど、入力１系統だし～、色シルバーしかないし～、たかいし～、出たばっかだし～。
で、しばらく忘れていたわけですが・・。
物欲再燃！
製品概要｜Micro Music Monitor (M3)
http://www.bose-export.com/products/multimedia/m3/index.html
ブラックが出てたのね。
発売からしばらく経った今、いろんな人のレビューを見てみたら非常に好評みたいで、正直欲しくなった。
ＭＭ－１ユーザが音がイイって言ってるってことは自分と似た耳の人の感想なわけで、小一時間考えた末ぽちりました。
最近のコメント
Hiromi at 08.24
Hiromi at 08.24
sippofactory at 08.21
Hiromi at 08.20
sippofactory at 08.05
Hiromi at 08.05
sippofactory at 08.04
Hiromi at 08.04
sippofactory at 08.01