Hallo Patti!

Das was du da machst ist wirklich nicht gut, schreibst bitte anders, deien Schachtelungsstruktur stimmt nicht! Das gibt Probleme die nicht zu erklären sind

Code:
Do 
  A = Getadc(0) 
  If A = 25 Then 
    Sound Portb.0 , 400 , 450 
    Sound Portb.0 , 400 , 250 
    Sound Portb.0 , 400 , 450 
Loop 
  end if 
End
Richtig wäre:

Code:
Do 
  A = Getadc(0) 
  If A = 25 Then 
    Sound Portb.0 , 400 , 450 
    Sound Portb.0 , 400 , 250 
    Sound Portb.0 , 400 , 450 
  End If 
Loop 
End
Grüße Wolfgang