Hallo,

deine if-Bedingung musst du nochmal überarbeiten, da die sound-Funktion nicht an die Bedingung geknüpft ist. Mit meiner Änderung müsste nur etwas zu hören sein, wenn dein Mega32 empfängt. Die Variable Zeichen wieder auf null zu setzen, nachdem etwas empfangen wurde, wäre auch nicht schlecht:
Code:
$regfile = "m32def.dat"                                     'ATmega8-Deklarationen
$crystal = 16000000                                         'Quarz: 16 MHz
$baud = 9600                                                'UART-Baudrate: 9600 Baud
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space




Dim Zeichen As Byte
Zeichen = 0

Do
  Zeichen = inkey()
  If Zeichen > 0 Then 
Print "Habe Zeichen " ; Chr(zeichen) ; " empfangen!"
  Sound Portd.7 , 400 , 350                                 'BEEP
Zeichen=0
end if

 Loop
End