● 這幅圖上是全部電路設備，A是一個數模轉換板，上面插的是ZN449 8位數模轉換芯片，這是我最喜歡的一個多才多藝的芯片，我的人生因它而不同。雖然這么說，只要與電腦匹配，別的8位數模轉換芯片也可以用的。B是電纜適配器。C是上一段說明過的放大器。

程序

● 我編了個名叫!Quaker的小小共享程序用來記錄儀器的輸出。這個程序可以每5分鐘保存一副圖片，記錄這段時間內周圍發(fā)生的震動。如果和RiscOS4配合可以把好幾天的記錄都存在同一個目錄下面。下圖是軟件界面和5分鐘的記錄圖。

● 第一排的前兩個圖形是我用手指敲了敲房頂，然后關上了我工作室的門，其他的都是背景噪聲。很明顯我的設備超級靈敏的，這樣靈敏的結果就是當地震真正來時，在驚慌中你會發(fā)現所有震動都會跳出振幅的閾值，圖像被紅線填滿了。如果此時你還會想要估計地震的強度，參考顯示器本身的跳動幅度會更加準確。

程序代碼如下：

?

10 REM Quaker
20 REM Simple earth quake detector demonstration
30 REM Needs Velleman K8055 USB Experiment Interface board
40 REM Jochen Lueg
50 REM December 2009
60
70 MODE 15
80
90 REM Find dll routines addresses
100 PROCinit
110
120 VDU5
130 REM Turn board 0 on
140 SYS USB_OpenDevice%,0
150 CLG
160
170 MOUSE ON
180
190 COLOUR 5
200 MOVE 10,1000
210 PRINT"Press the left mouse button to start"
220 MOVE 10,960
230 PRINT "Press the right button to pause"
240 REPEAT
250   MOUSE x%,x%,b%
260 UNTIL b%=4
270 CLG
280 GCOL 5
290 REM Start at the top of the screen and repeat until you reach the bottom - 5 traces
300
310 REPEAT
320   CLG
330   FOR Y%= 1800 TO 200 STEP -200
340
350     FOR X%= 0 TO 2559 STEP 2
360       SYS A%,1 TO V%
370       PLOT 5, X%,Y%+V%*4
380       MOUSE x%,y%,b%
390       IF b%=1 THEN
400         REPEAT
410           MOUSE x%,y%,b%
420         UNTIL b%=4
430       ENDIF
440     NEXT
450     MOVE 0,Y%-200
460   NEXT
470 UNTIL FALSE
480 SYS USB_CloseDevice%
490
500 *QUIT
510
520 END
530
540 DEFPROCinit
550 REM  Typing errors in routine name do not generate an error message - they just hang up the program.
560 SYS"LoadLibrary","K8055D.dll" TO USB_Board%
570 SYS"GetProcAddress",USB_Board%,"OpenDevice" TO USB_OpenDevice%
580 SYS"GetProcAddress",USB_Board%,"ReadAnalogueChannel",1 TO USB_ReadAnalogue%
590 SYS"GetProcAddress",USB_Board%,"SetAllDigital"  TO USB_SetAllDigital%
600 SYS"GetProcAddress",USB_Board%,"CloseDevice" TO USB_CloseDevice%
610 SYS"GetProcAddress",USB_Board%,"ClearAllDigital" TO USB_ClearAllDigital%
620 SYS"GetProcAddress",USB_Board%,"ClearDigitalChannel" TO USB_ClearDigitalChannel%
630 SYS"GetProcAddress",USB_Board%,"SetDigitalChannel" TO USB_SetDigitalChannel%
640 SYS"GetProcAddress",USB_Board%,"ReadAnalogChannel" TO A%
650 ENDPROC

?

?