ＰＩＣ製作記事

[PR]

×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
車の電子ホーンみたいなヤツ

http://www.gojapan.com/UploadFile/photoMobilencam/2013/11/24/675_ELEC_HORN.PNG

OUTPUTはオーディオアンプを付けないと音が小さいです。

そのままスピーカーを接続しても音は聞こえます。

; PIC12F675 電子ホーン

;           _____________
; VDD 5V =1;            ;8= 0V VSS
; 20MHz =2;(GP5) (GP0);7= OUT____1KΩ________OUTPUT
; 20MHz =3;(GP4) (GP1);6=              T
;     PB =4;(GP3) (GP2);5=            0.1μF
;           ______________　              T               　　　　　　　　
;                                        GND

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

list      p=12f675 ; 翻訳時にリストファイルを作ります
#include <p12f675.inc> ; 12F675用定義ファイルを読み込みます

;ASMファイルでは「;」より右側は読み取りませんので注意書きなり落書きが可能です。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

__CONFIG _CP_OFF & _CPD_OFF & _WDT_OFF & _MCLRE_OFF & _PWRTE_ON & _HS_OSC ;10MHz
                                                     ; _INTRC_OSC_NOCLKOUT ;4MHz

;↑↑動かす条件です。機種によっていろいろ取り決めはありますが、これらは理屈抜きに覚えてください。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

errorlevel -302 ; 翻訳時に302エラーが出ないようにします
radix dec  ; 省略時の数値表現を１０進数にします。

ORG 000H
GOTO INIT

A_DATA_0 EQU 20H ;
A_DATA_1 EQU 21H ;
A_DATA_1A EQU 22H ;
A_CNT  EQU 23H ;
A_SPEED_1 EQU 24H ;
B_DATA_0 EQU 25H ;
B_DATA_1 EQU 26H ;
B_DATA_1A EQU 27H ;
B_CNT  EQU 28H ;
B_SPEED_1 EQU 29H ;

FLAG  EQU 30H ;
ECHO  EQU 31H ;
COUNT  EQU 32H ;
D_CNT  EQU 33H ;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;＜＜＜初期化ルーチン＞＞＞
INIT:

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;プログラムは「GOTO」などの命令がない限り下へ下へと降りて行きます。
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

BSF STATUS,RP0   ;BANK1に切り替え STATUS,RP0を１にするという意味

MOVLW   B'00001000'
MOVWF TRISIO                      ;GPIO

MOVLW   B'10000111'    ;割り込みはTMR0 1:256（このプログラムは割り込みを使っていません）   MOVWF OPTION_REG    ;

CLRF ANSEL

BCF STATUS,RP0   ;BANK0に切り替え STATUS,RP0を０にするという意味

MOVLW B'00000111'   ;GP2,GP1,GP0,
MOVWF CMCON

CLRF A_DATA_0
CLRF A_DATA_1
CLRF A_DATA_1A
CLRF A_CNT
CLRF B_DATA_0
CLRF B_DATA_1
CLRF B_DATA_1A
CLRF B_CNT

CLRF FLAG

MOVLW D'3'
MOVWF A_SPEED_1  ;音程Ｂ
MOVLW D'4'
MOVWF B_SPEED_1  ;音程Ａ

MOVLW D'100'
MOVWF ECHO

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MAIN
CLRF D_CNT
BTFSC GPIO,3   ;GP3 ON?
GOTO MAIN   ;NO
     ;YES

A_MAIN0
MOVLW H'00'
MOVWF PCLATH ; テーブルは 0x000～0x0FF番地内に存在

MOVF D_CNT,W
ADDWF PCL,F

CALL A_PTN_DATA  ;データパターンへ
GOTO A_MAIN00
CALL A_PTN_DATA1  ;データパターン1へ
GOTO A_MAIN00
CALL A_PTN_DATA2  ;データパターン2へ
GOTO A_MAIN00
CALL A_PTN_DATA3  ;データパターン3へ
GOTO A_MAIN00
CALL A_PTN_DATA4  ;データパターン4へ
GOTO A_MAIN00
CALL A_PTN_DATA5  ;データパターン5へ
GOTO A_MAIN00
CALL A_PTN_DATA6  ;データパターン6へ
GOTO A_MAIN00
CALL A_PTN_DATA7  ;データパターン7へ
GOTO A_MAIN00
CALL A_PTN_DATA8  ;データパターン8へ
GOTO A_MAIN00

