سلام
من محافظ برق کتاب جلد 6 آقای بخت آور رو درست کردم ولی یه مشکل بزرگی که کدهای این مدار داره اینه که وقتی ولتاژ در محدوده مجاز (180-240)نیست مدار به حالت تایمر میره و بعد از اتمام زمان تایمر 1 ثانیه رله رو وصل میکنه و بعد شرط رو چک میکنه اگه دوباره ولتاژ در محدوده مجاز نباشه دوباره میره رو تایمر و رله قطع میشه..یعنی هر 2 دقیقه 1 ثانیه رله وصل میشه و دوباره قطع میشه ..این سیکل تا زمانی که که ولتاژ به حالت عادی نرسه ادامه داره..
دوستان بنده با بسکام آشنایی ندارم لطفا راهنماییم کنین تا مشکلو رفع کنم
مرسی
من محافظ برق کتاب جلد 6 آقای بخت آور رو درست کردم ولی یه مشکل بزرگی که کدهای این مدار داره اینه که وقتی ولتاژ در محدوده مجاز (180-240)نیست مدار به حالت تایمر میره و بعد از اتمام زمان تایمر 1 ثانیه رله رو وصل میکنه و بعد شرط رو چک میکنه اگه دوباره ولتاژ در محدوده مجاز نباشه دوباره میره رو تایمر و رله قطع میشه..یعنی هر 2 دقیقه 1 ثانیه رله وصل میشه و دوباره قطع میشه ..این سیکل تا زمانی که که ولتاژ به حالت عادی نرسه ادامه داره..
دوستان بنده با بسکام آشنایی ندارم لطفا راهنماییم کنین تا مشکلو رفع کنم
مرسی
کد:
$crystal = 8000000 $regfile = "m8def.dat" Dim A As Byte , M As Byte , W As Long , N2 As Integer , N As Long , D1 As Integer , D2 As Integer , D3 As Integer , D4 As Integer , K2 As Long , K3 As Long , W3 As Long , W4 As Long , Wdown As Long , Wup As Long , L As Byte , Tt As Long , T As Long Dim Ww As Long , Www As Long A = 1 Config Timer0 = Timer , Prescale = 8 Enable Interrupts Enable Timer0 On Ovf0 Disply Config Portd = Output Config Portb = Output Config Adc = Single , Prescaler = Auto , Reference = Avcc Start Adc ' pb6 = relay ' pd7= leds ' pb4=sw1 ' pb3=sw2 ' pb5=sw3 Wdown = 180 Wup = 240 Tt = 150 T = 0 L = 2 Debon: Do Ww = Getadc(0) Waitms 8 Www = Www + Ww Ww = Getadc(0) Www = Www + Ww Waitms 8 Ww = Getadc(0) Waitms 8 Www = Www + Ww Ww = Getadc(0) Www = Www + Ww Waitms 8 W = Www / 4 Www = 0 D3 = W / 100 W3 = D3 * 100 K2 = W - W3 D2 = K2 / 10 N = D2 * 10 D1 = K2 - N Waitms 40 If W < Wdown Then L = 3 If W > Wup Then L = 2 If L = 3 Then Goto Takhir If L = 2 Then Goto Takhir Loop Takhir: Incr T If T > Tt Then T = 0 If T = 0 Then L = 1 Goto Debon Disply: Incr A If A > 3 Then A = 1 If A = 1 Then M = D1 If A = 2 Then M = D2 If A = 3 Then M = D3 Portb = 0 Portd = Lookup(m , Disp) Portb = Lookup(a , Jaroob) If L = 1 Then Portb = Portb + 64 If L = 1 Then Goto Green If L = 2 Then Goto Red If L = 3 Then Goto Yellow Green: If A = 3 Then Portd = Portd - 128 Goto Back Red: If A = 1 Then Portd = Portd - 128 Goto Back Yellow: If A = 2 Then Portd = Portd - 128 Goto Back Back: Return Jaroob: Data 0 , 1 , 2 , 4 Disp: [LEFT][FONT=Yekan]Data 192 , 249 , 164 , 176 , 153 , 146 , 130 , 248 , 128 , 144[/FONT][/LEFT]
دیدگاه