با تشکر و سپاس از همه دوستانی که لطف کردن و بنده را راهنمایی نمودن،دوستان من یه برنامه ساده با بسکام نوشتم و اینجا میزارم اگه لطف کنید و همین برنامه رو اصلاح کنید و ببرین تو حافظه eeprom بسیار سپاسگذار میشم.
یعنی طوری باشه که با قطع تغذیه میکرو شمارش ذخیره بشه و با وصل مجدد تغذیه میکرو دوباره ادامه شمارش رو انجام بده.
$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
If Porta.0 = 1 Then Goto Jam
Jam:
Do
Cls
Incr Q
Lcd Q
Waitms 200
Loop
end
یعنی طوری باشه که با قطع تغذیه میکرو شمارش ذخیره بشه و با وصل مجدد تغذیه میکرو دوباره ادامه شمارش رو انجام بده.
$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
If Porta.0 = 1 Then Goto Jam
Jam:
Do
Cls
Incr Q
Lcd Q
Waitms 200
Loop
end
دیدگاه