Arduino UNO, Bascom AVR, Sensor Flex Simulasi Proteus

 Hallo sahabat Elektronika,,,,,,

Salam bertemu kembali dengan saya melalui postingan terbaru ini. Adapun postingan kali ini adalah bagaimana cara mengontrol sebuah sensor flex (fleksibel) atau bisa disebut juga dengan kelenturan. 

Sensor Flex ini berfungsi untuk mendeteksi kelenturan mungkin tekukan mungkin juga lengkungan, dan lain sebagainya. Maka dari fungsinya kita bisa membuat suatu alat yang bisa menghubungkan komunikasi dua arah antara seorang yang menderita TUNA RUNGU dengan orang NORMAL. Dengan cara mengistal alat ini pada orang yang menderita, setiap saat menekukkan jarinya maka nanti akan dikonvert ke pesan yang bisa dibaca orang Normal lewat sebuah LCD ataupun Dot Matrix.

Namun pada postingan kali ini, kita hanya belajar tentang cara mengontrol sebuah sensor flex saja. Mungkin untuk postingan berikutnya akan kita pelajari tentang cara mengontrol dua atau lebih sensor flexnya. 

Baca juga : SENSOR INFRARED DENGAN ARDUINO UNO BAHASA PEMROGRAMAN BASCOM AVR

Adapun komponen yang kita gunakan pada simulasi Proteus 8.9 adalah sebagai berikut:

1. LCD sebagai penampil pesan text 

2. ARDUINO UNO sebagai Memory penyimpanan dari Coding

3. Sensor Flex sebagai pendeteksi lengkungan

4. Logic Toggle sebagai pemberi logika 0 (low) atau 1 (High)

Pada saat kita beri logika 0, yang artinya sensor belum mendeteksi adanya lengkungan pada Layar LCD tidak tampil apapun. Namun pada saat kita beri logika 1, yang artinya ada lengkungan selanjutnya akan dikonvert ke sebuah text yang akan terbaca melalui layar LCD.

Berikut adalah gambar schematic nya pada Proteus 8.9

Berikut saya sertakan Bahasa Pemrograman yang saya buat dengan Bascom AVR.

$regfile = "m328pdef.dat"

$crystal = 16000000

$baud = 1200

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

'Config Portb.5 = Output

Config Portd.2 = Input

Cursor Off

Do

Cls

If Pind.2 = 0 Then

'Portb.5 = 0

Cursor Off

Cls

Locate 1 , 1 : Lcd "---------"

Locate 2 , 1 : Lcd "---------"

Waitms 500

Elseif Pind.2 = 1 Then

'Portb.5 = 1

Cursor Off

Cls

Locate 1 , 1 : Lcd "Saya"

Locate 2 , 1 : Lcd "Lapar"

Wait 1

End If

Loop

Return

Jika teman-teman ingin menonton vidio tutorialnya bisa kita saksikan lewat akun youtube saya. Bisa kita temukan dibagian pojok kanan atas postingan ini. Semoga bermanfaat! Jika teman-teman tertarik dengan postingang-postingan saya mungkin boleh di share. Terima kasih semuanya....