Elektrotekno.com Ana Sayfa || Bilgisayar || Bilgisayar Programlama


Vb.NET ile RS232 den 6 karaketer bilgi okuma

Kayıt: 06 Nis 2009
Mesajlar: 6

Offline
yahyasakarya
Tarih: 25 06 2013 10:17

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
Kayıt: 30 Arl 2009
Mesajlar: 159

Offline
kudretuzuner
Tarih: 25 06 2013 14:17

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
Kayıt: 06 Nis 2009
Mesajlar: 6

Offline
yahyasakarya
Tarih: 26 06 2013 10:02

Ö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
Kayıt: 30 Arl 2009
Mesajlar: 159

Offline
kudretuzuner
Tarih: 26 06 2013 19:27

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



Vb.NET ile RS232 den 6 karaketer bilgi okuma


Benzer Konular
- Pic 18f452 ile Modbus Veri okuma
- Metal Dedektörü Yapımı Hakkında Bilgi
- acil rs232-usb dönüştürücü

- Matlab ta veri okuma-yazma (.wav , .jpeg , .txt , .doc ...)

- USB to RS232 converter
- Barkod Okuma (Sunum)
- rs232 ve pic16f877a ile pwm üretimi
- Satılık Elektronik Komponent(Texas ARM CORTEX M3 işlemci,RS232 ve RS485 driver)
- plc hakkında bilgi

- pic18f4520 rs232 lcd rtc ds1307(saat ve tarih) -lcd panel gösterge

- usb To rs232 entegre seçimi(yardım)

Sitemize üyelik ve içeriğin indirilmesi tamamen ücretsizdir. Sitemizde paylaşılan tüm dokümanlar (Tezler, makaleler, ders notları, sınav soru cevaplar, projeler) paylaşımcıların bireysel çalışmaları olup telif hakları kendilerine aittir ya da açık bir şekilde kamusal alana yerleştirilmiş dokümanların birer kopyalarıdır. Kişilerin bireysel çalışmalarını sitemizde yüklemesinde, sitemizde paylaşıma teşvik eden puanlama sisteminin de etkisi büyüktür. Bunlara rağmen hala size ait olan ve burada bulunmasına izin vermediğiniz dokümanlar varsa iletişim bölümünden yöneticilere bildirmeniz durumunda derhal silineceklerdir.
Powered by phpBB | Translated by phpBB Turkiye | Ads by Google Adsense | Design by Crazy Bat based
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72