Daten senden und empfangen, ich empfange nicht was ich sende

**Wasi** · 25.11.2005, 11:13

Hallo,

ich weiß nicht woran es liegt, hatte vorher einen Atmega8515 und da
hat es funktioniert, weiß jetzt aber im nachhinein nicht ob ich noch
was anderes geändert habe.

Verwende jetzt einen Atmega8 auf dem STK500 Board und sende wie im
folgenden Code:

Code:

'##############################################################
'Wird sw0 gedrückt wird übertragen und im VB Programm Werte.exe
'empfangen!
'##############################################################

$regfile = "m8def.dat"                                      '"8515def.dat"


$baud = 9600
$crystal = 4000000

Ddrb = &B00000010                                           'LED1 leuchtet wenn SW1 gedrückt wird
Ddrc = &B00000000                                           'setz Pin 0-7 von Portc zurück

Dim Wert1 As String * 5
Dim Wert2 As String * 5
Dim Wert3 As String * 5
Dim Wert4 As String * 5
Dim Wert5 As String * 5
Dim Wert6 As String * 5
Dim Wert7 As String * 5
Dim Wert8 As String * 5
Dim Wert9 As String * 5
Dim Wert10 As String * 5
Dim Wert11 As String * 5
Dim Wert12 As String * 5

Wert1 = "1"
Wert2 = "2"
Wert3 = "3"
Wert4 = "4"
Wert5 = "5"
Wert6 = "6"
Wert7 = "7"
Wert8 = "8"
Wert9 = "9"
Wert10 = "10"
Wert11 = "11"
Wert12 = "12,01"

Dim Km As String * 4
Dim Dz As String * 3

Km = "km/h"
Dz = "d/1"

Do

If Pinc.1 = 0 Then                                          'abfrage von Pin 1
   Reset Portb.1                                            'setz Pin 1 zurück
 Wait 1

Print Dz
Print Km

 Else

   Set Portb.1                                              'setz Pin 1

 End If



'If Pinc.0 = 0 Then                                          'abfrage von Pin 0
   'Reset Portb.0                                            'setz Pin 0 zurück
 'Wait 1

'Print Wert1
'Print Wert2
'Print Wert3
'Print Wert4
'Print Wert5
'Print Wert6
'Print Wert7
'Print Wert8
'Print Wert9
'Print Wert10
'Print Wert11
'Print Wert12

 'Else

   'Set Portb.0                                              'setz Pin 0

 'End If
Loop
End

Und Empfangen tu ich folgendes:

Code: