Lügendetektor

Elektronik-Labor Notizen Projekte Labortagebuch Elexs-USB

Bauen Sie einen Lügendetektor. Dazu benötigt man zwei Kontakte an zwei Fingern, die sich leicht mit Drahtringen herstellen lassen. Die Drahtringe sollen an zwei Fingern einer Hand getragen werden und dürfen sich nicht direkt berühren. Die Hand soll entspannt auf dem Tisch liegen. Die Testperson muss durch peinliche Fragen in die Enge gebracht werden, so dass sie ins Schwitzen gerät und der Hautwiderstand sich verringert.

Der angezeigte Messwert des Hautwiderstands ist stark von der jeweiligen Person und von der Art der Kontakte abhängig. Damit das Diagramm in jedem Fall gut lesbar ist wurde eine automatische Anpassung des Anzeigebereichs realisiert. Die erste Messung legt den Skalenbereich fest und erscheint in der Mitte des Diagramms.

Private Sub Timer1_Timer()
  DTR 1
  TIMEINIT
  While (DSR() = 0) And (TIMEREAD() < 951)
    DoEvents
  Wend
    R = TIMEREAD()
    If n = 1 Then Picture1.ScaleTop = R - 50: Picture1.ScaleHeight = 100
    If n = 2 Then y1 = R
    y2 = R
    Text2.Text = Str$(Int(R))
  DTR 0
  x1 = n
  n = n + 1
  x2 = n
  If n > 3 Then
    If R < Picture1.ScaleTop Then Picture1.ScaleTop 
          = R - 20
    If R > (Picture1.ScaleTop + Picture1.ScaleHeight)  
          Then Picture1.ScaleHeight = R - Picture1.ScaleTop + 20
  End If
  Picture1.Line (x1, y1)-(x2, y2)
  y1 = y2
End Sub

zurück