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
Lesezeichen