باز و بسته كردن رله در زمان خاص

sajjad85

سلام
من مي خوام با استفاده از دي اس 1307 يه رله رو در روزها و زمانهاي خاص باز و بسته كنم برنامشو چه طوري بنويسم

sajjad85

كسي نيست جواب بده

adelavr

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

sajjad85

اين برنامه ساعت به همره تاريخه
$regfile = "M16DEF.DAT"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , E = Pina.3 , Rs = Pina.2
Config Lcd = 16 * 2
Config Porta = Output
Cursor Off
Enable Interrupts
Dim Bweekday As Byte , Strweekday As String * 10
Config Date = Ymd , Separator = /
Config Clock = Soft
_sec = 00 : _min = 07 : _hour = 13
_day = 31 : _month = 02 : _year = 90
Do
Locate 1 , 1
Lcd Date$
Locate 2 , 1
Lcd Time$
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Locate 1 , 10
Lcd Bweekday
Locate 2 , 10
Lcd Strweekday

Loop

End
Weekdays:
Data "Saturday" , "Sunday" , "Monday" , "Tuesday" , "Wednesday" , "Thursday" , "Friday"

حالا اين تو اين برنامه چطوري در در هر روز در زمان هاي متفاوت يك پين رو ست كنم
ساده تر بگم با اين برنامه چطوري اوقات شرعي رو بهش اضافه كنم
لطفا راهنماييم كنيد

sina6479

اوقات شرعی هر روز رو که داری ، تو حلقه اصلی برنامه مدام ساعت رو با اوقات اون روز چک کن هر موقع با یکیش برابر شد یه پین رو یک کن!خیلی واضحه مشکلت کجاست؟

sajjad85

مشكل من هم همونه اگه ميشه بگيد به چه روشي اون روز رو تشخيص بده
با استفاده از case ماه رو تشخيص بده و داخل همون حلقه case با استفاده از lookupstr ساعت رو از جدول بهش بدم ؟

sina6479

با یه جمع و ضرب ساده ماه و روز رو تبدیل کن به یه عدد بین صفر تا 365!
اینجوری هر روز از سال با یه عدد مشخص می شه!
واسه اوقات شرعی هم همین کارو کن بعد اطلاعاتشون رو با هم مقایسه کن

sajjad85

ميشه يه كم بيشتر توضيح بديد زياد متوجه نشدم يعني براي هر روز يه عدد در نظر بگيرم بعدش براي اون عدد اوقات شرعي رو بنويسم ؟

sajjad85

اين برنامه رو همون طوري كه گفتيد تغيير دادم ولي پين مورد نظر ست نمي شه لطفا نگيد مشكل از كجاست
$regfile = "M16DEF.DAT"
$crystal = 1000000
Config Lcdpin = Pin , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7 , E = Pina.3 , Rs = Pina.2
Config Lcd = 16 * 2
Config Porta = Output
Config Portb = Output
'-------------------------------------------------------------------------------
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim L As Byte
Dim Q As Byte

Dim Azansobh As String * 20
Dim Azanzohr As String * 20
Dim Azanasr As String * 20

'-------------------------------------------------------------------------------
Cursor Off
Enable Interrupts
Dim Bweekday As Byte , Strweekday As String * 10
Config Date = Ymd , Separator = /
Config Clock = Soft
_sec = 50 : _min = 59 : _hour = 11
_day = 01 : _month = 01 : _year = 90

Main:
Do
Locate 1 , 1
Lcd Date$
Locate 2 , 1
Lcd Time$
L = Time$
Bweekday = Dayofweek()
Strweekday = Lookupstr(bweekday , Weekdays)
Locate 1 , 10
Lcd Bweekday
Locate 2 , 10
Lcd Strweekday
'-------------------------------------------------------------------------------
If _month < 7 Then Goto 1

'------------------------------------------------------------------------------
If _month > 7 Then Goto 2

'-------------------------------------------------------------------------------
Q = Lookupstr(g , Dta)
If Q = L Then Goto Baz

Loop

End
Weekdays:
Data "Saturday" , "Sunday" , "Monday" , "Tuesday" , "Wednesday" , "Thursday" , "Friday"

1:
A = _month - 1
B = A * 31
G = B + _day
Locate 1 , 13
Lcd G
Goto Main

2:
A = _month - 6
B = 6 * 31
C = A - 1
E = C * 30
F = B + E
G = F + _day
Locate 1 , 14
Lcd G
Goto Main

Dta:
Data "12:00:00" , "12:00:00" , "14:00:00" , "15:00:00" , "16:00:00" , "17:00:00"

Baz:
Set Porta.0
Wait 2
Reset Porta.0
اين هم لينك مدارش
http://s1.picofile.com/file/7303168816/saat_ba_ds1307.dsn.html

	HLachini.elewiz.com صفحه اول انجمن -> AVR	زمان پيشفرض سايت: ساعت گرينويچ + 3.5 ساعت
صفحه 1 از 1