Favorilerine Ekle | Giriş Sayfan Yap | Tavsiye Et

 

Kurs Tanıtım Sayfası | Süper Üye Kimdir? | Menü Tasarımı Konulu Örnek Ders
Kod İndir| Hazır Kodlar | Makaleler| İpuçları | VB .NET Kursu | Dersler | Forum | Alt Bölümler | Servisler
    Merhaba Misafir
    anasayfa » visual basic makaleleri » GPIB kontrolünü sağlamak
Üye Girişi
Kullanıcı Adı:  
Şifre : 
Kaydet ?
Siteden tam olarak faydalanabilmek için üye olmalısınız.
Unuttuğunuz şifrenizi öğrenebilmek için kayıt sırasında verdiğiniz Hatırlatma Cevabı'nı bilmeniz gereklidir.
Şifre hatırlatma işlevini sadece 3 defa kullanma hakkınız vardır.
Kullanıcı adını ve şifresini unutan üyelere email ile yardım verilmez.

Aktivasyon Gelmedi mi?Aktivasyon mesajınız email adresinize gelmedi mi?
Buraya tıklayarak bir kez daha aktivasyon mesajı gönderilmesini sağlayabilirsiniz.
Lütfen email hesabınızın BULK ve SPAM klasörlerini de kontrol ediniz.
Rastgele Makale

command butoun ilk tıklayışta farklı ikinci tıklayışta farklı iş yapması

Yazar: seko

Webmasterlar
Sitenize Ekleyin!
Sitenizde "Son Eklenen 10 Visual Basic Yazısı"'nı göstermek ve içeriğini zenginleştirmek için buraya tıklayınız.

Vbasicmaster.com'a link verin!
Aşağıdaki minik banneri sitenize eklemek için tıklayın!

Üye Sayısı:
Ziyaretçiler nerede?
Yayın № : 9448
Yayın Tar:21.10.2007
Yazar : huseyinkara028
Hit :2170

Bu Yazarın Yazıları Sadece bu yazarın makale göster
Bu Yazıyı Tavsiye Et

Bilimsel çalışmalarda kullanılan cihazların bazı durumlarda kombine bir biçimde çalışması ve alınan verilerin işlenebilmesi için bu tarz cihazları bilgisayara GPIB kartı gibi bileşenle ile mümkündür. Tabi ki veri gönderip, almak için bilgisayardan GPIB kartına verileri bir program sayesinde gerçekleştirilmektedir. Burada VB 6.0 ile bu kartın kontrolü ve gelen verilerin nasıl işlene bileceğini kısaca anlatacağım.
İlk olarak cihazımızın Gpib adresini ayarlayalım ve VB de bir form oluşturalım. Bu forma bir textbox ve buton koyalım. Daha sonra aşağıdaki kodu takip edelim…

Burada ilk olarak gpib kartının VB modüllerini yüklememiz gerekmektedir. (Sicl32, VBIB32)

Option Explicit

Dim Arb As VisaComLib.FormattedIO488
Dim m_ioAddress As String
Const IO_ADDRESS = "GPIB0::17" {benim cihazın adresi}

Daha sonra cihazımızı tanıtmaya çalışalım.

Private Sub Command1_Click()
Dim mgr As AgilentRMLib.SRMCls

On Error GoTo ioError

m_ioAddress = Text1.Text { burası cihazın adres bilgisini taşıtacak bende GPIB::17 olarakgeçiyor}

If Len(m_ioAddress) > 5 Then
Set mgr = New AgilentRMLib.SRMCls
Set Arb = New VisaComLib.FormattedIO488
Set Arb.IO = mgr.Open(m_ioAddress)
End If

Exit Sub

ioError:
MsgBox "Set IO error:" & vbCrLf & Err.Description
End Sub

NOT: Burada ben haberleşmeyi VISACOM kullanarak yapmaktayım. Bunu etkin hale getirebilmek için Project->References bölümüne GlobMgr.dll eklenilmelidir.

Şimdi de ufak bir komut göndermeye çalışalım. Öncelikle IEEE temelindeki sabit komutlardan bahsedecek olursak.
*CLS
*ESE
*ESR
*IDN
*OPC
*RST
*SRE
*STB
*TRG
*TST
*WAI
Şimdi cihazımızın resetleme işlemini bilgisayardın kontrolünü sağlayalım.
hazırlamış olduğumuz forma ikinci bir buton ekleyelim. Bu işlem için aşağıdaki kodu takip edelim…
Private Sub Command1_Click()
Dim i As Integer
Dim reply As String

Arb.IO.WriteString "*RST"
Arb.IO.WriteString "*CLS"
Arb.WriteString ":SYST:PRES" {benim cihazımda resetlemeden sonra çalışması gereken fonksiyon}

End Sub
Daha sonra cihazın kendi kullanma kılavuzu ile gelen data gönderip, almaya yarayan fonksiyonları kullanıp daha sonra bunları bir tabloda toparladıktan sonra gerekli matematiksel işlemleri yaptırdıktan sonra istenildiğinde bir grafik çizdirilmesi ve bu verilerin bir data base olarak kayıt yapılması. mümkündür.

Bu şekilde VB kullanarak cihazı kontrol etmeyi başardık. Burada değişik durumlar kullanılabilir. Mesela cihazı tanıtmak için *IDN özelliği kullanıla bilir, çünkü bu özellik cihazın adresini vermektedir.

Interface IFormattedIO488 metodları:
WriteString, WriteNumber, WriteList, WriteIEEEBlock, ReadString, ReadNumber, FlushWrite, FlushRead, SetBufferSize

Huseyinkara028@gmail.com




Bu sayfa için henüz yorum eklenmemiş.

© Hakan Ersöz 2000-2013| Üyelik Sözleşmesi | | Ödeme Bildirimi
Sitemizden yenilikleri hemen öğrenin, pop upları engelleyin, chat yapın... ToolBarımızı indirin:
Vasicmaster Toolbar'ı indirin