نمايش شهرانتخاب شده در(نرم افزاراوقات شرعي)

nazary2009

nazary2009

Member
سلام دوستان درساخت برنامه اوقات شرعي اگه بخواهيم شهري كه كاربر انتخاب كرده روذخيره كنيم
ودرراه اندازي مجددبرنامه همون شهرنشون داده بشه بايد چه كنيم ديتابيس شهرها به صورت textاست
 
sajadms

sajadms

Member
دوست عزیز اولا جواب رو اگه یه خورده تو انجمن می گشتین حتما پیدا می کردین
دوما یه روش ساده اینه که اسم شهر رو تو یه فایل تکست ذخیره کنین و برای بارهای بعدی نام شهر رو از همون فایل تکست فراخونی کنین
 
nazary2009

nazary2009

Member
سلام دوستان من مي خوام براي اين برنامه كه دراين پست پيوست شده بود يه صفحه بسازم كه كاربر شهر مورد نظرش روكه انتخاب
مي كنه اوقات شرعي اون شهر ازديتابيس مربوط به اون شهر نمايش بده و اين شهر دراجراهاي بعدي براساس انتخاب كاربرنمايش داده بشه اگه امكان داره كمك كنيدممنون
 
sajadms

sajadms

Member
یه نمونه از ذخیره اسم شهرها رو به صورت متنی براتون آماده کردم شاید بتونه کمکتون کنه شما میتونین با تغییر تو این نمونه هر جور خواستین یا با ذخیره اسم شهر این کار رو انجام بدین یا می تونین واسه هر شهر یه کد در نظر بگیرین و اونجوری چک کنین ولی باید بگم این نمونه صرفا جهت یادگیری هستش وگرنه روشهای مختلف و بهتری هم واسه انجام این کار هست
 

پیوست ها

  • text save.rar
    755 بایت · بازدیدها: 33
nazary2009

nazary2009

Member
بدست اوردن تاريخ شمسي

