German [B4I] double zusammenrechnen klappt nicht

[gerredtor]

Hallo ich möchte auf einen double etwas drauf rechnen, bei b4a klappt das aber bei b4i rechne ich immer 0.5 dazu aber es bleibt immer auf 0.5

Code:

Sub adClick(i As Double)
    If Premium Then
        Return
    End If
       
    If werbeint < 7 Then
            werbeint = werbeint + i
        Else
            werbeint = 0
            showAD
    End If
Log(werbeint)
End Sub

aufruf:

adClick(0.5)

und im log kommt immer 0.5 raus

 

[DonManfred]

wenn werbeint 0 ist kommt 0.5 raus

 

[gerredtor]

Ja ich rechne immer 0.5 drauf, beim erstem mal ist werbeint 0 dann 0.5 und dann bleibt es 0.5

 

[DonManfred]

weil werbeint sich scheinbar nicht verändert... Du lieferst ja nix zurück von der sub.

 

[gerredtor]

werbeint = werbeint + i

dort wird werbeint ja verändert.

werbeint = 0.5
i = 0.5

werbeint(0.5) = werbeint(0.5) + i(0.5)
werbeint(neu) = 1.0

so ist das gedacht und das funzt in b4a genau so.

 

[klaus]

Was für ein Variablentype ist werbeint ?
Setzte einen Breakpoint in die Zeile If werbeint < 7 Then und gehe Schrittweise durch das Programm dann siehst Du was passiert.

 

[MaFu]

Hast Du überhaupt eine globale Variable 'werbeint' definiert?