ラズベリパイ再び Volumio2
f0021035_21292908.jpg
Raspberry Pi 3B が届いたので、さっそく Volumio2 を起動してみた。最初に無線LANの設定でパスワードなどを入力するのに LAN を繋いで他のPCで Volumio のブラウザ画面を開く必要がある。設定はほとんどブラウザから行える。一度無線LANを設定すれば、本体には何も繋がなくて良くなる、面白いOSである。
f0021035_21292202.jpg


f0021035_21291964.jpg
日本語にも対応している。exFatでフォーマットしたHDDを自動でマウントして一覧に表示してくれる。500GBの2.5インチHDDを繋いだのだが、これにはちょっと苦労した。
f0021035_21355478.jpg
最初は下のケーブルをちょん切って、5VとGNDをACアダプターから引いたのだが、HDDを認識しなかった。壊れたかと思って、6回ほど1メートルくらいの高さから床に落としてショックを与えてみたが、やはりカタカタ言っているだけである。もしやと思ってケーブルを元に戻してみると、認識する。GNDか5Vをデバイスと共有しないといけないらしい、面倒なので Raspberry Pi から電源を取るようにしたら、今度は電力不足で Raspberry Pi も HDD もちゃんと動かない。ケーブルを太くしてみたりしたがダメである。
f0021035_21355441.jpg
そもそも USB で 2.5A を供給しようというに無理があるのではなかろうか?
f0021035_21291505.jpg
で、下記のように5VをACアダプターから、GNDはHDDとACアダプターと共有したら、なんとか動いた。最初からこうすればよかった。それにしても、最近のHDDは丈夫なものである
f0021035_21291657.jpg
f0021035_21294776.jpg
Raspberry Pi とi2s Dack を接続するのにジャンパー線が必要なので、アマゾンで送料込み110円のやつを購入した。裂けるチーズみたいな40本である。なかなか届かないのでジャンク箱をあさると、使えそうなのがあったので調整して使った。
f0021035_21292724.jpg
40本は忘れた頃に届いた。110円では届いただけめっけものである。
ケースは100円均一でグッとくるのが見つからなかったので、ちょっと贅沢して無印良品である。100円均一ではステンレスのまな板スタンドを購入した。偶然にもケースにぴったりと収まった。
f0021035_21293185.jpg
で、用心のために100円均一のヘッドフォンを繋いで音出し、音が出た瞬間、何が起こったのかわからなかった。100円のヘッドフォンだったはずだが・・・・・・この音はどこから?  と、ちょっと意外すぎる鮮烈な音が聞こえる。レンジが狭い中にも、濃厚な情報で瞬間の静謐が聞こえるレヴェルである。予想をはるかに超える音質だったので、しばらくいろんな曲に聞き入ってしまった。お気に入りの小さなゼンハイザーも試したいが音が大きすぎる、初期設定では音量が変えられない。
プレイバックオプションでヴォリューム調整をソフトウェアコントロールにしてやるとヴォリューム調整できるようになるが、あの 静謐 がほとんど聞こえなくなる。
これは残念である。ヘッドフォンを使うのなら、別途ヴォリュームコントロールを用意する必要があるようである。ヘッドフォンアンプ? まあ、アンプに繋ぐのなら、音量調整は NONE にしておくのが良いだろう。

[PR]
# by digressive | 2017-02-24 22:55 | プアオーディオ | Comments(0)
 
Raspberry Pi 再び その1
f0021035_20274351.jpg
Raspberry Pi 3 Model B である。あまりにおもしろそうなので、ついつい昨年Amazonで購入した。


上記のように、オーディオスタンドと称して、ネットラジオの再生と、USBメモリの価格的な関係で WAVE をあきらめて MP3 300kHz のランダム再生に特化したミニPCを作り、かなり気に入って使っている。いろいろとスクリプトを入れる関係で、 Raspberryをインストールして、 USD DACK でオーディオ出力している。手軽で便利で、プアオーディオ的には大成功だと自画自賛している。アホの特権である。しかしながら、秋葉原をも席巻している Raspberry Pi において、オヤジたちの最大の関心は、 I2S-DACVolumio による高音質(ハイレゾ)再生につきる。プアオーディオにハイレゾはなかろうという小生なりのこだわりで考えないことにしていたが、ネットサーフィンをしていて、ついつい流れでやらかしてしまったのである。

