Sending PORT bits to subroutine or function?

[Blue Bill]

Questions,
1. This code doesn't work, I'm not sure how to pass a bit (it's a port) to a subroutine or function.
2. Can the RelayDown variable be used to manipulate the public variable that called it or do I have to make this a function?

Code: Select all

sub Relay(PortBit as boolean, RelayDown as byte)
		If RelayDown=0 Then
			Low(PortBit)            ' relay off
		Else
			High(PortBit)           ' fire relay
			If RelayDown<255 Then		' 255 = relay on else decrement till 0
					Dec(RelayDown)
			EndIf 
		EndIf

[bitfogav]

Maybe this will help you?.. code below was found here http://www.sfcompiler.co.uk/forum/viewt ... g+port+bit

For your second question you might want to look in the Swordfish help file Parameters (byRef and byVal)

Code: Select all

// blink an LED, PORT bit is passed by 
// reference to the subroutine... 
Sub Blink(ByRef pBit As Bit, pDelay As Byte = 200) 
   High (pBit) 
   DelayMS (pDelay) 
   Low (pBit) 
   DelayMS (pDelay) 
End Sub 

// loop counters... 
Dim Index As Byte 

// main program... 
While true 
   For Index = 0 To Bound(PORTD.Bits) - 4 
      Blink(PORTD.Bits(Index)) 
   Next 
Wend 

[Blue Bill]

Wow, thank you. Swordfish BASIC is just full of surprises.