福岡タワーに登ってきた > Z_ ̄∂
どーもボキです。

12/23のB’zライブのついでに福岡タワーに登ってきた。
こだまのバリ特チケットにタワーの入場券が付いていたんだよね。ラーメンも選べたが、ドームに近かったのでタワー入場券にした。

う〜ん。もういいかな。

少なくともこの季節のこの時間帯には行かなくて良いわ。
空も海も濁っていて全く綺麗ではない。

開演間際ということもあり、写真も撮りなおす間も無く退散
タワーまでの移動にバスを使ったのが失敗だったね。
a0021757_18440355.jpg

a0021757_18440591.jpg

a0021757_18440679.jpg

a0021757_18440943.jpg


[PR]
# by yozda | 2017-12-24 18:38 | カメラ | Trackback | Comments(0)
LEGOでLOGOを作る > Z_ ̄∂
どーもボキです。

ブログのロゴを作ったよ。LEGOでね。
正確には、ダイソーのプチブロックで、だが。

立体化も考えたが、うまくできなかった。
黒ブロックも足りなかったので平面で我慢。
a0021757_13010860.jpg


[PR]
# by yozda | 2017-12-10 12:59 | 物・モノ・もの | Trackback | Comments(0)
ドットマリオ用のハテナブロックを作る > Z_ ̄∂
どーもボキです。

ハテナブロックを作った。

マリオが叩くと‥‥。
a0021757_21315319.jpg

あれっ?蓋が開いたぞっ!?
中には何が!?
a0021757_21322791.jpg

リアルコインが入ってた。
ちなみに50円玉。
a0021757_21332684.jpg
写真を良くみないとわからないと思うが、
内側から見てもハテナ記号が読める向きに仕上げている。


ちなみにこのハテナブロック、正方形に見えるが、
ブロック相当数は、横:9×縦:11、と縦のほうが2ブロック分長い。

ダイソーのプチブロックは横長のブロックになっている。

最小限のブロック数でバランスの良いハテナ記号を、
と考えたらたまたま正方形っぽく仕上がった。

[PR]
# by yozda | 2017-12-05 21:28 | 物・モノ・もの | Trackback | Comments(0)
テスト > Z_ ̄∂
a0021757_23455054.gif
アプリが画像切り替えをサポートした。
どうやらGIFアニメにするみたいだ。

エキサイトブログは、一枚あたりのサイズは500kBが上限のはずだが、
この画像は1.5MBある。

ブログ側の仕様がかわったんかな?

[PR]
# by yozda | 2017-11-30 23:44 | 物・モノ・もの | Trackback | Comments(1)
ドットマリオ用の台座をブロック風に仕上げる > Z_ ̄∂
どーもボキです。

ブロックを作った。
ファミコンでは16ドットで描かれているが、10ドットに省略しての製作。
どの面からも見られる仕様に仕上げた。なかなか良い出来。
a0021757_12395719.jpg


[PR]
# by yozda | 2017-11-26 12:37 | 物・モノ・もの | Trackback | Comments(0)
セリアのマイクロブロック > Z_ ̄∂
どーもボキです。

a0021757_21035696.jpg
セリア(オサレな100均)にもマイクロブロックってのがあった。

ドットマリオやドットリンクに必須の肌色がないし、
ブロック数が少ない割に特殊パーツも採用されているし、買うのは見送り。

プチブロックに比べると若干小さく、互換性はないみたい。
互換性があるなら緑ブロックが魅力的だったんだけどね。

[PR]
# by yozda | 2017-11-25 21:03 | 物・モノ・もの | Trackback | Comments(0)
[VBScript] フォルダ内のCSVファイルをひとつのExcelファイルにまとめる > Z_ ̄∂
どーもボキです。

フォルダ内にあるCSVファイルをひとつのExcelファイルにまとめるスクリプト。
CSVファイルごとにシートを分けるようにしている。

エキサイトブログには.openが記述できなかったので全角で記述した。
全角のOPENを半角へ変えること。

使い方は簡単、CSVファイルを保存したフォルダをVBSファイルにドロップするだけ。
フォルダ名.xlsx(拡張しは、実行PCのExcelバージョンによる)が作成される。

なお、CSVファイル名をそのままシート名にするため、
CSVファイル名が半角 31 文字 or 全角は 15 文字を超えていた場合、エラーとなる。
Set objWS = CreateObject("WScript.Shell")
Set objFS = CreateObject("Scripting.FileSystemObject")

' 引数なし
If WScript.Arguments.Count = 0 Then WScript.Quit

SetScriptHost("CScript") ' ドロップだとWScriptとなるためCScriptで再起動

For i = 0 To WScript.Arguments.Count -1: Do
s = WScript.Arguments.Item(i)

If objFS.FolderExists(s) Then
ProcFolder(s)
End If
Loop Until 1: Next

r = CreateObject("WScript.Shell").PopUp("処理が終了しました。",3,cTitle,64)
'================================================================================'
Function ProcFolder(DPath)
Dim i,r,s,b_init,objFolder,objExcel,xlBook,xlSheet

dprintf(DPath)
Set objExcel = CreateObject("Excel.Application")
objExcel.Application.DisplayAlerts = False ' 警告OFF
'objExcel.Application.Visible = True ' Excel非表示
objExcel.Workbooks.Add ' ブックの新規作成

