سلام
برنامه دماسنج با LM35 رو نوشتم میخوام دما رو روی سون سگمنت نشون بده ولی نمیدونم چرا جواب نمیده
ببینید مشکل این برنامه چیه
$regfile = "m32def.dat"
$crystal = 8000000
''''''''&# 039;''''''' 9;'''''''' ''
Dim Temp As Word
Dim A As Word
Dim B As Word
Dim Yekan As Byte
Dim Dahgan As Byte
Dim Dama As Byte
''''''''&# 039;''''''' 9;'''''''' ''
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Stop Adc
Start Adc
''''''''&# 039;''''''' 9;'''''''' ''
Config Pina.0 = Input
Config Portb = Output
Config Portd = Output
''''''''&# 039;''''''' 9;'''''''' ''
Main:
Do
Gosub Readtemp
Yekan = Temp / 10
Dahgan = Temp Mod 10
Portb = &B00000001
Portd = Lookup(dahgan , Lable1)
Waitms 2
Portb = &B00000010
Portd = Lookup(yekan , Lable1)
Waitms 2
Loop
End
''''''''&# 039;''''''' 9;'''''''' ;
Readtemp:
A = Getadc(0)
Temp = A / 2
'Goto Main
Return
''''''''&# 039;''''''' 9;'''''''' '
Lable1:
Data &B00111111 '11000000
Data &B00000110 '11111001
Data &B01011011 '10100100
Data &B01001111 '10110000
Data &B01100110 '10011001
Data &B01101101 '10010010
Data &B01111101 '10000010
Data &B00000111 '11111000
Data &B01111111 '10000000
Data &B01101111
برنامه دماسنج با LM35 رو نوشتم میخوام دما رو روی سون سگمنت نشون بده ولی نمیدونم چرا جواب نمیده
ببینید مشکل این برنامه چیه
$regfile = "m32def.dat"
$crystal = 8000000
''''''''&# 039;''''''' 9;'''''''' ''
Dim Temp As Word
Dim A As Word
Dim B As Word
Dim Yekan As Byte
Dim Dahgan As Byte
Dim Dama As Byte
''''''''&# 039;''''''' 9;'''''''' ''
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Stop Adc
Start Adc
''''''''&# 039;''''''' 9;'''''''' ''
Config Pina.0 = Input
Config Portb = Output
Config Portd = Output
''''''''&# 039;''''''' 9;'''''''' ''
Main:
Do
Gosub Readtemp
Yekan = Temp / 10
Dahgan = Temp Mod 10
Portb = &B00000001
Portd = Lookup(dahgan , Lable1)
Waitms 2
Portb = &B00000010
Portd = Lookup(yekan , Lable1)
Waitms 2
Loop
End
''''''''&# 039;''''''' 9;'''''''' ;
Readtemp:
A = Getadc(0)
Temp = A / 2
'Goto Main
Return
''''''''&# 039;''''''' 9;'''''''' '
Lable1:
Data &B00111111 '11000000
Data &B00000110 '11111001
Data &B01011011 '10100100
Data &B01001111 '10110000
Data &B01100110 '10011001
Data &B01101101 '10010010
Data &B01111101 '10000010
Data &B00000111 '11111000
Data &B01111111 '10000000
Data &B01101111
oo:
دیدگاه