想うが儘にもの作り

2008/03/10

いきなりだけど、もう疲れた - 新入社員研修1日目

会社への到着予定時間から逆算して家を出る時間を決めたはずなのですが、実際の到着時間は集合時間ぎりぎりでした。

はい! そんな感じで新入社員研修1日目です。
やっぱつらいですね。
半年間ずっと8時起きの生活だったのに、いきなり5時半起きになるのは。
数日前から体を慣らすために早起きしてましたが、まだ慣れていません。

駅に着いてから朝ごはんを買って、電車の中で食べてました。
電車に乗っている間の記憶がところどころ飛んでいるのは、きっと寝ていたからです。
家を出てから会社に着くまで2時間半。
通勤時間としては長すぎますよ。会社の近くに引っ越すまでの辛抱ですね。

今日は会社についての説明がメイン。
会社の歴史や部門、業務内容の紹介と、あとは工場見学その1。
ずっと話を聞き続けるのはつらいですね。
疲れてくると集中力がなくなってきて、話の内容が記憶に残りにくくなってしまいます。
全部大事な話なのに。

とにかく、今日は疲れたです。

明日は工場見学その2、その3。

余裕を持って到着できるように、今日よりも早く家を出なければなりません。
さらに30分はやく起きなければ･･････
早起き続けられるかが心配です。

2008/03/06

東京行ってきた - 2日目

展示会が10時からなので間に合うようにホテルを出て、1日目に見つけたカフェで朝食。

山手線で浜松町から隣の新橋に行き、ゆりかもめに乗り換えて国際展示場前まで。
思っていたよりも早く着いてしまったので、入り口で少し待ってから入場しました。

今回は複数の展示会が同時開催されていて、どれかひとつに登録すれば全てに入場できるようになっています。
印象に残ったものをいくつか紹介します。

IC CARD WORLD 2008

ホログラムICタグ
バーコードの裏や本の背表紙の中など、見えないところにあったICタグをデザインの一部として表面に出すというアイデアが面白いです。
どこの会社だっかか、覚えてなくてごめんなさい

JAPAN SHOP 2008

スゴタペ
価格が安ければ、家に飾るように作ってみたい気がします。
株式会社トスプリント

印刷物の幅が1mを超える大きなプリンタがいっぱいありました。
私が見た中で最も大きかったのがプリント幅3,200mmのプリンタです。カタログを見ると、5,000mmのやつがあるらしい。
株式会社ルキオ

建築･建材展 2008

ウレテック
茶筒にウレテックAとウレテックBを入れて混ぜ、膨らむ力で90kgの重さを持ち上げていました。単位面積当たり26tになるそうです。
ウレテックジャパン株式会社

SECURITY SHOW 2008

LAN Sheet
2008年7月に製品として発売予定とのことです。
無線でありながらシートとPCが近くになければつながらない。無線と有線のいいとこどりみたいな印象です。
株式会社イトーキ

オートロック
電気配線などの面倒な工事なしで玄関をオートロックに。
電源が電池なので停電になっても動作し、電池の残りが少なくなるとちゃんと警告してくれるそうです。
でも、電源が電池･･････。
電池に抵抗がない人導入を考えてみるのもいいと思います。
株式会社セリュール

監視システム
監視カメラではなく、センサによる監視システム。人数のカウントなども可能。
北陽電機株式会社

本当はもっといろいろ見てきたのですが、忙しくて記事を書く時間があまりなかったことと、時間が経ってしまい記憶があいまいになってしまったので、書ききれませんでした。
興味本位でブースに突っ込んで行った学生に対しても丁寧に対応してくださった係の方、本当にどうもありがとうございました。

1時過ぎくらいになり、疲れてきたことと、電車で4時間かけて帰ることからお昼を食べて帰路に着きました。

さすがに、お互い疲れていたので会話はほとんどなし。
幸い、ほとんど座っていることが出来たのですが、ながいこと座っていておしりが痛くなりました。

ここんとこずっとペン習字に追われていたので、本当に良い気分転換になりました。
旅行にしては行き先がマニアックでしたが、楽しかった～!
誘ってくれてありがとう!

2008/03/05

2人で東京に行ってきた - 1日目

青春18切符を使って友人と2人で東京に遊びに行ってきました。

予定では、
今日の朝に出発して、昼ごろに到着、
半日遊んでカプセルホテルで1泊、
明日は朝からビッグサイトの展示会を見て、
昼過ぎに向こうを出発、晩には帰宅
てな感じになっています。

友人と駅で待ち合わせ。
東海道線に乗って約4時間、品川に到着しました。
以前、在来線に1人で乗って東京まで行ったときはとっても長く感じた乗車時間も、2人で話しているといつの間にか到着したと感じるほどに短かったです。

