Stap 11: Plug in Code
' {$STAMP BS2}
' {$PBASIC 2.5}
DigDataIn VAR bits
ADC_DataIn VAR Byte
Temp CON 255
LED PIN 0
DigIn PIN 8
ADC_CS PIN 13
ADC_Clk PIN 14
ADC_Dout PIN 15
OUTPUT LED
PAUZE 1000
DOEN
GOSUB ReadData
GOSUB PlotData
PAUZE 20
GOSUB uitvoeren
PAUZE 500
LOOP
ReadData:
LAGE ADC_CS
DigDataIn = DigIn
SHIFTIN ADC_Dout, ADC_Clk, MSBPOST, [ADC_DataIn\9]
HOGE ADC_CS
TERUGKEER
PlotData:
DEBUG IBIN DigDataIn, CR
DEBUG "[", DEC ADC_DataIn, ", *,.0196]", CR
TERUGKEER
uitvoeren:
IF (DigDataIn > temp) dan
HOGE 0
PAUZE 20
ENDIF
TERUGKEER