Kommunikation mit Visual Basic 2008 Programm nur einseitig
Hallo!
Ich versuche gerade meinen AVR über RS232 mit dem PC zu steuern. Dafür habe ich eine Anwendung in Visual Basic 2008 Express angefangen. Wenn ich Daten vom µC via Print "Text" an den PC schicke, kommen diese auch problemlos an.
Leider klappt es nicht in die andere Richtung. Das Programm sollte eigentlich den µC etwas an den PC senden lassen, sobald er Daten empfängt.
Ich habe mich dabei an dieses Tutorial gehalten: https://www.roboternetz.de/wissen/in...rn_des_AVR%27s
Die Codes sehen so aus:
ATmega8:
Code:
$regfile = "m8def.dat"
$crystal = 7372800
$baud = 9600
Dim A As Byte
Do
A = Inkey()
If A > 0 Then
Print "Angekommen!"
End If
Loop
End
VB 2008 Express:
Code:
Option Explicit On
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
SerialPort.Open()
End Sub
Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
SerialPort.Close()
End Sub
Private Sub DataTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataTimer.Tick
If SerialPort.BytesToRead > 0 Then
Do
TextBox1.AppendText(Chr(SerialPort.ReadByte))
TextBox1.ScrollToCaret()
If SerialPort.BytesToRead = 0 Then
Exit Do
End If
Loop
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SerialPort.Write("r")
End Sub
End Class
Kann jemand einen Fehler entdecken?
Grüße, Björn
