Timer'e
***************
#define longdate_loc cdow(date())+" "+cmonth(date())+" "+ ;
alltrim(str(day(date())))+", "+alltrim(str(year(date())))
public timeformat
timeformat=1
if timeformat = 0
thisform.text2.value = iif(val(substr(time(),1,2))>12, ;
alltrim(str((val(substr(time(),1,2))-12)))+substr(time(),3,6),time())
else
thisform.text2.value = time()
endif
cdisplayvalue = alltrim(thisform.pageframe1.page9.text22.value)
if !empty(cdisplayvalue)
do case
case val(substr(time(seconds()),8,1))=0 .or. val(substr(time(seconds()),8,1))=2 .or.;
val(substr(time(seconds()),8,1))=4 .or. val(substr(time(seconds()),8,1))=6 ;
.or. val(substr(time(seconds()),8,1))=8
thisform.pageframe1.page9.text22.disabledbackcolor=rgb(255,0,0)
case val(substr(time(seconds()),8,1))=1 .or. val(substr(time(seconds()),8,1))=3 .or.;
val(substr(time(seconds()),8,1))=5 .or. val(substr(time(seconds()),8,1))=7 ;
.or. val(substr(time(seconds()),8,1))=9
thisform.pageframe1.page9.text22.disabledbackcolor=rgb(255,255,255)
endcase
endif
*******
şeklinde bir kod girerek istediğim bir alanı belli koşullara bağlı olarak yanıp sönmesini
sağlıyorum. 0,2,4,6,8 ve 1,3,5,7,9 değişkenlerini gösterecek bir fonksiyon varmı acaba?
Veya yukardaki yöntemin başka hali varmı ?
Teşekkürler