Also zu HeXPloreR : hier der Code :

Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 32
$swstack = 32
$framesize = 32

Config Portd.7 = Output             ' Summer für das Einschalten und für Fehlermeldungen
Config Portc.5 = Output             ' Led die von vb gesteuert wird

Dim Wort As Word

Wait 1
Sound Portd.7 , 400 , 450         'Summer
Sound Portd.7 , 400 , 250          'Summer
Sound Portd.7 , 400 , 450              'Summer
Wait 2

Main:
  Waitms 500
  Input "?" , Wort

  Select Case Wort

      Case 1
      Waitms 10
      Portc.5 = 0
      Waitms 500


      Case 0
      Waitms 10
      Portc.5 = 1
      Waitms 500

      Case Else
      Waitms 10
      Sound Portd.7 , 400 , 450
      Sound Portd.7 , 400 , 250
      Sound Portd.7 , 400 , 450
      Waitms 10

  End Select
Goto Main
Ich habe es auch schon mit dem Terminal Emulator und mit vb getestet. Hat funktioniert. Doch hatte ich ein Problem mit dem Summer. Als ich es erst in Bascom ausprobiert habe ,hatte er noch gesummt. Als ich es danach aber bei vb ausprobiert habe hat er nicht mehr gesummt. Dann habe ich es noch mal in Bascom versucht ,aber da wollte er dann auch nicht mehr summen. Nach einem Neubespielen des MC hat es genau so ausgesehen wie davor .Erst hat es in Bascom funktioniert ,sobald ich es aber einmal in vb testete hat es nicht mehr funktioniert. Warum ???????