Hallo Henrik,

hab das mit der Übertragung hinbekommen, war nur die einstellung
für die Hardware falsch , auch an meinen Zwei scripts hab ich noch
gearbeitet.

Es geht voran .

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

$regfile = "8515def.dat"


$baud = 9600
$crystal = 3686400

Ddrb = &B00000001                                           'LED0 leuchtet wenn SW0 gedrückt wird
Ddra = &B00000000                                           'setz Pin 0-7 von PortD 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"

Do
If Pina.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                                                         'Ende der Abfrage
Empfangsscript:
Code:
Private Sub MSComm1_OnComm()

Dim werte As String

Select Case MSComm1.CommEvent
Case comEvSend ' sende puffer jetzt leer (hier braucht nichts getan zu werden)
Case comEvReceive ' es wurden daten empfangen
werte = MSComm1.Input

If werte <> "" Then
    Text1.Text = Text1.Text & werte
End If
End Select
   
End Sub
Das ist sicherlich noch ausbaufähig, aber für den Anfang bin ich mal zufrieden.

Ich sende was und es kommt was an