Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
Delphi 6 Personal
|
Re: Funktionen?
12. Apr 2004, 14:22
Ganz einfach:
Delphi-Quellcode:
//Zuerst neue Variable definieren
var
MB: Double;
//Funktion Messbereich
function Messbereich (m: Double): Double ;
begin
Messbereich := m/0.005625; //Umrechnung vom Messbereich in Schritte eines Schrittmotors
end;
//Messbereiche auswählen: 5
procedure TForm1.CheckBox7Click(Sender: TObject);
begin
//MB Den neuen Messbereich zuordnen
MB := Messbereich(5);
end;
//Messbereich auswählen: 15
procedure TForm1.CheckBox8Click(Sender: TObject);
begin
//MB Den neuen Messbereich zuordnen
MB := Messbereich(15);
end;
//Messbereich auswählen: 30
procedure TForm1.CheckBox9Click(Sender: TObject);
begin
//MB Den neuen Messbereich zuordnen
MB := Messbereich(30);
end;
//Procedure Positionierung
procedure Positionen;
begin
//MB übergeben :)
Positionen := _8132_start_t_move(0, MB , 0, 3000, 0.1, 0);
end;
[/quote]
Christian "phlux" Arndt
|
|
Zitat
|