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.

zusammenfalten · markieren

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]

Soll immer nur 1 Messbereich auswgwertet werden, wenn ja, dann nimm z.B RadioButtons (z.B in einer RadioGroup) .
Ansonsten gibt es dir Property Checked mit der Du sehen kannst, ob was selektiert ist -> Messbereich.
--> OnClick-Dinger kannst Du Dir dann sparen, prüfe einfach in Positionieren, den Wert ...


mfg Tobias

Ganz einfach:

zusammenfalten · markieren

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]