Übergabewert einer Function

[bertl100]

Hallo Robots

Hab mal wieder ne Frage.

Seht euch bitte mal den beiliegenden Code an.

Beinhaltet Temp jetzt den Wert von der Unterfunktion Spannung??
kann nämlich in der If nichts machen bzw. er läuft einfach durch.
Ich möchte in der IF einen Wert vergleichen. Dieser soll <61 und >59 sein.
Natürlich ist der code nicht vollständig. Ist nur ne Verständnisfrage.




$regfile = "m128def.dat"
$crystal = 8000000
$baud = 9600
$baud1 = 9600
$eeprom

Declare Function Spannung(byval Cnt As Byte) As Single

Dim Cnt As Byte , Temp As Single


For Cnt = 0 To 3

Temp = Spannung(cnt) 'Unterfunktion +Übergabewert

If Temp < 59 And Temp > 61 Then


Function Spannung(byval Cnt As Byte)as Single


Config Adc = Single , Prescaler = Auto , Reference = Internal

Dim Dauerch1 As Byte , Dauerch01 As Single

Start Adc 'Kanal 1 messen


Dauerch1 = Getadc(cnt)
Dauerch01 = Dauerch1 * 0.058594
Dauerch01 = Spannung



End Function

[tobimc]

HI!

Nein.
Du musst am ende der Funktion entweder ein return Spannung
oder
Spannung = Spannung angeben, genau weis ich das aber auch nciht mehr.

Ausserdem hast du vergessen, den ADC in der Funktion wieder zu schließen!!

Liebe Grüße,
Tobi

*EDIT:*
*HARCH* Das kann ja nciht gehen!



Dauerch01 = Dauerch1 * 0.058594
Dauerch01 = Spannung
Dauerch01 ist dann gleich Spannung.

So müsste es Heißen:
Spannung = Dauerch01

Grüße!

[bertl100]

Danke für deine Hilfe!!!!

Kann es erst am Abend testen.

[pebisoft]

dim kannst du nicht in eine funktion setzen.
mfg pebisoft

[bertl100]

Hab ich korregiert, hat aber funktioniert.
Nochmals Danke an die Robots!!

[darwin.nuernberg]

Ich hab Dir mal ein anders Programm geschrieben,
Damit kann man besser erklären wie das mit der Funktion geht:



'Function Demo

$regfile = "m32def.dat" ' Art des Prozessors bestimmen
$crystal = 16000000 ' Taktfrequenz einstellen
$baud = 9600 ' Baudrate für Serielle Schnittstelle


Declare Function Test(byval X As Byte) As Byte

Dim Temp1 As Byte
Dim Temp2 As Byte


Hauptprogramm:

' Demo 1
' Mittels Temp1 wird ein Wert übergeben
' und von der Funktion in Temp2 zurückgegeben

Temp1 = 7
Temp2 = 0

Print "Übergabe = Temp1 (";
Print Temp1;
Print ") ";
Print " - Temp2 (";
Print Temp2;
Print ") ";

Temp2 = Test(temp1)

Print " /// Berechnet = Temp1 (";
Print Temp1;
Print ") ";
Print " - Temp2 (";
Print Temp2;
Print ") ";

Print

' --- --- --- --- --- --- --- --- --- --- --- ---

' Demo 2
' Mittels Temp1 wird ein Wert übergeben
' und von der Funktion wieder in Temp1 zurückgegeben
' d.h Die Variable wird direkt verändert

Temp1 = 7

Print "Übergabe = Temp1 (";
Print Temp1;
Print ") " ;


Temp1 = Test(temp1)

Print "Berechnet = Temp1 (";
Print Temp1;
Print ")"

Print




End 'end program

' Hier die Funktion
' =================
Function Test(byval X As Byte) As Byte

Test = 2 ^ X ' Rückgabe der Berechnung = Funktionsname als Variable

End Function

End

[bertl100]

Habs jetzt simuliert und es Funzt.

Vielen Dank nochmal