Forum
Bildirimler
Hepsini Temizle
Yazılım Genel
6
Yazılar
3
Üyeler
0
Reactions
631
Görüntüleme
Konu başlatıcı
Merhaba
Ben vb.net 2005 veya 2008 de seri porttan bilgi gönderme, bilgi okuma , connect ve disconnect olma hakkında açık koda ihtiyacım var.
C# fazla bilmiyorum bu nedenle vb.net istiyorum. Lüften türkçe açıklamalı olsun. (Hiç bir yerde türkçe yazmıyordu yazanlarda vb 6.0'dı.)
Şimdiden teşekkürler.
Gönderildi : 19/10/2008 19:21
Konu başlatıcı
Cevap yazan yok mu?
Çok acil benim için.
Gönderildi : 19/10/2008 19:25
http://www.dreamincode.net/forums/showtopic37361.htm burada seri portla haberleşme için örnek kodlar var.
kolay gelsin.
Gönderildi : 19/10/2008 21:34
Merhaba kaynak ingilizcedir. Türkçeye çevirmede Problem Yaşarsan Buradan Yardımcı Olabilirim. Ancak İçeriğe Bakarsan Kolay ve Sade Bir Anlatım.
Gönderildi : 20/10/2008 12:21
Konu başlatıcı
Yardımız için teşekkür ederim fakat İngilizce bilgim yok denecek kadar az. Bu nedenle türçe açıklamalar, yapabilirseniz kendiniz açıklayın bu benim için daha hayırlı olur
Gönderildi : 20/10/2008 23:45
Merhaba
Öncelikle Örnek Proje İçindeki rs232.vb classını kendi oluşturacağın projeye ekle.
Imports System.Text
Aşağıdaki Değişkenleri Projede Declare et
Private m_CommPort As New Rs232()
Private m_IsModemFound As Boolean = False
Private m_ModemPort As Integer = 0
Kullanacağın Portun Kullanılabilir Olduğunu Öğrenmek İçin Aşağıdaki Functionu Kullanabilirsin.
Port Numaraları Com1 için 1, com 2 için 2 dir.
Private Function IsPortAvailable(ByVal ComPort As Integer) As Boolean
Try
m_CommPort.Open(ComPort, 115200, 8, Rs232.DataParity.Parity_None, Rs232.DataStopBit.StopBit_1, 4096)
m_CommPort.Close()
Return True
Catch
Return False
End Try
End Function
Bir Adet Timer Tanımla Adı tmrReadCommPort Olsun.
Com Porta Data Göndermek İçin Aşağıdaki Procedureyi Kullanabilirsin.
Try
' Enable the timer.
Me.tmrReadCommPort.Enabled = True
' Attempt to open the port.
m_CommPort.Open(m_ModemPort, 115200, 8, Rs232.DataParity.Parity_None, Rs232.DataStopBit.StopBit_1, 4096)
' Write an user specified Command to the Port.
m_CommPort.Write(Encoding.ASCII.GetBytes(
Me.txtUserCommand.Text & Chr(13)))' me.txt gönderdiğin datadır. geri dönüş datasını timer ile okuyabilirsin
System.Threading.Thread.Sleep(200)
Application.DoEvents()
m_CommPort.Close()
Catch ex As Exception
' Warn the user.
MessageBox.Show(
"Unable to communicate with Modem")Finally
' Disable the timer.
Me.tmrReadCommPort.Enabled = False
End Try
*********************************************************************
' timer tick için.
Try
' As long as there is information, read one byte at a time and
' output it.
While (m_CommPort.Read(1) <> -1)
' Write the output to the screen.
WriteMessage(Chr(m_CommPort.InputStream(0)),
False)End While
Catch exc As Exception
' An exception is raised when there is no information to read.
' Don't do anything here, just let the exception go.
End Try
*******************************
Umarım Açıklayıcı Olmuştur.
Gönderildi : 21/10/2008 12:33
