;
Üye Girişi
Bağlan Google+ ile Bağlan Facebook ile Bağlan
Yeni Kayıt
Tüm Forumlar
  • Tüm Forumlar
  • Donanım / Hardware
  • Elektronik ve Mekanik
  • Elektronik
  • Bu Konuda
Şimdi Ara

ft232R ve visual basic

Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
https://www.teknosa.com/tecno-megabook-s14-intel-core-ultra-5-125h-16gb-ram-512gb-ssd-windows-11-home-14-space-grey-p-100000061559?shopId=teknosa&adp_cid=102dc8cbcfe16a62f0f22280b3ffae&adp_oid=5&utm_source=social_affiliate&amp https://www.teknosa.com/tecno-megabook-s14-intel-core-ultra-5-125h-16gb-ram-512gb-ssd-windows-11-home-14-space-grey-p-100000061559?shopId=teknosa&adp_cid=102dc8cbcfe16a62f0f22280b3ffae&adp_oid=5&utm_source=social_affiliate&utm_medium=paylaskazan&utm_campaign=0c2cb3c3-7cb6-45e7-956e-048f14cdb0ad&utm_content=102dc8cbcfe16a62f0f22280b3ffae&utm_term=102dc8cbcfe16a62f0f22280b3ffae&adj_t=ssr0s2n&adj_campaign=paylaskazan_6792&adj_adgroup=Winfluenced&adj_creative=0c2cb3c3-7cb6-45e7-956e-048f14cdb0ad_1016&tracker_limit=250000 8 sa. önce paylaşıldı
Daha fazla göster butonu
Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
3
Cevap
0
Favori
1.138
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
Konuya Özel
Öne Çıkar
0 oy
Cevapla
Sayfa: 1
Giriş
Mesaj
  • herkeze meraba, ardaşlar ft232R entegresi ile usbden veri almaya çalışıyorum arayüz programını visual basicte yazdım mscomm komutu ile veri gönderğimde sorun yok veri alabiliyorum fakat ft_write komutunu kullandığımda entegrenin üzerindeki tx ışığı yanıyor çıkışdan veri gönderiyor fakat aynı pic programında veriyi alamıyor iki yöntemdede aynı ayarları kullanıyorum.

    mscomm için :

    MSComm1.CommPort = 4
    MSComm1.Settings = "115200,n,8,1"
    MSComm1.PortOpen = True

    ft_write için :

    baunrate'i ayarlamak için:

    If FT_SetBaudRate(lngHandle, 115200) = FT_OK Then
    LoggerList.AddItem "Set Baud Rate OK"
    Else
    LoggerList.AddItem "Set Baud Rate Failed"
    End If

    port ayarlarını yapmak için:

    If FT_SetDataCharacteristics(lngHandle, 8, 1, 0) = FT_OK Then
    LoggerList.AddItem "Set Data Characteristics OK"
    Else
    LoggerList.AddItem "Set Data Characteristics Failed"
    End If

    sizce bu iki ayar arasında bi fark varmı işin içinden çıkamadım.

    bir diğer sorun ise veri gönderirken for next döngüsü kullanıyorum, gonder(255) şeklinde bir diziyi gönderiyorum fakat bu işlemi yaparken program çok kasıyor ve olması gerektiğinden daha uzun bir sürede gönderiyor bunun daha pratik yolu varmıdır.

    yardımlarınız için şimdiden teşekkürler.



    _____________________________
    RGB led sürücüleri

    power led sürücüleri

    şifreli kapı kilitleri

    AR-GE çalışmaları
  • çip için gerekli driverları yükleyin
    http://www.ftdichip.com/FTDrivers.htm
    ve
    http://www.ftdichip.com/Projects/CodeExamples/VB.htm
    adresindeki VB kod örneklerine bakın.

    mscomm ilede çipe ulşmaya çalışmayın...
    _____________________________
    Nous faisons confiance dans Dieu
    electronics engineer
    https://donanimveyazilim.wordpress.com




  • sitedeki visual basic kodlarını inceledim nerdeyse bütün komutlar war fakat FT_WRITE komutunun kullanımını vermemişler, modelsdeki tanımlamalara göre FTwrite komutuyla gönderiyorum çıkıştan sinyal alıyorum kakat isteğim gibi değil 1 byte göndermeme rağmen çıkıştan 1 den fazla byte gönderiyor çıkış sinyali resimdeki gibi:

    ft232R ve visual basic



    vede for next döngüsüyle arka arkaya kod gönderdiğimde iki kod arasında bekleme olduğu görülüyor yani bir byte'ı 1ms'de gönderiyor. alttaki resimdede arka arkaya gönderilen kodlar var.

    ft232R ve visual basic


    acaba port ayarlarıyla ilgili bi hatamı yapıyorum. normalde mscomm ile bir byte gönderdiğimde 1 start biti 8 data biti ve 1 stop biti gönderiyor fakat FT_write ile gönderdiğimde çok daha fazla kod gönderiyor, sizce ben nerde yanlış yapıyorum yardımlarınız için şimdiden teşekkürler

    VB kodları aşağıdaki gibi:

    ftstatus = FT_Open(0, lngHandle)
    If ftstatus <> FT_OK Then
    LoggerList.AddItem "Open Failed status=" & ftstatus
    Exit Sub
    Else
    LoggerList.AddItem "Open OK"
    End If


    If FT_SetBaudRate(lngHandle, 250000) = FT_OK Then
    LoggerList.AddItem "Set Baud Rate OK"
    Else
    LoggerList.AddItem "Set Baud Rate Failed"
    End If



    If FT_SetDataCharacteristics(lngHandle, 8, 1, 0) = FT_OK Then
    LoggerList.AddItem "Set Data Characteristics OK"
    Else
    LoggerList.AddItem "Set Data Characteristics Failed"
    End If

    For a = 1 To 1024

    If FT_Write(lngHandle, gonder(a), 8, bytesend) = FT_OK Then
    LoggerList.AddItem "FT_write OK"
    Else
    LoggerList.AddItem "FT_write Failed"
    End If

    Next


    If FT_Close(lngHandle) <> FT_OK Then
    LoggerList.AddItem "Close Failed"
    Exit Sub
    Else
    LoggerList.AddItem "Closed OK"
    End If
    _____________________________
    RGB led sürücüleri

    power led sürücüleri

    şifreli kapı kilitleri

    AR-GE çalışmaları




    • Yapay Zeka’dan İlgili Konular
    Windows 11 Pro - Windows 10 Pro - Duolingo Plus - OFFİCE 365 - Canva Pro - Grammarly - Lisanslar
    3 yıl önce açıldı
    Inca IMG-339 ve IMG-355GX mouse larım için Rust tabanlı Linux yazılımı geliştirdim
    2 hafta önce açıldı
    Adobe Creative Cloud TAM Lisans – Photoshop, Premiere, After Effects
    geçen yıl açıldı
    Daha Fazla Göster
    
Sayfa: 1

Benzer içerikler

- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.
Hizmet kalitesi için çerezleri kullanabiliriz, DH'yi kullanırken depoladığımız çerezlerle ilgili veri politikamıza gözatın.
Kabul Ediyorum