12:03 AM
0
Palu, 28 Februari 2014
By Aris Affandy Sunuh

Kali ini saya akan menshare bagaimana cara mengetahui nilai output dari sensor analog.
Betapa penting informasi ini karena untuk menciptakan suatu peralatan pengukur kita harus mengetahui karakterisitk nilai output dari suatu sensor dalam hal ini sensor analog. Hasil output tadi dapat kita gunakan untuk membuat suatu perbandingan, maksudnya dapat kita manipulasi agar bisa diterjemahkan ke dalam nilai satuan yang bisa dimengerti banyak orang.



$regfile = "m16def.dat" 'menggunakan chip at mega 16
$crystal = 1000000 'menggunakan crystal 1Mhz agar bisa mendeteksi perubahan nilai output dengan clock yang cepat
Config Lcd = 16 * 2 'konfigurasi LCD
Config Lcdpin = Pin , Db4 = Portc.5 , Db5 = Portc.4 , Db6 = Portc.3 , Db7 = Portc.2 , Rs = Portc.7 , E = Portc.6 'konfigurasi pin-pin LCD
Config Portc = Output 'konfigurasi PORTC sebagai output
Config Porta = Input 'konfigurasi PORTA sebagai input

Config Adc = Single , Prescaler = Auto , Reference = Avcc 'konfigurasi untuk ADC
Start Adc 

Dim Pulsa As Word 'definisikan Pulsa menjadi jenis data Word

Cursor Off Noblink
Cls

Do
   Cls
   Pulsa = Getadc(0) 'mengaliaskan variabel Pulsa menjadi channel 0 untuk ADC
     Waitms 500
     Locate 1 , 1
     Lcd "Pulsa" ; Pulsa
     Locate 2 , 1
     Lcd "Aris Project"
     Waitms 500
Loop

End

0 komentar:

Post a Comment