برنامه اذان گو

[sajjad85]

با سلام و تبریک عید نوروز
من می خوام یه دستگاه اذان گودرست کنم تا به حال موفق شدم قسمت wave player رو بسازم الان می خواستم اوقات شرعی رو به صورت زیر براش تعریف کنم اگه کسی می تونه در برنامه نویسی این قسمت کمکم کنه

Azansobh2:
' 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
Data 600& , 559& , 557& , 555& , 554& , 552& , 540& , 549& , 547& , 545& , 544& , 542& , 540& , 538& , 537& , 535& , 533& , 532& , 530& , 528& , 526& , 525& , 523& , 521& , 520& , 518& , 516& , 514& , 513& , 511& , 509& ' 1
Data 508& , 506& , 504& , 503& , 501& , 459& , 458& , 456& , 455& , 453& , 451& , 450& , 448& , 447& , 445& , 444& , 442& , 441& , 439& , 438& , 437& , 435& , 434& , 432& , 431& , 430& , 429& , 427& , 426& , 425& , 424& ' 2
Data 423& , 422& , 421& , 420& , 419& , 418& , 417& , 416& , 415& , 415& , 414& , 413& , 412& , 412& , 411& , 411& , 410& , 410& , 409& , 409& , 409& , 409& , 408& , 408& , 408& , 408& , 408& , 408& , 408& , 408& , 409& ' 3
Data 409& , 409& , 409& , 410& , 410& , 411& , 411& , 412& , 412& , 413& , 413& , 414& , 415& , 416& , 417& , 417& , 418& , 419& , 420& , 421& , 422& , 423& , 424& , 425& , 426& , 427& , 429& , 430& , 431& , 432& , 433& ' 4
Data 434& , 436& , 437& , 438& , 439& , 441& , 442& , 443& , 444& , 446& , 447& , 448& , 450& , 451& , 452& , 453& , 455& , 456& , 457& , 459& , 500& , 501& , 502& , 504& , 505& , 506& , 507& , 509& , 510& , 511& , 512& ' 5
Data 513& , 515& , 516& , 517& , 518& , 519& , 520& , 522& , 523& , 524& , 525& , 526& , 527& , 528& , 529& , 530& , 531& , 533& , 534& , 535& , 536& , 537& , 538& , 539& , 540& , 541& , 542& , 543& , 544& , 545& , 446& ' 6

Data 447& , 448& , 449& , 450& , 451& , 451& , 452& , 453& , 454& , 455& , 456& , 457& , 458& , 459& , 500& , 501& , 502& , 503& , 504& , 505& , 505& , 506& , 507& , 508& , 509& , 510& , 511& , 512& , 513& , 514& ' 7
Data 515& , 516& , 516& , 517& , 518& , 519& , 520& , 521& , 522& , 523& , 524& , 525& , 526& , 527& , 528& , 529& , 529& , 530& , 531& , 532& , 533& , 534& , 535& , 536& , 537& , 538& , 539& , 540& , 541& , 541& ' 8
Data 542& , 543& , 544& , 545& , 546& , 547& , 548& , 549& , 549& , 550& , 551& , 552& , 553& , 553& , 554& , 555& , 556& , 557& , 557& , 558& , 559& , 559& , 600& , 601& , 601& , 602& , 602& , 603& , 604& , 604& ' 9
Data 605& , 605& , 606& , 606& , 606& , 607& , 607& , 607& , 608& , 608& , 608& , 608& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 608& , 608& , 608& , 608& , 607& ' 10
Data 607& , 607& , 606& , 606& , 605& , 605& , 604& , 604& , 603& , 602& , 602& , 601& , 600& , 559& , 559& , 558& , 557& , 556& , 555& , 554& , 553& , 553& , 552& , 551& , 549& , 548& , 547& , 546& , 545& , 544& ' 11
Data 543& , 542& , 540& , 539& , 538& , 537& , 535& , 534& , 533& , 531& , 530& , 528& , 527& , 526& , 524& , 523& , 521& , 520& , 518& , 517& , 515& , 514& , 512& , 510& , 509& , 507& , 506& , 504& , 502& , 500& ' 12

[روح الامین]

پاسخ : برنامه اذان گو

سلام :nerd:
اول سعی کنید برنامه رو با گزینه قرار دادن کد که توی ابزار هست قرار بدین.
دوم اسم کامپایلر یا برنامه ای که باهاش کار می کنید یادتون رفت.
سوم اگه نوع میکرو و امکانات جانبی رو هم بگید بد نیست.

