qiuero saber si este codigo en picsimulator ide esta bien o non para controlar potencia lampara
Symbol trafo = GPIO.2
Symbol potenciomtre = GPIO.1
Symbol sortida = GPIO.0
'Macro para el ADC
Symbol ad_action = ADCON0.GO_DONE
'Configuro puertos y ADC
TRISIO = %111110 'GPIO 0,salidas;1 i 2 entradas
CMCON = 0x07 'comparator off
VRCON = 0x00 'vref off
ANSEL = %0000010 'GPIO.4 A/D en W/Frc
'Activo VREF, Selecciono canal 0, Justifico a la derecha
ADCON0 = %00001111
High ADCON0.ADON
'Variable que contiene el valor del ADC
Dim valor As Word
Dim i As Byte
Dim ii As Byte
Dim iii As Byte
Dim iv As Byte
GPIO = %110000 'todas las salidas a 0
i = 0
'Bucle principal
loop:
Adcin 1, valor
i = 5 / 6
ii = valor * 4
iii = (valor * 88) / 100
iv = ii + iii
Gosub trafo
If iv > 0 And trafo = 0 Then
sortida = 1
WaitMs 1000
Endif
If iv = 0 And trafo = 1 Then
sortida = 1
WaitMs 1000
Endif
If iv = 0 And trafo = 0 Then
sortida = 0 'Apago LED rojo
Endif
If iv > 0 And trafo = 1 Then
sortida = 0 'Apago LED rojo
Endif
Goto loop
End
trafo:
If i > 0 Then
trafo = 1
Endif
If i < 1 Then
trafo = 0
Endif
Return