Tüm Forumlar

Tüm Forumlar
Web Tasarım - Programlama
Yazılım Geliştirme
Delphi / C++ /Vb
Bu Konuda

Şimdi Ara

Visual Basic 2010 ve rs232

Sıcak Fırsatlarda Tıklananlar

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

Einhell Professional Akülü Darbeli Vidalama TP-CD 18/60 Li-i BL Solo Power X-Change (Li-Ion, 18 V, kömürsüz motor, 60 Nm, 32.000 darbe/dk, akü ve şarj cihazı dahil değildir) - 4514205 : Amazon.com.tr: Yapı Market https://www.amazon.com.tr/gp/product/B09XFR6N12 2 yıl önce paylaşıldı

Logitech MK345 Q Türkçe Kablosuz Klavye Fare Seti (920-006514) : Amazon.com.tr: Bilgisayar https://www.amazon.com.tr/dp/B01LQTCP2E 2 yıl önce paylaşıldı

Calvin Klein Ck Edge Ccholder 4Cc Erkek Cüzdan, Siyah, Tek Beden : Amazon.com.tr: Moda https://www.amazon.com.tr/gp/product/B0BS48KV3R dün paylaşıldı

Baseus Bowie E19 True Kablosuz Kulaklık,Beyaz : Amazon.com.tr: Elektronik https://www.amazon.com.tr/dp/B0CYSN37GR 3 ay önce paylaşıldı

Migros Sanal Market: Online Market Alışverişi https://www.migros.com.tr/green-life-ogutulmus-karabiber-1-kg-p-5bcd91 23 sa. önce paylaşıldı

Migros Sanal Market: Online Market Alışverişi https://www.migros.com.tr/viamart-rafli-calisma-masasi-60x120x75-cm-p-265b564 23 sa. önce paylaşıldı

Izeltaş Marina Set 38 Parça 8778008738 Fiyatları ve Özellikleri https://www.n11.com/urun/izeltas-marina-set-38-parca-8778008738-7284679?magaza=ozbaymakinahirdavat 2 gün önce paylaşıldı

{{Title}} {{Description}} {{Price}} {{PriceUnit}} {{DiscountInformation}}

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir (1 Mobil) - 1 Masaüstü,

1 Mobil

5 sn

1
Cevap

0
Favori

776
Tıklama

Daha Fazla
İstatistik

Konu İstatistikleri Yükleniyor

Konudaki Resimler

Mesaj Tarihine Göre En Beğenilen Son Ekleneneler

Seçimimi Hatırla

Mesaj Tarihine Göre

Mesaj Tarihine Göre
En Beğenilenler
Son Eklenenler

Konuya Özel

Favorilerime Ekle
Konuyu Açandan
Popüler Mesajlar
Linkli Mesajlar
Yazdır
E-Posta Aboneliği
Konuyu Gizle

0 oy

Öne Çıkar

x İlgini çekti mi?
Öne çıkar, anasayfada
daha üstte görünsün.
Daha Fazla Bilgi

Cevapla

Tüm Forumlar >> Web Tasarım - Programlama >> Yazılım Geliştirme >> Delphi / C++ /Vb >> Visual Basic 2010 ve rs232 | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

utkutur

Çavuş

71 Mesaj

"çavuş": Geleneksel rütbe sistemi koşulları geçerlidir.

Tüm Başarılarını Gör

21 Ekim 2011 15:02:05 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

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.