Quellcode von Visual Basic 6.0 nach Visual Basic .NET
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!
