Tüm Forumlar

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

Şimdi Ara

VİSUAL BASİCDE SERİ PORT KULLANIMI

Sıcak Fırsatlarda Tıklananlar

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

Samsung Galaxy S25: Yapay Zeka Parmaklarınızın Ucunda https://amzn.to/40CnvTY

JACK WOLFSKIN KARIBA 0.5 TERMOS : Amazon.com.tr: Spor ve Outdoor https://www.amazon.com.tr/dp/B085PK37NB 2 yıl önce paylaşıldı

Dove Beauty Cream Bar Katı Güzellik Sabunu Original Nemledirici Etkili, 90 g : Amazon.com.tr: Kişisel Bakım ve Kozmetik https://www.amazon.com.tr/dp/B0B34VTFR5 2 yıl önce paylaşıldı

KARACA COFFEE ART BARİSTA ESPRESSO MAKİNESİ SİLVER : Amazon.com.tr: Mutfak https://www.amazon.com.tr/dp/B0C3MVL142 5 ay önce paylaşıldı

Renax Gold Bulaşık Makinesi Kapsül Deterjanı 30 x 6 Adet : Amazon.com.tr: Bebek https://www.amazon.com.tr/dp/B0DV9TCND6 8 sa. önce paylaşıldı

Züber Kakaolu Fındık Kreması, 315 Gr X 2 Adet https://zuberzuber.com/products/zuber-kakaolu-findik-kremasi-315-gr-x-2-adet?srsltid=AfmBOoo44W0bfGUO0guaBYcNykD6lq3k7-AamWTvEjzsAm0vBxf_SoVc 4 sa. önce paylaşıldı

Migros Sanal Market: Online Market Alışverişi https://www.migros.com.tr/trt-cocuk-kaptan-pengu-pelus-sesli-p-22689d5 4 sa. önce paylaşıldı

Freecamp Erkek Kayak Montu L Fiyatları ve Özellikleri https://www.n11.com/urun/freecamp-erkek-kayak-montu-19466654 geçen yıl paylaşıldı

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

Daha Fazla

Bu Konudaki Kullanıcılar: Daha Az

2 Misafir - 2 Masaüstü

5 sn

2
Cevap

0
Favori

1.149
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 >> VİSUAL BASİCDE SERİ PORT KULLANIMI | DonanımHaber Forum

Sayfa: 1

Giriş

Mesaj

halilhocax

Onbaşı

30 Mesaj

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

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

31 Mart 2006 12:46:12 Konu Sahibi

Mesaj Linkini Kopyala
Şikayet

Selam arkadaşlar.Yapmış olduğum frekansmetreden okuduğum değeri seri portu kullanarak veriyi bilgisayara aktarmaktır.Kullandığım arayüz programı ise visual basicdir.Kodları yazdığım halde bilgiyi okuyamıyorum.Elimde hazır bir visual basic ile yazılmış kapsamlı bir program var.Bu programı kullandığımda Veriyi okuyabiliyorum.Yazacağım program kapsamlı değil oldukça basit ama ben yapamadım.Yazdığım programı veriyorum.
Private Sub Command1_Click()

MSComm1.Settings = "2400,N,8,1"
'rs232 ile ilgili ayarlar'
MSComm1.PortOpen = True
'port açiliyor'
deger = MSComm1.Input
'pic'ten okunan 8 bitin ascii karsiligi aliniyor
Text1.Text = deger
'okunan bilgi text penceresinde görünüyor'
MSComm1.PortOpen = False
'port kapatiliyor'

End Sub

yukarıda ki program çalışmamakta arkadaşlar.Hatamı bana gösterip,ne yapmam gereken konusunda bana yardımcı olursanız çok minnettar olurum.Hepinize,projelerinizde başarılar arkadaşlar.Kolay gelsin...

CLIETECH

Teğmen

123 Mesaj

"teğmen": Geleneksel rütbe sistemi koşulları geçerlidir.

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

07 Nisan 2006 19:48:06

Mesaj Linkini Kopyala
Şikayet

Private Sub Command1_Click()

PDQComm1.CommPort = 1
PDQComm1.Settings = "2400,n,8,1"
PDQComm1.PortOpen = True
PDQComm1.InputLen = 1

PDQComm1.Output = Chr$(Text2.Text)

Do While PDQComm1.InBufferCount < 1
Loop
sHigh = PDQComm1.Input

Text1.Text = Asc(sHigh)
Text3.Text = sHigh

PDQComm1.PortOpen = False

End Sub

Seklinde dene birde