f0021035_19074882.jpg
ES9023を搭載した貧相な基盤であるが、やけに立派なRCA端子がグッと印象を力強くしている。まあ、大量に千円台で出回っていた、なにかのパーツの流れ品らしいが、最近はなぜか品薄で、2,900円も出資してしまった。Raspberry Pi 用の I2S DACK である。まあ、RCA端子が各500円といったところだろうか?購入した後であわてて調べてみると、こんな貧相な基盤でも、ハイエンドDACKに迫る音質だという幸せな意見などもあるにはある。スペック的にはハイレゾも可能であるが、さすがにハイレゾとなるとプアオーディオの範疇からはみ出してしまいそうであるので、敬遠しておく。しかし、やはり手元にあるからには、Raspberry Pi とつなげてみたいではないか!
当然、D/Aコンバーター専用 的なことになるので、わざわざRaspberry Pi 3 である必要はなかろうから選択肢としては、Raspberry Pi 2 B、Raspberry Pi +(Plus) B、Raspberry Pi Zero なども十分に考えられる。Raspberry Pi Zero は一見小型で安いのだが、入手性が悪い上に、きちんと組み込みで設計しないと、コネクターなどゴチャゴチャと接続して結局一番かさばる可能性が大なので、教育関係か理系以外の人間が手を出してもいい結果にはならなさそうである。Raspberry Pi +(Plus) B がよさげであるが、今となってはそれほどコスパがよくない。消費電力が小さいのは魅力である。Raspberry Pi 2 B もハイスペックで消費電力も 3 よりは低いようだが、よく考えてみると、WiFiを外付すれば、実質的な消費電力は 3 と大差無いように思える。しかも、価格も大差ない! 結局 Raspberry Pi 3 Model B が一番コスパが良くて、入手性も良い。てなことで、もう1個入手してしまった。前回よりは価格もかなりこなれている。なにせ売れているからネ。そうすると、やはり電源が問題になってくる。ここは ハードオフ のジャンクコーナーの出番である。

f0021035_19075316.jpg
左の小さいのは前回の Raspberry Pi 3 Model B の設定に使った 5V 2.5A のスイッチング電源である。二次側はUSBメス端子にしてある。中央は 2.5A では少し不安なので、仕事をサボってハードオフ三鷹店ジャンクコーナーで探しだした 5V 3A である。右の大きいのはその後、散歩中に近所のハードオフで見つけてしまった 5V 5A のスイッチング電源である。まあ、これだけあれば安心というか、愚かというか、小生は変換ケーブルとACアダプターが大好物である。昔は職人気質のデザイナーであったのに、なんでこんな人間になってしまったんだろう!?みんなDTPが悪いんじゃ!???
後は音源をどうするかである。ネットワークのHDDにするかUSBメモリか、それともHDDをラズパイに繋いでしまうか?WAVEでなければ、せっかくの I2S の意味がなかろうから、USBメモリはきつかろう。ここは迷うところである。 必然的に、続いてしまうのである。

[PR]
# by digressive | 2017-02-04 20:18 | プアオーディオ | Comments(5)
 
小さなウーファー
f0021035_20374269.jpg
エレコムの2.1チャンネルスピーカーである。別に探しモノがあるわけではなくてもハードオフをのぞくのが習慣になってしまい、これのウーファー部分だけジャンクで転がっているのを見つけて、ついつい108円で購入してしまった。ウーファー部分にはアンプ基盤も入っていて、安いアクティブスピーカーによく入っているパワーアンプICだが、2個使っており、ローブースト回路にオペアンプも入っている。安いパーツばかりだが、なかなか回路設計自体は本格的であるらしい。プラのケースの鳴りがひどいので、木に入れてみた。5Vで使えるので、最近お気に入りの Raspberry Pi ミュージックシステムで鳴らすことにした。
f0021035_20373866.jpg
非力なウーファーユニットなので、きっちりした密閉の木製の箱に入れると、音がしなくなってしまった。すこし裏蓋に隙間を作ってやるとなんとか鳴り出した。箱鳴りがないのでプラの時より大人しい音になってしまった。プラの時は箱鳴りで聞けたものではなかったし、難しいウーファーユニットである。箱を継ぎ足した左右のスピーカーがそこそこ鳴るので、ほとんどウーファーが目立たない。しかし、ないよりは低音が分厚い感じになるようではある。なかなか厚みのある音がするので悪くはない。この大きさでは低音が鳴り響くというわけにはいかない。箱が大きければ、ちょっとしたフルレンジのほうがよっぽど迫力がある。音というのはどこまでもモノの振動の帰結であるので、モノのサイズ、重量に左右される。小さなウーファーなんて、あるはずないのだろうか?

[PR]
# by digressive | 2017-02-03 23:38 | プアオーディオ | Comments(0)
 
