ぷれでたの日記ＲＸ

割と有名なソフトで簡単なソフトからゲームまで色々なものが作れる。

ソフト開発というとマイクロソフトのVisualStudioとかがあるけどこちらは面倒な事は無く軽い。

特にランタイムとか無しで単独で動作するｅｘｅファイルも作成可能だ。

さすがに大規模なソフトとなると厳しいが個人用のものなら十分で使いやすい。

これまで色々な所でお世話になっている優れもののソフトだ。

ＷＭＶの動作再生可能。（ＭＰ３も可能、他のフォーマットは未確認だがおそらくＭＰ４も可能）

聞いた曲名をファイルに保存してソフトを終了後再度使用しても重複再生しない。

再生するフォルダを選択可能。

指定曲を長時間再生。（バグがありそうだし簡易的な物なので使える範囲でどうそ）

普通の人にはあまり役に立つとは思えないがパソコンを良く使っていて動画データを多く持っていてＨＳＰに興味がある人が試しに使ってみるのは良いと思う。

ＨＳＰ自体の詳しい操作方法はネットで調べて下さい。最新の３．５１での動作は確認しています。

フォルダ内のＭＰ３、ＷＡＶ、ＷＭＶデータを検索して順番を指定、再生するだけのソフトです。ファイル名に半角スペースが入っていると再生できない事があります。

ノートパソコン等の画面の小さいもので使用する時は初期位置を調整するかリンクを作成して　右クリック－プロパティ－互換性－高DPI設定の変更－高DPIスケール設定の上書き　にチェックを入れるとそのままの位置でも使えると思います。

冒頭の初期設定で下記の設定が可能です。

c:/windows/media を指定すると効果音が色々と聞けます。

実行時の位置、効果音、再生秒数が変更できます。位置は1920x1080用。

（効果音はWindows10なら出ると思いますが他のOSでうまく行かない場合は変更して下さい）

同じフォルダにwav、MP3ファイルを置くならパス設定は不要です。（ptn）

秒数で曲を何秒再生するか指定できます。フル再生時の秒数制限。

動画は７２０×４００用に調整しているのでうまく再生出来ない場合はウィンドウ関連項目を変更。

使用するデータ拡張子。

フル再生時の計算定数。（ファイルデータ容量から計算する簡易的なものです）

再生する動画フォルダ。（これを自分用に設定するのがお勧め）

あるいはexeファイルを動画フォルダに置いて使用。

ベクターにアップされている音量調整DLLを使用する時の設定音量。

フォルダ選択にはhspext.dll、音量設定にはKexMP3.DLLが必要。

再生済み動画Enms.dat、フル再生名Fpms.datです。

フル再生はエディタで編集しても良いですが簡易的なものなので余りこの機能は使わない方がいいです。

　KexMP3.DLL

いくつか機能も追加してこれも面白い。それの一方でバグも発生するのが厄介。

使える範囲で軽く使うのが良いだろうと思う。

　ＨＳＰ３

;**************************************************

;音楽再生　2019.12　ぷれでた 公開用

;Ver1.0.0　ランダムのみ、６０秒

;Ver1.0.1　再生曲、フル曲記録追加

;Ver1.0.2　公開用に変更

;**************************************************

;初期設定

wx = 480 : wy = 240 ;ウィンドウの初期位置

sx = 800 : sy = 520 ;ウィンドウサイズ

ptn = "C:/windows/media/" ;効果音パス

mn1 = ptn + "Windows Navigation Start.wav" ;クリック音

mn2 = ptn + "Alarm01.wav" ;アラーム音

Ptim = 60 ;再生時間（秒）

Mxmn = 500 ;最大曲

Dtcv = 131100 ;MP3:15800 WMV:131100

Dtcv2 = 15800 ;MP3:15800 WMV:131100

Mtim = 300 ;１曲の最大時間

Dft1 = "*.MP3" ;データ拡張子

Dft2 = "*.WAV" ;データ拡張子

Dft3 = "*.WMV" ;データ拡張子

;Nwfd = "D:/MPEG" ;動画フォルダ

;chdir Nwfd ;動画フォルダ移動

;#include "KexMP3.as" ;音量調整

;MP3Ready 30,30,100 ;音量設定

;**************************************************

sdim pmus,50,Mxmn ;音楽名

sdim enms,50,Mxmn ;再生済み音楽名

sdim fpms,50,Mxmn ;全曲再生音楽名

