Hallo

So konnte das Problem lösen, habe die Fuse Bits setzten können und naja den Plan falsch gelesen war ein 16 Mhz Quarz.

Code:
'--------------------------------------------------------------------------'
'                        Testtool.bas                                      '
'                   2006 ,Pollin Electronic                                '
'                          Freeware                                        '
'--------------------------------------------------------------------------'
'                                                                          '
'Pollin Electronic Atmel-Evaluation-Board                                  '
'Bestellnummer: 810022                                                     '
'Testprogramm für ATmega16                                                 '
'Der gesendete Text kann mit dem Hyperterminal von Windows angezeigt werden'                                                               '
'Einstellungen am Hyperterminal:                                           '
'              Bits pro sekunde:   9600                                    '
'              Datenbits       :      8                                    '
'              Parität         :  keine                                    '
'              Stoppbits       :      1                                    '
'              Flusssteuerung  :  keine                                    '
'                                                                          '
'--------------------------------------------------------------------------'

$regfile = "m8def.dat"

$crystal = 16000000                                         'definieren des verwendeten externen Quarz (8MHz)
Baud = 9600

Dim A As Byte                                               'dimensionieren der verwendeten Variablen
Dim B As Byte

Ddrd = &B11100000                                           'definieren der verwendeten Ports ( 1 = ausgang; 0= eingang)
Portd = &B00000000                                          'definieren der einzelnen Pins an einem Port ( 0= low level; 1= high level)


Main:                                                       'Hauptprogramm
Do                                                          'Anfang der Schleife

  If Pind.2 = 1 Then                                        'Wenn an Pin 2 von Port D ein high level anliegt, dann...

  Toggle Portd.5                                            '...setze Pin 5 von Port D von high auf low oder umgekehrt
  Bitwait Pind.2 , Reset                                    'warte bis an Pin 2 von Port D wieder ein low level anliegt

  End If                                                    'Ende der Bedingung
  If Pind.3 = 1 Then                                        'Wenn an Pin 3 von Port D ein high level anliegt, dann...

  Toggle Portd.6                                            '...setze Pin 6 von Port D von high auf low oder umgekehrt
  Bitwait Pind.3 , Reset                                    'warte bis an Pin 3 von Port D wieder ein low level anliegt

  End If                                                    'Ende der Bedingung
  If Pind.4 = 1 Then                                        'Wenn an Pin 2 von Port D ein high level anliegt, dann...

  Gosub Beep                                                '...gehe zum Untermenü "Beep"
  Gosub Textausgabe                                         '...gehe zum Untermenü "Textausgabe"
  Bitwait Pind.4 , Reset                                    'warte bis an Pin 4 von Port D wieder ein low level anliegt

  End If                                                    'Ende der Bendingung


Loop                                                        'zum Anfang der Schleife

Beep:                                                       'Untermenü "Beep"

  Portd.7 = 1                                               'setzte den Pin 7 von Port D auf high
  Waitms 500                                                'Warte 500 ms
  Portd.7 = 0                                               'setzt den Pin 7 von Port D auf low

Return                                                      'zurück zum Hauptmenü

Textausgabe:                                                'Untermenü "Textausgabe"

  Print "Atmel-Evaluation-Board"                            'Sende den Text in den Anführungszeichen über RS232 zum PC

Return                                                      'zurück zum Hauptmenü
mit diesem Programm läuft es jetzt super Danke

Ach eins hätte ich noch, wie kann ich verhindern dass nach dem gesendeten Text im Terminal diese Note und as Rechteck mit Kreis kommt


Gruß Sven