故郷を離れて三十数年、関東で暮らす永遠の少年のどーってことない日記
xxSEARCHxx
プロフィール

ST☆FF

Author:ST☆FF
HTTといえばインテルの Hyper-Threading Technology!・・・ではなく、放課後ティータイムのことだと思います。

最近の記事
最近のコメント
最近のトラックバック
月別アーカイブ
カテゴリー
ブロとも申請フォーム
ブログ内検索
RSSフィード
リンク

最近の記事


スポンサーサイト 

--/--/-- --:--/--
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

CATEGORY:スポンサー広告 | CM(-) | TB(-) |

アバシゴーヤ 

2017/06/15 23:57/Thu
【5月28日】
小蔓の成長を促していた時期。親蔓の葉が驚異的な成長を遂げ、私の手のひらと同じ大きさになってきました。


スポンサーサイト
CATEGORY:趣味 | CM(0) | TB(0) |

逞しい無花果 

2017/05/14 11:07/Sun
年明けの2月頃に先端部を剪定したマスイドーフィンですが、幹がゼロ歳だったせいか、先端部の4~5節は脱水で枯れてしまいました。しかし、若木の剪定が怖かったので長めに残しておいた事が幸いし、根元の2~3節部分は生き残って無事に芽吹きました。更に地中からも新たな可愛い幹2本が顔を出したのですが、成長点が沢山あっても大きく育たないと思い、こちらは摘み取りました。




CATEGORY:趣味 | CM(0) | TB(0) |

今年はアバシゴーヤー 

2017/05/14 09:54/Sun
諸事情から家庭菜園は出来なくなると思っていたので昨年のゴーヤーは種を採っていなかったのですが、今年も何とか栽培出来ることになり、ホームセンターでアバシゴーヤーの苗を買ってきてGW前に植えました。

アバシゴーヤーは初めてなので少し楽しみです。



CATEGORY:趣味 | CM(0) | TB(0) |

Excel VBAで動的ジャグ配列を使う 

2017/03/18 21:09/Sat
Excel VBAで動的ジャグ配列を使う必要に迫られ、その際にテストで書いたコードをメモしときます。
古いバージョンのExcelでも問題なく動くと思います。(検証はしていません。)

' ************************************************************
' Excel2016:VBAで動的ジャグ配列を使う
' 参照設定:なし
' ************************************************************
Option Explicit

' 動的ジャグ配列を返す関数(厳密には3次元配列)
Private Function foo() As Variant

' 構造体などのユーザー定義型は扱いになにかと制限が多いので使わない
' ここでは最小単位をLong値のペアとし要素数2の配列で表現する
' 開始インデックスはWorksheetと相性が良い One Origin とする

Dim arr1() As Variant ' 1次元目の配列(戻り値)
Dim arr2() As Variant ' 2次元目
Dim arr3(1 To 2) As Long ' 3次元目(最小単位)

' ******* arr1(1) *****************************
arr3(1) = 10: arr3(2) = 11 ' 最小単位を編集
ReDim Preserve arr2(1 To 1) ' 2次元目を初期化し
arr2(1) = arr3 ' そこに格納

arr3(1) = 20: arr3(2) = 21 ' 最小単位を編集
ReDim Preserve arr2(1 To 2) ' 2次元目を拡張し
arr2(2) = arr3 ' そこに格納
' -----------
ReDim Preserve arr1(1 To 1) ' 1次元目を初期化し
arr1(1) = arr2 ' そこに格納
' -----------

' ******* arr1(2) *****************************
arr3(1) = 30: arr3(2) = 31 ' 最小単位を編集
ReDim Preserve arr2(1 To 1) ' 2次元目を初期化し
arr2(1) = arr3 ' そこに格納
' -----------
ReDim Preserve arr1(1 To 2) ' 1次元目を拡張し
arr1(2) = arr2 ' そこに格納
' -----------

' ******* arr1(3) *****************************
arr3(1) = 40: arr3(2) = 41 ' 最小単位を編集
ReDim Preserve arr2(1 To 1) ' 2次元目を初期化し
arr2(1) = arr3 ' そこに格納

arr3(1) = 50: arr3(2) = 51 ' 最小単位を編集
ReDim Preserve arr2(1 To 2) ' 2次元目を拡張し
arr2(2) = arr3 ' そこに格納

arr3(1) = 60: arr3(2) = 61 ' 最小単位を編集
ReDim Preserve arr2(1 To 3) ' 2次元目を拡張し
arr2(3) = arr3 ' そこに格納
' -----------
ReDim Preserve arr1(1 To 3) ' 1次元目を拡張し
arr1(3) = arr2 ' そこに格納
' -----------

