سلام دوستان اگر کسی بتونه به من راجع به ساخت دماسنج دیجیتالی کمک کنه خیلی ممنون میشم
این پروژه با atmega32 و سنسور Lm35 و lcd 2*16 هستش
مشکل من اینه که میکرو به lcd فرمان نمیده و به جز پیکسل های lcd چیزی دیده نمیشه
lcd و میکرو هم کاملا سالم هستند تستشان کرده ام و برنامه اش هم کاملا صحیح است
واقعا گیج شدم لطفا راهنمایی کنید
فقط من تازه واردم بلد نیستم چطور فایل پروتئوس رو اینجا بزارم :smile:
$regfile = "m32def.dat"
Config Portb = Output
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = _
Portb.7 , Rs = Portb.2 , E = Portb.3
Config Lcd = 16 * 2
Cls
Cursor Off
Locate 1 , 3
Lcd "Dama Sanj"
Cls
Dim T As Byte
Dim B As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
T = Getadc(0)
B = T / 2
Cursor Off
Locate 1 , 1
Lcd "Real Adc=" ; T
Locate 2 , 1
Lcd "Temp=" ; B ; "'c"
Waitms 200
Loop
Stop Adc
End 'end program
این پروژه با atmega32 و سنسور Lm35 و lcd 2*16 هستش
مشکل من اینه که میکرو به lcd فرمان نمیده و به جز پیکسل های lcd چیزی دیده نمیشه
lcd و میکرو هم کاملا سالم هستند تستشان کرده ام و برنامه اش هم کاملا صحیح است
واقعا گیج شدم لطفا راهنمایی کنید
فقط من تازه واردم بلد نیستم چطور فایل پروتئوس رو اینجا بزارم :smile:
$regfile = "m32def.dat"
Config Portb = Output
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = _
Portb.7 , Rs = Portb.2 , E = Portb.3
Config Lcd = 16 * 2
Cls
Cursor Off
Locate 1 , 3
Lcd "Dama Sanj"
Cls
Dim T As Byte
Dim B As Byte
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Do
T = Getadc(0)
B = T / 2
Cursor Off
Locate 1 , 1
Lcd "Real Adc=" ; T
Locate 2 , 1
Lcd "Temp=" ; B ; "'c"
Waitms 200
Loop
Stop Adc
End 'end program
دیدگاه