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
Lesezeichen