A_MAIN00
MOVWF A_DATA_1  ;＜＜PWM分子入力＞＞
INCF A_CNT,F   ;データカウント更新
MOVLW D'4'   ;データ総数
SUBWF A_CNT,W
BTFSC STATUS,C  ;データ総数カウント完了？
CLRF A_CNT

A_MAIN1     ;＜＜PWM分母入力＞＞
MOVLW D'40'
MOVWF A_DATA_0
     ;＜＜PWM分母入力＞＞
MOVF A_DATA_1,W
MOVWF A_DATA_1A
     ;＜＜データ値０チェック＞＞
MOVF A_DATA_1,F  ;DATA_1=0?
BTFSS STATUS,Z  ;
GOTO A_MAIN2   ;NO
BCF GPIO,0   ;YES
BCF GPIO,1   ;YES
GOTO A_MAIN3

A_MAIN2     ;＜＜分子減少＞＞
BSF GPIO,0
BSF GPIO,1
DECFSZ A_DATA_1A  ;分子-1=0?
GOTO A_MAIN3   ;NO
BCF GPIO,0   ;YES
BCF GPIO,1   ;YES

A_MAIN3     ;＜＜分母減少＞＞
DECFSZ A_DATA_0,F  ;分母-1=0?
GOTO A_MAIN4   ;NO
     ;YES
     ;＜＜SPEED_1値０チェック＞＞
DECFSZ A_SPEED_1,F  ;SPEED_1-1=0?
GOTO B_MAIN1   ;N0
     ;YES
MOVLW D'3'
MOVWF A_SPEED_1  ;音程Ｂ
GOTO B_MAIN0

A_MAIN4     ;＜＜GP1オフチェック＞＞
BTFSC GPIO,1   ;GP0 ON?
GOTO A_MAIN2   ;YES
NOP    ;NO
NOP
NOP
GOTO A_MAIN3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_MAIN0
MOVLW H'00'
MOVWF PCLATH ; テーブルは 0x000～0x0FF番地内に存在

MOVF D_CNT,W
ADDWF PCL,F

CALL B_PTN_DATA  ;データパターンへ
GOTO B_MAIN00
CALL B_PTN_DATA1  ;データパターン1へ
GOTO B_MAIN00
CALL B_PTN_DATA2  ;データパターン2へ
GOTO B_MAIN00
CALL B_PTN_DATA3  ;データパターン3へ
GOTO B_MAIN00
CALL B_PTN_DATA4  ;データパターン4へ
GOTO B_MAIN00
CALL B_PTN_DATA5  ;データパターン5へ
GOTO B_MAIN00
CALL B_PTN_DATA6  ;データパターン6へ
GOTO B_MAIN00
CALL B_PTN_DATA7  ;データパターン7へ
GOTO B_MAIN00
CALL B_PTN_DATA8  ;データパターン8へ
GOTO B_MAIN00

B_MAIN00
MOVWF B_DATA_1  ;＜＜PWM分子入力＞＞
INCF B_CNT,F   ;データカウント更新
MOVLW D'4'   ;データ総数
SUBWF B_CNT,W
BTFSC STATUS,C  ;データ総数カウント完了？
CLRF B_CNT

B_MAIN1     ;＜＜PWM分母入力＞＞
MOVLW D'40'
MOVWF B_DATA_0
     ;＜＜PWM分母入力＞＞
MOVF B_DATA_1,W
MOVWF B_DATA_1A
     ;＜＜データ値０チェック＞＞
MOVF B_DATA_1,F  ;DATA_1=0?
BTFSS STATUS,Z  ;
GOTO B_MAIN2   ;NO
BCF GPIO,0   ;YES
BCF GPIO,2   ;YES
GOTO B_MAIN3

B_MAIN2     ;＜＜分子減少＞＞
BSF GPIO,0
BSF GPIO,2
DECFSZ B_DATA_1A  ;分子-1=0?
GOTO B_MAIN3   ;NO
BCF GPIO,0   ;YES
BCF GPIO,2   ;YES

B_MAIN3     ;＜＜分母減少＞＞
DECFSZ B_DATA_0,F  ;分母-1=0?
GOTO B_MAIN4   ;NO
     ;YES
     ;＜＜SPEED_1値０チェック＞＞
DECFSZ B_SPEED_1,F  ;SPEED_1-1=0?
GOTO A_MAIN1   ;N0
     ;YES
