DENAの南場氏が

モバゲー創業者と言われているが・・・


DENAといえばモバゲーですね。世間はそう思います。

ですが南場氏はビッタズーを世に送りたしたかったことは判る人にはわかると思いますね。


なので、南場氏は複雑な思いだったのかなと・・・


実は来年くらいに交代を考えていたというのは予想出来たことと思う。


残念ですね。

google カレンダーの予定作成で自然文字認識が治った

やっと・・・やっと治った。 先ほどまでダメだった自然文字認識が今出来るようになりました。 この機能はほんとうにないと不便。 当然の機能が無くなるとこんなにストレスがたまると改めて感じました。 システムに携わる人は改めてユーザーの気持ちになろう

普段の生活に感謝

刻々と伝えられる震災の状況 役に立つことは続けてやっていこうと思う。いやしなければいけない。 海に近い人々は津波山と海の中間であれば洪水と土砂災害山であれば土砂災害、雪崩、地滑り 地震はどこも同じ 全く災害が起こらないなんてことはないのだと今回、改めて痛感した。 忘れてはならないのだと。それが一番の備えであること

被災者の皆様方、諦めないで下さい

日本中及び、世界中の方々からものすごい勢いで支援の輪が広がっています。

今は中々実感が無いと思いますが、過去の災害よりもはるかに大きな支援の輪が広がっています。



自分も微力ながら支援します。あせらず自分のペースで生き抜いて下さい。

海外の人々は日本の被災者の方々の真摯な姿に驚きと敬意を表しています。とても誇りに思います。自分がその場にいてそのような行動をとれるか自信がありません。胸がつまる思いです。

本当に本当に諦めないで下さい。決して皆様のことを見放しているわけではありません。

JANコード算出 VBA

普段はほとんど使用しないけれども、使う場面が来たらやたら重宝するとおもいます。
セル埋め込みでも出来ますがコードの方がセル内容がシンプルになります。


Public Function JANCD(argCode As Variant) As Variant
Dim strCode As String
Dim intDigit As Integer
Dim intPos As Integer
Dim intCD As IntegerIf IsNull(argCode) Then Exit Function
If Not IsNumeric(argCode) Then Exit FunctionSelect Case Len(argCode)
Case 7, 8
strCode = Left(argCode, 7)
For intPos = 1 To 7 Step 2
intDigit = intDigit + CInt(Mid(strCode, intPos, 1))
Next
intDigit = intDigit * 3
For intPos = 2 To 6 Step 2
intDigit = intDigit + CInt(Mid(strCode, intPos, 1))
Next
Case 12, 13
strCode = Left(argCode, 12)
For intPos = 2 To 12 Step 2
intDigit = intDigit + CInt(Mid(strCode, intPos, 1))
Next
intDigit = intDigit * 3
For intPos = 1 To 11 Step 2
intDigit = intDigit + CInt(Mid(strCode, intPos, 1))
NextCase Else
Exit Function
End SelectintCD = intDigit Mod 10
If intCD <> 0 Then
intCD = 10 - intCD
End IfJANCD = strCode & Format(intCD)
End Function


標準モジュールで使用

太陽光発電導入で気付いたこと

太陽光発電の導入に対して自分の家にはどのくらいの太陽光パネルが乗るのだろうと考えることになるが実際に乗せてみるとこんなことが分かった。

屋根の形状が陸屋根であれば
１８畳の部屋に約3Ｋｗｈの太陽光パネルがのる。

現段階では冬（1１月～１月）の１日の発電量が10Ｋｗｈの発電
気をつけてほしいのは売電ではなく発電です。
これから夏にかけてもっと発電すると思いますが

切妻の屋根（三角屋根）であればそれ以上は乗ると思います。
それで設置金額として陸屋根では約200～220万くらい

切妻屋根であれば２００万を切らなければコスト高と考えてもいいと思う。

尚、設置金額を回収したいのであれば4Ｋｗ以上を出来るだけ安く済ませることが条件になるだろう。

雪の降らない場所では望みが高いと思います。
雪に関しては屋根から設置高さがあると積雪にもある程度耐えられます。

それと向きは南にちゃんと向いてないとやはりきついです。向いてない方向では日がさしていても2～3時間は発電量がものすごく低いです。
我が家では南西向きなので朝の発電は９時を過ぎないと発電効果が出ません。（冬の場合です）

無線ＬＡＮの速さってどのくらい？

ここ最近無線ＬＡＮのことを調べていて、一番重要な速さの検証を忘れていたことに気がついた。


我が家のＰＣはかなり古くてLAN速度は100MbpsのCPUはIntel Celeron　2.4Ghz約2003年ころのﾓﾃﾞﾙである。

そして約600Ｍｂのファイルの転送時間を比較してみた。
無線ＬＡＮの速度は表示上（リンクスピード）の値を記入しています。その表示そのままであれば有線ＬＡＮより早いはずである。
無線ＬＡＮはIEEE802.11nの予定。環境は無線ＬＡＮルーターのすぐ側で行った。

テスト1
・ＰＣ1(150Mbps)---無線ＬＡＮ---ルーター---無線ＬＡＮ---ＰＣ2(300Mbps)
結果　約５分

テスト2
・ＰＣ1（150Ｍｂｐｓ）--無線ＬＡＮ---ルーター---有線ＬＡＮ--ＰＣ2
結果　約３分半

テスト3
・ＰＣ1---有線ＬＡＮ---ルーター---有線ＬＡＮ---ＰＣ2
結果　約１分半

やはりとは思ったが、有線ＬＡＮにすればするほどファイル転送が早くなったのである。
単純計算だと30Mbpsくらいということになる。

ＵＳＢも疑ってみたがUSB1.0だと最大12Mbpsなのでそれはクリアしてそうだ。（ＵＳＢ2.0は最大480Mbps）

だとすると見掛け上にまどわされてはいけない。実際にファイル転送をしてみて判断したほうがよさそうだ。

ＰＣのスペックに左右されるのかもしれないがもう少し調査する必要がありそうだ。