1. Rangkaian Simulasi [kembali]
2. Listing Program [kembali]
3. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
$regfile = "m8535.dat"
$crystal = 16000000
Dim D As Word , V As Word , T As Word , A As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2
Config Lcdpin = Pin , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Lcd = 16 * 2
Porta = &B00000000
Cls
Cursor Off
Lcd "Pepi dan Reno"
Lowerline
Lcd "Temp= "
Start Adc
Do
D = Getadc(0)
V = D * 5
T = V / 10
Locate 2 , 6
Lcd T
Lcd " Celcius"
Waitms 100
Loop
End
$crystal = 16000000
Dim D As Word , V As Word , T As Word , A As Word
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2
Config Lcdpin = Pin , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Lcd = 16 * 2
Porta = &B00000000
Cls
Cursor Off
Lcd "Pepi dan Reno"
Lowerline
Lcd "Temp= "
Start Adc
Do
D = Getadc(0)
V = D * 5
T = V / 10
Locate 2 , 6
Lcd T
Lcd " Celcius"
Waitms 100
Loop
End
3. Link Download [kembali]
File HTML - Download
File Proteus - Download
File Program - Download
0 komentar:
Posting Komentar