MOVLW D'4'
MOVWF B_SPEED_1  ;音程Ａ
BTFSS GPIO,3   ;GP3 ON?
GOTO C_MAIN   ;YES
GOTO D_MAIN   ;NO

B_MAIN4     ;＜＜GP2オフチェック＞＞
BTFSC GPIO,2   ;GP2 ON?
GOTO B_MAIN2   ;YES
NOP    ;NO
NOP
NOP
GOTO B_MAIN3

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

C_MAIN
CLRF D_CNT
GOTO A_MAIN0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

D_MAIN
DECFSZ ECHO,F
GOTO A_MAIN0
MOVLW D'100'   ;エコー長さ
MOVWF ECHO
INCF D_CNT
INCF D_CNT
MOVLW D'18'   ;データ総数 18
SUBWF D_CNT,W
BTFSC STATUS,C  ;データ総数カウント完了？
GOTO MAIN
GOTO A_MAIN0

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ORG 200H

A_PTN_DATA
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'40'
RETLW D'1'
; RETLW D'20'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'30'
RETLW D'1'
; RETLW D'12'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA1
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'30'
RETLW D'1'
; RETLW D'15'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA1
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'25'
RETLW D'1'
; RETLW D'8'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA2
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'20'
RETLW D'1'
; RETLW D'10'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA2
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'20'
RETLW D'1'
; RETLW D'5'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA3
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'15'
RETLW D'1'
; RETLW D'7'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA3
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'15'
RETLW D'1'
; RETLW D'5'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA4
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'10'
RETLW D'1'
; RETLW D'5'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA4
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'10'
RETLW D'1'
; RETLW D'4'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA5
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'7'
RETLW D'1'
; RETLW D'5'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA5
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'8'
RETLW D'1'
; RETLW D'4'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA6
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'5'
RETLW D'1'
; RETLW D'3'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA6
MOVLW H'02'
MOVWF PCLATH ; テーブルは 0x200～0x2FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'4'
RETLW D'1'
; RETLW D'2'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ORG 300H

A_PTN_DATA7
MOVLW H'03'
MOVWF PCLATH ; テーブルは 0x300～0x3FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'4'
RETLW D'1'
; RETLW D'3'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA7
MOVLW H'03'
MOVWF PCLATH ; テーブルは 0x300～0x3FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'3'
RETLW D'1'
; RETLW D'2'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

A_PTN_DATA8
MOVLW H'03'
MOVWF PCLATH ; テーブルは 0x300～0x3FF番地内に存在

MOVF A_CNT,W
ADDWF PCL,F

RETLW D'2'
RETLW D'1'
; RETLW D'2'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

B_PTN_DATA8
MOVLW H'03'
MOVWF PCLATH ; テーブルは 0x300～0x3FF番地内に存在

MOVF B_CNT,W
ADDWF PCL,F

RETLW D'2'
RETLW D'1'
; RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'
RETLW D'1'

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

END

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[0回]
PR
久しぶりにＰＩＣ工作

まったく久しぶりですよ。

ＰＩＣで電子工作です。

今まで頭の中には構想はあったのですが、どうでも良いような物だったので手を付けていませんでした。

しかし、暇だったので手を付けてしまいました。

自動車のタコメーターの類似品で回転数に合わせてＬＥＤの風車が回転するって感じの物ですよ。

今まで作ったタコメーターはエンジンコンピューター（ＥＣＵって言ったっけ？）から信号を貰っていましたが、

今回は違います。

点火プラグから出るノイズをアンテナ（リード線）でキャッチしてそのタイミングを利用してＬＥＤの点灯箇所を

変えるって寸法です。

これは部屋で撮影した写真です。回転し過ぎて全点等って感じですね。

つまりこの部屋、ノイズだらけってことですよ。

実際はＴＯＹＯＴＡのタウンエースに付けてます。本当は付けていません。乗せているだけです。

先ほどのお話のアンテナ（リード線）をエンジン付近の電装線に巻き付けてノイズをキャッチするつもりでしたが

この車はエンジンが座席の下にありまして、ダッシュボードの上にリード線を置いただけでノイズをキャッチして

良い具合に回転しました。

お見せ出来ないのが残念です。

こんな感じです。これで雰囲気を感じ取ってくださいませ。

アクセルを踏み込むと回転が速くなるってワケですね。

