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