سلام خدمت اساتید محترم
من یک برنامه نوشتم توی بسکام که با میکرو atmega 8 میخوام انجامش بدم
برنامه اینه من میخوام برنامم به این صورت باشه که یک led رو به تعداد دفعات دلخواه روشن خاموش کنم(یعنی فقط یک خروجی دارم) و این عدد برای بار اول به بعد در حافظه میکرو ذخیره بشه تا اینکه مجدد کلید تنظیم زده بشه و مقدار جدید بدم بهش
و اینکه 4 تا پوش باتن دارم و یک سون سگمنت 4 دیجیت مالتی پلکس
یک پوش باتن برای استارت و استاپ برنامه
یک پوش باتن برای تنظیم تعداد دفعات دلخواه خاموش و روشن شدن led
و دو پوش باتن بعدی برای آپ و دان شمارنده عدد دلخواهم
مشکلم اینجاست که میخوام برای ستینگ و نمایشش عددی که وارد می کنم بر روی سون سگمنت، یک sub بذارم اما نمیدونم چکار کنم
لطفا کمکم کنید برای وارد کردن عدد دلخواهم روی سون سگمنت چکار کنم
من یک برنامه نوشتم توی بسکام که با میکرو atmega 8 میخوام انجامش بدم
برنامه اینه من میخوام برنامم به این صورت باشه که یک led رو به تعداد دفعات دلخواه روشن خاموش کنم(یعنی فقط یک خروجی دارم) و این عدد برای بار اول به بعد در حافظه میکرو ذخیره بشه تا اینکه مجدد کلید تنظیم زده بشه و مقدار جدید بدم بهش
و اینکه 4 تا پوش باتن دارم و یک سون سگمنت 4 دیجیت مالتی پلکس
یک پوش باتن برای استارت و استاپ برنامه
یک پوش باتن برای تنظیم تعداد دفعات دلخواه خاموش و روشن شدن led
و دو پوش باتن بعدی برای آپ و دان شمارنده عدد دلخواهم
مشکلم اینجاست که میخوام برای ستینگ و نمایشش عددی که وارد می کنم بر روی سون سگمنت، یک sub بذارم اما نمیدونم چکار کنم
لطفا کمکم کنید برای وارد کردن عدد دلخواهم روی سون سگمنت چکار کنم
کد:
$regfile = "m8def.dat" $crystal = 800000 Config Debounce = 50 , Delay = 50 Declare Sub Eeprom_load Declare Sub Show_7seg 'I/O: Config Pinc.0 = Input : Down Alias Pinc.0 Config Pinc.1 = Input : Set_ Alias Pinc.1 Config Pinc.2 = Input : Up Alias Pinc.2 Config Pinb.5 = Input : On_off Alias Pinb.5 Config Portd = Output : 7seg Alias Portd Config Portc.5 = Output : Dp Alias Portc.5 Config Portb.0 = Output : Dig4 Alias Portb.0 Config Portb.1 = Output : Dig3 Alias Portb.1 Config Portb.2 = Output : Dig2 Alias Portb.2 Config Portb.3 = Output : Dig1 Alias Portb.3 Config Portb.4 = Output : Led1 Alias Portb.4 Config Portc.3 = Output : Led2 Alias Portc.3 Config Portc.4 = Output : Beep2 Alias Portc.4 '************************************** 'Var: Dim I As Byte Dim A As Word Dim B As Byte Dim C As Byte Dim D As Single Dim E As Byte Dim H As Bit Dim I_eerom As Byte Dim Num As Word '*************************** begin ************************************** Num = 0 If Num > 0 Then Goto Off_ Else Goto Setting '******************************** MAIN ********************************** Off_: H = 0 A = 60000 / Num If Set_ = 1 And H = 0 Then H = 1 Waitms 300 Goto On_ On_: Do Portc.0 = 1 Portc.1 = 0 Waitms = A Portc.0 = 0 Portc.1 = 1 Waitms = A Loop Until Set_ = 1 And H = 1 H = 0 Goto Off_ '********************************************* Eeprom_load: A = I_eerom Num = N_eerom Return '********************************************* Eeprom_save: I_eerom = A N_eerom = Num Return '------------------------------------ SHOW 7SEG -------------------------------- Show_7seg: Return '************************************ SETTING ********************************** Setting: goto Eeprom_save Return '--------------------------------- INCR / DECR --------------------------------- Decrease: Return '------------------------------------------------------------------------------- Increase: Return '------------------------------------------------------------------------------- Dta: Data &HC0 , &HF9 , &HA4 , &HB0 , &H99 , &H92 , &H82 , &HF8 , &H80 , &H90 'DIGIT '***************************************END***************************************
دیدگاه