そして、国宝 彦根城
f0021035_14304602.jpg
1月5日は朝7時に実家を出て、JR三宮駅から新快速で彦根駅まで行き、彦根城に行ってみた。外堀からほぼ当時の姿で残っている。近隣の城からパーツを持ってきて利用している、エコな城である。長浜城、佐和山城、大津城など、大河ドラマ真田丸によく登城した城の部分も見られて実に嬉しい。琵琶湖の湖畔で絶景である。保存も良く、当時の雰囲気が良く味わえる。
帰りは米原からヒカリで東京まで帰った。ついでに、秋葉原で途中下車してみたら、ラズベリーパイがブームのようであった!!
f0021035_14305246.jpg
f0021035_14305027.jpg
f0021035_14304909.jpg
f0021035_14304795.jpg

[PR]
# by digressive | 2017-01-07 16:23 | すみません、取り乱しました。 | Comments(0)
 
そして神戸 2017
f0021035_14241420.jpg
f0021035_14241640.jpg
2日から5日まで、ほとんど欠勤扱いの有給休暇を取って、神戸に帰った。暖かかった。神戸は震災以降、観光客に優しい、ちょっといい街になった。旧友と会い、帰りは寄り道した。
[PR]
# by digressive | 2017-01-07 14:28 | すみません、取り乱しました。 | Comments(0)
 
今年もよろしく!
はっぴ〜 にゅう いやぁ〜 はや…

f0021035_11593370.png
祝 2017

といっても、なにやらダメおやじには生きにくい世の中になってきたような気がするように感じるのじゃないかな〜と思う昨今です。このブログは、元来、突然に職を失って途方に暮れたダメおやじが、世の中への不平不満を書き連ねようという、くだらない動機で始めたのですが、不平をぶつけるにも値しない、あまりの世の中の体たらくに、負けじとさらにくだらないプアオーディオ関連工作などばかりの記事になってしまっております。
天皇陛下の生前退位のお話にしても、面倒だからと、とりあえずの特例でなんとかしたらという、法律など都合が悪ければ無視すればいいという、現政権の体質がモロ見えの結末になりそうです。これにより皇室典範は有名無実となります。いづれ憲法もそうしたいのでしょう。きちんと時代の変化や国民や当事者のことなど考えて法と真摯に向き合う気配すらありません。
まあ、小生には現政権の悪口などいくら言っても詮ない事と感じられます。それを選ぶ大多数(なんでしょうね???)の国民に対して、ただただ深い失望を感じるのみであります。そういうふうに教育やシステムや報道で誘導されているにしても、この情報化社会で、なぜ平和を考えること、得難い民主主義を放棄するのでしょう。
とかいいながら、小さなウーファーって、矛盾かな…とかばかり考えています。

[PR]
# by digressive | 2016-12-29 19:59 | すみません、取り乱しました。 | Comments(0)
 
ラズベリーパイ オーディオスタンド
f0021035_19453095.jpg
ラズベリーパイ オーディオスタンドである。USB-DACとアンプとACアダプターと単3電池4本と、ほとんど装飾だがノートPC用のファンを搭載している。ワンタッチでUSBメモリ内の曲のランダム再生、TBS、NHK、J-WAVEの再生、ネットラジオの選局ができる。
f0021035_19452864.jpg
HT82V739のパワーアンプと秋月のAKI-DAC搭載で、ラズパイのクリアな音質を堪能できる?

f0021035_19452721.jpg
アホみたいにアンプ電源部にに電解コンデンサーを突っ込んだために、エネループ4本で駆動している時に、途中でアンプの電源を入れると、電圧不足でラズパイがダウンしてしまう。したがって、アンプのスイッチは通常入れっぱなしにしておき、必ずラズパイと一緒に起動し、必要なとき(不要なとき?)に切るようにすればよい。プアオーディオ的にはノープロブレムである。

もちろん、専用のスピーカーも作らずにはおれなかった。

f0021035_19452169.jpg
安いので4個買って使っていなかった1インチスピーカーである。世の中に小型ユニットほど始末に負えないものはない。
f0021035_19451897.jpg
小型ユニットなので、当然コンパクトなスピーカーを目指す。世の中ではここで小型ユニットに過剰な期待をするのは愚かなことだと割りきるのが鉄則である。しかし、昨今の小口口径のユニットはネオジウムなど背負ってなかなかに高品質だったりする。ある意味実に残念な音がするのである。とはいえ、せっかく小型高性能なユニットを使用して、大きなスピーカーを作ったのでは小型ユニットの意味がほとんど無い。よほどに小口口径独特のシャープな音色が好きだというのなら、それもあるかもしれない。が、普通に音楽を楽しむなら、そこそこの口径のユニットが無難であることはゆるぎない。
とかなんとか考えながら、結局箱を継ぎ足してしまった。接着してしまうと、万一の場合の内部のメンテができなくなってしまうので、ホットボンドで接着している。ホットボンドの使い方としては間違っている感じがあるが、なんとか固定している。
f0021035_19451428.jpg
コンパクトとは呼べなくなってしまったが、残念感はかなり解消され、音楽全体をなんとなく表現している感じにはなった。が、かさばる……
f0021035_19450469.jpg
でかいぞ!!

