port as a function parameter

[serg1980]

Hello everyone!
There is a function for reading data from the sensor

Code: Select all

function DHT11_GetData():word;
var DHT_Status,i,CRC,temp1,temp2,temp3,temp4:byte;
begin
 result:=0;
 DHT_Status:=0;
 CRC:=0;
 DDD0_bit:=1;
 PORTD0_bit:=0;
 Delay_ms(18);
 PORTD0_bit:=1;
 DDD0_bit:=0;
 .........
 

The port is explicitly set in this function. How to make it so that the port can be specified in the parameters of the function itself?
For example

Code: Select all

function DHT11_GetData(port, pin: byte):word;

[Thomas.Pahl@t-online.de]

perhaps as an idea: (in basic )

Code: Select all

sub procedure setpin(dim port as ^byte, dim pin as byte)
    port^.pin = 1
end sub

main:
setpin(@ddrD, 5)         ' setting the pin direction
setpin(@portD, 5)        ' setting the pin

[serg1980]

Thank you Thomas!