baigtas laidų atrodo taip: Rīga,
Galite gauti DS1620 arba iš Jameco (dalies numeris 146456) arba Parallax (dalies numeris 27917) į " paraiškos rinkinio " kuri apima lustas, kondensatorius, gerų dokumentus ir mėginio kodą. Arba galite pirkti lustą ant savo iš Jameco (dalies numeris 114382). Siūlyčiau gauti paraiškos komplektas pirmą kartą bandant naudojant DS1620, nes dokumentacija yra labai naudinga.
Galite surinkti į prototipo plotas Antspaudas vežėjas laive arba ant atskiro breadboard DS1620. Kai jūs turite surinkti jį, kablys jūsų LCD ekranas iki I /O pin 3 Antspaudo, o tada įkelti ir paleisti šią programą:
simbolis RST = 0 ", pasirinkite /Atkurti liniją 1620symbol CLK = 1 "laikrodis linija perjungimo registrų 1620symbol DQ = 2" duomenų linijos 1620symbol DQ_PIN = PIN2 PIN atstovavimas DQsymbol LCD = 3 "duomenų linija LCDbegin: žemas RST" panaikinkite 1620 nebent kalbame ithigh CLK "laikrodis pin 1620 turėtų Numatytasis highpause 1000 "laukti termometru ir LCD su bootsetup: aukštos RST pasirinkti 1620b0 = $ 0C '$ 0C yra 1620 komandų baitų" sakydamas " Parašyk Config " gosub shift_out' siųsti jį į 1620b0 =% 10 '% 10 yra 1620 komandų baitų "nustatyti termometras modegosub shift_out 'siųsti jį į 1620low RST" panaikinkite 1620pause 50 vėlavimas 50ms už EEPROMstart_convert: B0 = $ EE $ EE yra 1620 komandų baitų "pradėti conversionshigh RST" pasirinkite 1620gosub shift_out 'siųsti jį į 1620low RST "atsisakykite 1620" Tai yra pagrindinė kilpa "- skaito ir rodo temperatūrą kiekvieną secondmain_loop: aukštos RST pasirinkti 1620 B0 = $ AA' $ AA yra 1620 komandų baitų" skaityti temperatūrą gosub shift_out 'siųsti jį į 1620 gosub shift_in "skaityti temperatūrą" iš 1620 mažu RST "atsisakykite DS1620. gosub ekranas "rodyti laipsniais temp C pristabdyti 1000" laukti secondgoto main_loop "shift_out paprogramė siunčia kokia yra" prie B0 baitas į 1620shift_out: produkcija DQ "nustatykite DQ PIN" produkcijos modefor B2 = nuo 1 iki 8 žemo CLK "parengti laikrodis BIT" į 1620 DQ_PIN = bit0 "siųsti duomenis tiek aukštas CLK" skląstis duomenys tiek į 1620 B0 = B0 /2 "pamaina visus bitus į dešinę" į bitų 0nextreturn "the shift_in paprogramė gauna 9 bitų" temperatūrą nuo 1620shift_in: įėjimas DQ "nustatykite DQ PIN" įvesties modew0 = 0 'aišku w0for B5 = nuo 1 iki 9 w0 = w0 /2 "pamaina įėjimo dešinėje. mažas CLK "paklausti 1620 už kitas bitų bit8 = DQ_PIN" skaityti tiek aukštas CLK "perjungimo laikrodis pi
