[ Bojan11 @ 15.02.2006. 14:13 ] @
| Poz, vec se cijeli dan zezam sa jeb.. driverom za RS232, ocu ga napraviti preko namespace-a System.IO.Ports ..znaci radim na Studiju 2005.NET..Visual Basic Ubacio sam referncu i sve normalno radi samo sad ne znam postaviti parametre u aplikaciji Pariti, Stopbits...... I napraviti READ sa tog porta ? Jeli ima netko nekakvog koda (example) da mi pomogne?? Help evo mog koda Imports System.IO.Ports Public ReadOnly Property SerialPortNames As System.Collections.Generic.ReadOnlyCollection`1(Of String) Public Class Form1 Function ReceiveSerialData() As String ' Receive strings from a serial port. Dim returnStr As String = "" Using com4 As IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort("COM4") Do Dim Incoming As String = com4.ReadLine() If Incoming Is Nothing Then Exit Do Else returnStr &= Incoming & vbCrLf End If Loop End Using Return returnStr End Function Private Sub GetSerialPortNames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click ' Show all available COM ports. For Each sp As String In My.Computer.Ports.SerialPortNames ListBox1.Items.Add(sp) Next End Sub Dim returnStr As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click MessageBox.Show(returnStr) End Sub End Class |