Hi, also erstmal danke für deine antwort. also ich hab erstmal dieses Code u.a. auf den Controller übertragen, danach habe ich Fusebits bei dem Controller umgestellt damit man Pegeln von manchen pins mit hilfe von terminalprogramm auslesen konnte. Und danach wenn man das alles richtig gemacht wurde, müssen pegels von den pins im terminal programm erscheinen. aber das fenster von terminalprogramm ist bei mir leer, also ich kann keine werte von pins auf dem bildschirm sehen.
alles mache ich übrigens mit bascom.

Das Code welches ich auf den controller übertrage

Code:
  '###################################################
'rn_minicontrol_porttest.bas
'Dieses Programm ist für das universelle und kompakte
'Controllerboard RN-MINICONTROL ab Version 1.3
'Boardbeschreibung Roboternetz.de oder robotikhardware.de
'Verwendeter Compiler Bascom V 1.11.7.9
'
'Aufgabe:
'
'Die Ausgabe erfolgt über Bascom Terminalprogramm. PC muss
'somit über RS232 Kabel verbunden sein
'Es wird der Zustand aller Ports angezeigt
'
'Autor: Frank
'Weitere Beispiele und Beschreibung der Hardware
'unter http://www.Roboternetz.de bzw. robotikhardware.de
'###################################################


'Die üblichen Definitionen bei Standardprogrammen auf Miniboard
$regfile = "m168def.dat"
$crystal = 16000000                                         'Quarzfrequenz
$baud = 9600
$hwstack = 32
$framesize = 32
$swstack = 32



Declare Sub Showadport()
Declare Sub Showdigitalports()

Wait 1
Print "Warte ich boote ..."
Wait 2
Print
Print "**** RN-MINICONTROL 1.3 *****"
Print "Das neue kleine Controllerboard"
Print "RN-MiniControl, der kleine Bruder von RN-Control"
Print "Nach RN-Definition vom www.roboternetz.de"
Print

Do
  Showdigitalports
  Showadport
  Print
  Print "Viel Spass mit dem Board!"
  Wait 10
  Print
Loop

End


'Zeigt Die Analogen Messwerte An Port A An
Sub Showadport()
Local Ws As Word
Local I As Integer

   Config Adc = Single , Prescaler = Auto , Reference = Avcc       'Internal
   Config Portc = Input
   For I = 0 To 5                                           ' Alle internen Pullup Widerständ abschalten
      Portc.i = 0
   Next I

   Print
   Print "Ermittelte Messwerte an Port C:"
   For I = 0 To 5                                           ' Alle Eingäne inkl.messen
      Start Adc
      Ws = Getadc(i)
      Print "Pin" ; I ; " ADC-Wert= " ; Ws
   Next I
End Sub


'Zeigt den Zustand der Ports an
Sub Showdigitalports()
Local Zustand As String * 6
Local I As Integer

   Config Portb = Input
   For I = 0 To 5                                           ' Alle internen Pullup Widerständ ein
      Portb.i = 1
   Next I
   Print
   Print "Ermittelter I/O Zustand Port B:"
   For I = 0 To 5                                           ' Alle Eingäne inkl.messen
      If Pinb.i = 1 Then
         Zustand = "H"
      Else
         Zustand = "L"
      End If
      Print "Pin" ; I ; "=" ; Pinb.i ; "(" ; Zustand ; ")  ";
   Next I
   Print

   Config Portc = Input
   For I = 0 To 5                                           ' Alle internen Pullup Widerständ ein
      Portc.i = 1
   Next I
   Print
   Print "Ermittelter I/O Zustand Port C:"
   For I = 0 To 5                                           ' Alle Eingäne inkl.messen
      If Pinc.i = 1 Then
         Zustand = "H"
      Else
         Zustand = "L"
      End If
      Print "Pin" ; I ; "=" ; Pinc.i ; "(" ; Zustand ; ")  ";
   Next I
   Print

   Config Portd = Input
   For I = 0 To 7                                           ' Alle internen Pullup Widerständ ein
      Portd.i = 1
   Next I
   Print
   Print "Ermittelter I/O Zustand Port D:"
   For I = 0 To 5                                           ' Alle Eingäne inkl.messen
      If Pind.i = 1 Then
         Zustand = "H"
      Else
         Zustand = "L"
      End If
      Print "Pin" ; I ; "=" ; Pind.i ; "(" ; Zustand ; ")  ";
   Next I
   Print

End Sub]