07 31 Ocak - 2 Şubat 2007 Kütahya - Akademik Bilişim Konferansları

Akademik Bilişim’07 - IX. Akademik Bilişim Konferansı Bildirileri31 Ocak - 2 Şubat 2007 Dumlupınar Üniversitesi, Kütahyakütüphanedeki XmlTextReader, XmlDocument,XmlNodeList sınıfları kullanılır. US Dolaralış ve satışa ait XML bağlantılarını sağlayankod parçası aşağıda verilmiştir. SelectNodesifadeleri başka döviz kurları için de benzerbir şekilde oluşturulmuştur.Dim adresOku As NewXmlTextReader(“http://www.tcmb.gov.tr/kurlar/today.xml”)Dim MyXml As New XmlDocumentMyXml.Load(adresOku)Dim MyNode As System.Xml.XmlNodeListMyNode = MyXml.SelectNodes(“/Tarih_Date/Currency[@Kod =’USD’]/ForexBuying”)lblUsdBuy.Text = MyNode.Item(0).InnerXml.ToString()MyNode = MyXml.SelectNodes(“/Tarih_Date/Currency[@Kod =’USD’]/ForexSelling”)lblUsdSel.Text = MyNode.Item(0).InnerXml.ToString()2.1.3. Mikrodenetleyiciye veri gönderme:Aşağıda veri göndermede kullanılan foksiyonverilmiştir. Burada gönderilecek ifade (metin)uzunluğu hesaplanır ve Mid fonksiyonu ile ifadekarakter karakter bölünerek gönderilir. Herkarakter arasında belli bir zaman gecikmesisağlanmalıdır. Aksi takdirde LCD’de çok farklıkarakterler görünmektedir. For Next döngülerikarakterlerin gönderimi arasında zaman gecikmesisağlar. Son karakter olarak “%”gönderilir.Bu karakterden sonra mikrodenetleyici veri almayısonlandırır.Public Function gonder(ByVal e AsString)a = Len(e)‘metnin uzunluğuFor b = 1 To 2500000‘zaman gecikmesi sağlamakNextFor i = 1 To aFor b = 1 To 2500000‘zaman gecikmesi sağlamakNextrs232.Write(Mid(e, i,1)) ‘metni harflere böl vegönderNextFor b = 1 To 2500000‘zaman gecikmesi sağlamakNextrs232.Write(“%”)‘ “%” karakteri gönderEnd Function2.2.Donanım: PIC 16F84Mikrodenetleyici DevresiMikrodenetleyici devresinde (Şekil 2)PIC16F84, max232, 7805 , 4*4 LCD, RS232 9pin konnektor kullanılmıştır. Mikrodenetleyicininverileri seri porttan alması ve devre üzerindekiLCD ekranda göstermesi için gerekliyazılım picbasic pro da gerçekleştirilmiştir.Şekil 2. Mikrodenetleyici devre şeması2.3. Program Arayüzü2.3.1. Seri port ayarlarıPort numarası, gecikme, band genişliği ve İnternettenkur alım biçimi ile ilgili ayarların yapıldığıseri port ayarları Şekil 3 te gösterilmiştir.Burada;Port Test : PC ile mikrodenetleyici devresiarasında iletişimin sağlanıp sağlanmadığınıkontrol edilir.823