[sajjad85]

پاسخ : برنامه اذان گو

می خوام با کامپایلر بسکام کار کنم و میکرو هم از اتمگا 32 یا 16 و ای سی ds 1307 استفاده کنم مشکلم اینه که چطوری از این جدول استفاده کنم
می خوام با توجه به ماه برو تو سطره مربوطه و بعدش با اون روزی که قرار گرفتیم بره تو روزش و با ساعت چک کنه اگه با هم مطابقت داشتم رله باز شه

[sajjad85]

پاسخ : برنامه اذان گو

کسی نیست راهنماییم کنه

[sajjad85]

پاسخ : برنامه اذان گو

میشه با یه جمع و تفریق ماه و روزها رو به یه عدد از 1 نا 365 تبدیل کنم میشه از این جدول استفاده کرد

[sajjad85]

پاسخ : برنامه اذان گو

برنامه رو به این صورت نوشتم چند تا ارور داره

$regfile = "m16def.dat "
$crystal = 10000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Porta.3 , Rs = Porta.2
Config Clock = Soft
Config Date = Ymd , Separator = /
Enable Interrupts
Config Porta = Output
Config Portb = Output
Date$ = "92/01/02"
Time$ = "12:00:00"


'-------------------------------------------------------------------------------
Dim Y As Byte
Dim M As Byte
Dim D As Byte
Dim A As Word
Dim B As Word

'-------------------------------------------------------------------------------
Do

Cursor Off
Cls
Home
Lcd "Time: " ; Time$
Lowerline
Lcd "Date: " ; Date$

'-------------------------------------------------------------------------------
If M < 6 Then Goto A1
If M > 6 Then Goto A2





 Loop
End

A1:
A = D +(m -1) * 31
B = Lookup(a , Azansobh)
If Time$ = B Then Set Portb.1

A2:
A = D +(m -7) * 30 +(6 * 31)
B = Lookup(a , Azansobh)
If Time$ = B Then Set Portb.1
Azansobh:
'   1   2   3   4   5   6   7   8   9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31
Data 600& , 559& , 557& , 555& , 554& , 552& , 540& , 549& , 547& , 545& , 544& , 542& , 540& , 538& , 537& , 535& , 533& , 532& , 530& , 528& , 526& , 525& , 523& , 521& , 520& , 518& , 516& , 514& , 513& , 511& , 509&    ' 1
Data 508& , 506& , 504& , 503& , 501& , 459& , 458& , 456& , 455& , 453& , 451& , 450& , 448& , 447& , 445& , 444& , 442& , 441& , 439& , 438& , 437& , 435& , 434& , 432& , 431& , 430& , 429& , 427& , 426& , 425& , 424&    ' 2
Data 423& , 422& , 421& , 420& , 419& , 418& , 417& , 416& , 415& , 415& , 414& , 413& , 412& , 412& , 411& , 411& , 410& , 410& , 409& , 409& , 409& , 409& , 408& , 408& , 408& , 408& , 408& , 408& , 408& , 408& , 409&    ' 3
Data 409& , 409& , 409& , 410& , 410& , 411& , 411& , 412& , 412& , 413& , 413& , 414& , 415& , 416& , 417& , 417& , 418& , 419& , 420& , 421& , 422& , 423& , 424& , 425& , 426& , 427& , 429& , 430& , 431& , 432& , 433&    ' 4
Data 434& , 436& , 437& , 438& , 439& , 441& , 442& , 443& , 444& , 446& , 447& , 448& , 450& , 451& , 452& , 453& , 455& , 456& , 457& , 459& , 500& , 501& , 502& , 504& , 505& , 506& , 507& , 509& , 510& , 511& , 512&    ' 5
Data 513& , 515& , 516& , 517& , 518& , 519& , 520& , 522& , 523& , 524& , 525& , 526& , 527& , 528& , 529& , 530& , 531& , 533& , 534& , 535& , 536& , 537& , 538& , 539& , 540& , 541& , 542& , 543& , 544& , 545& , 446&    ' 6