高速道路で３０００回転以上出すともう大変なぐらい回りますよ。

上の回転で１５００回転ぐらいです。

回路図はこれ。部品点数も少なく短時間で製作可能です。

詳しい内容は

http://milky.geocities.jp/waewax/PAGE8.html

の

作品５：車載用回転ＬＥＤ【ＰＩＣ１６Ｆ６４８Ａ】

って所を見てください。

　

んじゃね～～～～。

[0回]
今度こそＰＩＣの話。

２～３日前にメールをいただいた。

尾を引いて流れるナイトライダー風の電飾の話で、８個のＬＥＤ仕様は載せているが１０個は出来ないか？との問い合わせ。

　んで、思い切って１２個で行きましょうってことで頑張りました。

ＰＩＣ１６Ｆ８４Ａで１２個ＬＥＤの尾を引いて流れるナイトライダー風の電飾の完成です！。

プログラムはhttp://picdetukutte.toshi-ie.com/PAGE8.htmlの一番下です。

こっそりと追加してあります。

　暇な人は作ってね。

んじゃね～～～～。

[0回]
縁日（えんにち）のピカピカ～PIC12F629

２～３年前から縁日（えんにち）でピカピカ光るモノが売られていた。

今年の夏もきっと売られるんでしょうなあ。

中国製っぽい赤と青とかのLEDが振動を与えるとピカピカ光るヤツ。

そんなピカピカを作ってみた。

振動ではなく単純にスイッチオン！で作動するごくごく当たり前な仕様です。

なんでそんなクダラナイ物を作ったかと申しますと

実はワタクシ、夜１０時ぐらいから約１時間ウオーキングと称して深夜徘徊をしているのだ。

んで、街路灯の少ない暗い道を歩いていると無灯火の自転車とぶつかりそうになるのだよ。

こっちもしっかり前を見ていりゃ良いのだけれど、下向いて歩いてるときがあるので

そーゆーときに「あっ！」となるわけ。

だから、こっちも相手にわかるように光るモノを身に付けてたら安心だね、ってことでね。

でも懐中電灯でもいいんじゃないかな、とも思ったけれど下着泥棒も懐中電灯を持ってそうだしね。

下着泥棒に間違えれたら困るので懐中電灯は却下。

で、ウチにあった例の中国製のピカピカを付けてたら良い感じ。

変なヤツとは思われてるようなので人も近付いて来ないのでいいね。

でもこの中国製、小さなボタン電池なのですぐ電池が無くなってしまった。

んじゃ、単３電池で作りましょってことですよ。

電池ホルダーを改造して作ったのだ。

回路は簡単。

PIC12F629とソケット、0.1μF、１５１Ω、LED赤、黄、青、と単３電池３本だけ。

ASMファイルはこの下。

LEDはカソード３つまとめて１つの１５１ΩにつないでGNDへ。

０．１μFはVDD＿VSS間に接続。

;
;
; PIC12F629 ＜＜散歩用ＬＥＤランプ＞＞＞
;
; PIC12F629のピン配置
;               _____________
;    VDD 4.5V =1;            ;8= 0V VSS
;     NOT USE =2;(GP5) (GP0);7= LED0 赤----|
;     NOT USE =3;(GP4) (GP1);6= LED1 黄----|----<151Ω>-----<GND>
;     NOT USE =4;(GP3) (GP2);5= LED2 青----|
;               _____________　　　　　　　　　　　
;
;
   ;←このマークより右側はＰＩＣは読み取りません。好きなことを書いて構いません。

list      p=12f629 ; 翻訳時にリストファイルを作ります
#include <p12f629.inc> ; 12F675用定義ファイルを読み込みます
errorlevel -302 ; 翻訳時に302エラーが出ないようにします

__CONFIG _CP_OFF & _CPD_OFF & _BODEN_OFF & _MCLRE_OFF & _WDT_OFF & _PWRTE_ON & _INTRC_OSC_NOCLKOUT ;4MHz 　
;↑これらの内容は自分で調べてみてください。パターン化した物と考えてもらっても良いです。

radix dec  ; 省略時の数値表現を１０進数にします。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ORG 000H
  GOTO INIT ;通常のプログラムの始まりは「INIT」です。そこへ行けと言う命令語

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

COUNT  EQU 20H ;カウンタ
TM1  EQU 21H ;タイマー１
TM2  EQU 22H ;タイマー２
TM3  EQU 23H ;タイマー３

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;---- 初期化ルーチン ----  ;ここはマイクロチップ社のデータ表を見ながらの作業になります。

