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.