hier mal mein code im SharpDevelop
Code:
Public Partial Class MainForm
	Public Sub New()
		' The Me.InitializeComponent call is required for Windows Forms designer support.
		Me.InitializeComponent()
		serialport1.open
		'
		' TODO : Add constructor code after InitializeComponents
		'
	End Sub
	
	Sub Button1Click(sender As Object, e As EventArgs)
		serialport1.Write (1)
	End Sub
	
	Sub Button2Click(sender As Object, e As EventArgs)
		serialport1.Write (2)
	End Sub
	
	Sub Button3Click(sender As Object, e As EventArgs)
		serialport1.Write (3)
	End Sub
	
	Sub Button4Click(sender As Object, e As EventArgs)
		serialport1.Write ("r")
	End Sub
	Dim readvar As String
	Dim ContainsA As Boolean 
	Dim ContainsB As Boolean 
	Dim Temperaturwert As String 


	Sub Timer1Tick(sender As Object, e As EventArgs)
		If serialport1.BytesToRead > 0 Then
			Do
     	 		readvar=SerialPort1.ReadLine
				ContainsA = readvar.Contains("A") 
				ContainsB = readvar.Contains("B")'checkt ob ein "A" im String ist -> also temperatur
				If ContainsA=true then          'wenn ein A drin ist
  					Temperaturwert=readvar.TrimStart("A")    'dann das A abschneiden
  					temperaturtextbox.text=temperaturwert    'Rest in die textbox schreiben
				End If 
				If ContainsB=true then          'wenn ein A drin ist
  					Temperaturwert=readvar.TrimStart("B")    'dann das A abschneiden
  					temperaturtextbox2.text=temperaturwert    'Rest in die textbox schreiben
				end if 
    	  		
    		If SerialPort1.BytesToRead = 0 Then
   	  	    Exit Do
  	    	End If
 	  	Loop
		End If
		
		

	End Sub
	
	
	
	Sub Label1Click(sender As Object, e As EventArgs)
		
	End Sub
	
	Sub Timer2Tick(sender As Object, e As EventArgs)
		
	End Sub
End Class
hier mein AVR
Code:
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 "ATaste 1 wurde gedrückt"
      Case 50                                               'Das ist der ASCII Code für Taste "2"
         Sound Portd.7 , 400 , 550
         Print "BTaste 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