前回「ポーカーの役」などという記事を載せたが、なんとなくエクセルでライフゲームできるかな？と思い、ちょっとプログラミングしてみた。30分ほどで書いたので結構間違っているかも(^^)

だいぶ昔(おそらく20年以上前)に知ったアルゴリズムだが、ポーカーの役のうちペアもの(ワンペア、ツーペア、スリーカード、フルハウス、フォーカード)を判定するというもの。元はBASICでプログラミングされたものだったが、これを見たときは目からうろこだった。単純な2重ループで一致してるものをカウントしているだけなのに、ペアものだけとはいえいろんな組合せの役が判定できるとは･･･、おまけにあらかじめソートなどはする必要がないし、と当時は思ったものである。今でもちょっと面白いな、と思っている。

以前仕事で、エクセルVBAで機器と通信したが、そのときのプログラミングコードのサンプルを･･･。(実際のコードは載せられないのでちょっと変更したものを･･･)
このサンプルは単純にCOM4(モデムのCOMポート)に"ATI11"を送信して、応答を受信する単純なもの。ボーレートの設定などは省略(デフォルトのまま使用)してる手抜きバージョン(^^)

管理しているサイトでは最初無料レンタルのカウンタを使用していたのだが、それが携帯に対応していない(画像がGIF扱いだったのだがvodafoneで表示できなかった)ことから自分でプログラミングしたことがある。今はもうそのサイトでは使っていないのだけど、ちょっと載せておこう。

さっき「PHPでメール受信」って記事を載せたがそこからいろいろ抽出するスクリプトもついでに載せておこう。

メールのヘッダと本文を分けるスクリプト
function mail_split_mime($data)
{
$part = split("\r\n\r\n", $data, 2);
$part[1] = ereg_replace("\r\n[\t ]+", " ", $part[1]);
return $part;
}
function mail_getheader($msg)
{
list($head, $body) = mail_split_mime($msg);
return $head;
}
function mail_getbody($msg)
{
list($head, $body) = mail_split_mime($msg);
return $body;
}

管理しているサイトで、携帯からの写真の投稿や空メールを受信しての登録などで、PHPでメールを受信する必要があったので、そのスクリプトを書いたことがあった。最初はよくわからなかったのでネットをあちこち探しながら調べながらプログラミングしたのだが、備忘録として載せておくことにする。

エクセルVBAでいろいろと作っていると、EXCELのタイトルバーに色々表示したくなる。
と、いうことで、ちょっとプログラミングしてみる

私は仕事でエクセルを使いVBAマクロをよくプログラミングするが、一定時間ごとに処理したいときなどがよくある。
処理した後でApplication.OnTimeを使えば可能であるのだが、その度に一瞬砂時計になったり、ファイルを閉じてもまた起動したり、と、あまり私は好きではない。
ところが、この前Win32のSetTimer関数を利用してマクロの関数を呼び出すことができることを知り、試しにプログラミングしてみた。

エクセルVBAからDLLを呼び出すときに文字列を戻り値としたい場合、通常は、

(VBA側)
Declare Function foo Lib "foo.dll" _
(ByVal str as String) as Long


Function FooStr() as String
a$ = String(512, vbNullChar)
ret = foo(a$)
FooStr = Replace(a$, vbNullChar, "")
End Function


Sub Test()
dat$ = FooStr()
End Sub

(DLL側)

int WINAPI foo(char *str)
{
strcpy(str, "FOO")
}

等とプログラミングしていたが、いちいちFunction(この場合FooStr)を作らなければいけないのが面倒くさい。できれば、


Declare Function foo Lib "foo.dll" () as String


Sub Test()
dat$ = foo()
End Sub

と、プログラミングしてすっきりさせたい。でも、ネットで探してみても(ま、探し方が悪いのかもしれないが)、上記のようにするプログラミングが見当たらなかった。しょうがないので自分で調べる(と、いうか試す)。で、できたのが下のコード。でも、先に言っとくけど、これ試行錯誤の結果できたプログラミングコードなので保証全くなし。

私が管理しているホームページの掲示板(自作)に携帯絵文字を対応させたときにプログラミングした関数。
動作は文字列を渡して、その中に他社携帯の絵文字があれば画像を参照するHTMLに変換した文字列を返す、という関数である。
参照先の画像として指定しているico.phpは、コードを渡して該当する画像を返すPHPスクリプト。この部分は適当に置き換えてプログラミングしてもらえばよろしいかと。

私は、ホームページを1つ(PC用/携帯用)、ブログを3つ。管理をしている知り合いのホームページが1つ。その管理人日記と称すブログを1つ。それぞれ運営している。が、また一つ増えてしまった(^^;
先日自分の借りているサーバーにWordPressをインストールしてみた。実験的に立ち上げたブログだが、上記のように既にたくさん運営しており、ネタがない。どうせならアフィリエイト(Google Adsense)貼りたいから続くものがいいと思っていたところ、思いついた。
私はSEをしているので、仕事でいろんな言語のコードを書くし、上記のように管理しているホームページのPHPのスクリプトなども書いている。ってことで自分の書いたコードを載せるブログでも書こうと思った。
ブログにはAdsenseを貼り付けているが、どれも日記的なブログで書く内容がバラバラなせいか広告の内容もバラバラだ。そこで、何か一つのデータに沿ったブログだとAdsenseの広告もそれに合ってくるのかな？という実験でもある。いくつか記事も書いたが、既に大体テーマに沿った広告が表示されているようだ。それはいいんだけど、また増えたブログ。どうしよ？

「成分解析」ってフリーソフトを知った。んで、早速ダウンロードして試してみる。
んで「SHOJI」と入力すると…

SHOJIの成分解析結果 :

SHOJIの44%は情報で出来ています。
SHOJIの27%は大人の都合で出来ています。
SHOJIの13%は勢いで出来ています。
SHOJIの9%は電波で出来ています。
SHOJIの4%は陰謀で出来ています。
SHOJIの2%は鍛錬で出来ています。
SHOJIの1%はビタミンで出来ています。

ウケる…。半分近くが情報かい？27%が大人の都合？何にしろ形のあるものがほとんどない(-.-;