[Sal] mengirimi kami monitor meter listrik digital, yang segera membuat kami nostalgia untuk beberapa buku Forrest Mims. Deskripsi Skema dan Sirkuit Sal mirip dengan gaya Forrest, dan kami menunjukkan bahwa sebagai pujian. Bahkan di dunia CAD dan paket EDS saat ini, membuat sketsa sirkuit dengan tangan sering kali lebih mudah dan lebih cepat. Skema bukan satu-satunya aspek klasik dari desain [Sal’s]. Dia mengumpulkan data menggunakan port paralel pada PC yang tidak terpakai: Dalam hal ini, toshiba libretto yang menjalankan Windows 95. Sebelum mikrokontroler berbasis flash dan papan dev tersedia, port paralel PC adalah antarmuka peretasan perangkat keras untuk Banyak dari kita. Banyak perangkat lunak yang menjalankan peretasan lama itu ditulis dalam dasar, dan [SAL] meter tidak terkecuali. Perangkat lunaknya berjalan pada Microsoft Qbasic, yang dikirim dengan Windows 95.
Sirkuit mengambil keuntungan dari output meter digital: pulsa 10 ms untuk setiap 1 wh yang digunakan. Detektor foto IR dari radioshack mendeteksi pulsa meter, yang diperkuat oleh OP AMP LM324. Transistor NPN kemudian menggeser output untuk mengirimnya ke dua jump 74LS73 JK Flip. Flip flop pertama menggunakan transistor untuk menggerakkan LED untuk output visual. JK Flip Flop kedua mengirimkan data ke PC. Flip flop memiliki efek membagi jumlah pulsa meter dengan dua, membuat sinyal matikan yang jauh lebih lama bahwa PC dapat mendeteksi lebih baik.
Meskipun menggunakan AVR atau foto akan mengkonsumsi lebih sedikit daya, setup [Sal’s] sudah lebih dari membayar untuk penggunaan daya. Dengan memantau dan mengadaptasi penggunaan listriknya, [Sal] menghemat $ 20 sebulan pada tagihan listriknya. Kami telah memasukkan diagram sirkuit [SAL] dan kode sumber setelah istirahat (permintaan maaf kepada pembaca kami di RSS).
Program uji [SAL] pertama:
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.
Layar 12.
10 w = inp (& amp; H379)
Jika w & lt; = 127 maka goto 10 r! = Timer 20 w = inp (& amp; h379) jika w & gt; Lalu goto 20
30 w = inp (& amp; H379)
Jika w & lt; = 127 maka goto 30
S! = Timer.
T! = S! – R!
Jika t! = 0 lalu goto 10
Kw = 7.2 / t!
Cetak kw;
Pada kunci (1) gosub 40
Kunci (1) pada
GOTO 10.
40 akhir
Ini adalah aplikasi utama:
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.
7.
7.
78.
7.
80.
81.
82.
83.
84.
85.
86.
8.
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.
16.
16.
16.
16.
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.
21.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
83.
234.
835.
236.
237.
238.
8.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
8.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
88.
8.
290.
291.
292.
293.
8.
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 layar 12.
Temukan 1, 1: Input & quot; Input Listrik Meter KWh & quot;, QQ
Temukan 1, 1: Untuk x = 1 hingga 40: Print & Quot; & quot ;; : BERIKUTNYA
DD1 $ = MID $ (tanggal $, 4, 2) hari
$ 1 $ = Kiri $ (waktu $, 2) jam
TM1 $ = MID $ (waktu $, 4, 2) ‘menit
TS1 $ = KANAN $ (waktu $, 2) detik
4 A = 0: B = 0: C = 0: D = 0: F = 0: G = 0: K = 0: M = 0: N = 0
O = 0: p = 0: Q = 0: V = 32: LA = 0: MB = 0: NC = 0: NN = 0
Dd = 1: u = 1
Redup A (120): DIM B (120): DIM C (25): DIM D (32)
B = val (tm1 $)
C = val ($ 1)
D = val (dd1 $)
Gosub 2010.
Gosub 500.
8 q! = Timer.
10 w = inp (& amp; H379)
Jika w & lt; = 127 maka goto 10 r! = Timer 20 w = inp (& amp; h379) jika w & gt; Lalu goto 20
AA & AMP; = AA & amp; + 1
Bb & amp; = Bb & amp; + 1
30 w = inp (& amp; H379)
Jika w & lt; = 127 maka goto 30
S! = Timer.
Jika s! & lt; Q! Lalu s! = S! + 86400 t! = S! – R! Jika t! & gt; = 0 dan t! & lt; = .5 Kemudian GOTO 10 K = (7.2 / t!) Temukan 1, 5: Cetak menggunakan & quot; ##.