Data 447& , 448& , 449& , 450& , 451& , 451& , 452& , 453& , 454& , 455& , 456& , 457& , 458& , 459& , 500& , 501& , 502& , 503& , 504& , 505& , 505& , 506& , 507& , 508& , 509& , 510& , 511& , 512& , 513& , 514&    ' 7
Data 515& , 516& , 516& , 517& , 518& , 519& , 520& , 521& , 522& , 523& , 524& , 525& , 526& , 527& , 528& , 529& , 529& , 530& , 531& , 532& , 533& , 534& , 535& , 536& , 537& , 538& , 539& , 540& , 541& , 541&    ' 8
Data 542& , 543& , 544& , 545& , 546& , 547& , 548& , 549& , 549& , 550& , 551& , 552& , 553& , 553& , 554& , 555& , 556& , 557& , 557& , 558& , 559& , 559& , 600& , 601& , 601& , 602& , 602& , 603& , 604& , 604&    ' 9
Data 605& , 605& , 606& , 606& , 606& , 607& , 607& , 607& , 608& , 608& , 608& , 608& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 609& , 608& , 608& , 608& , 608& , 607&    ' 10
Data 607& , 607& , 606& , 606& , 605& , 605& , 604& , 604& , 603& , 602& , 602& , 601& , 600& , 559& , 559& , 558& , 557& , 556& , 555& , 554& , 553& , 553& , 552& , 551& , 549& , 548& , 547& , 546& , 545& , 544&    ' 11
Data 543& , 542& , 540& , 539& , 538& , 537& , 535& , 534& , 533& , 531& , 530& , 528& , 527& , 526& , 524& , 523& , 521& , 520& , 518& , 517& , 515& , 514& , 512& , 510& , 509& , 507& , 506& , 504& , 502& , 500&    ' 12
'*****************************************************************************************

لطفا یکی راهنماییم کنه

[v.nassiri]

پاسخ : برنامه اذان گو

با درود . . .
جسارتا این کد ساعات رو شما از جایی قرض گرفتی!!!؟؟؟؟؟ :biggrin:

[sajjad85]

پاسخ : برنامه اذان گو

از سایت ژیو فیزیک برداشتم

[شاهرخ مستقیمی]

پاسخ : برنامه اذان گو

جسارتا یه سوال! ( به خاطر تجربه ی نسبتا تلخی که از این قضیه اذان گو اتوماتیک داشتم)
مهمه که خودتون درست کنین؟ واسه اینکه اولا آماده ش بیرون هست. دوما باز هم بنابه همون تجربه! wave player به درد نمیخوره! چون کافیه صدا از بلندگو پخش بشه؛ اون موقع هست که متوجه مطلب میشی. سوما اگه قراره این دستگاه جایی نصب بشه بهتره تایم اذانها به این شکل وارد نشه.اون دستگاه که میگفتم آماده ش هست با GPS کار میکنه و تایم اذانها رو با موقعیت مکانی که قرار داره set میکنه. به هر حال از من گفتن!!

[mohsen1404]

پاسخ : برنامه اذان گو

دوما باز هم بنابه همون تجربه! wave player به درد نمیخوره! چون کافیه صدا از بلندگو پخش بشه؛ اون موقع هست که متوجه مطلب میشی.

تو بقیه اش دخالت نمی کنم !
منتها برای یه سیستم برای بخش سخن گوش من میخوام از یه wave player استفاده کنم که به یه بلند گو وصل شه در رابطه با منظورتون بیشتر توضیح بفرمایید.

[شاهرخ مستقیمی]

پاسخ : برنامه اذان گو

MP3 پلیر درسته که گرونه(به نسبت wave player شاید الان2برابر قیمت داشته باشه) اما به خاطر کیفیت بالاتر فرمتmp3 به نسبتwave حتما ارزش استفاده کردن رو داره.چون فایل wave وقتی با wave player دیکد میشه نویز خفیفی پیدا میکنه که فقط واسه صداهای کم مناسب هست.(مثل آهنگ انتظار خط تلفن و امثال اون) اما به آمپلی فایر که وصل بشه رسما آبروریزی میشه....این رو حتما جدی بگیر.

[sajjad85]

پاسخ : برنامه اذان گو

من می خوام فقط وقت اذان یه رله رو وصل کنم اگه در این مورد کسی کار کرده کمک کنه

[mohammadfallahi63]

پاسخ : برنامه اذان گو

دوست عزیز شما که می گید اوقت شرعی رو با یه جمع و تفرق میشه در اورد واقعا می شه
جالبه
می تونید به من کمک کنید در ارن مورد؟

[sajjad85]

پاسخ : برنامه اذان گو

نه منظورم اوقات شرعی نیست منظورم اینه که روزهای سالو یه عددی بین یک تا 365 در نظر بگیریم و یا استفاده از این عدد اوقات شرعی رو که اماده داریم با ساعت تطبیق بدیم

[mohammadfallahi63]

پاسخ : برنامه اذان گو

اونطوری هر سال باید بنویسم؟