---

Arkadaşlar,

Vb.NET te RS232 den 6 karakterlik bi bilgi okumaya çalışıyorum bunun için nasıl bir yol izlemeliyim. Sadece porttan gelen bilgiyi okuyup bir text box a atayacağım.

---

Reklamlar

---

Merhaba,
PIC ve PC haberleşmesi için yazılacak programların birbirleri ile uyumlu olması gerekir.(Pc tarafındaki yazılım ve PIC tarafındaki yazılım)
Aşağıdaki linklere bir gözatıverin işinize yarayacak bilgiler bulabilirsiniz.Daha kapsamlı yanıt alabilmeniz için projenizi detaylı anlatmanız gerekebilir.Kolay gelsin.
https://www.dropbox.com/s/lfvib04uzzx0w...C_temz.rar
https://www.dropbox.com/s/qcrgyjtjvvdqd...nelblg.rar
https://www.dropbox.com/s/jne9z24e5a22w..._to_PC.rar
http://rapidshare.com/files/3710011800/...on_off.rar
http://rapidshare.com/files/2268125260/...prensp.rar
Başa dön

---

Öncelikle sağolasın,
Projede Tartım cihazımızın bağlı olduğu bi sistem var, cihazdan RS232 den tartım sonucu ile gelen 6 karakterli bir sayıyı, Vb.Net te okuyup bi text box a atıcam, oradan da matematiksel işlemler. Text Box a attıktan sonrası çok kolay. O kısmı gerçekleyebilsem çok iyi olacak. Pic vs gibi elemanlar yok devrede.
Başa dön

---

Public Class Form1


--------------------------------------------------------------------------------------------------------------
Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim gelen As String = SerialPort1.ReadByte '
If gelen = 49 Then
textbox1.text = "1"
End If
End Sub
----------------------------------------------------------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ComboBox1.Text = "1"
SerialPort1.PortName = ComboBox1.Text
SerialPort1.Open()

End Sub
-----------------------------------------------------------------------------------------------------
Yukarıdaki vb.net yazılımı ile sistemden hex"31" yani 00110001 şeklinde gelen bir baytlık bilgiyi textboxta rakkam bir "1" olarak görürsünüz.Ana prensip budur.
If gelen =50 Then
textbox2.text = "2"
End If
şeklinde de devam eder.Tabii, gelebilecek olası dataları tek tek kontrol etmeniz veya gelen 6 karakterli bytelar zincirini de okumanız mümkün ama tek tek okumanız bana göre daha mantıklı geliyor.Amatör biri olarak ancak bu kadar yardımcı olabiliyorum.


End Class
Başa dön