Function - liefert falsche Werte

[Glühlampe]

Auch dein Bascom rechnet falsch
Alle 3 Filter bekommen die selben Werte, somit sollte auch 3x das Gleiche rauskommen.

[Searcher]

STÖHN
Da brauch ich jetzt mehr Zeit

- - - Aktualisiert - - -

Auch dein Bascom rechnet falsch
Alle 3 Filter bekommen die selben Werte, somit sollte auch 3x das Gleiche rauskommen.

Die Sensorwerte waren unterschiedlich

Dim Sensor_x As Integer : Sensor_x = 1000
Dim Sensor_y As Integer : Sensor_y = 2000
Dim Sensor_z As Integer : Sensor_z = 3000

Ich hab die mal alle auf 2000 geändert und bekomme:

Filter 1 Rohwert2000 Temp(1) 100 Temp(2) 10000 Filter_out 100
Filter 2 Rohwert2000 Temp(1) 100 Temp(2) 10000 Filter_out 100
Filter 3 Rohwert2000 Temp(1) 100 Temp(2) 10000 Filter_out 100

Filter 1 Rohwert2001 Temp(1) 195 Temp(2) 19505 Filter_out 195
Filter 2 Rohwert2001 Temp(1) 195 Temp(2) 19510 Filter_out 195
Filter 3 Rohwert2001 Temp(1) 195 Temp(2) 19515 Filter_out 195

Filter 1 Rohwert2002 Temp(1) 285 Temp(2) 28535 Filter_out 285
Filter 2 Rohwert2002 Temp(1) 285 Temp(2) 28545 Filter_out 285
Filter 3 Rohwert2002 Temp(1) 285 Temp(2) 28555 Filter_out 285

Immer noch falsch?

[Glühlampe]

gelöst, so geht es.

Declare Function Filter(byval Filter_wert As Integer , Byval Raw_data As Integer) As Integer
Ergebnis(1) = Filter(ergebnis(1) , Sensor_x)

Der Name in der Declartion darf nicht der gleiche sein wie im Funktionsaufruf.
So also nicht!
Declare Function Filter(byval ergebnis(1) As Integer , Byval Raw_data As Integer) As Integer
Ergebnis(1) = Filter(ergebnis(1) , Sensor_x)

$regfile = "m168def.dat"
$crystal = 3686400
$baud = 115200                                              'Bootloader Baud = 115200
$hwstack = 96
$swstack = 96
$framesize = 96

'***

Dim Filter1 As Byte : Filter1 = 5
Dim Filter2 As Byte : Filter2 = 100 - Filter1

Dim Sensor_x As Integer : Sensor_x = 1000
Dim Sensor_y As Integer : Sensor_y = 2000
Dim Sensor_z As Integer : Sensor_z = 3000

Dim Ergebnis(3) As Integer

'****

Declare Function Filter(byval Filter_wert As Integer , Byval Raw_data As Integer) As Integer

Do

 Ergebnis(1) = Filter(ergebnis(1) , Sensor_x)
 Ergebnis(2) = Filter(ergebnis(2) , Sensor_y)
 Ergebnis(3) = Filter(ergebnis(3) , Sensor_z)

 Print Sensor_x ; " " ; Sensor_y ; " " ; Sensor_z ; " * " ;
 Print Ergebnis(1) ; " " ; Ergebnis(2) ; " " ; Ergebnis(3)

 If Sensor_x < 2500 Then
   Sensor_x = Sensor_x + 11
   Sensor_y = Sensor_y + 11
   Sensor_z = Sensor_z + 11
 End If

Loop


Function Filter(byval Filter_wert As Integer , Byval Raw_data As Integer) As Integer

   Local Temp1 As Long
   Local Temp2 As Long

   Temp1 = Raw_data * Filter1
   Temp2 = Filter_wert * Filter2
   Temp2 = Temp2 + Temp1
   Temp1 = Temp2 / 100

   Filter = Temp1

End Function