Hallo,

ich möchte als Anfänger eine Variable über die RS232 schicken
um diese Variable dann mit VisualBasic auszulesen.

Ich nutze BascomAVR und den STK500 KIT von Atmel.

Wenn ich den schalter drücke (SW0) soll die Variable versendet werden.

Ich hab mal was angefangen, aber ob das so passt weiß ich nicht, da ich
nicht weiß wie ich das Prüfen soll.


Code:
$regfile = "8515def.dat"
$crystal = 3200000

Ddrb = &B00000001                                           'setz Pin 0-7 von PortB
Ddrd = &B00000000                                           'setz Pin 0-7 von PortD zurück

Dim Meinevariable As Byte

Meinevariable = "12,12"

Do

 If Pind.0 = 1 Then
 Open "comd.1:9600,8,n,1" For Output As Byte
   Print Meinevariable                                      'abfrage von Pin 0
   Reset Portb.0
  Close Meinevariable                                       'setz Pin 0 zurück
 Else
   Set Portb.0                                              'setz Pin 0
 End If

Loop
und in Visual Basic 6 wird das ganze dann so empfangen:

Code:
Dim werte As Byte

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 & vbCrLf
End If
End Select
Leider empfange ich garnichts

Vielleicht kann mir da ja einer Weiterhelfen?

Wasi...