خسته نباشید :
برنامه ای نوشتم که در آن تعدادی متغییر در حافظه ذخیره شده و سپس خوانده میشوند .
If Tannzimeroozha = 1 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 1
Waitms 5
Lcdat 3 , 1 , "rooz1 saved"
End If
End If
'-------------------------------------------
If Tannzimeroozha = 2 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 2
Waitms 5
Lcdat 3 , 1 , "rooz2 saved"
End If
End If
'---------------------------------------------
If Tannzimeroozha = 3 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 3
Waitms 5
Lcdat 3 , 1 , "rooz3 saved"
End If
End If
'@@@@@@@@@@@@@@@@@@@@@@@@@ Tannzimesaatha
If Pina.7 = 0 Then
Incr Tannzimesaatha
Waitms 200
End If
If Tannzimesaatha > 23 Then
Tannzimesaatha = 0
End If
'-----------------------------------------------
If Tannzimesaatha = 7 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimesaatha , 10
Waitms 5
Lcdat 7 , 1 , "saat7 saved"
End If
End If
'-----------------------------------------------
If Tannzimesaatha = 8 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimesaatha , 11
Waitms 5
Lcdat 7 , 1 , "saat8 saved"
End If
End If
'//////////////////////////////////////////////
If Tannzimerooz(1) = 1 And Tannzimesaat(7) = 7 And Weekday = 1 And _hour = 7 Then
Set Porta.2
End If
If Weekday <> 1 Or _hour <> 7 Then
Reset Porta.2
End If
'**********************************
If Tannzimerooz(1) = 1 And Tannzimesaat(8) = 8 And Weekday = 1 And _hour = 8 Then
Set Porta.2
End If
If Weekday <> 1 Or _hour <> 8 Then
Reset Porta.2
End If
البته خواندن از eprom در بخش اول برنامه خوانده میشوند که از نوشتن آن صرفنظر کردم .
در بخش آخر فقط در صورتی شرط اجرا میشود که فقط یک شرط وجود داشته باشد . اگر یکی از دو شرط حذف شوند کار به درستی انجام میشود ولی اگر 2 تا شرط باقی باشد هیچکدام انجام نمیشوند .
تعاریف متغییرها در بخش اول برنامه انجام شده اند که به دلیل زیاد بودن در اینجا قید نکرده ام .
لطفا راهنمایی فرمایید . میکرو مگا 32 میباشد .
برنامه ای نوشتم که در آن تعدادی متغییر در حافظه ذخیره شده و سپس خوانده میشوند .
If Tannzimeroozha = 1 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 1
Waitms 5
Lcdat 3 , 1 , "rooz1 saved"
End If
End If
'-------------------------------------------
If Tannzimeroozha = 2 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 2
Waitms 5
Lcdat 3 , 1 , "rooz2 saved"
End If
End If
'---------------------------------------------
If Tannzimeroozha = 3 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimeroozha , 3
Waitms 5
Lcdat 3 , 1 , "rooz3 saved"
End If
End If
'@@@@@@@@@@@@@@@@@@@@@@@@@ Tannzimesaatha
If Pina.7 = 0 Then
Incr Tannzimesaatha
Waitms 200
End If
If Tannzimesaatha > 23 Then
Tannzimesaatha = 0
End If
'-----------------------------------------------
If Tannzimesaatha = 7 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimesaatha , 10
Waitms 5
Lcdat 7 , 1 , "saat7 saved"
End If
End If
'-----------------------------------------------
If Tannzimesaatha = 8 Then
If Pinc.3 = 0 Then
Writeeeprom Tannzimesaatha , 11
Waitms 5
Lcdat 7 , 1 , "saat8 saved"
End If
End If
'//////////////////////////////////////////////
If Tannzimerooz(1) = 1 And Tannzimesaat(7) = 7 And Weekday = 1 And _hour = 7 Then
Set Porta.2
End If
If Weekday <> 1 Or _hour <> 7 Then
Reset Porta.2
End If
'**********************************
If Tannzimerooz(1) = 1 And Tannzimesaat(8) = 8 And Weekday = 1 And _hour = 8 Then
Set Porta.2
End If
If Weekday <> 1 Or _hour <> 8 Then
Reset Porta.2
End If
البته خواندن از eprom در بخش اول برنامه خوانده میشوند که از نوشتن آن صرفنظر کردم .
در بخش آخر فقط در صورتی شرط اجرا میشود که فقط یک شرط وجود داشته باشد . اگر یکی از دو شرط حذف شوند کار به درستی انجام میشود ولی اگر 2 تا شرط باقی باشد هیچکدام انجام نمیشوند .
تعاریف متغییرها در بخش اول برنامه انجام شده اند که به دلیل زیاد بودن در اینجا قید نکرده ام .
لطفا راهنمایی فرمایید . میکرو مگا 32 میباشد .
دیدگاه