Şimdi Ara

VİSUAL BASİCDE SERİ PORT KULLANIMI

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
2
Cevap
0
Favori
1.131
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 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...







  • 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
  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.