そこでお昼を済ませてから山手線に乗り換え、目黒まで。
始めの目的地｢国立科学博物館付属自然教育園｣を散策。
ここに行こうと言ったのは友人ですが、何でここを選んだのか、理由はわかりません。
2人とも自然豊かな環境で育ってきたためか、野山を歩いた話なんかで盛り上がりました。

始め、ここら辺で半日過ごすつもりだったのですがいきなり予定変更して上野にある｢国立科学博物館｣に行くことになりました。
品川から目黒に来た勢いでそのまま外回りに乗車。目黒から上野に行くなら内回りで品川･新橋方面を通って行ったほうが早いことに乗ってから気付きました。

博物館に着き、なぜかいきなりお土産コーナーに直行。
何でいきなり直行したのか、理由はよくわかりません。
とくにこれが見たい、てなものもなかったのでとりあえず地球館を適当に見て回ることにしました。
まず1階の多様な生物コーナーへ。模型なのか剥製なのかわからなかったですが、展示の仕方も含めてがんばりすぎだと思います。ここだけで思いのほか時間をとられました。
閉館時間が迫っていることに気付き、あとは2階の科学技術コーナーだけ見ていくことに。縦型の平削り盤の前ではしゃいでいたのが玖白さんです。
で、再びお土産コーナーへ。
もっと時間をかけて見たかったけれど、博物館に来たのは思いつきだったので仕方ありません。
もし、今度来ることがあれば1日くらいかけてゆっくり見て回りたいです。

ホテルの予約時間まで余裕があったので、買いたいものがあると言って秋葉原へ。
友人はあんまり興味なさそうにしてました。ごめんよ。
ここでVoltage of Imaginationの新作を購入。｢映画のように音楽を作る｣という製作スタンスのコンセプトアルバムです。
ちょむ工房のCDを見かけてつい衝動買い。

で、ホテルのある浜松町に移動。
ビッグサイトに行くから新橋周辺、安く済ませたいからカプセルホテル、ということで探して、選んだのが浜松町のカプセルホテルでした。
外出OKだったので、チェックインして荷物を置いてからラーメン屋に入店。
その後、周辺をぶらぶらしていたら偶然ポケモンセンターを見つけたのでとりあえず入ってみましたが、何も買わずに退出。
そりゃあ、さすがに、もう、ね。

ホテルに戻ってお風呂に入り、それぞれのスペースで自由時間。
電車の中で読むつもりだった読書感想文の課題図書を読み進めました。
提出期限はペン習字よりも早いので、そろそろ厳しい。
ある程度読んで、寝ようとしたのですが、最近寝つきが悪くて4時くらいまでは眠れずにいました。

そんな感じで、1日目が終了。

2008/02/29

VBA-5 関数を使う

戻り値のある関数

1.
2.
3.
4.

Function Test() As Integer
    'なんかの処理
    Test = 値
End Function

自分の名前(関数名)に代入するのって、慣れていないせいか、なんだか違和感が。

VBてアドレス渡しがデフォルトなんですね。
知らなかった。
ソースを見直してみると危険なコード書いてました。
関数の中で値を書き換えていなかったので何も起こらなくてすんだことは良かったのですが、逆にそのためにアドレス渡しだということに気付かなかったんですね。

あと、変数を宣言しなくても使えるんですよね。
Cに慣れてしまっているせいか、はっきり言って、宣言しないで変数使うのは怖いです。
変数の綴り間違えても気付かない。
変数の有効な範囲もわからない

宣言しないで変数を使った場合、型はどうなるんですかね?

2008/02/26

にこ動日刊VOCALOIDランキング

日刊VOCALOIDランキング
プログラムで動画を自動生成、自動アップロードしている日刊ランキングです。
ランキングとして、よりも新着紹介として見ています。
時間が約3分と手ごろなのもいいです。

新作チェックしていて｢日刊から｣というコメントで知りました。
そのコメントを初めて見たときは、
え、日刊? 気は確かか?
と思いましたよ。

2008/02/23

VBA-4 配列の初期化

これまでずっとC言語でプログラミングしてきたので、
文字列 = char型の配列
という認識だったのですが、VBには文字列を扱うString型があります。
つまり、文字列の扱いが違うわけです。

セルから取得した文字列に含まれている、ある文字を別の文字に置換する必要がありました。
置換そのものはReplace関数を使えばいいです。

配列の値の置換

1.
2.
3.
4.
5.
6.
7.

' nは置換対象の文字の数
' chは置換対象の文字の配列
' swは置換する文字の配列
For i = 0 To n
    rename = Replace(name, ch(i), sw(i))
    name = rename
Next l

が、問題は置換する対象の文字が多いこと。
VBAでは配列の初期化に
Dim ar As String = {"a", "b", "c"}
みたいな書き方ができないのです。

