Forum

Vb.Net ile SeriPort...
 
Bildirimler
Hepsini Temizle

Vb.Net ile SeriPort Kontrolü

6 Yazılar
3 Üyeler
0 Likes
521 Görüntüleme
(@teknik-mesut)
Gönderiler: 119
Estimable Member
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

(@teknik-mesut)
Gönderiler: 119
Estimable Member
Konu başlatıcı
 

Cevap yazan yok mu?


Çok acil benim için.

 
Gönderildi : 19/10/2008 19:25

(@selahattinsadoglu)
Gönderiler: 826
Prominent Member
 

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

(@AhmetASLAN)
Gönderiler: 32
Eminent Member
 

Merhaba kaynak ingilizcedir. Türkçeye çevirmede Problem Yaşarsan Buradan Yardımcı Olabilirim. Ancak İçeriğe Bakarsan Kolay ve Sade Bir Anlatım.


http://www.microsoft.com/downloads/thankyou.aspx?familyId=075318ca-e4f1-4846-912c-b4ed37a1578b&displayLang=en


 

 
Gönderildi : 20/10/2008 12:21

(@teknik-mesut)
Gönderiler: 119
Estimable Member
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

(@AhmetASLAN)
Gönderiler: 32
Eminent Member
 

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

Paylaş: