SHARE
TWEET

IchigoJam IoT Temp Sence ADT7410

masaakiNakamura Oct 21st, 2019 97 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 10 @ARUN'IoTキット
  2. 20 SWITCH 1,10
  3. 30 WAIT 60:CLS
  4. 40 ?"IoTキット"
  5. 50 SWITCH1,10
  6. 100 POKE#700,0,0
  7. 110 R=I2CW(#48,#700,1)
  8. 115 R=I2CR(#48,#702,2)
  9. 120 R=I2CW(#4B,#700,1)
  10. 125 R=I2CR(#4B,#704,2)
  11. 130 T=PEEK(#702)<<8+PEEK(#703):U=PEEK(#704)<<8+PEEK(#705)
  12. 143 LC 0,0:?"***IoTエッジキット***";
  13. 144 LC0,1
  14. 145 PRINT "オンド1= ";T/128;".";(T+6)%128*10/128;"    "
  15. 146 PRINT "オンド2= ";U/128;".";(U+6)%128*10/128;"    "
  16. 150 WAIT 60
  17. 160 GOTO 100
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top