でも、Variant型とArray関数を使えば次のように配列の初期化ができます。
正確には、配列を値として持つVariant型の変数、らしいです。
Variant型というのは簡単に言うと、何でも入る変数。

配列の初期化

1.
2.
3.
4.
5.

Sub tes()
    Dim ar As Variant
    ar = Array("a", "b", "c", "d", "e", "f", "g")
    MsgBox UBound(ar)
End Sub

でも、文字列はStringに入れたいです。整数ならIntegerに入れたいです。
始から入れるデータの型はわかっているんだから、その型で宣言したいです。

ちなみに、この方法で初期化した場合、配列の要素の数を表すLengthプロパティは使えないみたいです。
要素数が知りたいときは、添え字の上限を返すUBound関数で取得できます。

そういやあ、宣言のときに指定した数字は要素の添え字の最大値なんですね。
C言語みたいに要素数となるわけじゃあないみたいです。

C

int a(3);

// a(0)～a(2)の3つ

Dim a(3) As Integer

' a(0)～a(3)の4つ

2008/02/16

にこちゅうに認定されました

子猫は独り遥か雪に埋もれてわたしを見つめる
投稿日は12/31。全く知りませんでした。

ソニック☆サイクラー
ちゃりんこダッシュ!

眠り姫
ピアノの雰囲気が好きです。

My Brand New Love
aan aan

研究室内で、私はそういう人、となっていました。

2008/02/15

VBA-3 セルに名前を付ける

Excelの画面左上に｢A1｣とか今選択しているセルの名前が表示される窓があります。
ここをクリックして文字を入力すると、そのセルに自分で名前を付けることができます。

今度はこれを自動化します。

セルA5に「せる」と名前を付ける

1.
2.
3.
4.

'マクロの記録そのまま
Sub setName()
    ActiveWorkbook.Names.Add name:="せる", RefersToR1C1:="=sheet1!R5C1"
End Sub

変数を使って書き換え

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

Sub setName()
    Dim i, j As Integer
    Dim str As String    'ワークシートの名前
    Dim name As String   'セルにつける名前
    str = ActiveSheet.name
    i = 5
    j = 1
    name = "せる"
    ActiveWorkbook.Names.Add name:=name, _
        RefersToR1C1:="=" & str & "!R" & i & "C" & j
End Sub

文字列の扱いが力任せな気がしますが、ほかの方法を思いつかなかったんです。
でも、&で文字列がつなげるのは便利ですね。

自分で付けた名前(ここでは｢せる｣)を消す

1.
2.
3.

Sub delN()
    ActiveWorkbook.Names("せる").Delete
End Sub

全ての名前を消す

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.

Sub delN()
    Dim name As String
    Dim i As Integer
    i = 1
    For Each nm In ActiveWorkbook.Names
        name = nm.NameLocal
        ActiveWorkbook.Names(name).Delete
        i = i + 1
    Next
End Sub

ループなんかを使ってたくさんのセルを処理させるとき、
セルを選択→処理
を繰り返すため画面が下や横に高速で流れていきます。

別に、流れていく画面を見る必要がないなら、マクロ実行中画面を更新しないようにするといいです。

画面更新の一時停止

1.
2.
3.
4.
5.
6.
7.
8.
9.

Sub macro()    
    '画面を更新しない
    Application.ScreenUpdating = False

    'なんかの処理

    '画面を更新する
    Application.ScreenUpdating = True
End Sub

2008/02/14

きょうはもうつかれた～そつろんはっぴゅおかい～

卒論の発表会がありました。
で、そのとき卒論も同時に提出するので、ここ数日間は発表用の資料を作りながら卒論も書いてました。

発表の資料を作るだけでなく発表の練習もしなければならないわけで、
基本的には、発表でどのような内容で、どのような順序で説明するのかを考えながら資料を作ってゆくのですが、今回は先輩が企業への報告会用に作ったものを卒論発表用に作り直すという形だったので作ること自体は楽でした。
ただ、話す内容をほとんど考えていないので、何を言えばいいのかが全くわからない。
とりあえず、企業への報告会での先輩の発表を思い出しながらしゃべってみたのですが、難しい。

発表時間は10分くらいです。
説明すべきことが多すぎて何を、どの順番で言えばいいのかが全くわかりません。

発表を先生や先輩に聞いてもらい、意見を聞きながら修正しました。

で、本番は問題なく発表できました。

ようやく発表が終わって、楽になったーと喜びたいのですが、これで全て終わりというわけではなく、これから卒論の修正をしなければならなりません。

それでも、一段落ついて、楽になったーと喜びたい。

それなのに会社の読書感想文を出さなければならず、もう、いや。
提出期限が、郵送して会社に届いた時点での日付となっていて、明日出さないと間に合いそうにないのです。
もう、いや、ねむい、つかれたよぅ

登録: 投稿 (Atom)

おすすめ記事