wie erstelle ich eine function mit aufruf & deklaration

[EWeiss]

Zitat:

Zunächst einmal braucht eine Function einen Rückgabewert:

Logisch!

Nur das ist keine function sondern eine procedure da hier nichts zurückgegeben wird.

gruss

[sneumann]

Zitat von EWeiss:

Zitat:

Zunächst einmal braucht eine Function einen Rückgabewert:

Logisch!

Nur das ist keine function sondern eine procedure da hier nichts zurückgegeben wird.

gruss

okay habe ein paar andere prozeduren jetzt schon hinbekommen danke!
was mache ich jedoch bei dieser Prozedur falsch? Er zeigt mir an inkompatible Typen String und Integer
Ich will einen Temperaturwert aus einem Gerät lesen.
temp soll die Temperatur sein, die ich als Zahl dann sozusagen zurück bekomme...am Besten ja Float eigentlich?!

Delphi-Quellcode:

      // --------------------Messwert auslesen----------------------------
   function messwertLesen :  integer;
      var temp: integer;
      begin
        temp := StrToInt(SerialPortNG1.ReadNextClusterAsString);
        SerialPortNG1.SendString(#$02 + ':FETC' +#$0A +#$03);
      if WaitForAnswer(100) < 0 then
          memoResult.Lines.Add('Error: No Answer on 4422')
        else
          memoResult.Lines.Add('Messwert : ' + IntToStr(temp));
          result := IntToStr(temp);
      end;

rufe die funktion folgendermaßen auf:
messwertLesen;
EDIT:
kennt jemand SerialNG? was steht denn eigentlich hinter dem ReadNextCluster? Er liest bei mir glaub ich die Antwort vom Gerät ab aber als String?! als Integer?? bzw was macht die Funktion genau und was steckt drin?!
Will die Antwort als Float wieder geben zum Beispiel: 25.5 Grad Celius halt. Wie finde ich jetzt heraus ob er mir überhaupt so eine Zahl liefert oder etwas ganz anderes? Mit dem Befehl Fetc? lese ich den Messwert des Geräts aus laut meines Handbuchs..

[hathor]

Von GRUNDLAGENKENNTNISSEN bist Du weit entfernt!

Willst Du die GRUNDLAGENKENNTNISSE wirklich hier im "Trial and Error"-Verfahren erwerben?

- Du wirfst Funktionen und Prozeduren wild durcheinander
- einen String kannst Du nicht einer Integer-Variablen zuordnen
- wenn Du eine Funktion aufrufst, musst Du auch das Ergebnis zuordnen
- das letzte IntToStr(temp) ist auch falsch

[Nersgatt]

Ist müßig, auf Grundlagenkenntnisse hinzuweisen. Denn diese Hinweise ignoriert er schon seit Tagen. Auch im DF sind ihm mehrfach die allseits bekannten Grundlagentutorials ans Herz gelegt worden. Zeitverschwendung.

[hathor]

Diese Funktionen in #6 und #8 werden wahrscheinlich nicht funktionieren:

- erst muss man die Daten anfordern
- warten
- dann muss man sie auf Plausibilität prüfen (z.B. Stringlänge, welche Zeichen dürfen enthalten sein, wenn negativ: neu anfordern
- dann evtl. umwandeln in ein anderes Format

[Union]

Delphi-Quellcode:

function messwertLesen : double;
begin
  // Wie sehen die Stringdaten genau aus?
  result := StrToFloat(SerialPortNG1.ReadNextClusterAsString);
  SerialPortNG1.SendString(#$02 + ':FETC' +#$0A +#$03);
  if WaitForAnswer(100) < 0 then
     memoResult.Lines.Add('Error: No Answer on 4422')
  else
     memoResult.Lines.Add(Format('Messwert : %f', [result]));
end;

Aber die ursprüngliche Logik sieht mir schon seltsam aus. Das Senden von FETCH sollte ja wahrscheinlich einen Messwert anfordern, der muss erst noch empfangen werden. Mach Dir mal ein Ablaufdiagramm, das setzt Du in Kommentare um und dann schreibst Du den Source dazu.