買い物リスト

2008年10月25日

モータドライバＴＡ７２９１Ｐ
赤外線リモコン受信モジュール　ＰＬ－ＩＲＭ０２０８（３８ｋＨｚ）
47ｋの抵抗

mixiチェック

最終更新日 2008年10月26日 01時30分48秒
コメント(0) | コメントを書く

2008年10月18日

Tiny2313とFT232RLを使ってシリアル通信をする。

FT232RLを使って、Tiny2313と無事にシリアル通信ができましたのでソースを残しておこうと思います。

回路は、こんな感じです。

（私の経験上、初めて使うため)気をつけなければいけないのが、FT232RLのつなぎ方です。ちなみに、FT232RLはUSBのミニBタイプなのでケーブルを忘れずに買っておきましょう。

FT２３２RLのTXD→Tiny2313のPD0(RXD)
FT232RLのRXD→Tiny2313のPD１(TXD)
FT232RLの7,13ピンは、ともにGNDにつなぐ
FT232RLの15ピンには、５Vの電気を流す。

次に、Tiny2313ですが上記でほとんど接続は終了です。
VCCに５Vの電気を流し、GNDをつなげば終了です。

FT232RLを使うので簡単ですね。
※ちなみに、FT232RLを使うためにはあらかじめ、http://www.ftdichip.com/Drivers/VCP.htmからドライバをダウンロードして、使用するパソコンにインストールしておきます。

次に、マイコンに書き込むプログラムは以下となります。
※Tiny2313用なので他を使う場合には、変更が必要でしょう。

////////////////////////////////////////////////////////////////////////////////////////////////////

#include <avr/io.h>



void sendString(char* pstr)

{

	while( *pstr != '\0' )

	{

		while( !(UCSRA & 0b00100000 ) )

		{

		}

		UDR = *pstr;

		*pstr++;

	}

}



int main( void )

{

  unsigned char x;

  UBRRH = 0;

  UBRRL = 25;

  UCSRB = 0b00011000;

  UCSRC = 0b00000110;



  while(1) {

    while( !(UCSRA & 0b10000000 ) ) {}

    x = UDR;



    sendString("HELLO\r\n");



    while( !(UCSRA & 0b00100000 ) ) {}

    UDR = (x++);

    }

}

////////////////////////////////////////////////////////////////////////////////////////////////////

コンパイルして、書き込んだらすべて完了です。

TeraTermなどを使用して、ボーレート2400bps 8bit パリティなし ストップビット1の設定で‘ 

FT232RLの仮想COMポートにつないでください。

そのコンソールで、Enterキーを押下する度に、HELLOと表示さされれば成功です。

できてみると、意外と簡単でした。

（実はすでに手元でできているのですが）LM35Dから温度を取り込んで、

コンソールに表示させる例を、次に載せようと思います。

上記の内容をもっと基本から詳しく知りたい方は↓の本を買った方が良いです。



試しながら学ぶAVR入門

mixiチェック

最終更新日 2008年10月19日 01時42分20秒
コメント(0) | コメントを書く

2008年10月16日

秋月電子のFT232RLを使って、Tiny2313とのシリアル通信に成功！

FT232RL使ってできるのでは？から、数日。
シリアル通信、できるんですね。

はまった点と、反省点
・TXDとTXDをつないでしまっていた。TXDとRXDをつながないといけない。
入力と入力、のような関係になってしまうので、いわゆるストレート接続って感じ？？
・内蔵クロックを使っているのだが、ボーレートを９６００で動作確認しようとしていた。
4800bpsまでのようでした。内蔵クロックをつかっている身の丈をしりました。
・Cのソースをいきなり使っていた、問題を多く抱えてスタートしていた。
またBASCOM-AVRさんに助けてもらいました。以下のソースで通信できました。

$baud = 4800
Dim A As Long , B As Long
Do
Print : Print "Addition"
Input "A= " , A , "B= " , B
A = A + B
Print "A + B = " ; A
Loop
End

これで、Cに戻ります。あとはプログラムの問題だけなので。
そのときに、回路図とソースを公開しようと思います。
なんかすげー楽しくなってきた！

mixiチェック