نمايش موضوع قبلي :: نمايش موضوع بعدي |
نويسنده |
پيغام |
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: يكشنبه، 18 دي ماه ، 1390 20:08:04 موضوع مطلب: باز و بسته كردن رله در زمان خاص |
|
|
سلام
من مي خوام با استفاده از دي اس 1307 يه رله رو در روزها و زمانهاي خاص باز و بسته كنم برنامشو چه طوري بنويسم |
|
بازگشت به بالا |
|
|
|
تشکرهاي ثبت شده از ايجاد کننده تاپيک : |
|
|
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: دوشنبه، 19 دي ماه ، 1390 19:39:54 موضوع مطلب: |
|
|
كسي نيست جواب بده |
|
بازگشت به بالا |
|
|
|
adelavr
کاربر فعال
وضعيت: آفلاين 2 شهريور ماه ، 1388 تعداد ارسالها: 305 امتياز: 603 تشکر کرده: 4 تشکر شده 45 بار در 12 پست
محل سكونت: http://pcenter.ir
|
ارسال شده در: چهارشنبه، 5 بهمن ماه ، 1390 01:01:23 موضوع مطلب: |
|
|
خب تو برنامه مقدار ساعت رو میخونید و بنا به زمانی که تعریف شده رله ها رو کنترل میکنید دقیقا تو کدوم قسمت برنامه مشکل داری؟ |
|
بازگشت به بالا |
|
|
|
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: چهارشنبه، 19 بهمن ماه ، 1390 15:15:24 موضوع مطلب: |
|
|
اين برنامه ساعت به همره تاريخه
$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
کاربر فعال
وضعيت: آفلاين 1 مهر ماه ، 1388 تعداد ارسالها: 166 امتياز: 357 تشکر کرده: 4 تشکر شده 23 بار در 14 پست
محل سكونت: شیراز
|
ارسال شده در: پنجشنبه، 20 بهمن ماه ، 1390 11:49:49 موضوع مطلب: |
|
|
اوقات شرعی هر روز رو که داری ، تو حلقه اصلی برنامه مدام ساعت رو با اوقات اون روز چک کن هر موقع با یکیش برابر شد یه پین رو یک کن!خیلی واضحه مشکلت کجاست؟ |
|
بازگشت به بالا |
|
|
|
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: شنبه، 22 بهمن ماه ، 1390 10:23:38 موضوع مطلب: |
|
|
مشكل من هم همونه اگه ميشه بگيد به چه روشي اون روز رو تشخيص بده
با استفاده از case ماه رو تشخيص بده و داخل همون حلقه case با استفاده از lookupstr ساعت رو از جدول بهش بدم ؟ |
|
بازگشت به بالا |
|
|
|
sina6479
کاربر فعال
وضعيت: آفلاين 1 مهر ماه ، 1388 تعداد ارسالها: 166 امتياز: 357 تشکر کرده: 4 تشکر شده 23 بار در 14 پست
محل سكونت: شیراز
|
ارسال شده در: شنبه، 22 بهمن ماه ، 1390 14:11:25 موضوع مطلب: |
|
|
با یه جمع و ضرب ساده ماه و روز رو تبدیل کن به یه عدد بین صفر تا 365!
اینجوری هر روز از سال با یه عدد مشخص می شه!
واسه اوقات شرعی هم همین کارو کن بعد اطلاعاتشون رو با هم مقایسه کن |
|
بازگشت به بالا |
|
|
|
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: شنبه، 22 بهمن ماه ، 1390 16:20:33 موضوع مطلب: |
|
|
ميشه يه كم بيشتر توضيح بديد زياد متوجه نشدم يعني براي هر روز يه عدد در نظر بگيرم بعدش براي اون عدد اوقات شرعي رو بنويسم ؟ |
|
بازگشت به بالا |
|
|
|
sajjad85
کاربر فعال
وضعيت: آفلاين 4 مرداد ماه ، 1389 تعداد ارسالها: 98 امتياز: 178 تشکر کرده: 0 تشکر شده 1 بار در 0 پست
محل سكونت: تبريز
|
ارسال شده در: جمعه، 28 بهمن ماه ، 1390 11:55:46 موضوع مطلب: |
|
|
اين برنامه رو همون طوري كه گفتيد تغيير دادم ولي پين مورد نظر ست نمي شه لطفا نگيد مشكل از كجاست
$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 |
|
بازگشت به بالا |
|
|
|
|