Форум РадиоКот

Код: Выделить всё

if u<480 or i>511 then
 config portb.4 =  output
  if <480 and i>511 then
  toggle portb.4
  else
    if i>511 then 
    portb.4 = 1
    else
    portb.4 = 0
    end if
  end if
else
 config portb.4 = input
endif

Код: Выделить всё

if u<480 or i>511 then
 config portb.4 =  output
  if переменная?<480 and i>511 then
  toggle portb.4
  elseif i>511 then 
    portb.4 = 1
    else
    portb.4 = 0
  end if
else
 config portb.4 = input
endif

Код: Выделить всё

'*********************************************** 
Soprot: ' измерение сопротивления 

Nomer = 0 
Start Adc 
Cls 
Rele = 1 'включаем реле подключаем питание форсунок к источнику тока 
 Lcd "д1 д2 д3 д4" 'лсд- "ф1 ф2 ф3 ф4" 
F1 = 1 'подключаем форсунку № 1 
 Call Test 'уходим измерять сопротивление 
 Izm1 = Izmn 'присваиваем измеренное значение первой форсунке 
Locate 2 , 1 
 Lcd Izm1 'выводим на индикатор сопротивление под символом "ф1" 
F1 = 0 'отключаем первую 
F2 = 1 'включаем вторую 
 Call Test 
 Izm2 = Izmn 'тоже с остальными 
Locate 2 , 5 
 Lcd Izm2 
F2 = 0 
F3 = 1 
 Call Test 
 Izm3 = Izmn 
Locate 2 , 9 
 Lcd Izm3 
F3 = 0 
F4 = 1 
 Call Test 
 Izm4 = Izmn 
Locate 2 , 13 
 Lcd Izm4 
Vpusk = 0 
F1 = 1 'устанавливаем в 1 для дальнейшей работы 
F2 = 1 
F3 = 1 
F4 = 1 
Imp = 0 
Menu = 9 '9 чтобы остались показания на индикаторе после измерения 
Goto Nachalo 

Sub Test 'измеряем 
Incr Nomer 'прибавляем каждый раз по еденице чтобы в случае неисправности 
Wait 1 'вывести номер неисправной форсунки 
Izmn = Getadc(0) 
Izmn = Izmn - 134 'вычитаем для компенсации перехода транзистора (возможно надо подобрать) 
Izmn = Izmn / 2 'чтобы было в Омах