1. Rangkaian Simulasi [kembali]
2. Listing Program [kembali]
3. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
$regfile = "m8535.dat" 'memanggil library ATmega 8535
$regfile = 16000000 'menentukan besar kristal ATmega 8535
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'menentukan konfigurasi adc
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 'menentukan pin lcd yang digunakan
Config Lcdpin = Pin , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 'menentukan pin lcd yang digunakan
Config Lcd = 16 * 2 'menentukan lcd yang digunakan (lcd 16X2)
Dim A As Word 'menentukan variabel yang digunakan
Config Porta = Output 'Port A sebagai output
Config Portb = Input 'Port B sebagai input
Pinb.0 = 0 'keadaan awal PINB.0 berlogika 0
Do 'fungsi utama
Cls 'keadaan awal lcd bersih
Cursor Off 'kursor pada lcd off
Lcd "Keadaan" 'pada baris pertama lcd tertulis keadaan
Waitms 100 'delay selama 0,01 sekon
Lowerline 'menentukan lokasi pada bariske 2
Start Adc 'meaktifkan adc
A = Getadc(0) 'menkonversi data adc di channel 0 '
If Pinb.0 = 1 Then 'jika keadaan PIN.0 berlogika 1
Lcd "Malam Hari" 'lcd akan mencetak mlam hari
Waitms 100 'delay selama 0,01 sekon
Else ' jika tidak
Lcd "Siang Hari" 'lcd akan mencetak siang hari
Waitms 100 'delay selama 0,01 sekon
End If 'if selesai
Loop 'program kembali ke keadaan awal
End 'program selesai
$regfile = 16000000 'menentukan besar kristal ATmega 8535
Config Adc = Single , Prescaler = Auto , Reference = Avcc 'menentukan konfigurasi adc
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 'menentukan pin lcd yang digunakan
Config Lcdpin = Pin , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5 'menentukan pin lcd yang digunakan
Config Lcd = 16 * 2 'menentukan lcd yang digunakan (lcd 16X2)
Dim A As Word 'menentukan variabel yang digunakan
Config Porta = Output 'Port A sebagai output
Config Portb = Input 'Port B sebagai input
Pinb.0 = 0 'keadaan awal PINB.0 berlogika 0
Do 'fungsi utama
Cls 'keadaan awal lcd bersih
Cursor Off 'kursor pada lcd off
Lcd "Keadaan" 'pada baris pertama lcd tertulis keadaan
Waitms 100 'delay selama 0,01 sekon
Lowerline 'menentukan lokasi pada bariske 2
Start Adc 'meaktifkan adc
A = Getadc(0) 'menkonversi data adc di channel 0 '
If Pinb.0 = 1 Then 'jika keadaan PIN.0 berlogika 1
Lcd "Malam Hari" 'lcd akan mencetak mlam hari
Waitms 100 'delay selama 0,01 sekon
Else ' jika tidak
Lcd "Siang Hari" 'lcd akan mencetak siang hari
Waitms 100 'delay selama 0,01 sekon
End If 'if selesai
Loop 'program kembali ke keadaan awal
End 'program selesai
3. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
0 komentar:
Posting Komentar