Thema: Delphi Funktionen?

Einzelnen Beitrag anzeigen

Benutzerbild von phlux
phlux

Registriert seit: 4. Nov 2002
Ort: Witten
1.335 Beiträge
 
Delphi 6 Personal
 
#3

Re: Funktionen?

  Alt 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
  Mit Zitat antworten Zitat