Fa مشاهده اوقات شرعي روزقبل

[nazary2009]

باسلام من باكد زير اطلاعات اوقات شرعي روازديتابيسtextفرخواني ميكنم اگه كاربر خواسته باشه اوقات روزقبل وبعدرومشاهده
كنه چه كدي لازمه ممنون ازراهنماييتون
**Load information from database
date$=CBK_DateShort
num=NOL(c:\database.txt)
For i=1 To num
getdate$=StrFromFile(c:\database.txt,i,1)
check$=StrGet(getdate$,1)
If (check$='#') Then
getdate2$=StrCopy(getdate$,2,8)
If (getdate2$=date$) Then
one = i+1
two = i+3
For n = one To two
**in the next line i embed a database ; you can make your own database and change it with this
gettime$=StrFromFile(c:\database.txt,n,1)
m=m+1
object$='t'+ CHAR(m)
LoadText("object$","gettime$")
Next n
End
End
Next i
**check times
time$=CBK_Time24
If (time1$=time$ | time2$=time$ | time3$=time$) Then
**in the next line you can change the path of your audio file
AudioOpen("c:\Azan.mp3")
End
ScriptTimer("Script","1000")