پاسخ : از بین رفتن اطلاعات مدار با قطع برق
با سلام
مهدی جان بسیار از راهنماییتون متشکرم کارت عالی بود برنامه که نوشتی درست کار کرد فقط من یه تغییر کوچولو دادم چون با وصل تغذیه بدون دادن فرمان شمارش شروع میشد.
$regfile = "m16def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.0 , E = Portb.1
Config Porta = Input
Dim Q As Word, q2 as eram word
q=q2
Waitms 5
Do
If Pina.0 = 0 Then
Cls
Incr Q
q2=q
waitms 10
Lcd Q
Waitms 200
end IF
Loop
نوشته اصلی توسط mahdi8866
مهدی جان بسیار از راهنماییتون متشکرم کارت عالی بود برنامه که نوشتی درست کار کرد فقط من یه تغییر کوچولو دادم چون با وصل تغذیه بدون دادن فرمان شمارش شروع میشد.
$regfile = "m16def.dat"
$crystal = 1000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , Db7 = Portb.7 , Rs = Portb.0 , E = Portb.1
Config Porta = Input
Dim Q As Word, q2 as eram word
q=q2
Waitms 5
Do
If Pina.0 = 0 Then
Cls
Incr Q
q2=q
waitms 10
Lcd Q
Waitms 200
end IF
Loop


دیدگاه