Paso 11: Enchufe el código
' {$STAMP BS2}
' {$PBASIC 2.5}
DigDataIn VAR Bit
ADC_DataIn VAR Byte
Temp CON 255
LED PIN 0
Dijin PIN 8
ADC_CS PIN 13
ADC_Clk perno 14
ADC_Dout PIN 15
LED DE SALIDA
PAUSE 1000
HACER
GOSUB ReadData
GOSUB PlotData
PAUSE 20
GOSUB ejecutar
PAUSE 500
LAZO
ReadData:
ADC_CS BAJA
DigDataIn = DIJIN
SHIFTIN ADC_Dout, ADC_Clk, MSBPOST, [ADC_DataIn\9]
ADC_CS ALTA
VOLVER
PlotData:
DEPURACIÓN de IBIN DigDataIn, CR
DEBUG "[", DEC ADC_DataIn, «, *,.0196] ", CR
VOLVER
ejecutar:
IF (DigDataIn > temp) entonces
ALTA 0
PAUSE 20
ENDIF
VOLVER