VB.net Problem
Verfasst: 11.04.2011, 21:32
Moinmoin,
ich stehe irgendwie auf dem Schlauch. Ich möchte einen aus einem Textfeld ausgelesenen Wert an einen Programmteil übergeben, der einen Comport initialisiert. Der Wert soll übergeben werden, wenn eine Schaltfläche geklickt wird.
Das ist zum initialisieren und das hier macht der Knopp beim Klick:
Nur wie bekomme ich den strPortins in die andere Sub? ![Heul :heul:](./images/smilies/heul.gif)
ich stehe irgendwie auf dem Schlauch. Ich möchte einen aus einem Textfeld ausgelesenen Wert an einen Programmteil übergeben, der einen Comport initialisiert. Der Wert soll übergeben werden, wenn eine Schaltfläche geklickt wird.
Code: Alles auswählen
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim EinzelPort As String
For Each EinzelPort In My.Computer.Ports.SerialPortNames
Next EinzelPort
With SerialPort1
If Not .IsOpen Then
Try
.PortName = strportins
.BaudRate = 19200
.DataBits = 8
.Parity = Parity.None
.StopBits = StopBits.One
.WriteTimeout = -1
.ReadTimeout = -1
.Open()
Catch ex As Exception
MsgBox("Bitte das Funkmodul an den PC anschliessen und COM-Port eingeben!")
'Me.Close()
Exit Sub
End Try
End If
End With
End Sub
Code: Alles auswählen
Private Sub btnPort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPort.Click
Dim intPort As Integer
Dim strPort As String
strPort = txtPort.Text
If IsNumeric(strPort) Then
intPort = CInt(strPort)
strPortins = "COM" & intPort
Else
MsgBox("Port Ungültig!", vbOKOnly, "Achtung")
End If
End Sub
![Heul :heul:](./images/smilies/heul.gif)