sdim buf,4096,1 ;

dim mpo,Mxmn ;再生順

dim mptm,Mxmn ;再生時間

px = 40 : py = 45 ;表示位置指定

cply = 0 ;クリック音

cply2 = 0 ;アラーム音

Icnt = 0 ;インターバル動作カウント

Acnt = 0 ;全カウント

Mcnt = 0 ;曲数

ITS = 1000 ;１秒毎に割り込み

tmgo = 0 ;タイマー制御

tim = 0 ;タイマー

Ntim = 0 ;現在秒数

Ecnt = 0 ;演奏済み曲数

Fcnt = 0 ;フル再生曲数

#packopt name "Video01" ;exeファイル名

#define WM_TIMER 0x0113 ;タイマーメッセージ

#define TIMER_ID 1 ;タイマーID

#include "user32.as" ;タイマーＡＰＩ

#include "hspext.as" ;フォルダ選択

randomize ;乱数発生

oncmd gosub *OnTimer, WM_TIMER ;タイマー割込み

onexit *pend ;ウィンドウの×ボタンで終了

screen 0,sx,sy,0,wx,wy ;ウィンドウサイズ

cls 4:color 255,255,255 ;画面初期化

title "ＶＰ Ver.1.0.2 By ぷれでた" ;タイトル表示

gosub *stbtn ;ボタン配置

gosub *LDSound ;効果音読み込み

gosub *Rdenms ;再生済み音楽読込

gosub *DatSet ;データ設定

gosub *Rdfpms ;フル再生音楽読込

gosub *Chkfpms ;フル再生音楽チェック

stop ;一時停止してキー割り込みを待つ

;**************************************************

*statm ;ランダム

gosub *DatSet2 ;データ順再設定

gosub *ctmstm1 ;音楽＆タイマー動作

stop ;一時停止

*restm ;１分

gosub *ctmstm1 ;音楽＆タイマー動作

stop ;一時停止

;**************************************************

*stoptm ;ポーズ

if tmgo = 1 { ;動作中

gosub *ctmstm0 ;音楽＆タイマー停止

} ;

else { ;停止中

gosub *prttim ;タイマー表示

mmplay 2 ;再生再開

gosub *conttm1 ;タイマー制御

}

stop ;一時停止

*secfd ;フル再生曲記録

gosub *Wtfpms ;フル再生音楽記録

stop ;一時停止

*secfd2 ;フォルダ選択

gosub *ctmstm0 ;音楽＆タイマー停止

a = "" ;

selfolder a,"曲フォルダ"

if a!"" { ;

Nwfd = a ;

chdir a ;フォルダ変更

gosub *Rdenms ;再生済み音楽読込

gosub *DatSet ;データ読み込み

gosub *Rdfpms ;フル再生音楽読込

gosub *Chkfpms ;フル再生音楽チェック

gosub *prttim ;タイマー表示

} ;

stop ;一時停止

*nxtms ;次の曲

gosub *Muscnt1 ;音楽再生

if Icnt>Acnt : gosub *ctedms ;再生終了

stop ;一時停止

;**************************************************

*pend ;終了

gosub *ctmstm0 ;音楽＆タイマー停止

if Icnt>=Acnt : Ecnt=0 : enms.1="" ;演奏済みデータリセット

if Acnt>0 : gosub *Wtenms ;再生済み音楽記録

end ;

;**************************************************

*ctmstm0 ;音楽＆タイマー停止

mmstop ;音楽停止

gosub *conttm0 ;タイマー制御

gosub *prttim ;データ表示

gosub *pmsc1 ;クリック音

return ;

*ctmstm1 ;音楽＆タイマー動作

if Acnt = 0 : return ;バグ対策

gosub *pmsc1 ;クリック音

Icnt = 0 ;

Ntim = 0 ;

gosub *Muscnt1 ;音楽再生

return ;

*ctedms ;再生終了

if Acnt = 0 : return ;バグ対策

Icnt = Acnt ;

gosub *ctmstm0 ;音楽＆タイマー停止

gosub *pmsc2 ;終了音

Ecnt=0:enms.1="" ;演奏済みデータリセット

gosub *Wtenms ;再生済み音楽記録

return ;

;**************************************************

*Muscnt1 ;音楽再生

Icnt = Icnt + 1 ;次の曲

if Icnt>Acnt : return ;終了判定

repeat ;演奏済み曲チェック