' フォルダ内のファイル分ループ
b_init = True
Set objFolder = objFS.GetFolder(DPath)
For Each File In objFolder.Files: Do
If InStr(LCase(File.Path), LCase(".csv")) = 0 Then Exit Do ' .csv以外は処理しない

dprintf(vbTab & File.Name)
Set xlBook = objExcel.Workbooks.Open(File.Path) ' ファイルを開く
Set xlSheet = xlBook.Worksheets(1) ' シートを格納

s = objFS.GetFileName(File.Path) ' ファイル名
xlSheet.Name = Left(s, InStrRev(s,".")-1) ' ファイルタイトルをシート名
r = xlSheet.Move(,objExcel.Workbooks(1).Sheets( objExcel.Workbooks(1).Sheets.Count )) ' 最後に追加

If b_init Then
' 新規作成で生成されるSheet1~3を削除(Excelバージョンによる)
While objExcel.Workbooks(1).Sheets.Count > 1
objExcel.WorkBooks(1).Sheets(1).Delete
WEnd
b_init = False
End If

'objExcel.Workbooks(1).WorkSheets(1).Select ' 先頭シートを最前面へ
Loop Until 1: Next

' 解析結果を保存
objExcel.Workbooks(1).SaveAs(objFolder.Path)
objExcel.Quit

Set objExcel = Nothing ' オブジェクト開放 ※これをしないとExcelプロセスが残る
End Function
' -------------------------------------------------------------------------------
' デバッグ ※ここだけ抜粋してもOK
Dim objDbg
' クラス
Class TDebug
Dim FCScript
' 初期化処理
Private Sub Class_Initialize()
FCScript = InStr(LCase(WSCript.FullName), "cscript") > 0
End Sub

' 終了処理
Private Sub Class_Terminate()
If Not FCScript Then Exit Sub

WScript.StdOut.WriteLine WScript.ScriptFullName & " [END]"
WScript.StdIn.ReadLine
End Sub

' デバッグメッセージ処理
Public Sub dprintf(v)
Dim i,s,ityp
If Not FCScript Then Exit Sub

s = v
ityp = VarType(v)
If ityp = vbBoolean Then
s = CStr(v)
ElseIf VarType(v) >= vbArray Then
s = ""
For i = 0 to UBound(v)
s = s & "dprintf(" &i& ")=" & v(i) & vbCRLF
Next
End If
WScript.Echo s
End Sub
End Class
' 関数
Sub dprintf(v)
If VarType(objDbg) = vbEmpty Then Set objDbg = New TDebug
objDbg.dprintf(v)
End Sub
' -------------------------------------------------------------------------------
' 実行ホストを切り替える
Sub SetScriptHost(HostName)
If InStr(LCase(WSCript.FullName), LCase(HostName)) <> 0 Then Exit Sub

s = HostName & " """ & WScript.ScriptFullName & """"
If WScript.Arguments.Count > 0 Then
For i = 0 To WScript.Arguments.Count -1
s = s &" """ & WScript.Arguments.Item(i) & """"
Next
End If
CreateObject("WScript.Shell").Run s
WScript.Quit
End Sub

[PR]
# by yozda | 2017-11-23 14:23 | プログラミング | Trackback | Comments(0)
七瀬川渓流釣り場 > Z_ ̄∂
どーもボキです。

会社のイベントで七瀬川渓流釣り場に行ってきた。

週末からの冷え込みでかなり寒かったが、
一緒にきた娘も喜んだし、バーベキューは美味いし最高だった。
ここの釣り堀は、手ぶらで釣りが楽しめるだけでなく、
手ぶらで来てもバーベキューができるのでオススメ(要前日予約)

当初は10月に予定されてたイベントだったんだが、
雨で延期となりこの土曜の開催となったのね。

幹事の皆さん、お疲れ様。

a0021757_22345948.jpg

a0021757_22350202.jpg

a0021757_22350541.jpg

a0021757_22350795.jpg

a0021757_22350900.jpg


[PR]
# by yozda | 2017-11-19 22:23 | 暮らし | Trackback | Comments(0)
amiiboのドットマリオをダイソーのプチブロックで作る 【再】その2 > Z_ ̄∂
どーもボキです。

友達のお子さん用に作った。
a0021757_15350975.jpg
こんなのを作って遊んでいるらしい。
気に入ってくれると良いけど。
a0021757_22082152.jpeg

[PR]
# by yozda | 2017-11-19 15:51 | 物・モノ・もの | Trackback | Comments(2)
JR西条駅前「あおぞう」ラーメン > Z_ ̄∂
どーもボキです。

仕事で東広島市西条町に行くことがあったので、
西条駅前にある「あおぞう」で汁なし坦々麺を食べてきた。

山椒のピリ辛が効いた本格的な仕上がり。
辛くて後半はつらかったが。
a0021757_08294985.jpg

この店の名物は、煮干し出汁の効いたあおぞうラーメン。
以前食べた時はお腹の調子が悪く、ゆっくり味わう余裕がなかった。体調の良い時にまた行ってみよう。
a0021757_08295231.jpg


[PR]
# by yozda | 2017-11-17 08:28 | 暮らし | Trackback | Comments(0)