' ' ************************************************* ' * * ' * 鉄道模型 MP3 サウンド・ユニット プログラム * ' * * ' * AVR is using ATmega644P * ' * Basic Compiler is BASCOM-AVR * ' * Copyright By O-Family 2008. 5.21 * ' ************************************************* ' ' Ver 1.01 初回公開バージョン ' ' Const Prgver = "V1.01" 'プログラム・バージョン。 ' $regfile = "M644PDEF.DAT" $crystal = 19660800 ' $hwstack = 128 $swstack = 128 $framesize = 128 ' ' Vs_so Alias Pina.0 'VS1011B SO 端子接続ポート Vs_si Alias Porta.1 'VS1011B SI 端子接続ポート Vs_sclk Alias Porta.2 'VS1011B SCLK 端子接続ポート Vs_xcs Alias Porta.3 'VS1011B XCS 端子接続ポート Vs_xreset Alias Porta.4 'VS1011B XRESET 端子接続ポート Vs_xdcs Alias Porta.5 'VS1011B XDCS 端子接続ポート Vs_dreq Alias Pina.6 'VS1011B DREQ 端子接続ポート ' Sd_cs Alias Portb.4 'SD/MMCカード /CS 端子接続ポート Sd_cd Alias Pinb.2 'SD/MMCカード CARD DETECT 端子接続ポート Sd_cdpu Alias Portb.2 'プルアップ用 Sd_wp Alias Pinb.3 'SD/MMCカード WRITE PROTECT 端子接続ポート Sd_wppu Alias Portb.3 'プルアップ用 ' Sw_pi Alias Pinc 'スイッチ・外部制御端子 ポート Sw_po Alias Portc 'プルアップ用 Sw_en Alias Portd.0 'スイッチ用 イネーブル Ex_en Alias Portd.1 '外部制御端子用 イネーブル Sw_9 Alias Pinb.0 'スイッチ9 ポート Sw_9pu Alias Portb.0 'プルアップ用 ' ' Dim Fbuff(512) As Byte '音声データ用バッファ。 Dim Buffpoi As Word '音声データ用バッファ・ポインタ。 Dim Vsctemp As Byte 'VS1011Bへのコマンド送信用、テンポラリ。 Dim Vscadr As Byte 'VS1011Bへのコマンド送信用、アドレス。 Dim Vscpar1 As Byte 'VS1011Bへのコマンド送信用、パラメータ上位8bit。 Dim Vscpar2 As Byte 'VS1011Bへのコマンド送信用、パラメータ下位8bit。 Dim Volume As Byte '音量。 Dim Voltemp As Byte '音量のテンポラリ。 Dim Lpc1 As Byte '転送ループ・カウンタ No.1。 Dim Lpc2 As Byte '転送ループ・カウンタ No.2。 ' Dim Keycun As Byte 'キー入力チェック用タイマーカウンター。 Dim Keyflg As Byte 'キー入力検出フラグ。 Dim Keydat As Byte 'キー入力データ。 Dim Keytmp As Byte 'キー入力用テンポラリ。 Dim Keyptd As Byte 'キー入力用ポート・データ。 ' Dim Keyasfn(16) As String * 8 'スイッチ割り当てファイル名。 Dim Sw9flag As Byte '停止キー用フラグ。 Dim Edkeyno As Byte '設定中のキー番号。 Dim Edasgnum As Byte '設定中のファイル番号。 ' Dim Playsta As Byte '再生状態。 Dim Playmax As Word '総曲数。 Dim Playno As Word '再生曲番号。 Dim Fname As String * 12 '再生曲ファイル名。 ' Dim Temp1 As Byte '汎用テンポラリ変数 Byte型 No.1 Dim Temp2 As Byte '汎用テンポラリ変数 Byte型 No.2 Dim Tempw1 As Word '汎用テンポラリ変数 Word型 No.1 Dim Tempw2 As Word '汎用テンポラリ変数 Word型 No.2 Dim Tempw3 As Word '汎用テンポラリ変数 Word型 No.3 Dim Temps1 As Single '汎用テンポラリ変数 Single型 No.1 Dim Temps2 As Single '汎用テンポラリ変数 Single型 No.2 Dim Tempstr As String * 20 '汎用テンポラリ変数 String型 ' ' Config Vs_so = Input 'VS1011B用ポートの入出力方向を設定。 Config Vs_si = Output Config Vs_sclk = Output Config Vs_xcs = Output Config Vs_xreset = Output Config Vs_xdcs = Output Config Vs_dreq = Input ' Vs_xreset = 0 'VS1011Bをハードウェア・リセット。 Vs_xcs = 1 'VS1011Bのコマンド・チップ・セレクト端子を[H]にセット。 Vs_xdcs = 1 'VS1011Bのデータ・チップ・セレクト端子を[H]にセット。 Vs_sclk = 0 'VS1011Bのシリアル・クロック端子を[L]にセット。 ' Config Sd_cd = Input 'SD/MMCカード用ポートの入出力方向を設定。 Set Sd_cdpu 'プルアップ。 Config Sd_wp = Input Set Sd_wppu 'プルアップ。 ' Config Sw_po = Input 'スイッチ・外部制御端子ポートの入出力方向を設定。 Sw_po = &HFF 'プルアップ。 Config Sw_en = Output Set Sw_en Config Ex_en = Output Set Ex_en Config Sw_9 = Input Set Sw_9pu 'プルアップ。 Config Pinb.1 = Output '未使用ポート。 ' Config Lcdmode = Port 'LCDを4ビットのポートモードに設定。 Config Lcdbus = 4 'LCDデータバスを4bitに設定。 Config Lcdpin = Pin , Db4 = Pord.4 , Db5 = Pord.5 'LCDのポート割り当て。 Config Lcdpin = Pin , Db6 = Pord.6 , Db7 = Pord.7 Config Lcdpin = Pin , E = Pord.3 , Rs = Pord.2 Config Lcd = 16 * 2 'LCD表示を16文字2行に設定。 ' Cursor Off 'LCDのカーソルを設定。 Cls 'LCD表示をすべて消去。 ' ' * SDカードとAVR-DOSの制御プログラムを組み込む * ' $include "Config_MMC_EasyMP3.bas" 'SD/MMCカードのピン設定プログラムを組み込む。 ' If Gbdriveerror <> 0 Then Goto Driveerr 'If 初期化でエラーが発生した? Then ' $include "CONFIG_AVR-DOS_JP.bas" 'AVR-DOSの設定プログラムを組み込む。 ' Temp1 = Initfilesystem(1) 'ファイル・システムを初期化する。 If Temp1 > 0 Then Goto Avrdoserr 'If AVR-DOSエラーが発生した? Then ' ' * A/D・Timerの初期設定 * ' Config Adc = Single , Prescaler = Auto 'A/Dコンバータの設定。 Start Adc 'A/Dコンバータに電源を供給。 ' Config Timer0 = Timer , Prescale = 1024 , Clear Timer = 1 'Timer0 キー入力用。 Ocr0a = 191 'タイマー 100Hz,10mS Config Timer1 = Timer , Prescale = 1024 , Clear Timer = 1 'Timer1 再生時間表示用。 Compare1a = 1919 'タイマー 10Hz,100mS ' ' * VS1011Bの初期設定 * ' Waitms 10 Vs_xreset = 1 'VS1011Bのハードウェア・リセットを解除。 Waitms 10 ' Vscadr = &H00 : Vscpar1 = &H08 : Vscpar2 = &H00 'VS1011Bの動作モードを設定。（VS1002ネイティブ・モード） Gosub Vscomtx Waitms 2 Vscadr = &H03 : Vscpar1 = &H9B : Vscpar2 = &HF7 'VS1011Bの動作クロックを設定。（14.318MHz/2000+&H8000) Gosub Vscomtx Waitms 10 ' Tempw1 = Getadc(7 , &H20) 'A/D CH.7を変換。 Gosub Volset 'VS1011Bに音量値を設定。 ' ' ' * モードの確認 * ' ' If Sw_9 = 0 Then Goto Playmd 'If 電源ONでスイッチ9が押されている? Then ' ' ************************************************* ' * サウンド・ユニット・モード メイン・プログラム * ' ************************************************* ' Sundmd: Lcd "Sound Unit " ; Prgver 'タイトルとプログラム・バージョンを表示。 ' Playmax = 0 'ディレクトリを調べて、総曲数を確認。 Tempstr = Dir( "*.mp3") While Len(tempstr) > 0 Playmax = Playmax + 1 Tempstr = Dir() Wend If Playmax = 0 Then Goto Notfound 'If MP3ファイルが無い? Then ' Open "Keyasign.dat" For Input As #1 'キーの割り当てファイルを開く。 If Gbdoserror = 0 Then 'If キー割り当てファイルが見つかった? Then For Temp1 = 1 To 16 'キーに割り当てられているファイル名を読み込む。 Input #1 , Keyasfn(temp1) Next Temp1 End If Close #1 ' Sundmd01: Gosub Keyin 'キー入力をチェック。 If Keyflg = 0 Then Goto Sundmd01 'If キー入力有り? Else Keyflg = 0 If Sw_9 = 0 Then Goto Editmd 'If 停止キー(SW9)と番号キーが同時に押された? Then ' ' * 再生開始 * ' Sundmd02: Locate 1 , 11 'LCDの再生時間表示エリアをクリア。 Lcd Spc(6) Temp1 = Keydat '押されたキー番号を表示。 Gosub Keynods 'キー番号を表示。 Fname = Keyasfn(keydat) 'キーに割り当てられている、ファイル名を表示。 Locate 2 , 9 If Fname = "" Then Goto Sundmd05 'If キーの割り当てがされていない? Then Lcd Fname Fname = Fname + ".mp3" ' Temp1 = Getattr(fname) '割り当てファイル名の存在を確認。 If Gbdoserror <> 0 Then Goto Sundmd06 'If ファイルに異常有り? Then ' Vscadr = &H00 : Vscpar1 = &H08 : Vscpar2 = &H04 'VS1011Bをソフトウェア・リセット。 Gosub Vscomtx Waitms 2 ' Open Fname For Binary As #1 '再生するファイルを開く。 While Eof(#1) = 0 '曲の終わりまで繰り返し。 Get #1 , Fbuff(1) , , 512 'データを512バイト読み込む。 Buffpoi = 1 For Lpc1 = 1 To 16 '32バイト×16ブロックの繰り返し。 Do : Loop Until Vs_dreq = 1 'VS1011Bの[DREQ]端子が[H]になるまで待つ。 Vs_xdcs = 0 'VS1011Bの[XDCS]端子を[L]にする。（データポートへアクセス） For Lpc2 = 1 To 32 '32バイトを連続送信。 Shiftout Vs_si , Vs_sclk , Fbuff(buffpoi) , 1 Buffpoi = Buffpoi + 1 Next Lpc2 Vs_xdcs = 1 'VS1011Bの[XDCS]端子を[H]にする。 If Keyflg = 0 Then Gosub Keyin 'キー入力をチェック。 If Sw_9 = 0 Then Sw9flag = 1 '停止キー(SW9)をチェック。 Next Lpc1 ' ' * 再生時間を表示 * ' If Tifr1.ocf1a = 0 Then Goto Sundmd03 'If 100mS 経過した? Else Set Tifr1.ocf1a 'Timer1 比較A一致フラグをリセット。 Locate 1 , 12 Gosub Plytimds 'VS1011Bから再生時間を読み込み、LCDへ表示 ' Sundmd03: Gosub Volset 'VS1011Bに音量値を設定。 ' If Keyflg = 1 Then Exit While 'If キー入力有り? Then If Sw9flag = 1 Then Exit While 'If 停止キー(SW9)が押された? Then Wend ' Close #1 'ファイルを閉じる。 Sw9flag = 0 Locate 1 , 12 'LCDの再生時間表示エリアをクリア。 Lcd Spc(5) If Keyflg = 0 Then Goto Sundmd01 'If キー入力有り? Else Keyflg = 0 Goto Sundmd02 End ' ' ' Sundmd05: Lcd "ｾｯﾃｲ ﾅｼ!" 'エラーを表示。 Goto Sundmd01 ' Sundmd06: Locate 1 , 12 'エラーを表示。 Lcd " ｴﾗｰ!" Goto Sundmd01 ' ' ******************************************** ' * サウンド・ユニットの、キー割り当てモード * ' ******************************************** ' Editmd: Locate 1 , 12 'キー割り当てモードのタイトルを表示。 Lcd " ｾｯﾃｲ " Editmd01: Bitwait Sw_9 , Set '停止キー(SW9)が離されるまで待つ。 Gosub Keyport 'キーオフを確認。 If Keydat <> 0 Then Goto Editmd01 'If キーが離された? Else ' Edkeyno = 1 Editmd04: Edasgnum = 0 ' Editmd03: Temp1 = Edkeyno Gosub Keynods 'キー番号を表示。 Fname = Keyasfn(edkeyno) 'キーに割り当てられている、ファイル名を表示。 Locate 2 , 9 If Fname = "" Then Goto Editmd02 'If キーの割り当てがされていない? Then Lcd Fname Fname = Fname + ".mp3" ' Editmd02: If Sw_9 = 0 Then Goto Editmd91 'If 停止キー(SW9)が押された? Then Gosub Keyin 'キー入力をチェック。 If Keyflg = 0 Then Goto Editmd02 'If キー入力有り? Else Keyflg = 0 If Keydat = 1 Then Goto Editmd11 'If [Key1] キー番号を前へ? Then If Keydat = 2 Then Goto Editmd21 'If [Key2] キー番号を次へ? Then If Keydat = 3 Then Goto Editmd31 'If [Key3] 割り当てファイルを前へ? Then If Keydat = 4 Then Goto Editmd41 'If [Key4] 割り当てファイルを次へ? Then If Keydat = 5 Then Goto Editmd51 'If [Key5] 再生? Then Goto Editmd02 ' ' Editmd11: '[Key1] キー番号を前へ。 Edkeyno = Edkeyno - 1 If Edkeyno = 0 Then Edkeyno = 16 'If キー番号が下限値? Then Goto Editmd04 ' ' Editmd21: '[Key2] キー番号を次へ。 Edkeyno = Edkeyno + 1 If Edkeyno > 16 Then Edkeyno = 1 'If キー番号が上限値? Then Goto Editmd04 ' ' Editmd31: '[Key3] 割り当てファイルを前へ。 If Edasgnum < 2 Then 'If 割り当てファイル番号が下限値? Then Edasgnum = Playmax Else Edasgnum = Edasgnum - 1 End If ' Editmd32: Temp1 = 1 '設定中のファイル番号からファイル名を検索。 Fname = Dir( "*.mp3") While Temp1 <> Edasgnum Temp1 = Temp1 + 1 Fname = Dir() Wend Temp1 = Len(fname) 'ファイル名の拡張子部分を除去。 Temp1 = Temp1 - 4 Fname = Left(fname , Temp1) Keyasfn(edkeyno) = Fname 'キー割り当て配列に、ファイル名をセット。 Goto Editmd03 ' ' Editmd41: '[Key4] 割り当てファイルを次へ。 Edasgnum = Edasgnum + 1 If Edasgnum > Playmax Then Edasgnum = 1 'If 割り当てファイル番号が上限値? Then Goto Editmd32 ' ' Editmd51: '[Key5] 再生。 Vscadr = &H00 : Vscpar1 = &H08 : Vscpar2 = &H04 'VS1011Bをソフトウェア・リセット。 Gosub Vscomtx Waitms 2 ' Open Fname For Binary As #1 '再生するファイルを開く。 While Eof(#1) = 0 '曲の終わりまで繰り返し。 Get #1 , Fbuff(1) , , 512 'データを512バイト読み込む。 Buffpoi = 1 For Lpc1 = 1 To 16 '32バイト×16ブロックの繰り返し。 Do : Loop Until Vs_dreq = 1 'VS1011Bの[DREQ]端子が[H]になるまで待つ。 Vs_xdcs = 0 'VS1011Bの[XDCS]端子を[L]にする。（データポートへアクセス） For Lpc2 = 1 To 32 '32バイトを連続送信。 Shiftout Vs_si , Vs_sclk , Fbuff(buffpoi) , 1 Buffpoi = Buffpoi + 1 Next Lpc2 Vs_xdcs = 1 'VS1011Bの[XDCS]端子を[H]にする。 Gosub Keyin 'キー入力をチェック。 Next Lpc1 Gosub Volset 'VS1011Bに音量値を設定。 ' If Keyflg = 1 Then Exit While 'If キー入力有り? Then Wend Close #1 'ファイルを閉じる。 Keyflg = 0 Goto Editmd03 ' ' Editmd91: '[SW9] キー割り当て終了。 Open "Keyasign.dat" For Output As #1 'キーの割り当てファイルに書き込み。 For Temp1 = 1 To 16 Write #1 , Keyasfn(temp1) Next Temp1 Close #1 If Gbdoserror <> 0 Then Goto Sdwrerr 'If 書き込みに異常有り? Then Cls Goto Sundmd ' ' *********************************** ' * キー番号を表示する サブルーチン * Temp1 = キー番号 ' *********************************** ' Keynods: Locate 2 , 5 'LCDのキー番号とファイル名表示エリアをクリア。 Lcd Spc(12) Locate 2 , 1 Select Case Temp1 Case Is < 9 : Lcd "Key-" ; Temp1 Case 9 : Lcd "PS-C" Case 10 : Lcd "PS-B" Case 11 : Lcd "PS-A" Case 12 : Lcd "PS-STA" Case 13 : Lcd "PS-SEL" Case Else : Lcd "Ext-" ; Temp1 End Select Return ' ' ***************************************** ' * プレーヤー・モード メイン・プログラム * ' ***************************************** ' ' * MP3の総曲数を確認 * ' Playmd: Playmax = 0 'ディレクトリを調べて、総曲数を確認。 Tempstr = Dir( "*.mp3") While Len(tempstr) > 0 Playmax = Playmax + 1 Tempstr = Dir() Wend ' If Playmax = 0 Then Goto Notfound 'If MP3ファイルが無い? Then Cls Lcd "No. Total: " '総曲数を表示。 Locate 1 , 14 Lcd Playmax Playno = 1 Gosub Musnds '曲番号とファイル名を表示。 Playsta = 0 '再生状態 = 停止。 Locate 2 , 12 Lcd "STOP " Bitwait Sw_9 , Set 'スイッチ9が離されるまで待つ。 ' ' * キー入力 * ' Playmd01: Gosub Keyin 'キー入力をチェック。 If Keyflg = 0 Then Goto Playmd02 'If キー入力有り? Else Keyflg = 0 If Keydat = 3 Then Goto Playmd11 'If 前曲キー? Then If Keydat = 4 Then Goto Playmd12 'If 次曲キー? Then If Keydat = 5 Then Goto Playmd13 'If 再生キー? Then If Keydat = 7 Then Goto Playmd14 'If 停止キー? Then Goto Playmd02 ' Playmd11: '前曲キー。 Playno = Playno - 1 If Playno = 0 Then Playno = Playmax 'If 最前曲? Then If Playsta = 0 Then Gosub Musnds 'If 再生停止中? Then Goto Playmd02 ' Playmd12: '次曲キー。 Playno = Playno + 1 If Playno > Playmax Then Playno = 1 'If 最終曲? Then If Playsta = 0 Then Gosub Musnds 'If 再生停止中? Then Goto Playmd02 ' Playmd13: '再生キー。 Playsta = 1 Goto Playmd02 ' Playmd14: '停止キー。 Playsta = 0 Locate 2 , 12 Lcd "STOP " ' ' Playmd02: If Playsta = 0 Then Goto Playmd01 'If 再生停止中? Then ' ' * 再生開始 * ' If Playno > Playmax Then Playno = 1 'If 再生する曲が無くなった? Then Gosub Musnds '曲番号とファイル名を表示。 ' Vscadr = &H00 : Vscpar1 = &H08 : Vscpar2 = &H04 'VS1011Bをソフトウェア・リセット。 Gosub Vscomtx Waitms 2 ' Open Fname For Binary As #1 '再生するファイルを開く。 While Eof(#1) = 0 '曲の終わりまで繰り返し。 Get #1 , Fbuff(1) , , 512 'データを512バイト読み込む。 Buffpoi = 1 For Lpc1 = 1 To 16 '32バイト×16ブロックの繰り返し。 Do : Loop Until Vs_dreq = 1 'VS1011Bの[DREQ]端子が[H]になるまで待つ。 Vs_xdcs = 0 'VS1011Bの[XDCS]端子を[L]にする。（データポートへアクセス） For Lpc2 = 1 To 32 '32バイトを連続送信。 Shiftout Vs_si , Vs_sclk , Fbuff(buffpoi) , 1 Buffpoi = Buffpoi + 1 Next Lpc2 Vs_xdcs = 1 'VS1011Bの[XDCS]端子を[H]にする。 Gosub Keyin 'キー入力をチェック。 Next Lpc1 ' ' * 再生時間を表示 * ' If Tifr1.ocf1a = 0 Then Goto Playmd03 'If 100mS 経過した? Else Set Tifr1.ocf1a 'Timer1 比較A一致フラグをリセット。 Locate 2 , 11 Gosub Plytimds 'VS1011Bから再生時間を読み込み、LCDへ表示。 ' Playmd03: Gosub Volset 'VS1011Bに音量値を設定。 ' If Keyflg = 0 Then Goto Playmd04 'If キー入力有り? Else If Keydat < 3 Then Goto Playmd06 'If 無効なキー? Then If Keydat > 7 Then Goto Playmd06 'If 無効なキー? Then If Keydat <> 6 Then Exit While 'If ポーズ・キー? Else Keyflg = 0 'ポーズ・キーの処理。 Playmd05: Gosub Keyin 'キー入力をチェック。 If Keyflg = 0 Then Goto Playmd05 'If キー入力有り? Else If Keydat <> 6 Then Exit While 'If ポーズ・キー? Else Playmd06: Keyflg = 0 ' Playmd04: Wend Close #1 'ファイルを閉じる。 ' If Keyflg = 1 Then Goto Playmd01 'If キー入力有り? Then Playno = Playno + 1 '次曲を再生。 Goto Playmd01 End ' ' ************************* ' * キー入力 サブルーチン * (Keyflg = 1 キー入力有り) ' ************************* (Keydat = キーデータ) ' Keyin: If Tifr0.ocf0a = 0 Then Return 'If Timer0が10mSカウント終了? Else Set Tifr0.ocf0a 'Timer1 比較A一致フラグをリセット。 ' If Keycun < 2 Then Goto Keyin01 'If キー入力チェック開始待ち(30mS)? Then If Keycun = 2 Then Goto Keyin02 'If キー入力チェック開始? Then If Keycun < 3 Then Goto Keyin01 'If チャタリング チェック期間? Then If Keycun = 3 Then Goto Keyin04 'If キー入力再確認? Then ' Gosub Keyport 'キーオフを確認。 If Keydat = 0 Then Goto Keyin05 'If キーオフ? Then Return ' Keyin01: 'キー入力チェック開始待ち(30mS) Keycun = Keycun + 1 Return ' Keyin02: 'キー入力チェック開始。 Gosub Keyport 'キー接続ポートからデータ入力。 If Keydat <> 0 Then Goto Keyin03 'If キー入力有り? Then Keyin05: Keycun = 0 Return ' Keyin03: 'キー入力有り。 Keytmp = Keydat Goto Keyin01 ' Keyin04: 'キー入力再確認。 Gosub Keyport 'キー接続ポートからデータ入力。 If Keydat <> Keytmp Then Goto Keyin05 'If キー入力エラー? Then Keyflg = 1 Goto Keyin01 ' ' ********************************************** ' * キー接続ポートからのデータ入力サブルーチン * (Keydat = キー入力ポートのデータ) ' ********************************************** ' Keyport: Keydat = 0 Sw_en = 0 'プッシュ・スイッチを選択。 Keyptd = Sw_pi Sw_en = 1 If Keyptd = &HFF Then Goto Keyport1 'If プッシュ・スイッチは押されていない? Then Keydat = 1 'スイッチのコード変換。 While Keyptd.0 = 1 Shift Keyptd , Right , 1 Keydat = Keydat + 1 Wend Return ' Keyport1: Ex_en = 0 '外部制御端子を選択。 Keyptd = Sw_pi Ex_en = 1 If Keyptd = &HFF Then Return 'If 外部スイッチは押されていない? Then Keydat = 9 'スイッチのコード変換。 While Keyptd.0 = 1 Shift Keyptd , Right , 1 Keydat = Keydat + 1 Wend Return ' ' ***************************************** ' * 曲番号とファイル名を表示 サブルーチン * ' ***************************************** ' Musnds: Locate 1 , 4 '再生する曲番号を表示。 Lcd Spc(3) Locate 1 , 4 Lcd Playno ' Temp1 = 1 '再生曲番号から、再生するファイル名を検索。 Fname = Dir( "*.mp3") While Temp1 <> Playno Temp1 = Temp1 + 1 Fname = Dir() Wend ' Lowerline 'LCDの2行目に、再生するファイル名を表示。 Lcd Spc(9) Locate 2 , 2 Temp1 = Len(fname) 'ファイル名の拡張子部分を除去。 Temp1 = Temp1 - 4 Tempstr = Left(fname , Temp1) Lcd Tempstr Return ' ' ************************* ' * 音量設定 サブルーチン * ' ************************* ' Volset: Volume = Adch '前回のA/D変換値を読み込む。 Set Adcsra.adsc 'A/D変換開始。 Shift Volume , Right , 1 'ボリューム値を1/2。 If Volume = Voltemp Then Return 'If ボリューム値が変化した? Else Voltemp = Volume Temps1 = Volume + 1 Temps2 = Log(temps1) '自然対数に変換。 Temps2 = Temps2 * 50 Temp1 = Int(temps2) '整数部分を取り出し。 Temp1 = 242 - Temp1 Vscadr = &H0B : Vscpar1 = Temp1 : Vscpar2 = Temp1 'VS1011Bに音量値を設定。 Gosub Vscomtx Waitus 100 Return ' ' ************************************************************ ' * VS1011Bから再生時間を読み込み、LCDへ表示するサブルーチン * ' ************************************************************ ' Plytimds: Vscadr = &H04 'VS1011Bから、再生時間を読み込む。 Gosub Vscomrx Tempw3 = Makeint(vscpar2 , Vscpar1) '2つのバイト変数をワード変数に変換。 Tempw1 = Tempw3 / 60 '再生時間変換 秒 -> 分:秒。 Tempw2 = Tempw1 * 60 Tempw2 = Tempw3 - Tempw2 Tempstr = Str(tempw1) Lcd Format(tempstr , " ") ; ":"; 'LCDへ[分]を表示。 Tempstr = Str(tempw2) Lcd Format(tempstr , "00") 'LCDへ[秒]を表示。 Return ' ' ***************************************** Vscadr = コマンド・レジスタのアドレス ' * VS1011B コマンド書き込み サブルーチン * Vscpar1 = コマンド・パラメータ上位8bit ' ***************************************** Vscpar2 = コマンド・パラメータ下位8bit ' Vscomtx: Do : Loop Until Vs_dreq = 1 'VS1011Bの[DREQ]端子が[H]になるまで待つ。 Vs_xcs = 0 'VS1011Bの[XCS]端子を[L]にする。（コマンドへアクセス） Vsctemp = &H02 Shiftout Vs_si , Vs_sclk , Vsctemp , 1 'VS1011Bへのコマンド書き込み命令 [02]。 Shiftout Vs_si , Vs_sclk , Vscadr , 1 'VS1011Bのコマンド・アドレス・レジスタを指定。 Shiftout Vs_si , Vs_sclk , Vscpar1 , 1 'VS1011Bのコマンド・パラメータ上位8bit 。 Shiftout Vs_si , Vs_sclk , Vscpar2 , 1 'VS1011Bのコマンド・パラメータ下位8bit 。 Vs_xcs = 1 'VS1011Bの[XCS]端子を[H]にする。 Return ' ' ***************************************** Vscadr = コマンド・レジスタのアドレス ' * VS1011B コマンド読み込み サブルーチン * 読み込みデータの上位8bit = Vscpar1 ' ***************************************** 読み込みデータの下位8bit = Vscpar2 ' Vscomrx: Do : Loop Until Vs_dreq = 1 'VS1011Bの[DREQ]端子が[H]になるまで待つ。 Vs_xcs = 0 'VS1011Bの[XCS]端子を[L]にする。（コマンドへアクセス） Vsctemp = &H03 Shiftout Vs_si , Vs_sclk , Vsctemp , 1 'VS1011Bへのコマンド読み込み命令 [03]。 Shiftout Vs_si , Vs_sclk , Vscadr , 1 'VS1011Bのコマンド・アドレス・レジスタを指定。 Shiftin Vs_so , Vs_sclk , Vscpar1 , 1 '読み込みデータの上位8bit 。 Shiftin Vs_so , Vs_sclk , Vscpar2 , 1 '読み込みデータの下位8bit 。 Vs_xcs = 1 'VS1011Bの[XCS]端子を[H]にする。 Return ' ' * SDカード エラー * ' Driveerr: Cls Waitms 200 Lcd "SDｶｰﾄﾞ ｴﾗｰ!" Lowerline Lcd "SDｶｰﾄﾞ ｶﾞ ｱﾘﾏｾﾝ!" Wait 1 Goto Driveerr ' ' * AVR-DOS エラー * ' Avrdoserr: Cls Lcd "AVR-DOS Error! " ; Temp1 Stop ' ' * MP3ファイルが無いエラー * ' Notfound: Cls Lcd "MP3ﾌｧｲﾙ ｶﾞ ｱﾘﾏｾﾝ" Stop ' ' * SDカード 書き込みエラー * ' Sdwrerr: Cls Lcd "SDｶｷｺﾐ ｶﾞ ﾃﾞｷﾏｾﾝ" Stop