سلام دوستان و همراهان همیشگی .
مشکل اینه که من می خوام این ساعت که نمایش داده میشه ساعت کارشو انجام بده و در یک زیر شاخه جداگانه یک شماره هر چند ثانیه تغییر کنه و روی ال سیدی نمایش داده بشه و این تاخیر این شماره روی ساعت تاثیری نذاره و ساعت کند نشه .
برنامه خودم .:
الان متاسفانه این تاخیر روی ساعت هم اعمال میشه .
منتظر کمک دوستان . :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:
دیدگاه