HuHu,
ich feiere grade mein erstes Erfolgserlebinis in sachen Kommunikation.
MC <-> Computer.

Ist zwar etwas komisch aber nun Funktioniert es. Habe den externen Quarz freigefused. -> rennt er jetzt mit 3686400 anstelle von den internen 1000000. Habe dies im Bascom Code abgeändert.

Code:
$regfile = "m8def.dat"
$crystal = 3686400
$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
Es erklingen 3 verschiedene Töne bei den Buttons und es gibt eine Textanzeige im Vb-Programm.

Code:
Taste 1 wurde gedrückt!
Taste 2 wurde gedrückt!
Taste 3 wurde gedrückt!
Reset...
Š
Habe zum Spass jetzt auch nochmal das RS232 Prog laufen lassen und siehe da.

Code:
19.08.2008 21:42:14
COM port: 4; Baud rate: 9600bps; Parity: Even; Data bit: 8; Stop bit: 1;  Handshaking: None
Communication mode: Debugging / Simulating
TX data format: Dec; RX data format: Dec

* * * * * * * * * * COM Port Opened * * * * * * * * * * 

Data sent: 065 084 073 049 013 010 
Data sent: 065 084 073 050 013 010 
Data received: 084 097 115 063 063 032 049 032 063 117 063 100 063 032 103 063 100 063 063 063 107 063 063 013 063 
Data sent: 065 084 073 051 013 010 
Data sent: 065 084 073 052 013 010 
Data received: 084 097 115 063 063 032 063 032 063 117 063 100 063 032 103 063 100 063 063 063 107 063 063 013 063 
Data sent: 065 084 073 053 013 010 
Data sent: 065 084 073 054 013 010 
Data sent: 065 084 073 055 013 010 
Data sent: 065 084 073 056 013 010
Nun zum Kleingedruckten:
- Zum Terminalprogramm kann ich dir leider nicht viel sagen ist das erste was ich benutzt habe. Glaube holzi ist da der bessere Ansprechpartner.
- PC <-> MC scheint jetzt zu funktionieren mit sowie auch ohne den VB-Kram.

gruß Cali