色々なことをメモします。パソコン関連(Excelとか)が多いと思います。
 【エアロフォン ミニ】夜でも家で練習できる楽器が欲しい!
2020年06月27日 (土) | 編集 |
Roland_AE-01

先日、YouTubeを見ていたのですが、おもしろい物を見つけてしまいました。
デジタル管楽器なのですが、「Roland AE-01 エアロフォン ミニ」という楽器です。
昨年の9月に発売されていたみたいです。
エアロフォンというのは知ってはいたのですが、ミニが出たのは知りませんでした。
前から「Akai EWI USB」を買おうかなと思ってはいたのですが、イマイチ踏み切れませんでした。
演奏できるようになるかどうかが自信がなくて、保留にしていました。
でも、このエアロフォン ミニは、これだ!と思ったのです。
頑張れば、演奏できるようになるかもしれない・・・と思わせてくれました。
二週間くらい迷いましたが、ついに買ってしまいました。
念願の管楽器です(^^;)

家でピアノの練習もしているのですが、デジタルピアノでも夜は練習できないのです。
打鍵音がうるさいみたいなので、控えています。
あまり練習できないので、なかなか上達しません。
エアロフォンなら夜でも練習大丈夫だよなぁ。と期待しているのですが・・・。

そして、商品が届きました。
早速、開封して、とりあえず音を出してみます。
やっぱり、面白そうじゃないですか(^^)
スマホと繋げるともっと楽しいみたいなので、アプリをスマホにインストールしてみました。
Bluetoothで繋げるみたいなのですが、あれっ?繋がらない。
GPSをオンにしたら繋がりました。
(でも、よく切れてしまう・・・)

スマホに繋いでレッスン機能を使って練習をしてみたのですが、楽しい!
とりあえず、全部の曲をやってみました。
結果はこんな感じでした。

lesson_1-20200627 lesson_2-20200627

思い切って買ってよかったです。
夜でも練習大丈夫そうなので、毎日練習できるといいのだけど。

レッスン機能で練習するのはもちろんだけど、その他にはどういう練習をしていこうかなぁ。。。
考え中です。
とりあえずは、アプリのレッスン機能の14曲をクリアするのを目標に頑張ります。

amazonでエアロフォン ミニの詳細を見る ⇒ Roland Aerophone mini AE-01



 【Excel VBA】楽器練習記録帳を作りました
2020年05月25日 (月) | 編集 |
楽器練習記録帳

私は楽器を弾くのが趣味で、練習を続けています。
腕前は全然ダメダメなのですが、とても楽しいです。
その練習の記録を残すために、Excelで楽器練習記録帳というものを作りました。
音声・動画をコメント付きでメモしていく感じのものです。
音声・動画は、シートに配置したWindowsMediaPlayerで再生します。
これを作ったのは、だいぶ前の話なのですが、ちょっと機能の追加や変更がしたくなり、手を加えることにしました。

表には、日付、曲名、アーティスト名、コメント、ファイルパスという項目があります。
ファイルパスは、セルをダブルクリックするとファイルを選択するダイアログが開くので、ファイルを選択します。
ファイルを選択すると、ファイルのフルパスが入力されます。

オートフィルタをかけて、日付や曲名、アーティスト名、ファイル形式などで曲を絞り込み、再生することができます。
[連続再生]は、アクティブにした行から順番に連続再生されます。
[1曲再生]は、アクティブにした行の曲が再生されます。
再生中は再生されている曲の行に色が付きます。
[早送り]のチェックボックスをチェックすると、早送り再生されます。
あらかじめWindowsMediaPlayerの方で視覚エフェクトが設定されていると、音声ファイルを再生したときにエフェクトが表示されます。

やっと完成した!と思い、もう一台の他のPCで動かしてみたら、、、
WindowsMediaPlayerのサイズが指定してあるにもかかわらず、動画再生時にサイズが大きくなってしまいました。
ファイル形式がwmvだからかなと思い、mp4に変換してみたのですが、関係ありませんでした。
自分なりに、色々とやってみたのですが、なかなか上手くいきません。
片方のPCでは上手くいくのに、もう片方がダメだぁ・・・の繰り返し。
両方のPCで同じ動きにしたいのです。
もう、ギブアップだ・・・と諦めかけていた時、やっとなんとかできたのです。

私のPCの環境
Windows 10 Pro 64bit(1909)
WindowsMediaPlayer(12.0)
Excel(2019)

もう一台のPCの環境
Windows 10 Home 64bit(1909)
WindowsMediaPlayer(12.0)
Excel(2013)

2台のPCの一番の違いはExcelのバージョンだと思うのですが、そのせいかどうかは私にはわかりません。

変更したところをメモします。

WindowsMediaPlayerのオブジェクト名は「WMP1」です。
シートの名前は「記録」です。
WMP1のサイズは縦164.25、横240です。

WMP1のプロパティ設定は以下の通りです。
AutoLoad: False
enableContextMenu: False
Enabled: True
fullScreen: False
Height: 164.25
Left: 0
Locked: True
Placement: 2
PrintObject: True
Shadow: False
stretchToFit: True
Top: 0
uiMode: none
URL:
visible: True
Width: 240
windowlessVideo: False

WMP1のPlayStateChangeイベントに以下のコードを追加しました。
With Worksheets("記録").WMP1
    .Height = 164.25
    .Width = 240
    DoEvents
End With

再生ボタンのURL指定、再生の部分を以下のようなコードに変更しました。
With Worksheets("記録").WMP1
    .Visible = False
    .URL = 音声・動画ファイルのフルパス
    .Visible = True
    t = [Now() + "00:00:00.5"]
    Do
        DoEvents
    Loop Until Now() > t
    .Controls.Play
End With

参考にならないかもしれませんが、こんな感じでなんとかできあがりました。
自分の希望通りには、一応なりました。
これでしばらく使ってみます。

楽器練習記録帳のデータを見てみると、Merry Christmas Mr. Lawrence(アヴェクピアノ)の練習を始めたのが、2015年4月。
5年も練習しているのに、まだ満足のいく演奏ができないのです。
この曲は絶対に弾きたいので、これからも練習を続けていきたいと思います(^^♪

関連記事