Start

Experimente

Grundlagen

Produkte

- eDIP240-7
-- Demo  
-- Bascom 1  
-- Bascom 2  
-- Bascom 3  
-- Bascom 4   

Neues

Impressum

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.