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）

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

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

無線ＬＡＮ 遅いので調べてみた

無線ＬＡＮを構築していたことは以前に述べているが、現在の状況が見えてきた。

まず無線ＬＡＮが54Mbpsという速度で理論値300Mbpsが出るよとうたっているルーターを使用しているにもかかわらずという疑問から事は起こった。

調べてみたが原因が何故だかさっぱりかわからない。


メーカーのサイトで調べてみても速度に関する情報を記載している部分もなかったのだが、メーカーサイトのＱ＆Ａの中に隠れているようにあった。


セキュリティＡＥＳの設定が必要です。


なんだそれは？？？


ルーターの仕様にもかかわると思うが自分の使用しているルーターはそうであるらしいとのこと。


セキュリティＡＥＳとは何ぞやと少し調べてみることにした。

まず
●WEP
これは初期のセキュリティらしくすぐにクラックされてしまう少し怖いしろもの。
しかし、説明書に記載されている設定方法がこれになっている。
この時点でかなりご立腹になりました・・・
まあ他もしらべよう・・・

●WPA
これはTKIPとAESに分かれるらしい。

まずTKIPはWEPと同様のプロトコル上での改良版で最近ではクラックされるらしいということが判明。
WPA1(TKIP)という表現やWPA1-SPK-(TKIP)とも表現されている。

次に（ＷＰＡの続き）AESは改良版で別プロトコルで作成されているセキュリティとのことで
現時点ではこれが安全らしいです。
Ｑ＆Ａではこのセキュリティに設定しろとのことです。

●WPA2-Mixed
文字から想像するにあたり両方をサポートしているとのこと。


今の時点ではこれを理解しておくと大体の対処が出来るようになることが分かった。


そして親機の設定
・ＷＥＰからＷＰＡ2のＡＥＳに変更
・それと帯域幅を20Mhz固定から20Mhz・40Mhzの自動設定に変更
上記２点を変更後、再起動

子機の設定（ＰＣの子機）
子機はルーター側でステルスモードにしていないので該当の接続名を選択後にセキュリティAESを確認後パスワードを入力して起動

そうすると・・・
近距離で270Mbpsと表示された。
これで謎がとけたのである。

しかし・・・我が家には他にPSP,DSiが２台Wii,テレビ（テレビは今後の課題）が無線接続が出来るのであるが、これがAES対応でなければその端末は使えないことがわかった。

その原因はルーターの機能にも影響する。
同時に複数のセキュリティ設定での通信が可能であればその問題は解決出来るが、自分のルーターは出来ないらしい・・・

これは設定する前に祈ったね・・・


そして試みてみたのだが結果は・・・







全てＬＡＮ接続が出来た！！
ＡＥＳ対応機種だったのだ。



少し古いものがあればそれはたぶんダメだっただろう・・・たまたま助かったラッキーな状態だった。
メーカーの簡単設定の説明書の内容がWEPなのがうなずける。
もし他の機器がWEPだけであれば接続が出来ないので無難な選択なのであろう。
説明書もセキュリティの”WPAをつかう場合は”としか説明していないのはなぜなのだろう・・・というか
自分で調べろということなのか？・・・

無線ＬＡＮを構築する場合の注意点がものすごくわかった。
これからの家庭内ネットワーク構築における基礎中の基礎なのだろう。

無線ＬＡＮコンバーター（イーサネットコンバーター）、ＵＳＢデバイスサーバーなどが家庭内ネットワーク構築に含まれる。
さらにはテレビやビデオもそうである。

ＤＬＮＡで再生できるというのもポイントだろう。

無線ＬＡＮ何となく使っていたが

我が家には無線ＬＡＮがあるが簡単設定でとりあえず使っていた。
一応無線でも速度は速いでっせとうたっているものではあるが、ある日本当に早いのか？という疑問が湧き起こった。

ビデオのデータをコピーしたのだがこれが全然終わらない。有線ＬＡＮではそれなりに早いので無線は遅いのか？と疑問を持った。

速度を見てみると54Ｍｂｐｓになっている。
しかしだ、ルーター（ＨＵＢとして活用）はＤｒａｆｔ　ＩＥＥＥ802.11n（ドラフトトリプルイー802.11ｴﾇ）対応なのだ。
理論値300Mbpsだが遅くとも144Mbpsの速度は出ていたのだと思ったがまったくの期待外れなのでどうしたことかと考えた。
そこでささやかれていたのがセキュリティ設定であった。
WEP,WPA,TKP,AESなど何のことだかさっぱりわからない。
そこでその情報をまとめたサイトを見つけた。

http://bogus.jp/wp/?p=419

・ＷＥＰ　昔の規格　セキュリティはすぐ破られます。
　　　　　自分のルーターもこの設定。
　じつはこの設定802.11gの接続になってしまうらしい。

・AES（Advanced Encryption Standard）
　古いTKIPに代わり、現在のところ、これが一番良いとされている暗号化方式です。 AESはWPA2/802.11iで実装されています。
　それでメーカーのサイトのＱ＆Ａでこの設定をすると11ｎ接続が出来ると書いてあった。

添付されたマニュアルに記載されていないといことはどういうことだ？

そのメーカーとは　PLANEXなのだ。

300Mbpsの速度が魅力で購入したの一番大切な部分が抜けている・・・
箱にも大きく書いているにもかかわらず。その設定をしたいのならばあらかじめ自分で調べておいて下さいって言い分なのかね・・・

これから設定の変更をこころみるがはたして・・・

ネットワークプリンタの設定

USBで接続したプリンタを共有しもう一台のPCでネットワーク越しに印刷をする。

少し前までなら、家庭用のプリンタでは当たり前だった設定なのだが今ではLAN対応が当たり前になってきている。

LANで構築が出来るなら断然そちらをお勧めする。


しかし、LANの設定自体がまるっきりという人にはUSB接続になるのかと思うが、そこに落とし穴がひそんでいた。

USBで接続してインストールされたPCのプリンタドライバなのだがこれを共有設定に変更する。


ここまでは誰でも簡単に設定できると思うが、問題はその名前である。

共有名を短い名前でというのは気をつけていたのだが、そのPCに作成されたプリンタ名も影響するとは思ってもみなかった。

共有名とは違った名前にしたのだが元々の文字数が３０文字以上のプリンタ名になっていたもを１０文字以下に変更した。

そうすると他のPCからこの共有名が参照できるようになったのである。


どこの世界でも長い名前はあまりいいものではないのか。

Sandy bridgeの次はIvy bridgeのその次はHaswell

2013年にSandy bridgeの次の世代が登場するらしい

Ivy bridge


その更に次は


Haswell

矢継ぎ早にプロセッサが出てIvy bridge からは第3世代になるのかな？
ここから大きく性能が変わるらしいので現行のSandy bridgeの中古でも狙ってみるか。

今はPen4でガマンしてるし。もうひとつはCeleron2.4Gなのでストレス感じまくり・・・そろそろ限界を感じる。

とにかくwindous7以降をサクサク動かせるものを狙いたい。