INIT     ;＜＜＜ここからがプログラムの始まり　PICの初期設定をします。＞＞＞

BSF STATUS,RP0  ;BANK 1 へ行けの意味 ;PICの設定箇所には「BANK 0」「BANK 1」などがあります。

MOVLW   B'00001000'  ;３番ピンは入力用　あとは出力用ピン（電源やセラロックはそれなりに機能します）
MOVWF TRISIO                  ; 上記のピンの割付を決定

MOVLW   B'00000111'             ;オプション情報　今回は黙ってこのまま。（気になるなら調べてみてください）
MOVWF OPTION_REG   ;OPTIONレジスタに書き込む

BCF STATUS,RP0  ;BANK 0　へ行けの意味 ;PICの設定箇所には「BANK 0」「BANK 1」などがあります。

MOVLW B'00000111'
MOVWF CMCON

CLRF GPIO

GOTO MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

MAIN     ;＜＜＜メインプログラム＞＞＞

MOVLW D'10'
MOVWF COUNT   ;10をCOUNTへ代入
MAIN0
BSF GPIO,0   ;LED0 ON 赤ON
CALL TIMER   ;タイマールーチン
BCF GPIO,0   ;LED0 OFF 赤OFF
CALL TIMER   ;タイマールーチン
DECFSZ COUNT,F   ;COUNT-1=0?
GOTO MAIN0   ;NO
     ;YES
CALL TIMER   ;タイマールーチン
CALL TIMER   ;タイマールーチン

MOVLW D'10'
MOVWF COUNT   ;10をCOUNTへ代入
MAIN1
BSF GPIO,1   ;LED1 ON 黄ON
CALL TIMER   ;タイマールーチン
BCF GPIO,1   ;LED1 OFF 黄OFF
CALL TIMER   ;タイマールーチン
DECFSZ COUNT,F   ;COUNT-1=0?
GOTO MAIN1   ;NO
     ;YES
CALL TIMER   ;タイマールーチン
CALL TIMER   ;タイマールーチン

MOVLW D'10'
MOVWF COUNT   ;10をCOUNTへ代入
MAIN2
BSF GPIO,2   ;LED2 ON 青ON
CALL TIMER   ;タイマールーチン
BCF GPIO,2   ;LED2 OFF 青OFF
CALL TIMER   ;タイマールーチン
DECFSZ COUNT,F   ;COUNT-1=0?
GOTO MAIN2   ;NO
     ;YES
CALL TIMER   ;タイマールーチン
CALL TIMER   ;タイマールーチン

MOVLW D'10'
MOVWF COUNT   ;10をCOUNTへ代入
MAIN3
BSF GPIO,0   ;LED0 ON 赤ON
CALL TIMER   ;タイマールーチン
BCF GPIO,0   ;LED0 OFF 赤OFF
CALL TIMER   ;タイマールーチン
BSF GPIO,0   ;LED0 ON 赤ON
CALL TIMER   ;タイマールーチン
BCF GPIO,0   ;LED0 OFF 赤OFF
CALL TIMER   ;タイマールーチン

BSF GPIO,1   ;LED1 ON 黄ON
CALL TIMER   ;タイマールーチン
BCF GPIO,1   ;LED1 OFF 黄OFF
CALL TIMER   ;タイマールーチン
BSF GPIO,1   ;LED1 ON 黄ON
CALL TIMER   ;タイマールーチン
BCF GPIO,1   ;LED1 OFF 黄OFF
CALL TIMER   ;タイマールーチン

BSF GPIO,2   ;LED2 ON 青ON
CALL TIMER   ;タイマールーチン
BCF GPIO,2   ;LED2 OFF 青OFF
CALL TIMER   ;タイマールーチン
BSF GPIO,2   ;LED2 ON 青ON
CALL TIMER   ;タイマールーチン
BCF GPIO,2   ;LED2 OFF 青OFF
CALL TIMER   ;タイマールーチン

DECFSZ COUNT,F   ;COUNT-1=0?
GOTO MAIN3   ;NO
     ;YES
CALL TIMER   ;タイマールーチン
CALL TIMER   ;タイマールーチン

GOTO MAIN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

TIMER     ;＜＜＜タイマールーチン 0.05SEC＞＞＞

MOVLW D'250'
MOVWF TM1   ;250をTM1へ代入