سلام دوستان اگه بخوام تاريخ ميلادي روبه شمسي برگردونم(به اين صورت1#1 يعني يك فروردين) تابرنامه اون روباتاريخ فايلtextمقايسه كنه
واطلاعات اون رو مطابق كدزير فراخواني بكنه بايد چه كنم
nevercom گفت:
کد: 
[COLOR=#009000]**// Text file Path[/COLOR] 
TextPath$ = [COLOR=#800000]'<Embedded>\Database.txt'[/COLOR] 
[COLOR=#009000]**// Number of Lines in the Text File[/COLOR] 
NumOfLines = [COLOR=#000090][B]NOL[/B][/COLOR](TextPath$) 
[COLOR=#0000FF]For[/COLOR] Line=[COLOR=#ff0000]1[/COLOR] [COLOR=#0000FF]To[/COLOR] NumOfLines 
  [COLOR=#009000]**// Line Format: 1#1#4:37#6:00#13:11#20:15#20:45#23:15[/COLOR] 
  [COLOR=#009000]**// Here we retrieve each line, one by one, and add a '#' to the end[/COLOR] 
  Line$ = [COLOR=#000090][B]StrFromFile[/B][/COLOR](TextPath$,Line,[COLOR=#ff0000]1[/COLOR]) + [COLOR=#800000]'#'[/COLOR] 
  Day$[Line]          = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]1[/COLOR]) 
  Month$[Line]        = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]2[/COLOR]) 
  Azan_Sobh$[Line]    = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]3[/COLOR]) 
  Sunrise$[Line]      = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]4[/COLOR]) 
  Azan_Zohr$[Line]    = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]5[/COLOR]) 
  Sunset$[Line]       = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]6[/COLOR]) 
  Azan_Maghreb$[Line] = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]7[/COLOR]) 
  Nimeshab$[Line]     = [COLOR=#000090][B]GetArrayItem[/B][/COLOR](Line$,#,[COLOR=#ff0000]8[/COLOR]) 
[COLOR=#0000FF]Next[/COLOR] Line 
 
[COLOR=#009000]**// for instance, you can access the "Azan_Zohr$" of Line "2", this way:[/COLOR] 
[COLOR=#000090][B]Message[/B][/COLOR]("Azan_Zohr$[[COLOR=#ff0000]2[/COLOR]]","")
کلیک کنید تا باز شود...
 
BlueMMB

BlueMMB

Well-Known Member
سلام .

بهتره برای تبدیل تاریخ میلادی به شمسی از پلاگین PersianDatePlugin استفاده کنین .
 
nazary2009

nazary2009

Member
سلام دوستان جناب آقاي گل ليلا درمبحث اولين تقويم دسکتاپي کاملا مذهبي91نحوه بدست اوردن تاريخ شمسي رودرپست34 توضيح دادن
وهمچنين درپست23 نحوه فراخواني اوقات شرعي رواز فايل تكست مي خواستم اگه براي دوستان امكان داره يه نمونه بادوتاكد كه درپست هاي
مذكوراست روبذاره ممنون
كدپست34
goleleila گفت:
سلام
بنده قبلا از روي پي دي افهاي سايت ژئوفيزيک اوقات شرعي مثلا تهران رو دريافت و به فايل تکست تبديل کردم.
همون طور که در پست 23 توضيح دادم فقط کافيه بدونيد امروز چندمين روز سال شمسي هست و بعد بريد سطر مورد نظر رو طبق دستورهاي همون پست 23 در فايل تکست بخونيد و نمايش بدين.

اين هم کد پيدا کردن چندمين روز سال شمنسي از روي تاريخ ميلادي(فقط براي سال 91)
يا علي:rose:
PHP: 
dd=CBK_DateNum
mm=CBK_MonthNum
yy$=CBK_Year

*** farvardin
If (mm=3 & dd>=20) Then
  rooz=dd-19
  mah=1
End
If (mm=4 & dd<=19) Then
  rooz=dd+12
  mah=1
End
*** ordibehesht
If (mm=4 & dd>=20) Then
  rooz=dd-19
  mah=2
End
If (mm=5 & dd<=20) Then
  rooz=dd+11
  mah=2
End
*** khordad
If (mm=5 & dd>=21) Then
  rooz=dd-20
  mah=3
End
If (mm=6 & dd<=20) Then
  rooz=dd+11
  mah=3
End
*** tir
If (mm=6 & dd>=21) Then
  rooz=dd-20
  mah=4
End
If (mm=7 & dd<=21) Then
  rooz=dd+10
  mah=4
End
*** mordad
If (mm=7 & dd>=22) Then
  rooz=dd-21
  mah=5
End
If (mm=8 & dd<=21) Then
  rooz=dd+10
  mah=5
End
*** shahrivar
If (mm=8 & dd>=22) Then
  rooz=dd-21
  mah=6
End
If (mm=9 & dd<=21) Then
  rooz=dd+10
  mah=6
End
*** mehr
If (mm=9 & dd>=22) Then
  rooz=dd-21
  mah=7
End
If (mm=10 & dd<=21) Then
  rooz=dd+9
  mah=7
End
*** aban
If (mm=10 & dd>=22) Then
  rooz=dd-21
  mah=8
End
If (mm=11 & dd<=20) Then
  rooz=dd+10
  mah=8
End
*** azar
If (mm=11 & dd>=21) Then
  rooz=dd-20
  mah=9
End
If (mm=12 & dd<=20) Then
  rooz=dd+10
  mah=9
End
*** dey
If (mm=12 & dd>=21) Then
  rooz=dd-20
  mah=10
End
If (mm=1 & dd<=19) Then
  rooz=dd+11
  mah=10
End
*** bahman
If (mm=1 & dd>=20) Then
  rooz=dd-19
  mah=11
End
If (mm=2 & dd<=18) Then
  rooz=dd+12
  mah=11
End
*** esfand
If (mm=2 & dd>=19) Then
  rooz=dd-18
  mah=12
End
If (mm=3 & dd<=20 & yy$='2013') Then
  rooz=dd+10
  mah=12
End
کلیک کنید تا باز شود...


كدپست23
goleleila گفت:
سلام
فايلهاي اوقات شرعي رو براي هر شهر براي سال 91 در اين ادرس سيستمتون مي تونيد ببينيد.
C:\Program Files\tagh91

فايل tehran.txt رو ببينيد.هر فايل اوقات شرعي 366 سطر داره که در هر خط اوقات شرعي يک روز کامل اومده.مثلا روز اول سال :
1#1#23:29#18:34#18:16#12:12#06:08#04:44#
​

از سمت راست اذان صبح هست تا سمت چپ که به نيمه شب شرعي و تاريخ روز و ماه ختم ميشه.

کد: 
FileName$='C:\Program Files\tagh91\tehran.txt'
oghat$=StrFromFile(FileName$,satr, 1)
NumOfItems=GetArrayNum(oghat$,#)
For i=1 To NumOfItems
  azan$[i]= GetArrayItem(oghat$,#,i)
Next i

ابتدا از روي تاريخ ميلادي سيستم ويندوز ، شماره روز در سال رو پيدا کرده و در متغير satr ريختم.
سپس با کد بالا سراغ سطر مورد نظر رفته و به ترتيب با يک حلقه مقادير اوقات شرعي رو در متغير azan$ قرار دادم.

يا علي:rose:
​
کلیک کنید تا باز شود...
 
justali

justali

New Member
سلام
داداش ميگم ميشه يه نمونه آماده از اين رو براي دانلود بزاري؟ برم بردارم چون هيچ جوري من نمي تونم اينو بسازم.
منتظر جوابم ..باتشكر از دوستان
 
nazary2009

nazary2009

Member
کد: 
FileName$='C:\Program Files\tagh91\tehran.txt'
oghat$=StrFromFile(FileName$,satr, 1)
NumOfItems=GetArrayNum(oghat$,#)
For i=1 To NumOfItems
  azan$[i]= GetArrayItem(oghat$,#,i)
Next i

ابتدا از روي تاريخ ميلادي سيستم ويندوز ، شماره روز در سال رو پيدا کرده و در متغير satr ريختم.
سپس با کد بالا سراغ سطر مورد نظر رفته و به ترتيب با يک حلقه مقادير اوقات شرعي رو در متغير azan$ قرار دادم.

يا علي:rose:
​
[/QUOTE]
سلام دوستان مي خواستم بدونم منظورازمتغييرstarدركدبالا چه نوع متغييري است وهمچنين متغييرazan$ چطوربايد اين متغيرهاروبسازم
 
S

sms121121

New Member
با سلام
لطفا نمونه ای را برایم توضیح بدهید که بتوانم با گرفتن تاریخ سیستم به همان صفحه ای که آن روز می باشد هدایت شود
یعنی اگر امروز 13 مهر 91 است من در تقویم که دارم با محض باز شدن تقویم به صفحه 13 مهر 91 برود.

با تشکر
 
برای ارسال پاسخ شما باید وارد سیستم شوید.

آخرین مطالب مجیدآنلاین

جدیدترین ارسال ها

بالا