' 戻り値
foo = arr1

End Function

Private Sub main()

' 表示用変数
Dim strMsg As String
Dim boundary As String
boundary = "------ 開始 ------"

' 作業用中間オブジェクト
Dim arrArr, arr As Variant

' 動的ジャグ配列を受け取る
arrArr = foo()

' ジャグ配列の内容を文字列に書き出す
Dim i, j As Integer
For i = 1 To UBound(arrArr, 1)
strMsg = strMsg + boundary + vbCrLf

arr = arrArr(i)
For j = 1 To UBound(arr, 1)
strMsg = strMsg + CStr(arr(j)(1)) + " - " + CStr(arr(j)(2)) + vbCrLf
Next
boundary = "------ 境界 ------"
Next
strMsg = strMsg + "------ 終了 ------"

' 結果表示
Call MsgBox(strMsg)

End Sub
' ************************************************************


実行結果です。
実行結果20170318





CATEGORY:仕事関係 | CM(0) | TB(0) |

NBR-100ABN の使用感など 

2017/02/12 00:13/Sun
ヘッドフォンを16日ばかり使用してみた上での感想です。

まず装着感ですが、お店で極めて短時間試した時の付け心地そのママです。決して軽いものではありませんが、首が疲れるという事はありませんでした。
次に音質ですが、ハッキリ言って特に感動するという事もありません。Bluetoothのオーバーヘッド型は初めてですが、寧ろ想像していた音より迫力に欠けるといった印象でした。
ですが、ノイズキャンセリングがそこそこ効くので、ボリューム低めでも十分聴けるということがだんだん判ってきました。
特に初期は低音の迫力不足が気になっていたのですが、慣れるに従って何故か低音が聴こえるようになってきました。
これが身体が順応したせいなのかそれとも所謂エイジングの効果なのかは判りません。
しかしインナーイヤータイプのように「弱い低音を拾う為に止むを得ずにボリュームを上げる」必要はなく、
小さめの音で長時間BGM的に使用しても「安っぽい音」という印象は残りません。
バッテリーの持ちは、思っていたよりはるかに良いです。一日1時間半しか使いませんが、今日までに充電したのはまだ1回だけです。

次に気に入らない部分を書きます。
まず、1点目ですが、ヘッドフォンで当然画面がない訳ですからバッテリーの残量が全く判りません。これは構造上致し方ないのでしょうがユーザーにとっては大きな問題です。
次に2点目ですが、この製品は電源ONとコネクション確立をNFCを使って簡単に行えるのが便利です。が、操作時に電源ONのアナウンス後すぐ本体を引き離さないと、
いきなりコネクション切断のアナウンスが聞こえてくる事があります。つまりせっかく確立したコネクションが瞬時に切断されるのです。
これはちょっと間抜けな挙動です。
3点目はイコライザーに関してです。Walkman NW-A36HN 側にはイコライザー機能がありますが、その効果をヘッドフォン側に反映させることはできません。
ちょっとWEBで調べただけなのですが、Walkman の上位機種はイコライザーの効果を転送出来るものがあるようです。実際に確認したわけではないのですみません。
4点目は風切り音で、これが最もがっかりしている問題点です。私のような会社員などはもちろん、一般的にも屋外で使用する機会は多いと思います。
このヘッドフォンを装着した状態で風に吹かれると、とんでもなく大きな風切り音がします。特に前方からの風には致命的レベルで弱く、音楽など聞こえなくなるほど強烈な音がします。
ちょうど風防なしのマイクロフォンで台風の実況をしているリポーターの音声のように「ボロボロボロ・・・」という轟音がヘッドフォン全体を震わせるほど聞こえてきます。
この状態になるとヘッドフォンを外して地面に投げつけたくなります。冗談ではなくワリとマジな感想です。
5点目、ポーチが付属しているので利用しているのですが、この使い勝手が最悪です。何故かというと形状がおかしいからです。
ちょうど巨大で分厚いマカロンの縁を少しだけ切り落としたような形をしており、素材の特性と相まって掴みにくいし滑りやすいのです。
その上に開閉部がファスナーなので「でかくて掴みにくいし滑りやすい」本体を片手で押さえて、マカロンの円周に沿ってファスナーを引っ張らないといけない、この動作が結構気持ち悪いというかイライラします。
手の小さな女性には酷ですよ、きっと。個人的にはダダの巾着のほうがまだ良かったと思います。

以上、簡単な感想でした。

CATEGORY:買い物 | CM(0) | TB(0) |
xx HOME xx Old Entries≫

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。