TIMER1
MOVLW D'50'
MOVWF TM2   ;50をTM2へ代入

TIMER2
NOP
DECFSZ TM2,F   ;TM2-1=0?
GOTO TIMER2   ;NO
     ;YES
DECFSZ TM1,F   ;TM1-1=0?
GOTO TIMER1   ;NO
     ;YES
RETURN

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

END

[0回]
まだまだ超音波距離計

まだまだ超音波距離計で遊んでいます。

今日は初めて外で遊んでみました。

コンクリート製の壁に向けて測ってみたらナント５mを超えました。

なんだかスゴイね。

精度的なバラツキはあるけれど、これで距離が測れるってのが感動ですよ。

ではこれを製作するにあたって購入した部品とお店とお値段をご紹介しましょ。

まずPIC１６F８４A。これは名古屋大須の第２アメ横にあるタケイムセンさんで４００円ぐらいで買いました。

今はもう少し値下げをしていると思います。西区のマルツパーツでも売ってます。マルツの方が少し安いカモ・・・・です。

オペアンプICもタケイムセンさん。μPC４５８０Dが８４円、同等品のNJM4580Dも同じく８４円でした。

IC用ソケットはタケイムセンさんは他のお店よりも少し高め。っても１０円２０円の差ですけれどね。

セラロック２０MHzもタケイムセンさん５２円。西区のマルツパーツでも同じような価格でありました。

トランジスター２SC１８１５はタケイムセンさんで1個３０円、または１００個で１０００円。大須の海外通商で１０個で２００円ってのもありました。マルツパーツで２０個２００円ってのもありました。

ショットキーダイオード１SS１０６はタケイムセンさんで２１円（だった記憶）。

超音波センサーは送受信セットUT１６１２MPR/UR１６１２MPRがタケイムセンさんで３５０円。

抵抗はタケイムセンさんの向かいのクニ産業さんで1個5円。マイラコンデンサー１０２（１０００pF）は第１アメ横２階のボントンさんで１０円。１０４（０．１μF）はクニさんの特価品で積層コンデンサ５０個入りぐらいで３５０円ぐらいの物。バラ売りの積層コンは1個５０円程度、フィルムコンデンサーは２０円ぐらいセラミックコンデンサが１５円、第１アメ横１階のアイテクさんでも１５円程度でした。お好きなモノを買ってね。

最近はボントンさんも抵抗が１本5円です。ひと袋１００本で１８０円ね。クニさんと値段を合わせた模様。

7セグLEDは１９ミリX１２．７ミリカソードコモンの物でボントンさんで１５８円だった記憶です。

自分が使用したのは昔ボントンさんで中古品？5個で３５０円ってヤツです。

マルツパーツで青カソードコモンで驚異的に明るいヤツが売ってましたが今はどうなんでしょう１５０円ぐらいだった記憶。ダイナミック点灯用の３桁ってのもありました。３００円ぐらいだった記憶。

７セグLED１９x１２．７を３つ並べて取り付けるときには３２P用のICソケットが便利です。寸法がぴったり合います。２P余りますけどね。気にしないでください。お店によっては５０円で売ってます（海外通商とか）

DC７～１９Vを５Vに下げる７８０５って3端子レギュレターICはアイテクさんで４５円ぐらいです。

で全部でいくらになるのでしょうか。

２０００円でおつりが来る程度でしょうかねえ。

[0回]
PIC16F84A超音波距離計完成！！！！

完成しました！。

HPにもアップしておきましたぜ。

PIC16F84Aで作った超音波距離計。

プログラム的な難易度は低いね。簡単ですよ。

で、前回の洗濯バサミ、あれはいらないね。

直接受信センサーに入ってくる時間を無視すれば良いのです。

送信してすこ～～し待ってから受信をすれば直行音を聞くことなく反射音が聞けます。

そうなるとセンサーの間隔を離すよりも近づけた方が良いってことですね。

直行音を処理する時間が短くて済むからね。

で、プログラムを少しいじって４０cm～４３０cm位は計測出来るプログラムの用意できました。

またHPへ遊びに来てね。
http://picdetukutte.toshi-ie.com/PAGE10.html

の下の方にありますよ～～。

んじゃね～～

[0回]
PIC16F84Aで「チョー音波距離ケーーーーイ！」

まったくお久しぶりです。

誰に向かって挨拶してるのでしょうか？

