[SAL] wysłał nam swój cyfrowy monitor miernika elektrycznego, który od razu dokonał nam nostalgiczny dla niektórych książek Mimsów Forrest. Opis Sal’s Schematyczny i obwód są podobne do stylu forresta i wskazujemy, że jako komplement. Nawet w dzisiejszym świecie pakietów CAD i EDS szkicowanie obwodu ręcznie jest często znacznie łatwiejszym i szybszym. Schemat nie jest jedynym klasycznym aspektem projektu [Sal. Zbieruje dane za pomocą portu równoległego na nieużywanym komputerze: w tym przypadku, biblioteka Toshiba z uruchomionym Windows 95. Przed dostępnym mikrokontrolerami opartymi na oparte przez niskie oparte flashami były dostępne, port równoległy PC był interfejsem do hakowania sprzętu wielu z nas. Mnóstwo oprogramowania prowadzącego te stare hacki zostały napisane w podstawowym, a miernik [Sal] nie jest wyjątkiem. Jego oprogramowanie działa na Microsoft QBasic, który dostarczył z Windows 95.
Obwód korzysta z wyjścia miernika cyfrowego: puls 10 ms dla każdego 1 w przypadku energii. Detektor zdjęć IR z radioshack wykrywa impulsy miernika, które są wzmacniane przez amp LM324 OP. Tranzystor NPN przesuwa wyjście, aby wysłać go do dwóch klapek 74LS73 JK. Pierwszy flip flop wykorzystuje tranzystor do napędzania diody LED do wyjścia wizualnego. Drugi klapka JK wysyła dane do komputera. Flop Flip ma wpływ dzielenia liczby impulsów mierników przez dwa, tworząc znacznie dłużej przełączany sygnał, który komputer może lepiej wykryć.
Chociaż korzystanie z AVR lub zdjęcia zużywałoby mniejszą moc, [Sal’s] Setup ma już znacznie więcej niż zapłacić za wykorzystanie mocy. Monitorując i dostosowując jego wykorzystanie elektryczne, [Sal] oszczędza 20 USD miesięcznie na jego rachunku elektrycznym. Obejmowaliśmy [Sal’s] schemat obwodu i kod źródłowy po przerwie (przeprosiny dla naszych czytelników na RSS).
Pierwszy program testowy [Sal’s]:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
Cls.
Ekran 12.
10 W = INP (& AMP; H379)
Jeśli w & lt; = 127 następnie goto 10 r! = Timer 20 W = INP (& AMP; H379) Jeśli W & GT; 127 Potem Goto 20
30 W = INP (& AMP; H379)
Jeśli w & lt; = 127 następnie goto 30
S! = Timer.
T! = S! – R!
Jeśli T! = 0 następnie goto 10
KW = 7.2 / T!
Drukuj kW;
Na klucz (1) GOSUB 40
Klucz (1) na
Goto 10.
40 End.
Oto główna aplikacja:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
Cls.
REM C: Meter011.bas
1 ekran 12.
Zlokalizuj 1, 1: Wejście wejściowe Miernik elektryczny KWH “, QQ
Zlokalizuj 1, 1: dla X = 1 do 40: Drukuj ” “; : NASTĘPNY
Dd1 $ = w połowie $ (data, 4, 2) dni
Th1 $ = Left $ (czas, 2) godziny
TM1 $ = w połowie $ (czas, 4, 2) “minut
Ts1 $ = right $ (czas, 2) “sekundy
4 A = 0: B = 0: C = 0: D = 0: F = 0: G = 0: K = 0: L = 0: M = 0: n = 0
O = 0: p = 0: q = 0: r = 0: V = 32: LA = 0: MB = 0: NC = 0: OD = 0: NN = 0
Dd = 1: u = 1
Dim A (120): Dim B (120): Dim C (25): Dim D (32)
B = val (TM1 $)
C = Val (Th1 $)
D = val (DD1 $)
GOSUB 2010.
Gosub 500.
8 q! = Timer.
10 W = INP (& AMP; H379)
Jeśli w & lt; = 127 następnie goto 10 r! = Timer 20 W = INP (& AMP; H379) Jeśli W & GT; 127 Potem Goto 20
AA & AMP; = AA & AMP; + 1.
Bb & amp; = Bb & amp; + 1.
30 W = INP (& AMP; H379)
Jeśli w & lt; = 127 następnie goto 30
S! = Timer.
Jeśli s! & lt; Q! Więc s! = S! + 86400 t! = S! – R! Jeśli T! & gt; = 0 i t! & LT; = .5 następnie goto 10 k = (7.2 / t!) Znajdź 1, 5: Drukuj za pomocą “##.