ダイソーのダストテープでクリアケースをデコる > Z_ ̄∂
どーもボキです。

ダイソーて買ったダストテープでカードケースをデコ。
もともとは透明なカードいれ。

ポイントカードを入れているんだが、これならケースごと店に持って入っても中身が透けず恥ずかしくない。
a0021757_15572779.jpg


[PR]
# by yozda | 2018-06-24 15:53 | 暮らし | Trackback | Comments(2)
[英語学習] TOEICようやく600点超えた。 > Z_ ̄∂
どーもボキです。

先日の社内実施のTOEICで、605点取れた。
ようやく600点超えた。本当は600点台後半を狙っていたのだが、まだまだのようだ。
a0021757_06585186.jpeg

L:370点
R:235点

Part1は、1問目からつまづき
Part2は、聞き取れない問題がたくさんあった。
Part3-4は、そこそこできた。Lスコアが伸びたので、正解が多かったのだろう。

Part5-6は、いつもどおり。
Part7は、これまでの中で一番といたつもり。だがRスコアが伸びでないので、できてないのだろう。


うちで幹部社員になるには、TOEICで600点以上取る必要がある。
今回のTOEICでその関門は越えた。まぁそもそもの仕事ができないと意味ないが。

今回のTOEICまでの勉強には、入社時に3万円も出して一回も使わなかった教材も使ってみた。
古い教材だからか、洗練されていないと感じる箇所も多々あったが、ようやく役立ったわ。

しばらくは、ちょこちょこ勉強を続けるよ。
a0021757_13102908.jpg

NHKテキストの英語力測定テストを試してみた
[PR]
# by yozda | 2018-06-23 10:13 | 暮らし | Trackback | Comments(0)
[撮影] 三日月と金星 > Z_ ̄∂
どーもボキです。

三日月と金星のコラボ。
もっとパリッと撮るにはどうしたら良いのだろう?
a0021757_21255754.jpg


[PR]
# by yozda | 2018-06-16 21:25 | カメラ | Trackback | Comments(0)
男の料理教室 > Z_ ̄∂
どーもボキです。

近くの公民館で男の料理教室に通い始めた。
1回/月の計6回。

先日の第一回目は前菜。
簡単でうまかった。

ピンクペッパー(ゆで卵にのっている赤い玉)は風味が良いね。
a0021757_11405333.jpg

a0021757_11405413.jpg

a0021757_11405533.jpg
a0021757_11451643.jpg


[PR]
# by yozda | 2018-06-16 11:39 | 暮らし | Trackback | Comments(0)
amiiboのドットマリオを購入した > Z_ ̄∂
どーもボキです。

amiiboのドットマリオ モダンカラー版が中古で安かったので買ってみた。
プチブロックに見慣れているから、縦長に伸びた印象。

a0021757_13010322.jpg


[PR]
# by yozda | 2018-05-27 12:59 | 物・モノ・もの | Trackback | Comments(0)
B’z 30th Year Exhibition “SCENES” 1988-2018 > Z_ ̄∂
どーもボキです。

前期(1988-2002) / 2018年4月1日(日)〜 5月6日(日)を見てきた。

シアターは見れず。イベント開催早々に予約ページ上に
「シアター鑑賞券は、前期分、後期分共に全て完売しました。当日券の扱いもございません」との掲示。

当日券の値段設定があるにもかかわらず「当日券の扱いもございません」となったことが理解できない。
楽しみにしていた分、この点は残念だった。
a0021757_08343436.jpg
会場前にて

a0021757_08350499.jpg
長蛇の列の先頭にあたる場所にて

退場時に通るのでそのときに撮影すると良い。
ちなみに、入場チケットはこの先で回収されるため、撮影したいならココで。

a0021757_08351694.jpg
待ち行列の雰囲気

10時~12時枠でチケットを確保していたのだが、この列。
入場まで40分も待った。当然、会場内は撮影禁止。
a0021757_08352530.jpg
グッズ売り場でのオークション販売?となっていたギターとハーブ。
ここは撮影OK。パンフだけ購入した。

オーディオガイダンスは初めて聴くエピソードもありオススメ。

