Etape 11 : Branchez dans le Code
"{$STAMP BS2}
"{$PBASIC 2,5}
DigDataIn VAR Bit
ADC_DataIn VAR octets
Temp CON 255
LED TIGE 0
DigIn Broche 8
ADC_CS PIN 13
ADC_Clk PIN 14
ADC_Dout axe 15
SORTIE LED
PAUSE DE 1000
FAIRE
GOSUB ReadData
GOSUB PlotData
PAUSE DE 20
GOSUB exécuter
PAUSE DE 500
BOUCLE
Lecture de données :
ADC_CS FAIBLE
DigDataIn = DigIn
SHIFTIN ADC_Dout, ADC_Clk, MSBPOST, [ADC_DataIn\9]
HAUTE ADC_CS
RETOUR
PlotData :
DÉBOGUER IBIN DigDataIn, CR
DEBUG "[", DEC ADC_DataIn, «, *,.0196] ", CR
RETOUR
exécuter :
IF (DigDataIn > temp) puis
0 HAUTE
PAUSE DE 20
ENDIF
RETOUR