Digitale elektrische metermonitor gaat Old School

[SAL] stuurde ons zijn digitale elektrische metermonitor, die meteen ons nostalgisch maakte voor een aantal van de boeken van Forrest MIMS. Sal’s schematische en circuitbeschrijving zijn vergelijkbaar met de stijl van Forrest, en we geven aan dat als een compliment. Zelfs in de wereld van vandaag van CAD en EDS-pakketten, is het vaak gemakkelijker en sneller schetsen van een circuit. De schema is niet het enige klassieke aspect van het ontwerp van [Sal]. Hij verzamelt gegevens met behulp van een parallelle poort op een ongebruikte pc: in dit geval, een TOSHIBA Libretto met Windows 95. Vóór goedkope flash-gebaseerde microcontrollers en dev-boards waren beschikbaar, de PC-parallelle poort was de go-to-hardware hacking interface voor Veel van ons. Veel van de software die die oude hacks die is geschreven in Basic, en [Sal’s] Meter is geen uitzondering. Zijn software draait op Microsoft Qbasic, die met Windows 95 is verzonden.

Het circuit maakt gebruik van de output van de digitale meter: een puls van 10 ms voor elke 1 WH-energie. Een IR-fotodetector van RadioShack detecteert de meterpulsen, die worden versterkt door een LM324 OP-versterker. Een NPN-transistor verschuift vervolgens de uitgang om het naar twee 74LS73 JK-flip-flops te verzenden. De eerste flip-flop gebruikt een transistor om een ​​LED voor visuele uitvoer te besturen. De tweede JK-flip-flop verzendt de gegevens naar de pc. De flip-flop heeft het effect van het delen van het aantal meterpulsen door twee, waardoor een veel langer sleutelsignaal wordt gecreëerd dat een pc beter kan detecteren.

Hoewel het gebruik van een AVR of foto minder stroom zou gebruiken, heeft [SAL’s] Setup al veel meer dan betaald voor het energieverbruik. Door zijn elektrische gebruik te bewaken en aan te passen, bespaart [SAL] $ 20 per maand op zijn elektrische rekening. We hebben [SAL’s] circuitschema en broncode na de pauze opgenomen (excuses aan onze lezers op RSS).

Eerste testprogramma [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

Scherm 12

10 W = INP (& AMP; H379)

Als w & lt; = 127 dan 10 r! = TIMER 20 W = INP (& AMP; H379) INDIEN W & GT; 127 Toen ga ik 20

30 W = INP (& AMP; H379)

Als w & lt; = 127 dan ga naar 30

S! = Timer

T! = S! – R!

Als ik! = 0 ga dan 10

KW = 7,2 / t!

Print kW;

Op sleutel (1) GoSub 40

Toets (1) op

Ga 10

40 einde

Hier is de belangrijkste toepassing:

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 scherm 12

Zoek 1, 1: Input & quot; Invoer Elektrische Meter KWH & QUOT ;, QQ

Zoek 1, 1: voor x = 1 tot 40: afdrukken & quot; & quot; : DE VOLGENDE

DD1 $ = MID $ (DATE $, 4, 2) ‘DAGEN

Th1 $ = liet $ (tijd $, 2) ‘uur achter

TM1 $ = MID $ (tijd $, 4, 2) ‘minuten

TS1 $ = rechts $ (tijd $, 2) ‘seconden

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)

Als w & lt; = 127 dan 10 r! = TIMER 20 W = INP (& AMP; H379) INDIEN W & GT; 127 Toen ga ik 20

AA & AMP; = AA & AMP; + 1

BB & AMP; = BB & AMP; + 1

30 W = INP (& AMP; H379)

Als w & lt; = 127 dan ga naar 30

S! = Timer

IF S! & LT; Q! Dan s! = S! + 86400 T! = S! – R! Als ik! & GT; = 0 en t! & LT; = .5 DAN GOTO 10 K = (7.2 / T!) Lokaliseer 1, 5: Afdrukken met & quot; ##.

Leave a Reply

Your email address will not be published. Required fields are marked *