Thema: Delphi Funktionen?

Einzelnen Beitrag anzeigen

Teddyman

Registriert seit: 3. Mär 2004
23 Beiträge
 
#1

Funktionen?

  Alt 12. Apr 2004, 14:06
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]
  Mit Zitat antworten Zitat