Datentyp für PINx.x nin BASCOM

[Andreas (Gast)]

Hallo,

ich möchte eine Funktion erstellen, der ich als Parameter z.b. Pinx.x 
übergeben kann.
Wie muss ich das deklarieren?

z.B..

Function Inputdata(byval iPin1,iPin2 As ????) As Long

Aufruf:
test=Inputdata(PINA.1,PINA.2)


Gruß, Andreas

[Gemüsebeet (Gast)]

rein logisch: As Bit?

[Weingut P. (weinbauer)]

was soll der Sinn sein? Die Port und Pin Werte sind eh quasi als 
"globale Variable" deklariert, wozu die noch auf den Stack packen und 
RAM / Rechenzeit verheizen?

[Hannes L. (hannes)]

Fhutdhb Ufzjjuz schrieb:
> wozu die noch...

Um Basic virtuos einzusetzen... (koste es was es wolle...)

...

[Norbert S. (norberts)]

Hi,

ich glaube Du willst als Parameter übergeben welcher Pin es denn sein 
soll?
Das geht höchtens über die Adresse von Pina, Pinb usw. aber ich habe 
keine Ahnung wie genau und ob das überhaupt geht.

Dann ein zweiter Parameter für das Bit (als Byte).

So gehts sicher:
Function Inputdata(byval Pin_adr, Bit_adr As Byte) As Long

Inputdata:
Select Case Pin_adr
  Case is 0 : Bla = Pina.Bit_adr
  Case is 1 : Bla = Pinb.Bit_adr
End Select

Ob das sinnvoll ist ist ne andere Frage...

Gruß,
Norbert