Hallo,
Hab mein Bascom Code mal abgeändert
Code:
$regfile = "m8def.dat"
$crystal = 1000000
$hwstack = 40
$swstack = 30
$framesize = 60
$baud = 9600

Dim A As Byte

Do
A = Inkey()
If A > 0 Then
    Select Case A
      Case 49                                               'Das ist der ASCII Code für Taste "1"
         Sound Portd.7 , 400 , 450
         Print "Taste 1 wurde gedrückt!"
      Case 50                                               'Das ist der ASCII Code für Taste "2"
         Sound Portd.7 , 400 , 550
         Print "Taste 2 wurde gedrückt!"
      Case 51                                               'Das ist der ASCII Code für Taste "3"
         Sound Portd.7 , 400 , 650
         Print "Taste 3 wurde gedrückt!"
      Case 114                                              'Das ist der ASCII Code für Taste "r"
         Print "Reset..."
         Goto 0
   End Select
End If
Loop
Immernoch das selbe Ergebnis Bild  

@t inkoknito

Dip 1 + 2 = 0n 3 + 4 =Off + externe Spannungsquelle dran.

gruß Cali Bild