[PR]
# by digressive | 2016-12-10 20:27 | プアオーディオ | Comments(2)
 
radiko タイムフリー が便利な件

タクシー乗務中、お客様の乗っていない時には、よくラジオを聴いている。面白くなってくると、お客様が乗ってくるのが常である。どうしても聞き逃した感が強い時には、後日ポッドキャストとかで聴けないかとやってみるが、なぜか聞きたいコーナーに限ってポッドキャストがなかったりすることが多い。まあ、そんなもんかと思っていたが、radikoの「タイムフリー」というのが始まった。1週間以内なら、聞き逃したラジオ番組がいつでも再生できる。早速、今日は家で掃除をしながら、radikoがタイムフリーの宣伝に作った宇多田ヒカルが新しいアルバムの曲を自分で紹介しながらかけまくるというアンビリーバボーな昨日の番組を、radikoの思惑通りにタイムフリーで検索して聴いていた。これはなかなかグーである。一部、タイムフリーでの再生を拒否している音楽の人もいるらしいが、まあ、宇多田ヒカルが自分で率先して新しいアルバムを1週間聞き放題にしたのだから、気にするほどの事ではなさそうである。これはいい。

追記

聞き放題などと喜んでいたが、3時間という制限があった。しょっぺ〜なぁ〜

[PR]
# by digressive | 2016-10-13 00:01 | すみません、取り乱しました。 | Comments(0)
 
ラズベリーパイ で音楽再生、ラジオ再生ボタン
f0021035_15101099.jpg
※91月8日24時 WAVE(MP3)が再生されないスペルミスを修正しました。

ラズベリーパイ Raspbian に Perl/TK で操作画面を表示するスクリプトを、ボタンを増やして作り直してみた。
下記を pi.pl の名前でホームディレクトリに保存する。

$ sudo chmod 755 pi.pl

↓#!/usr/bin/perl が1行めになるようにする。

#!/usr/bin/perl

use Tk;
use Encode;

## pi.pl# 改訂版 初期設定 ###################################################

my $msg = "yes"; #シャットダウン時にメセージを表示する yes/no

my $geometry = "+10+40"; #表示位置
my $minsize1 = 460; #サイズW
my $minsize2 = 140; #サイズH
my $tmGeometry = "42x3+10+210"; #gnorm-terminal サイズ/表示位置
my $pVol = "50"; #初期ボリューム
my $font = "MS ゴシック 8 bold"; #フォント

my $bt0Img = "./raspA.gif"; #aplayボタン 画像
my $bt0Bac = "#fffacd"; #aplayボタン 背景色
my $bt0ABac = "#ffff00"; #aplayボタン アクティブ背景色

my $nextTxt = "▶"; #ネクストボタン テキスト(Aplay 専用)
my $nextFont = "MS ゴシック 18 bold"; #フォント
my $nextFore = "#333333"; #ネクストボタン 文字色
my $nextAFore = "#ffffff"; #ネクストボタン アクティブ文字色

my $stopTxt = "×"; #ストップボタン テキスト(gnorm-terminal を閉じる)
my $stopFore = "#333333"; #ストップボタン 文字色
my $stopAFore = "#ffffff"; #ストップボタン アクティブ文字色
my $stopABase = "#113355"; #ストップボタン アクティブ背景色

my $swTxt = "◯"; #シャットダウン テキスト
my $swFont = "MS ゴシック 18 bold"; #シャットダウン フォント
my $swBac = "#555555"; #シャットダウン 背景色
my $swABac = "#b50008"; #シャットダウン アクティブ背景色
my $swFore = "#dddddd"; #シャットダウン 文字色
my $swAFore = "#ffffff"; #シャットダウン アクティブ文字色

my $volFore = "#333333"; #ボリューム 文字色
my $volBac = "#fff0f5"; #ボリューム 背景色
my $volABac = "#da70d6"; #ボリューム アクティブ色

my $bt1Id = "TBS"; #Radico1 ID (http://www.norikistudio.com/station-id-list)
my $bt1Txt = "TBS"; #Radico1 テキスト
my $bt1Fore = "#333333"; #Radico1 文字色
my $bt1Bac = "#40e0d0"; #Radico1 背景色
my $bt1AFore = "#dedede"; #Radico1 アクティブ文字色
my $bt1ABac = "#333333"; #Radico1 アクティブ背景色

