wenn du die RS232 schnittstelle im programm verwendest, werden sie automatisch passend als ein/ausgang geschaltet. ebenso beim 1wire...

um die einzelnen pins als eingänge zu schalten, nimmst du den config pinX befehl:
Code:
Dim Taste As Bit   'variable die das ergebnis der tastenabfrage aufnimmt
Config Pind.2 = Input   'pin 2 am port d als eingang schalten

If Pind.2 = 1 Then Taste = 1 Else Taste = 0  'anschluss abfragen und das ergebnis in taste speichern