Serial Com with Bascom AVR

  Komunikasi serial pada mikrokontroler mengunakan fasilitas UART,dan kali ini saya akan membahas cara pengiriman data secara serial dengan menggunakan kode Bascom AVR, Oke saya langsung saja membahas sistem yang dipergunakan, kebetulan saya menggunakan Arduino UNO sebagai minimum sistemnya dan LCD shield

Berikut ini code Bascom Avrnya

$regfile = "m328pdef.dat"

$crystal = 16000000

$baud = 9600   'Baud rate

$hwstack = 40

$swstack = 16

$framesize = 32

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portb.1 , Rs = Portb.0

Config Lcd = 16 * 2

Dim Rx As String * 10

Enable Interrupts   'Mengaktifkan Interrupts

Enable Urxc           'Mengaktifkan Interrupts serial

On Urxc Interupt   " Pada saat ada data serial Masuk lompat ke label Interupt

Main:

Cursor Off

Cls

Locate 1 , 5 : Lcd "Arduino"

Locate 2 , 3 : Lcd "Serial Test"

Wait 1

Do

Cls

Locate 1 , 1 : Lcd "Sending Serial"

Wait 2

Print "Arduino UNO"

Locate 2 , 1 : Lcd "Done"

Wait 2

Goto Main

Wait 3

Loop

End

Interupt:

Rx = Inkey()

Cls

Locate 1 , 1 : Lcd "Data Serial"

Locate 2 , 1 : Lcd Rx

Print Rx

Wait 3

Return

Atur komunikasi serial pada Modify Chip Settings option atur commportnya dan baudratenya sesuai dengan kode program diatas

Buka Bascom AVR terminal Emulator

Tampilan pada LCD akan seperti berikut ini

Ketikan Huruf A pada terminal Emulator maka huruf tersebut akan ditampilkan pada LCD