ребята подскажите как переделать данный код выключателя освещения по времени и фоторезистору регулировку освещения типа, диммера, от фоторезистора.
Код:
Sub Light_set
Foto = Getadc(0) \ 10
Foto_on = 10 * Ee_foto_on
Foto_off = 10 * Ee_foto_off
H_on = Ee_h_on ' читаем время включения с ЕЕПРОМ
H_off = Ee_h_off
If Foto => Foto_on And _hour >= H_on And _hour < H_off Then
Light = 1
Locate 2 , 20
Lcd Chr(3)
End If
If Foto <= Foto_off Or _hour => H_off Then
Light = 0
Locate 2 , 20
Lcd Chr(4)
End If
Foto = 101 - Foto
Fotostr = Str(foto)
Fotostr = Format(fotostr , "000")
Locate 2 , 1
Lcd "OcіeжeЅЅocїД: " ; Fotostr ; "%"
End Sub