x = 1 : b = 0 ;

a = pmus.(mpo.Icnt) ;曲名

repeat ;

if x>Ecnt : enms.x = a : Ecnt=Ecnt+1 : b = 1 : break ;未演奏

if a=enms.x : break ;演奏済み

x = x + 1 ;

loop ;

if b = 1 : break ;未演奏

Icnt = Icnt + 1 ;次の曲チェック

loop ;

if Icnt>Acnt : return ;終了判定

;color 0,0,0:boxf 450,0,px+800,py:color 255,255,255 ;表示を消す

mmload pmus.(mpo.Icnt),2 ;データロード

tim = mptm.(mpo.Icnt) ;再生時間

gosub *prttim ;データ表示

mmplay 2 ;曲演奏

gosub *conttm1 ;タイマー制御

return ;

;**************************************************

*OnTimer ;タイマー割込み

tim = tim - 1 ;

Ntim = Ntim + 1 ;

if tim<=0 { ;

gosub *Muscnt1 ;音楽再生

if Icnt>Acnt { ;再生終了

gosub *ctedms ;再生終了

return ;

} ;

} ;

gosub *prttim ;タイマー表示

return ;

;**************************************************

*prttim ;データ表示

color 0,0,0:boxf 0,0,px+800,py+400:color 255,255,255 ;表示を消す

pos px,py:mes "No. : "+str(Icnt)+" / "+str(Acnt)+" / "+str(Ecnt)+" / "+str(Fcnt)+" Time : "+str(tim)+" / "+str(Ntim)+" "+pmus.(mpo.Icnt)+" "+Nwfd ;再生情報

return ;

;**************************************************

*conttm0 ;タイマー制御

KillTimer hwnd, TIMER_ID : tmgo = 0 ;タイマー停止

return ;

*conttm1 ;タイマー制御

SetTimer hwnd, TIMER_ID, ITS, 0 : tmgo = 1 ;タイマー起動 １Ｓ

return ;

;**************************************************

*pmsc1 ;クリック音

if cply = 1 : mmplay 0 ;音源ありなら再生

return ;

*pmsc2 ;アラーム音

if cply2 = 1 : mmplay 1 ;音源ありなら再生

return ;

;**************************************************

*stbtn ;ボタン配置

x = 40 : y = 10 ;表示位置指定

objsize 70,24 ;ボタン大きさ

pos x ,y:button "ランダム",*statm ;ボタン配置

pos x+ 80,y:button "アルファ",*restm ;ボタン配置

pos x+160,y:button "一時停止",*stoptm ;ボタン配置

pos x+240,y:button "フル記録",*secfd ;ボタン配置

pos x+320,y:button "フォルダ",*secfd2 ;ボタン配置

pos x+400,y:button "次の動画",*nxtms ;ボタン配置

return ;

;**************************************************

*LDSound ;効果音読み込み

exist mn1 ;ファイルがあるか？

if strsize > 0 : mmload mn1,0 : cply = 1 : pos px+500,py-30 : mes "クリック音あり" ;

exist mn2 ;ファイルがあるか？

if strsize > 0 : mmload mn2,1 : cply2 = 1 : pos px+630,py-30 : mes "アラーム音あり" ;

gosub *pmsc1 ;クリック音

wait 100 ;

return ;

;**************************************************

*DatSet ;音楽ファイル読み込み

m = 0 : k = 0 ;

notesel buf ;

repeat ;

n = 0 : buf = "" ;MP3とWAV再生

if m = 0 : dirlist buf,Dft1,1

if m = 1 : dirlist buf,Dft2,1

if m = 2 : dirlist buf,Dft3,1

repeat ;

noteget a,n ;データを得る

if a="" : break ;データ無しなら終了

k = k + 1 : n = n + 1 ;

pmus.k = a ;ファイル名にスペースがあると

mpo.k = k ;再生できない

if k>=Mxmn : break ;最大曲制限

loop ;

m = m + 1:if m>=3 : break ;

loop ;

Acnt = k ;全曲数

gosub *prttim ;データ表示

return ;

;**************************************************

*DatSet2 ;音楽ランダム再生

if Acnt = 0 : return ;バグ対策

n = 1 ;再生順再指定

repeat ;

repeat ;

m = rnd(Acnt) + 1 ;ランダム

k = 1 ;

repeat ;

if mpo.k = m : break

k =k + 1 ;

if k>n : break ;