パンフにはTAKの譜面は未掲載となっているものの、稲葉氏の病んだイラストは掲載されてる。
それが手元で見れるだけでも買いですよ。


[PR]
# by yozda | 2018-05-09 08:32 | カメラ | Trackback | Comments(0)
[撮影] 東京駅周辺 > Z_ ̄∂
どーもボキです。

東京駅近くを観光して来た。
a0021757_08205086.jpg

a0021757_08205344.jpg
丸ビル
a0021757_08205555.jpg

a0021757_08205776.jpg
旧丸ビルを支えていたらしい松柱
a0021757_08211071.jpg
a0021757_08223199.jpg

a0021757_08230764.jpg

a0021757_08240325.jpg

a0021757_08245849.jpg

a0021757_08255724.jpg
a0021757_08265417.jpg

a0021757_08270169.jpg

a0021757_08270940.jpg

a0021757_08271443.jpg

a0021757_08271956.jpg
a0021757_08283568.jpg

a0021757_08284776.jpg

a0021757_08285354.jpg

a0021757_08285812.jpg

a0021757_08290629.jpg


[PR]
# by yozda | 2018-05-09 08:19 | カメラ | Trackback | Comments(0)
[撮影] 大木切ります > Z_ ̄∂
どーもボキです。

よく見かける看板、本当に大木を切るみたい。
a0021757_19484108.jpg

a0021757_19484994.jpg

a0021757_19485642.jpg

a0021757_19491256.jpg

a0021757_19492213.jpg
a0021757_19494783.jpg
a0021757_19501549.jpg


[PR]
# by yozda | 2018-05-04 19:47 | カメラ | Trackback | Comments(3)
ダイソーのアイロンビーズでドットマリオを作成する > Z_ ̄∂
どーもボキです。

ダイソーでカラフルなアイロンビーズを見つけ、これだ!と思って作ったもの。

立体に作ったらどうだろう?などと構想を膨らませていたが、
そもそもなかなかくっつかず苦労した。立体に仕上げるなんてもってのほか。

マリオも裏面(本当は表にしたかった面)のみをアイロン掛けしておしまい。

どうやらダイソーのアイロンビーズは高さがバラバラになっているので、
アイロンがけが難しいみたいだ。
a0021757_09503192.jpg


[PR]
# by yozda | 2018-04-15 09:50 | 物・モノ・もの | Trackback | Comments(0)
[VBScript] ワイルドカードを指定したファイル名サーチ > Z_ ̄∂
どーもボキです。

ニュースで英会話のバックアップでは、記事ごとに再生ボタンの表示高さ(Y座標)が異なり、
クリック位置の記録&調整に苦労した。

mp3を上書き更新とすることで、サイズ≠0で録音の成功を判断させた。

このときファイル名が「yymmdd_記事タイトル」となるため「記事タイトル」を固定できない。

FileExistsや、GetFileは、ファイル名をそのものを指定しければならず、記事タイトルを把握しないかぎり利用できない。

そのため、ワイルドカードを指定できるCopyFileやMoveFileを応用したファイル名取得関数「SearchFile」を作成した。
重複しない名前のフォルダへMoveし、そのMove先のファイル名を取得するようにしている。なお、戻り値は最後に見つかったファイル名としている。

' 指定したファイル名が存在するか調べる(ワイルドカードOK)
' 戻り値:見つかったファイル名
Function SearchFile(DirectoryPath, FileName)
Dim objFS,f,r,dpth

r = ""
Set objFS = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
dpth = DirectoryPath & Year(Now) & Month(Now) & Day(Now) & Hour(Now) & Minute(Now) & Second(Now)
objFS.CreateFolder(dpth) ' 重複しないフォルダを作成
objFS.MoveFile DirectoryPath & FileName, dpth &"\"
For Each f In objFS.GetFolder(dpth).Files
r = f.Name
Next
objFS.MoveFile dpth &"
\"& FileName, DirectoryPath
objFS.DeleteFolder dpth
On Error GoTo 0

SearchFile = r
End Function

[PR]
# by yozda | 2018-04-15 09:30 | プログラミング | Trackback | Comments(0)