Bismillahirrohmaanirrohiim..
Nah setelah kita coba men-simulasi-kan komunikasi serial mengirimkan data berupa variabel dan data string, sekarang mari kita coba untuk komunikasi sebaliknya, yakni mengirimkan data dari komputer ke mikrokontroller. kita masih gunakan rangkaian pada posting sebelumnya, cuma kita tambahkan satu komponen lagi, yakni LCD 2x16 ke portA..
jadinya seperti ini:
Nah setelah kita coba men-simulasi-kan komunikasi serial mengirimkan data berupa variabel dan data string, sekarang mari kita coba untuk komunikasi sebaliknya, yakni mengirimkan data dari komputer ke mikrokontroller. kita masih gunakan rangkaian pada posting sebelumnya, cuma kita tambahkan satu komponen lagi, yakni LCD 2x16 ke portA..
jadinya seperti ini:
kemudian, masukkan program ini:
$regfile = "8535def.dat"
$crystal = 8000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 , E = Porta.1 , Rs = Porta.0
Config Lcd = 16 * 2
Cursor Off
Cls
Dim Data_input As String * 16
Upperline : Lcd "input serial"
Do
print "masukkan kata max. 16 karakter, kemudian tekan enter"
Input Data_input
Lowerline : Lcd Data_input
Loop
sekarang coba run dan masukkan input pada Virtual Terminal, Kemudian tekan enter. Seharusnya, LCD akan menampilkan seperti ini:
Nah perintah input pada listing program diatas berfungsi untuk menunggu karakter 'enter' dari komputer. Selagi menunggu, karakter akan disimpan ke dalam buffer dengan jumlah sesuai dengan deklarasi variabelnya..misal deklarasinya
dim data_input as string*16
Berarti karakter yang akan disimpan maksimal 16buah. Selama kita belum menekan 'enter', program akan terus mengerjakan perintah 'input'.
Download design proteus dan listing programnya di sini (FREE)
demikian, sampai ketemu di posting selanjutnya. Semoga Bermanfaat dan bisa dijadikan Referensi.
lanjut terus mas.... hahahaaaay...
ReplyDeletelanjuuuut...
ReplyDelete