my $bt2Id = "FMJ"; #Radico2 ID (http://www.norikistudio.com/station-id-list)
my $bt2Txt = "FMJ"; #Radico2 テキスト
my $bt2Fore = "#333333"; #Radico2 文字色
my $bt2Bac = "#87cefa"; #Radico2 背景色
my $bt2AFore = "#dedede"; #Radico2 アクティブ文字色
my $bt2ABac = "#333333"; #Radico2 アクティブ背景色

my $bt3Id = "r1"; #らじるらじる1 ID=r1:NHKラジオ第1/r2:NHKラジオ第2/fm:NHK FM
my $bt3Txt = "NHK1"; #らじるらじる1 テキスト
my $bt3Fore = "#333333"; #らじるらじる1 文字色
my $bt3Bac = "#ffd700"; #らじるらじる1 背景色
my $bt3AFore = "#dedede"; #らじるらじる1 アクティブ文字色
my $bt3ABac = "#333333"; #らじるらじる1 アクティブ背景色

my $bt4Id = "fm"; #らじるらじる2 ID=r1:NHKラジオ第1/r2:NHKラジオ第2/fm:NHK FM
my $bt4Txt = "N-FM"; #らじるらじる2 テキスト
my $bt4Fore = "#333333"; #らじるらじる2 文字色
my $bt4Bac = "#ffe4e1"; #らじるらじる2 背景色
my $bt4AFore = "#dedede"; #らじるらじる2 アクティブ文字色
my $bt4ABac = "#333333"; #らじるらじる2 アクティブ背景色

#SHOUTcastボタン
#ID アクティブ背景色 文字色 背景色 アクティブ文字色 テキスト
my $s1Id = "375467"; my $s1Ab = "#333333"; my $s1Fo = "#333333"; my $s1Ba = "#98fb98"; my $s1Af = "#dedede"; my $s1Tx = "alt";#alt.radio
my $s2Id = "102385"; my $s2Ab = "#333333"; my $s2Fo = "#333333"; my $s2Ba = "#da70d6"; my $s2Af = "#dedede"; my $s2Tx = "Smooth";#SmoothJazz.com Global Radio
my $s3Id = "777979"; my $s3Ab = "#333333"; my $s3Fo = "#333333"; my $s3Ba = "#db7093"; my $s3Af = "#dedede"; my $s3Tx = "Lounge";#The Lounge Sound
my $s4Id = "271154"; my $s4Ab = "#333333"; my $s4Fo = "#333333"; my $s4Ba = "#ffa500"; my $s4Af = "#dedede"; my $s4Tx = "ZenFM";#ZenFM (MP3)

my $s5Id = "302745"; my $s5Ab = "#333333"; my $s5Fo = "#333333"; my $s5Ba = "#c0c0c0"; my $s5Af = "#dedede"; my $s5Tx = "Black";#BlackBeats.FM
my $s6Id = "84158"; my $s6Ab = "#333333"; my $s6Fo = "#333333"; my $s6Ba = "#dda0dd"; my $s6Af = "#dedede"; my $s6Tx = "DEFJAY";#DEFJAY.COM - 100% R&B! (International)
my $s7Id = "215936"; my $s7Ab = "#333333"; my $s7Fo = "#f8f8ff"; my $s7Ba = "#dc143c"; my $s7Af = "#dedede"; my $s7Tx = "Florida";#Smooth Jazz Florida
my $s8Id = "1108330"; my $s8Ab = "#333333"; my $s8Fo = "#333333"; my $s8Ba = "#f0e68c"; my $s8Af = "#dedede"; my $s8Tx = "Casiopea";#Nonstop Casiopea

my $s9Id = "182137"; my $s9Ab = "#333333"; my $s9Fo = "#333333"; my $s9Ba = "#fff5ee"; my $s9Af = "#dedede"; my $s9Tx = "METRO";#RadioMETRO Pop Hit Dance
my $s10Id = "109563"; my $s10Ab = "#333333"; my $s10Fo = "#333333"; my $s10Ba = "#da70d6"; my $s10Af = "#dedede"; my $s10Tx = "Cafe";#Radio Cafe Romania
my $s11Id = "1074623"; my $s11Ab = "#333333"; my $s11Fo = "#333333"; my $s11Ba = "#9acd32"; my $s11Af = "#dedede"; my $s11Tx = "J-Pop";#J-Pop Powerplay
my $s12Id = "3413"; my $s12Ab = "#333333"; my $s12Fo = "#333333"; my $s12Ba = "#da70d6"; my $s12Af = "#dedede"; my $s12Tx = "70s-90s";#70s-90s J-pop Stream

