Hallo, brauche Hilfe!
Ich habe die Möglichkeit drei Messbereiche über CheckBoxen auszuwählen. Der ausgewählte Messbereich soll einer Funktion "Messbereich" übergeben werden, das Funktionsergebnis soll dann in die Procedure "Positionierung" übergeben werden.
Diese soll dann entsprechende Schritte fahren.
Wie kann ich den unten abgebildeten Code ergänzen? Bin leider Anfänger, bin für jede HIlfe sehr dankebar.
Grüße.
Delphi-Quellcode:
//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
Messbereich(5);
end;
//Messbereich auswählen: 15
procedure TForm1.CheckBox8Click(Sender: TObject);
begin
Messbereich(15);
end;
//Messbereich auswählen: 30
procedure TForm1.CheckBox9Click(Sender: TObject);
begin
Messbereich(30);
end;
//Procedure Positionierung
procedure Positionen;
begin
Positionen := _8132_start_t_move(0, >>>Hier soll der<<< , 0, 3000, 0.1, 0);
end; umgerechnete
Wert des Mess-
bereiches stehen!
[edit=sakura] [delphi]-Tags gesetzt. Mfg, sakura[/edit]