eDIP240-7 6

eDIP 240-7 Bascom: Grafische Anzeige

Ein Messergebnis des Plotters

Das Display kennt zahlreiche Grafik-Befehle, die in einem Bascom-Programm sehr einfach angewandt werden können. Damit eröffnen sich zahlreiche Möglichkeiten für die Darstellung von Messergebnissen. Möglich ist z.B. ein Datenplotter mit einem übersichtlichen XY-Diagramm.

Das Programm Edip4.bas bildet einen analogen Einkanal-Plotter mit grafischer Ausgabe und Umschaltmöglichkeit für die Messgeschwindigkeit. Die folgenden Grafikbefehle werden eingesetzt:

GR: Zeichnen eines Rechtecks
GD: Zeichnen einer Linie von x1, y1 nach x2, y2
GW: Fortführung einer Linie nach x, y
RL: Löschen eines rechteckigen Bereichs

Messwerte im Bereich 0 … 1023 werden hier durch zehn geteilt und in einem 102 Punkte hohen Bereich geplottet. Die Messung wird jeweils nach fünf Sekunden automatisch wiederholt. Zuvor wird jeweils der innere Bereich des Rahmens gelöscht um ein neues Bild aufzubauen. Vor jedem neuen Plot wird abgefragt, ob eine der Auswahltasten gedrückt wurde. In dem Fall wird die Intervallzeit zwischen zwei Messpunkten entsprechend verändert.

  Buffer = Chr(27) + "DL" + Chr(13)                         'clear
  Write_edip
  Buffer = Chr(27) + "ZF" + Chr(2) + Chr(13)                '2 = FONT6x8
  Write_edip


  Buffer = Chr(27) + "AT" + Chr(1) + Chr(110) + Chr(50) + Chr(125) + Chr(121) + Chr(250) + "10 ms" + Chr(13)
  Write_edip

  Buffer = Chr(27) + "AT" + Chr(61) + Chr(110) + Chr(110) + Chr(125) + Chr(122) + Chr(250) + "20 ms" + Chr(13)
  Write_edip

  Buffer = Chr(27) + "AT" + Chr(121) + Chr(110) + Chr(170) + Chr(125) + Chr(123) + Chr(250) + "50 ms" + Chr(13)
  Write_edip
  Buffer = Chr(27) + "AT" + Chr(181) + Chr(110) + Chr(239) + Chr(125) + Chr(124) + Chr(250) + "100 ms" + Chr(13)
  Write_edip

  Buffer = Chr(27) + "GR" + Chr(1) + Chr(1) + Chr(239) + Chr(103) + Chr(13)
  Write_edip

  T = 10
Do
  Read_edip
  If Touchcode = 121 Then T = 10
  If Touchcode = 122 Then T = 20
  If Touchcode = 123 Then T = 50
  If Touchcode = 124 Then T = 100
  Read_edip
  Read_edip
  Read_edip
  Buffer = Chr(27) + "ZL" + Chr(200) + Chr(94) + Str(t) + " ms" + Chr(13)
  Write_edip
  U = Getadc(0)
  U = U / 10
  U = 102 - U
  Buffer = Chr(27) + "GD" + Chr(1) + Chr(u) + Chr(2) + Chr(u) + Chr(13)
  Write_edip
  For X = 2 To 238
    Waitms T
    U = Getadc(0)
    U = U / 10
    U = 102 - U
    Buffer = Chr(27) + "GW" + Chr(x) + Chr(u) + Chr(13)
    Write_edip
  Next X
  Wait 5
  Buffer = Chr(27) + "RL" + Chr(2) + Chr(2) + Chr(238) + Chr(102) + Chr(13)
  Write_edip
Loop

Downlaod Edip4.zip

Nach einer Messung bleibt das Bild noch fünf Sekunden lang stehen. Wenn man in dieser Zeit auf eine Zeit-Taste drückt, wird das Ergebnis erst mit einiger Verzögerung sichtbar. Daher ist es nicht ausgeschlossen, dass man unbewusst zwei oder mehr Touch-Ereignisse auslöst. Damit diese nicht im Puffer stehen bleiben, wird das Display nach der Auswertung zur Sicherheit noch einige Male ausgelesen.