my @Id = ($s1Id,$s2Id,$s3Id,$s4Id,$s5Id,$s6Id,$s7Id,$s8Id,$s9Id,$s10Id,$s11Id,$s12Id);
my @Tx = ($s1Tx,$s2Tx,$s3Tx,$s4Tx,$s5Tx,$s6Tx,$s7Tx,$s8Tx,$s9Tx,$s10Tx,$s11Tx,$s12Tx);
my @Ab = ($s1Ab,$s2Ab,$s3Ab,$s4Ab,$s5Ab,$s6Ab,$s7Ab,$s8Ab,$s9Ab,$s10Ab,$s11Ab,$s12Ab);
my @Af = ($s1Af,$s2Af,$s3Af,$s4Af,$s5Af,$s6Af,$s7Af,$s8Af,$s9Af,$s10Af,$s11Af,$s12Af);
my @Ba = ($s1Ba,$s2Ba,$s3Ba,$s4Ba,$s5Ba,$s6Ba,$s7Ba,$s8Ba,$s9Ba,$s10Ba,$s11Ba,$s12Ba);
my @Fo = ($s1Fo,$s2Fo,$s3Fo,$s4Fo,$s5Fo,$s6Fo,$s7Fo,$s8Fo,$s9Fo,$s10Fo,$s11Fo,$s12Fo);

my $padxi = 0;
my $padyi = 0;

#####################################################################

my $bTi = 0;

$mw = new MainWindow();
$mw->minsize($minsize1,$minsize2);
$mw->geometry("$geometry");

$main = $mw->Frame();
$main->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);

$mainL = $main->Frame();
$mainL->pack(
-side => "left",
);

$image = $mainL->Photo( -file => "$bt0Img" );
$bt0 = $mainL->Button(
-image => $image,
-relief => "flat",
-background => "$bt0Bac",
-activebackground => "$bt0ABac",
-padx => 0,
-pady => 0,
-command => \&Ap,
);
$bt0->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$mainL2 = $mainL->Frame();
$mainL2->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$next = $mainL2->Button(
-relief => "flat",
-text => decode("utf8", "$nextTxt"),
-font => "$nextFont",
-activeforeground => "$nextAFore",
-foreground => "$nextFore",
-background => "$bt0Bac",
-activebackground => "$bt0ABac",
-padx => 0,
-pady => 0,
-command => \&Next,
);
$next->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);

$stop = $mainL2->Button(
-relief => "flat",
-text => decode("utf8", "$stopTxt"),
-font => "$font",
-activeforeground => "$stopAFore",
-foreground => "$stopFore",
-background => "$bt0Bac",
-activebackground => "$stopABase",
-padx => 0,
-pady => 0,
-command => \&Chk,
);
$stop->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);

$mainR = $main->Frame();
$mainR->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$mainR1 = $mainR->Frame(
-padx => $padxi,
-pady => $padyi,
);
$mainR1->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);

$bt1 = $mainR1->Button(
-relief => "flat",
-text => decode("utf8", "$bt1Txt"),
-font => "$font",
-activebackground => "$bt1ABac",
-activeforeground => "$bt1AFore",
-background => "$bt1Bac",
-foreground => "$bt1Fore",
-padx => $padxi,
-pady => $padyi,
-command => \&Nr1,
);
$bt1->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$bt2 = $mainR1->Button(
-relief => "flat",
-text => decode("utf8", "$bt2Txt"),
-font => "$font",
-activebackground => "$bt2ABac",
-activeforeground => "$bt2AFore",
-background => "$bt2Bac",
-foreground => "$bt2Fore",
-padx => $padxi,
-pady => $padyi,
-command => \&Nr2,
);
$bt2->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$bt3 = $mainR1->Button(
-relief => "flat",
-text => decode("utf8", "$bt3Txt"),
-font => "$font",
-activebackground => "$bt3ABac",
-activeforeground => "$bt3AFore",
-background => "$bt3Bac",
-foreground => "$bt3Fore",
-padx => $padxi,
-pady => $padyi,
-command => \&Nr3,
);
$bt3->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$bt4 = $mainR1->Button(
-relief => "flat",
-text => decode("utf8", "$bt4Txt"),
-font => "$font",
-activebackground => "$bt4ABac",
-activeforeground => "$bt4AFore",
-background => "$bt4Bac",
-foreground => "$bt4Fore",
-padx => $padxi,
-pady => $padyi,
-command => \&Nr4,
);
$bt4->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);


for($i = 0; $i < 12; $i++){
if($i == 0||$i == 4||$i == 8){
if($i == 0){$fii = 1;}elsif($i == 4){$fii = 2;}elsif($i == 8){$fii = 3;}
$mainRs[$fii] = $mainR->Frame(
-padx => $padxi,
-pady => $padyi,
);
$mainRs[$fii]->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);
}