おそらく誰も見に来ないブログでありますからなあ。

ずーと前から作ってみたかったヤツを作ってみましたぜ。

超音波距離計です。

秋月のキットで作ったことがありましてこれをいつかは自分で作ってみたいなあ

と思っていましてなあ。

やっと、その気になったってワケですよ。

回路図はネットで見つけたヤツをアレンジしました。

てか、超音波の受信回路はセンサーの説明書とほとんど一緒の回路図なのです。

http://wrs.search.yahoo.co.jp/FOR=S0J7OEdV3igyyIxQFEWTQ9jXsyLFCr3YT4fMDlpsKP5ZnfYm06FwgvY51DJFKC_iuKRPCbXt2yPBzHiZXdUtprI4hZVydXItHGcaF3owCmwc9CNB6RZS3D_pt1Pb0_IRGCr5qEjYrPLKobg_kbIPMvOZGsUIYJ6BTGWMD6t3q4cO2E6KPliGLnN9LGS6Mge46DSlDTTxrmv4WbPKDmYQBsM5R.BGQLZsO3_vUKK07an9Ry1Q_QWuea9mDuO7Am4-/_ylt=A3xThl0y_PtQIyQB_deDTwx.;_ylu=X3oDMTEyN2F1Y2JjBHBvcwM3BHNlYwNzcgRzbGsDdGl0bGUEdnRpZANqcDAwMjM-/SIG=175td4g92/EXP=1358792178/**http%3A//toragi.cqpub.co.jp/Portals/0/backnumber/2004/10/p265-266.pdf%23search=%27%25E8%25B6%2585%25E9%259F%25B3%25E6%25B3%25A2%25E8%25B7%259D%25E9%259B%25A2%25E8%25A8%2588%2B%2B%25E8%25A3%25BD%25E4%25BD%259C%27

ここの回路をアレンジしましたのだ。

オペアンプの3角形の記号を見ながら基板のレイアウトってやりにくいのだよ。

なのでピンの配置を正しく書いた回路図を書いたのです。

この回路を見てプログラムの内容の見当を付けて設計開始です。

出力の仕方がちょっとおもろいのです。

２つのピンから交互に出力すると＋５Vと－５Vで１０Vの電位差が得られるってことらしい。

本当かしら～～。

しかーーーし！。やってみると４０KHzを少し超えたあたりから出力が本当に倍増するのですよ。

テストをしてても１５０cm位しか届かなかった距離が３．５m近くまで伸びたのでありんす。

んでセンサーから音が漏れるようでまともに距離が測れないのでセンサーの間に紙を巻いた洗濯ばさみをつけて音の遮断をしてみたら測れるようになりました。

　センサーの間隔は１０cm以上あったほうがいいかも。。です。

今、作ったヤツは５cm程度しか空いていません。

測定の精度はまあまあです。１～２cm程度の誤差はあるようですが自分的にはこれでOKです。

精度を高めたければプログラムの数値をシビアに合わせるだけの話ですよ。

温度にも左右されるので今の気温でシビアに合わせても春になればまた狂いますからねえ。

プログラムはまたHPにアップする予定だけどね。

最近HPも手を出していないなあ。

なんだか面倒になって来たよ。

だって　誰も見てない気がするからねえ。

で、この文章を誰か見てくれるのか？

で、プログラムが欲しいと思うのか？

なんだか　ひとり芝居のようで虚しいですよ。

んじゃね～～～～。

[0回]
ゴソゴソやってます。

久しぶりのブログです。

何もせずにジーとしていたわけではございません。

相変わらずＰＩＣネタをゴソゴソやってますよ。

テレビのリモコンでＬＥＤの光の調光装置を操作するってヤツを作っております。

ＰＩＣ１２Ｆ６７５で２０ＭＨｚのセラロックを使ってますけどね。

リモコンの音量の上下で光の明るさを上下させるってワケですよ。

しかもひとつの装置をさまざまなメーカーのリモコンで操作出来ちゃうってのをやっております。

とりあえずＮＥＣフォーマット方式のメーカーを全部読み取るようにしています。

東芝、日立、三洋、パイオニア、ＤＸ、フナイ、オリオン、ビクターなどがそのＮＥＣフォーマットを採用しているメーカーなんですよ。

　このＮＥＣフォーマット方式はリピートコードってのがあってこれがよく扱えないので困ってます。

