Alarm Funktion geht nicht

[milanlu]

Hallo zusammen,
kann mir bitte jemand sagen warum das nicht funktioniert:

$regfile = "m32def.dat"
$crystal = 8000000
$baud = 19200

$hwstack = 32
$swstack = 8
$framesize = 24
Declare Function Alarm(alarmstatus As Bit) as Bit


        If Portb.2 = 1 Then
            Alarm(1)
        Else
            Alarm(0)
        End If


End




Function Alarm(alarmstatus As Bit) As Bit
   Alarm = 0
   If Alarmstatus = 1 Then
      Portb.1 = 1
      Weit 10
      Portb.3 = 0

   Else
      Portb.3 = 1
      Weit 10
      Portb.1 = 0

   End If

End Function

Fehlermeldung:
Line 12: unknown statement [alarm(1)]
Line 14: unknown statement [alarm(0)]

[Che Guevara]

hallo milanlu,

wie wärs, wenn du mal auf deine rechtschreibung achten würdest(nicht böse gemeint)?!?!
du hast anstatt
wAit
wEit
gschrieben.

mfg
chris

[stefan_Z]

Funktionen und Subs können KEINE Bit-Variablen entgegennehmen!
Nimm ein Byte, dann gehts.

Oder Deklariere Alarm global.
Bascom nutzt so oder so ein byte zum speichern - was solls.

[StevieL]

Hallo,

wieso deklarierst du das denn als Function wenn du keinen Wert zurückgibst? Funktionen werden ja so aufgerufen X = Function(Übergabewerte). Hier wäre das eher eine Sub.