$sh[$i] = $mainRs[$fii]->Button(
-relief => "flat",
-text => decode("utf8", "$Tx[$i]"),
-font => "$font",
-activebackground => "$Ab[$i]",
-activeforeground => "$Af[$i]",
-background => "$Ba[$i]",
-foreground => "$Fo[$i]",
-padx => $padxi,
-pady => $padyi,
-command => [ \&Scast,$Id[$i] ],
);
$sh[$i]->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);
}

$mvol = $mw->Frame();
$mvol->pack(
-side => "top",
-fill => "both",
-expand => "yes",
);

$sc = $mvol->Scale(
-orient => "horizontal",
-from => 0,
-to => 100,
-variable => \$vol,
-command => \&Cv,
-activebackground => "$volABac",
-background => "$volBac",
-foreground => "$volFore",
);

$sc->set($pVol);

$sc->pack(
-side => "left",
-fill => "both",
-expand => "yes",
);

$sw = $mvol->Button(
-text => decode("utf8", "$swTxt"),
-font => "$swFont",
-relief => "flat",
-text => decode("utf8", "$swTxt"),
-font => "$font",
-activeforeground => "$swAFore",
-activebackground => "$swABac",
-background => "$swBac",
-foreground => "$swFore",
-padx => 0,
-pady => 0,
-command => \&Sdown,
);
$sw->pack(
-side => "left",,
);

MainLoop;

#####################################################################

sub Ap{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"perl aplay-pi.pl -def -list\"");
}

sub Chk{
if($bTi){system("killall -s HUP gnome-terminal-server"); $bTi = 0;};
#Terminal Window Close
}

sub Next{
system("killall -s HUP aplay mpg321");
}

sub Nr1{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"/home/pi/play_radiko.sh $bt1Id\""); #ID
}

sub Nr2{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"/home/pi/play_radiko.sh $bt2Id\""); #ID
}

sub Nr3{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"/home/pi/play_nhk-radio.sh $bt3Id\""); #ID
}

sub Nr4{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"/home/pi/play_nhk-radio.sh $bt4Id\""); #ID
}

sub Scast{
&Chk;
$bTi = 8;
system("gnome-terminal --geometry=$tmGeometry -e \"mplayer -playlist http://yp.shoutcast.com/sbin/tunein-station.pls?id=$_[0]\""); #ID
}

sub Cv{
system("amixer -c 1 sset PCM $vol\%"); #ヴォリューム USB (ライン出力の場合は 1 を 0 に)
}

sub Sdown{
if($msg eq "yes"){
my $msgbox = $mw->messageBox(
-title => "really",
-icon => "question",
-type => "OkCancel",
-default => "Cancel",
-message => decode("utf8", "シャットダウン!?"),
);
if($msgbox eq 'Ok'){system("sudo shutdown -h now");}else{return;
}
}
else{system("sudo shutdown -h now");} #Stop
}

###########/home/pi/pi.pl 改訂版 ##################ここまで

f0021035_10101025.gif


[PR]
# by digressive | 2016-09-18 15:22 | プアオーディオ | Comments(3)
 
raspberry pi 3 + USBメモリ型キーホルダー!
f0021035_18460864.jpg
ラズベリーパイでWAVEの音楽データのランダム再生を目指したわけだが、やはりメディアの問題がある。ここはUSBメモリがスマートであろう。容量的に問題が?と思ったら、
キーホルダータイプの 512GB USBメモリ である! ヤフオクで2,000円弱で購入した!!
512GB である!
夢のようである!!がしかし、小生は キーホルダー型の512GB大容量USBメモリだと思って、喜んで購入したわけだが、実際は

512GBのUSBメモリータイプキーホルダーであった。

さらに分かりやすく言うと、キーホルダーの形をしたゴミである。まあ、そんなもんだろう。
計画を WAVE から MP3 に変更するとして、USBメモリの正規品となると、32GBか64GBがコスパ的によかろうか、ということで、上記のキーホルダーよりも少しお安い64GBを購入した。キーホルダーと格闘したあとなので、本物のUSBメモリって、こんなに便利なのかと驚愕した!なんとも、我ながら、わかりやすいアホである。
f0021035_18460655.jpg
ドングルにしか見えないが、データがサクサクと読み書きできる・・・・あたりまえか!?

教訓-普通に使用目的のあるメディアはちゃんと買え・・・・・・・あたりまえか?

[PR]
# by digressive | 2016-09-15 19:01 | すみません、取り乱しました。 | Comments(0)
 



人間は、考える足である。
by ラーメン
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
カテゴリ
リンク

おやつ会

人との交流が人を育てます。