loop ;

if k>n : break ;

loop ;

mpo.n = m ;

n = n + 1 ;

if n>Acnt : break ;

loop ;

return ;

;**************************************************

*Rdenms ;再生済み音楽読込

fnam = "Enms.dat" ;

dat = "" ;

notesel dat ;データバッファ設定

exist fnam ;

if strsize = -1 : notesave fnam ;ファイル作成

noteload fnam ;データ読み込み

n = 0 ;

repeat ;

noteget buf,n ;

if buf="" : break ;

n = n + 1 ;

enms.n = buf ;

if n >= Mxmn : break ;最大曲制限

loop ;

Ecnt = n ;再生終了曲数

return ;

;**************************************************

*Wtenms ;再生済み音楽記録

fnam = "Enms.dat" ;

dat = "" ;

notesel dat ;データバッファ設定

n = 1 ;

repeat ;

if enms.n="" : break ;

noteadd enms.n ;データ追加

n = n + 1 ;

if n > Ecnt : break ;

loop ;

notesave fnam ;データ記録

return ;

;**************************************************

*Rdfpms ;フル再生音楽読込

fnam = "Fpms.dat" ;

dat = "" ;

notesel dat ;データバッファ設定

exist fnam ;

if strsize = -1 : return ;ファイル無しで処理終了

noteload fnam ;

n = 0 ;

repeat ;

noteget buf,n ;

if buf="" : break ;

n = n + 1 ;

fpms.n = buf ;

if n >= Mxmn : break ;最大曲制限

loop ;

Fcnt = n ;フル再生曲数

return ;

;**************************************************

*Wtfpms ;フル再生音楽記録

if Acnt = 0 : return ;バグ対策

fnam = "Fpms.dat" ;

dat = "" ;

notesel dat ;データバッファ設定

a = pmus.(mpo.Icnt) ;

n = 1 ;

repeat ;

if n > Fcnt : break ;記録曲なし

if a = fpms.n : break ;記録曲あり

noteadd fpms.n ;データ追加

n = n + 1 ;

loop ;

if n<=Fcnt : return ;記録しない

Fcnt = Fcnt + 1 ;

fpms.n = a ;

noteadd a ;データ追加

notesave fnam ;データ記録

pos px+500,py-30:mes " 記録 : "+a ;現在フォルダ

return ;

;**************************************************

*Chkfpms ;フル再生音楽チェック

n = 1 ;

repeat ;

if n>Acnt : break ;

exist pmus.n ;ファイル容量

if strsize = -1 { ;ファイル無しで

mptm.n = 1 ;１秒

} ;

else { ;ファイルあり

mptm.n = Ptim ;

a = strmid(pmus.n,-1,3) ;

if (a="WMV")|(a="wmv") : mptm.n = strsize / Dtcv ;再生秒数

if (a="MP3")|(a="mp3") : mptm.n = strsize / Dtcv2 ;再生秒数

if mptm.n > Mtim : mptm.n = Mtim ;最大５分

} ;

if mptm.n > Ptim { ;曲が長い場合確認

gosub *Chkfpms2 ;フル再生音楽チェック

if an = 0 : mptm.n = Ptim ;短時間再生

} ;

n = n + 1 ;

loop ;

return ;

*Chkfpms2 ;フル再生音楽チェック

x = 1 : an = 0 ;

repeat ;曲名一致するか？

if x>Fcnt : break ;

if pmus.n = fpms.x : an = 1 : break ;

x = x + 1 ;

loop ;

return ;

;**************************************************

かつてはスピーカーと言えば有線かＵＳＢで接続するのが普通だったが最近はこれが増えている。コンパクトで音もそこそこ良くバッテリー内臓で色々な所に持って行って聞ける。防水仕様のものもある。私はそういう使い方はしないので興味は無いけど。

アレクサを買ってから音楽を聴く機会が増えてもう少し良い音で聞きたいと思うようになった。その他、ＰＣでプレイヤーの自作をしたりして欲しくなってきたので購入してみた。

最初、Echo Studioというアマゾンのものが気になったのだが値段が高い上に売れていて在庫が無く１か月位待たなければならない。Echo２台も必要ないし命令を出すのは今ので出来るので単なるスピーカーに２万以上は高いと思えたので他のを探す事にした。

上位機種で音も良さそうな上に価格もクーポン等で９０００円弱で買えた。

ネットの評判も割と良かったので期待していたのだが。

