Pada kesempatan kali ini saya akan menjelaskan mengenai bagaimana cara mengakses dua buah mikrokontroller dengan komunikasi serial UART, jadi prinsip kerjanya yaitu ada dua buah mikrokontroller dengan satu buah mikrokontroller sebagai master atau trasmitter atau pengirim data, kemudian mikrokontroller kedua diposisikan menjadi slave atau receiver atau penerima. Data yang akan dikirimkan oleh transmitter adalah data ADC yang didapat oleh mikrokontroller melalui PortA atau Port ADC. Mikrokontroller kedua dilengkapi dengan sebuah LCD yang akan digunakan untuk penampil datanya. untuk lebih jelasnya berikut ulasan lengkapnya.
a. Minimum System ATMega Master dan Slave
b. Cara menghubungkan 2 Mikrokontroller via UART / Serial
c. Program Bascom AVR Master / Trasmitter
$regfile = "m16def.dat"
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Ddrc = &B11111111
Do
Dataadc = Getadc(0)
Print Dataadc
Waitms 100
Loop
$crystal = 11059200
$baud = 9600
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Dim Dataadc As Word
Ddrc = &B11111111
Do
Dataadc = Getadc(0)
Print Dataadc
Waitms 100
Loop
d. Program Bascom AVR Slave / Receiver
$regfile = "m16def.dat"
$crystal = 12000000
$baud = 9500
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cls
Cursor Off
Dim Datamasuk As String * 10
Dim Cmd As String * 10
Do
Input Datamasuk
Cmd = Mid(datamasuk , 4 , 4)
Locate 1 , 1
Lcd Cmd
Waitms 200
Cls
Loop
$crystal = 12000000
$baud = 9500
Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2
Config Lcdpin = Pin , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 2
Cls
Cursor Off
Dim Datamasuk As String * 10
Dim Cmd As String * 10
Do
Input Datamasuk
Cmd = Mid(datamasuk , 4 , 4)
Locate 1 , 1
Lcd Cmd
Waitms 200
Cls
Loop
No comments:
Post a Comment