ホームページ作成
WEBデザイン(Perl PHP MySQL)
グラフィックデザイン
CI 各種印刷物 広告 SP
はじめました。

■□■□■□






RandomReading《読書記録》
通勤電車が私の書斎さ。
■□■□■□






WEBカラーネーム

WEBカラーチャート

「もう一つの日本」
どう展開するのか、見えませんが楽しみです。

放射NO! 防御プロジェクト
フェイスブック発、自分の身は自分で守ろう

植草一秀の『知られざる真実』
頑張れミラーマン

世に倦む日々
無料版です

奥の横道(写真)
携帯で写真を撮りだすとクセになる。

マニア・マニア
何が彼らをそこまで駆り立てるのか?

天木直人.com
多少偏向していそうだが、
文春よりは参考になる


きっこのブログ
謎のブログ、リンクしていいのかな?

とりまきメモ
ブログというより、日記帳ですね。

LINK MEMO
小生の勝手なリンク集


小金井市の地域SNSです
WEB デザイン モリ のページもあります。

アメブロもよろしく。

pixiv

twitterフォロー ミー

上のボタンが好きな背景色で作れます


青空文庫


お気に入りブログ
ライフログ
以前の記事
2017年 09月
2017年 08月
2017年 07月
2017年 06月
2017年 05月
2017年 04月
2017年 03月
2017年 02月
2017年 01月
2016年 12月
2016年 10月
2016年 09月
2016年 08月
2016年 06月
2016年 04月
2016年 03月
2016年 02月
2016年 01月
2015年 12月
2015年 11月
2015年 10月
2015年 09月
2015年 08月
2015年 07月
2015年 06月
2015年 05月
2015年 04月
2015年 03月
2015年 02月
2015年 01月
2014年 12月
2014年 11月
2014年 10月
2014年 09月
2014年 08月
2014年 07月
2014年 06月
2014年 05月
2014年 04月
2014年 03月
2014年 02月
2014年 01月
2013年 12月
2013年 11月
2013年 10月
2013年 09月
2013年 08月
2013年 07月
2013年 06月
2013年 05月
2013年 04月
2013年 02月
2013年 01月
2012年 12月
2012年 11月
2012年 10月
2012年 09月
2012年 08月
2012年 07月
2012年 06月
2012年 05月
2012年 04月
2012年 03月
2012年 02月
2012年 01月
2011年 12月
2011年 11月
2011年 10月
2011年 09月
2011年 08月
2011年 07月
2011年 06月
2011年 05月
2011年 04月
2011年 03月
2011年 02月
2011年 01月
2010年 12月
2010年 11月
2010年 10月
2010年 08月
2010年 07月
2010年 06月
2010年 05月
2010年 04月
2010年 03月
2010年 02月
2010年 01月
2009年 12月
2009年 11月
2009年 10月
2009年 09月
2009年 08月
2009年 07月
2009年 06月
2009年 05月
2009年 04月
2009年 03月
2009年 02月
2009年 01月
2008年 12月
2008年 11月
2008年 10月
2008年 09月
2008年 08月
2008年 06月
2008年 05月
2008年 04月
2008年 03月
2008年 02月
2008年 01月
2007年 12月
2007年 11月
2007年 10月
2007年 09月
2007年 08月
2007年 07月
2007年 06月
2007年 05月
2007年 04月
2007年 03月
2007年 02月
2007年 01月
2006年 12月
2006年 11月
2006年 10月
2006年 09月
2006年 08月
最新のコメント
GoogleのAPIで叩..
by かえる at 16:27
たいていのブログに準備さ..
by digressive at 22:48
つまり、グーグル(全体の..
by かえる at 10:39
ワードからgoogleの..
by digressive at 19:06
googleの検索フォー..
by digressive at 18:59
これは...グーグル指定..
by かえる at 11:14
仕事でやらされたこともあ..
by digressive at 22:52
もしや、スカイプやってま..
by かえる at 15:19
プア派としては、100均..
by digressive at 22:11
ことしの夏には、グーグル..
by かえる at 11:20
最新のトラックバック
Macの音楽をオーディオ..
from ちょっとOldなMacの話
グランベリーモール町田
from アウトレットモール・パーク【..
「セオリー」アウトレット
from 町田アウトレット【グランベリ..
アロワナ
from アロワナ
進行中の環境問題
from バナナペーパー!?環境問題を..
バナナが地球を救う。
from バナナが紙に!?そんなバナナ..
インクジェットプリンター..
from ネット専用商社 特選館
【携帯】 アップルの「i..
from 【究極の宗教】Physica..
お得なえびの高原温泉に関..
from 宮崎エリアnavi
TOEIC勉強法
from TOEIC勉強法
検索
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