Funktionen?

[phlux]

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]