ＬＥＤの調光ってのはＰＷＭ制御ってヤツで行ってましてそれをやりつつリモコンの信号を処理するってことになるのでそのヘンの処理で困ってます。

　多少の誤作動を覚悟すればこれでもいいんだけどね。

たかが光の調節なので「音量上」のボタンを押してるときに暗くなっても問題ないでしょ　って話ですよ。

しかし、もうちょっとがんばってみますよ。

家電協会やＳＯＮＹ、三菱のフォーマットはリピートコードがないので誤作動はないと思う。

全部完成したらホームページにアップしますよ。

んじゃね～～

[0回]
PIC12F675テレビリモコン

久しぶりのPICの製作記事。

今回はPIC１２F６７５を使ってテレビ用リモコンを作った。

スリープ命令を使って省電力仕様にした。

んで、驚いた。テスターの数値が出ない。

５０μAレンジで測ったとき「００．００」と表示される。

つまり待機電流は０．０１μA未満（１０ｎA未満）ということだ。

メーカーのデータシートを調べてみると２V時で１ｎAと書いてある。

今回は３Vで使うので１ｎAよりは少しは多いはず。

しかし、それにしては省電力すぎる。

リモコン製作には持って来いのデバイスだ。

このリモコンの仕様は複数のメーカーに対応させるためにEEPROMのデータに入力する数値によってメーカーの変更が出来るように考慮した。

EEPROMの最初の番地に「００」を書き込んでPICにWRITEするとパナソニック仕様になり「０１」を書き込むとシャープ仕様になるといった感じだ。

１１社に対応させるためにプログラムは２つ用意することにした。

１つのファイルはパナソニック、シャープ、三菱、SONYを対応させ、もう１つには東芝、ビクター、日立、三洋、パイオニア、オリオン、ユニデンを充てた。

しかし、ここで問題がある。

実はこれはすべてホームセンターで買った万能リモコンから調べたデータを基に作っただけの物でテストをほとんどしていない。

実際に地デジテレビでテストをしたのはシャープだけ。

パナソニック、ソニー、東芝、ビクターはアナログテレビ、三菱はビデオデッキでテストをしただけだ。三菱はテレビではないのでフォーマットの確認だけだ。

中でもビクターのフォーマットが意味不明でスタート信号を送ると認識せず、スタート信号を省くと認識するという不思議な結果になってしまっている。

　いい加減な仕上がりではあるが一応ホームページには掲載した。

苦情が来ることは間違いない・・・・。

http://picdetukutte.toshi-ie.com/PAGE7.html

作品９：簡易型テレビリモコン【PIC12F675,629】
ってところね。

[0回]
ＵＳＢ＝ＲＳ２３２Ｃ変換ケーブルが使える書き込み器のつづき PART2

続きの続きです。
マイラコンデンサーの１０３（０．０１μＦ）が見つかったので取り付けて見ました。
結果は変化なし。ダメってことです。
いろいろ調べてみるとどうもこのコンデンサと３３０ΩのＣＲ回路の時定数で２種類のパルス幅の違った信号でデータを取り込んでるようですね。
ＲＳ－ＣＲ方式と言うのだそうです。
ＲＳ２３２ＣのＴＸポートからクロックパルスとデータパルスを取り分ける方式のようです。
クロックはパルス幅に関係なく立ち上がりだけを見ているよなのでパルス幅は好きに作ってよいようです。
　そしてパルス幅の広いモノはこのＣＲ回路を通すとＨ、つまり電圧が維持されます。しかしパルス幅の短いモノはＬ、つまり０Ｖ近くに低くならされてしまいます。そのＨとＬでデータ信号としているようです。
　しかし６２９と６７５は上手に理解して書き込まれているようですが６８３と６４８ＡはときどきＨとＬの認識を誤るようです。ある決まったビット列があるとそこで間違えるようです。
イメージ的に「１」の次に９以上の数値が来ると誤るような気がします。
「０００１１ＸＸＸ」というビット列がやばいようです。　
　これはもうコンデンサをいろいろ買い集めて相性の良いモノを探し当てるしかないのかも知れません。
または、元々無理なことなのかも知れませんね。
　ではコンデンサを買い集めた後にお会いしましょう。
んじゃね～～～～。

[0回]

プロフィール

ＨＮ：

waewax

性別：

非公開

ＰＩＣ製作記事

プロフィール

カテゴリー

最新記事

RSS

リンク

P R