Projektbericht 796.8 KByte - Technikpreis

13 4 Software
4 Software
Zur Programmierung der Software habe ich mich für die Programmiersprache Delphi
entschieden, da sie sowohl einfachen Gebrauch von der Windows-API machen kann als
auch eine leichte Programmierung der Benutzeroberfläche ermöglicht und zudem objektorientiert
ist.
4.1 Steuerung des A/D-Wandler über serielle
Schnittstelle
Zunächst muss die serielle Schnittstelle geöffnet werden. Die Funktion CreateFile öffnet
diese und gibt ein Handle von ihr zurück. Dies wird in der Variablen PortHandle
gespeichert, da es später für den Aufruf der übrigen Funktionen benötigt wird.
Die einzelnen Sendeleitungen werden mittels EscapeCommFunction gesetzt und zurückgesetzt.
Der Status der Empfangsleitungen wird mit GetCommModemStatus abgefragt. Um
den A/D-Wandler TLC549 nun abzufragen, wird zunächst der Variablen BitWert der
Wert 128 und b der Wert 0 zugewiesen. Durch einmaliges ein- und ausschalten von RTS
liefert der A/D-Wandler das höchstwertige Bit an der CTS-Leitung. Diese Leitung wird
in einer for-Schleife achtmal abgefragt, während I/O-Clock weitergeschaltet wird. Am
Ende ist in der Variablen b der Wert des TLC549 gespeichert und wird von der Funktion
zurückgegeben.
function TSerialThread.ByteRead : Integer; stdcall;
var BitWert, b, i : Integer;
BitWert := 128;
b := 0;
//Chipselect ein und ausschalten
SetzeRTS;
ClearRTS;
//Am Dataout liegt jetzt das 1. Bit
for i := 0 to 7 do // 8 mal weiterschalten