Hallo,

auf Grund eines Beispielprogramms unter VB 6.0 hab ich mir dieses auf meine Anforderungen abgeaendert.
Nun bin ich aber gezwungen VB.NET zu benutzen.
Bei dem Programm werden Daten an der RS232 Schnittstelle eingelesen und verarbeitet.
Ich moechte nur wissen was ich fuer VB.NET aender muss.
Klar dass ich das Benutzerfenster mit den Buttons und der Ein- und Ausgabe neu machen muss, aber mir kommt es hier eher auf die Ansteuerung der RS232 Schnittstelle an.


Hier der Quellcode:

Code:
VERSION 5.00

Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "mscomm32.ocx"

Private Sub BtnGetData_Click()
	
	Dim val(1) As Single, min As Single, max As Single

	val = TLC548_GetData()

	min = val(0)
	max = val(1)
	
	Min.Text = CStr(min)
	Max.Text = CStr(max)
End Sub


Private Sub Form_Load()
    On Error Resume Next
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.CommPort = 1
    MSComm1.PortOpen = True
    MSComm1.DTREnable = False
    MSComm1.RTSEnable = True
    BtnGetData.Enabled = False 
End Sub

Private Sub Option1_Click(Index As Integer)
	On Error Resume Next
	BtnGetData.Enabled = False
	MSComm1.PortOpen = False
	If Option1(0).Value = True Then
    		MSComm1.CommPort = 1
	End If
	If Option1(1).Value = True Then
    		MSComm1.CommPort = 2
	End If
	MSComm1.PortOpen = True
	BtnGetData.Enabled = True
	MSComm1.DTREnable = False
	MSComm1.RTSEnable = True
End Sub


Private Function TLC548_GetData() As Single

	Dim i As Integer, temp As Byte, min As Single, max As Single, values(1) As Single, x As Integer, vref As Single

	temp = 0, min = 9999, max = 0

	vref = CSng(URef.Text)

	MSComm1.RTSEnable = False 
	
	For x = 1 To 1000000 Step 1

		For i = 7 To 0 Step -1

			MSComm1.DTREnable = True

    			If MSComm1.CTSHolding = True Then
       				temp = temp + 2 ^ i
    			End If

			MSComm1.DTREnable = False
		Next

		If (temp * (vref/256)) < min Then
			min = (temp * (vref/256))
		End If
		
		If (temp * (vref/256)) > max Then
			max = (temp * (vref/256))
		End If	
	Next

	MSComm1.RTSEnable = False   'set Chip Select high

	values(0) = min
	values(1) = max

	TLC548_GetData = values

End Function

Funktioniert das Ansprechen der RS232 Schnittstelle unter VB.NET noch genauso???
schon mal vielen Dank!