Visual Basic 2010 ve rs232

utkutur · 2011-10-21T15:02:05.0000000+03:00

rs232 ile 8 bitlik veri alıp vermek istiyorum. ama bir türlü muvaffak olamadım. yazdırmak için: Public Class Form1 Dim Data As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If SerialPort1.IsOpen = False Then SerialPort1.BaudRate = 9600 SerialPort1.PortName = "COM1" SerialPort1.Open() End If End Sub Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived SerialPort1.WriteLine(TextBox1.Text) End Sub End Class okutmak için ise Public Class Form1 Dim Data As String Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If SerialPort1.IsOpen = False Then SerialPort1.BaudRate = 9600 SerialPort1.PortName = "COM1" SerialPort1.Open() End If End Sub Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived Label1.Text = SerialPort1.ReadLine() End Sub End Class Şeklinde oluşturdum. Konu hakkında daha yeniyim. Eksiklerim ve yanlışlarım nelerdir. Nerede nasıl bir düzeltme yapmalıyım? Yardımlarınızı bekliyorum.

Sıcak Fırsatlarda Tıklananlar

Editörün Seçtiği Fırsatlar

KIWI Kwp-8509 Şarjlı Su Pompası, Standart : Amazon.com.tr: Bebek https://www.amazon.com.tr/dp/B0B3JKP2VW 13 sa. önce paylaşıldı

Optilife Zen 30 Kapsül : Amazon.com.tr: Sağlık ve Bakım https://www.amazon.com.tr/dp/B0BJKDP863 14 sa. önce paylaşıldı

Greenote Akülü Elektrikli Süpürge, 23000Pa Güçlü Emişli Hafif Çubuk Elektrikli Süpürge 35 dakika Uzun Çalışma Süresi, Çıkarılabilir Pil, El Araba Sert Zemin Halı Evcil Hayvan Kılı için Arada El Vakumu : Amazon.com.tr: Ev ve Yaşam https://www.amazon.com.tr/gp/product/B0CZ6WM2LG 13 sa. önce paylaşıldı