使い勝手等は次の項目から書いて行こうと思う。

　Soundcore Motion+

仕方が無いので本体の上部にあるBluetoothマークのボタンを長押しするとＬＥＤが白く点滅してペアリングモードに入ったような動作になるのだがいつまでたっても接続しない。悩みながら色々と試してみるとボタンを短く押すと青色に点滅するのが分かった。その状態でAndroidスマホで接続操作をするとやっと接続。音が出るようになった。

次にアレクサに接続しようとしたがこれまた苦戦。アレクサ自体にスピーカー機能があるせいかデバイスで接続しようとするとうまくいかない。EchoDotのスピーカーの項目から接続するとうまくいった。これはアレクサが説明するべき事だと思うのだが有名機器なので書いてくれた方が親切だ。

さらにWindows10のＰＣに接続すると接続は簡単に出来たが音がぶつ切りでまともに再生できない。４年前に買ったインテルＮＵＣと去年秋に買ったマウスコンピューターで奴でやってがどちらもダメ。去年買ったばかりのノートＰＣでもダメなのはWindows10の問題のような気がするが残念だ。プレイヤーはＨＳＰ自作のものだがこれで聞けないと個人的に余り意味が無いので。

色々と試して分かった事をまとめてみる。

基本バッテリー使用のようで最初にＵＳＢケーブルで充電する。５Ｖ、２Ａの充電器が必要。充電中は正面右側面の電源ボタンが赤く光る。終了すると消える。終わったらケーブルを抜く。

２回目以降は自動的に接続するので接続出来たら青く点灯する。

アレクサと接続する時はアレクサのアプリの　Echo・Alexa－○○さんのEchoDot－スピーカー　からペアリングを行う。デバイスからやってもダメ。

ＨＳＰアプリ＆Windows10は単独接続でもしばらく使ってるとぶつ切り再生になる。

その他のソフトでは一応正常に再生できる模様。現象が起きると他の機器と接続しなおしても異常になる。電源ＯＦＦ／ＯＮや接続やり直しする必要がありそう。

その後、ＨＳＰアプリ＆Windows10＆このスピーカーでこの現象が起こるのが分かったのでアプリをエミュレーター上のWindows8で動かすとほぼ正常に動くようになった。ＶｍｗａｒｅとＶｉｒｔｕａｌＢｏｘで動作を確認した。動くようになってとりあえず良かった。

アレクサとの連携ではほぼ安定して動くけど時々再生が詰まるようになる事がある。その時はアレクサ本体、スピーカーの電源ＯＦＦ／ＯＮで一応直る。

これはマルチペアリング（何台かのスマホやＰＣに同時接続する）のに対応していないようだ。１台に接続したままで他の機器に接続できるけど再生がぶつ切りになる模様。ソニーのＳＲＳ－ＸＢ３２，２２は３台までの同時利用が可能のようだ。（マルチデバイスコネクション）こういう情報はちゃんと教えてくれると助かるが。

アプリでファームウェアのアップデートやパワーオフ時間を設定できるが余り使う事がなさそうなので私は削除した。（SoundCoreというアプリ）

本体上部の＋、－ボタンで音量を変更できる。使うのはBluetoothボタンとこれ位か。AndroidアクオスSense2、iPad Air2、EchoDot第３世代では問題無く使える。

オーディオマニアでは無いので音について評価は出来ないが音にはパワーを感じる。音量を絞って５ｍ位離して聞いている。机のすぐそばで聞くのを無理そう。

音源によりクリアだったりこもった感じになったり色々と変化する。

音源を忠実に再生しているともいえる気がするが。

オートパワーＯＦＦ機能があり最大１時間なのでBluetooth接続していても容赦なく切れる。いちいちONするのが面倒。充電中は切れないという噂があるので確かめてみたい。消費電力も確認したい。

　Anker Support

また、Windows10で使えないのも残念だ。この２つのせいで印象は非常に悪い。

しかし、使えるようになると音は悪くないしアレクサとの連携は出来たのでしばらく使ってみる。手元のアレクサで命令して少し離れたスピーカーから音楽を聞くのは快適だ。それだけに取説の不備は残念だ。ここまで手を抜いたらダメだろ。

独立型イヤホンも発売していて興味はあったのだがしばらくこの会社はパスだな。

ソニーの複数のスマホやＰＣと接続できるスピーカーは高いが使いやすそうだ。