سلام دوستان و همراهان همیشگی .
مشکل اینه که من می خوام این ساعت که نمایش داده میشه ساعت کارشو انجام بده و در یک زیر شاخه جداگانه یک شماره هر چند ثانیه تغییر کنه و روی ال سیدی نمایش داده بشه و این تاخیر این شماره روی ساعت تاثیری نذاره و ساعت کند نشه .
برنامه خودم .:
الان متاسفانه این تاخیر روی ساعت هم اعمال میشه .
منتظر کمک دوستان . :nerd:
مشکل اینه که من می خوام این ساعت که نمایش داده میشه ساعت کارشو انجام بده و در یک زیر شاخه جداگانه یک شماره هر چند ثانیه تغییر کنه و روی ال سیدی نمایش داده بشه و این تاخیر این شماره روی ساعت تاثیری نذاره و ساعت کند نشه .
برنامه خودم .:
کد:
$regfile = "m32def.dat" $crystal = 1000000 $hwstack = 64 $swstack = 64 $framesize = 64 $lib "glcdKS108.lbx" Config Graphlcd = 128 * 64sed , Dataport = Portd , Controlport = Portb , Ce = 0_ , Ce2 = 1 , Cd = 2 , Rd = 3 , Reset = 5 , Enable = 4 Setfont My6_8 Config Portb = Output Config Portd = Output Config Pina.7 = Input Declare Sub Cpu Declare Sub dat $include "font8x8.font" $include "my6_8.font" Cls Showpic 0 , 0 , Win Config Clock = Soft Enable Interrupts Time$ = "12:00:00" Do Lcdat 1.5 , 18 , "Created By Sasan" Lcdat 4 , 4 , "Date = " Lcdat 4 , 45 , Date$ , Lcdat 5 , 4 , "Time = " Lcdat 4 , 117 , "C" Lcdat 6 , 4 , "CPU = " , Gosub Dat Gosub Cpu Loop Sub Cpu Lcdat 6 , 45 , "%1 " Wait 5 Lcdat 6 , 45 , "%5 " Wait 5 Lcdat 6 , 45 , "%1 " Wait 5 Lcdat 6 , 45 , "%30" Wait 5 End Sub Sub Dat Lcdat 5 , 45 , Time$ End Sub Win: $bgf "1.bgf"
منتظر کمک دوستان . :nerd:
دیدگاه