Kankamın Yeni makalesi

İnternette gördüğüm üzere birçok kişi Doviz bilgilerini C#’da nasıl alabileceğini sorgulamış. Bunlara bende dahil tabiki ama ben TCMB.gov.tr ‘nin XML’ini işleyerek bu bilgiye ulaşmıştım. Aşağıda vereceğim yöntem ise çok daha basit bir yöntem. Bu yöntem ile Doviz bilgilerini çok kolay bir şekilde alabilirsiniz.

Tabiki bu Doviz alma işlemi sadece C#’dan ibaret değil. Desktop programınıza bunu aktarabileceğiniz gibi Asp.net’de de vereceğim dosyayı kullandığınız takdirde doviz bilgilerini rahatlıkla WebFormlarınıza alabilirsiniz.

Peki Nasıl Yapacağız ?

İlk olarak burada bulunan Doviz.rar dosyasını indirin,zipten çıkarın ve çıkan Doviz.cs dosyasını projenizin ana dizinine atın ya da Projenize sağ tuş ile tıklayın Add > Existing Item komutunu vererek indirdiğiniz dosyayı seçin. Ayrıca Asp.net içinde App_Code klasörü içerisine bu dosyayı atarak kullanabilirsiniz.Konumuz C# geri dönüyorum.

Daha sonra References üzerine sağ tuş ile tıklayın ve Add Reference yapın. “.Net” sekmesindeki “System.Web.Services”‘i seçin.

Kullanabileceğimiz şeyleri şimdi ayarlamış olduk. Yapacağımız tek işlemse artık kurlarımızı çekecek kodu yazmak bu ise çok basit.

Projenize 2 tane Label , 1 Buton koyun. Ben labellerin isimlerinin lblUSDBuy ve lblUSDSell olduğunu varsayıyorum. Butonun Click olayına aynen aşağıdaki gibi yazıyoruz.

lblUSDBuy ve lblUSDSell labellerine USD alış ve satış değerlerinin geldiğini göreceksiniz.

Diğer döviz kurları için yapmanız gereken tek şey Currency.DovizIslemleri.KurKodu ‘dan sonra “.” koyup kurunuzun ismini seçmek. Misal Euro

Currency.DovizIslemleri.KurKodu.EUR.ToString()

için bunu kullanabilirsiniz.

Ayrıca bilmeniz gereken, Doviz Alış ve Satış durumu Currency.DovizIslemleri.Tur ile belirleniyor. Bunun alabileceği 4 değer bulunuyor. Bunlar ;

ForexBuying, //Döviz alış
ForexSelling, //Döviz satış
BanknoteBuying, //Efektif alış
BanknoteSelling, //Efektif satış

Değerleridir. Sizde kendinize uygun olanı seçip alış-satış bilgilerini çekebilirsiniz. Ben olayı biraz daha genişleterek Tüm kurları alabilecek bir program yaptım. Bu programıda inceleyerek daha detaylı bilgiye sahip olabilirsiniz.

Programın Ekran Görüntüsü :

Programın dosyalarını buradan indirebilirsiniz.

Selametle…

Kaynak

Bu Yazıyı Paylaşın

Makale Serisi: Access’den Word’a Aktarma Yapmak

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_______________________________

Bir veri tabanından alınan verileri word’a aktarma işlemini yapacağız. Formumuza bir adet text kutusu, bir adet de komut butonu ekleyelim. Daha sonra text kutusunun özelliklerinden data bindings bölümündeki advanced seçeneğine tıklayalım. Açılan pencerede binding bölümünden Add Project Data Source seçeneğine tıklayalım.

Gelen pencerede Database seçeneğini seçip next düğmesine basalım.

New Connection düğmesini tıklayalım.

Gelen pencerede Microsoft Access Database seçeneğini seçip Continue düğmesine basalım.

Gelen pencereden veritabanımızı seçelim ve OK butonuna basalım.

Karşımıza ana pencere veri tabanımızın türü, ismi ve yolu yazılı olarak gelecektir. Burada next düğmesine tıklayalım.

Karşımıza veri tabanının projede local olarak yer almasını isteyip istemediğimizi soran bir pencere gelecektir. Bu soruya evet diyelim.

Karşımıza oluşturduğumuz connection string’i kaydetmek isteyip istemediğimizi soran bir pencere gelir.

Gerekli ismi verip Next düğmesine tıkladığımızda karşımıza dataset içerisinde hangi tablo ve alanların kullanılacağının seçildiği bir pencere gelir. Burada kullanmak istediğimiz tablo ve alanları seçerek finish düğmesine basarak veri tabanı bağlama işlemini bitirmiş oluruz.

Formumuzu açıp bir adet komut butonu ekleyelim. İlgili alanı formumuza eklemek için Data menüsünden Show Data Sources ile projemize eklediğimiz veri tabanındaki alanların görüntülendiği Data Sources penceresini görüntüleriz.

Buradan soru alanını fare ile formumuza sürükleyip bıraktığımızda bir label ve text kutusu otomatik olarak oluşturularak gerekli veri bağlantıları kurulacaktır. DataSource penceresinde ki her nesneyi, sağlanan seçenekleri kullanarak sürükle bırak yöntemi ile forma taşıyabilirsiniz.

Şimdi kod yazımına geçebiliriz.

Öncelikle,”System.Data.OleDB” ad uzayını programımıza dahil etmemiz gerekmektedir bunun için kod editörümüzün en üst satırına(ilk satır) aşağıdaki kod satırını yazalım;

Imports System.Data.OleDb

Daha sonra butonumuzun Click olayına aşağıdaki kod ile “OleDbConnection” nesnesi oluşturalım;

Dim sorgulama As String = “SELECT DISTINCT soru FROM sorubank”

Dim baglantim As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=D:\vba\vbdotnet\mdb2word\sorubank.mdb;”)

Bu işlemden sonra,”OleDbConnection” nesnesini kullanarak “yeninesne” isminde bir “OleDbCommand” oluşturalım ve ikinci satırda veritabanı bağlantımızı aktif hale getirelim;

Dim yeninesne As New OleDbCommand(sorgulama, baglantim)

baglantim.Open()

Şimdi,”verioku” isimli bir “OleDataReader” tanımlayalım bir sonraki satırda “OleDbCommand” nesnesinin “ExecuteReader” metodunu kullanarak tablo yapısını oluşturalım.

Dim verioku As OleDbDataReader

verioku = yeninesne.ExecuteReader()

Son olarak “OleDbDataReader” nesnesinin “Read” metodunu kullanarak veritabanımızın önceden belirtmiş olduğumuz tablosundaki veriyi alalım ve yine “OleDbDataReader” nesnesinin “GetString” metodunu kullanarak metin kutusu içerisine yerleştirelim ve veritabanı baglantımızı pasif hale getirerek işlemimizi sonlandıralım.

While verioku.Read()

TextBox1.Text = TextBox1.Text & verioku.GetString(0) _

& ControlChars.CrLf

End While

verioku.close()

baglantim.close()

Sonuç olarak kodumuz şu şekilde olacak:

Imports System.Data.OleDb

Public Class Form1

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

Dim j As Byte

Dim sorgulama As String = “SELECT DISTINCT soru FROM sorubank”

Dim baglantim As New OleDbConnection(“Provider=Microsoft.Jet.OLEDB.4.0;” & “Data Source=D:\vba\vbdotnet\mdb2word\sorubank.mdb;”)

Dim yeninesne As New OleDbCommand(sorgulama, baglantim)

baglantim.Open()

Dim verioku As OleDbDataReader

verioku = yeninesne.ExecuteReader()

j = 0

While verioku.Read()

j = j + 1

SoruTextBox.Text = SoruTextBox.Text & “S-” & j & “)” & verioku.GetString(0) & ControlChars.CrLf

End While

verioku.Close()

baglantim.Close()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim objWord As Object

Dim objDocument As Object

Dim yol As String

objWord = CreateObject(“Word.Application”)

objDocument = objWord.Documents.Add

objWord.Visible = True

objDocument.Range.InsertBefore(SoruTextBox.Text)

yol = Application.LocalUserAppDataPath

objDocument.SaveAs(yol & “\sorular” & “.doc”)

ChDir(yol)

objDocument.Close()

objWord.Quit()

objDocument = Nothing

objWord = Nothing

MsgBox(“Sorular WORD’a aktarıldı!”)

End Sub

End Class

Bu Yazıyı Paylaşın

Makale Serisi: Girilen değerin sayısal olup olmadığı kontrol etmek

Vb.NET de yapılacak olan bu örneği Selçuk ERMAYA hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_________________________

Bazı komutlar basit ama çok yararlı hale gelebiliyorlar. Aklıma gelmişken geçenin bi yarısı sizde bilgilenin istedim. Diyelim ki bir yazının integer olup olmadığını yani sayısal mı değil mi kontrol ettirmek istiyorsunuz. Bu örnek için hemen formunuza 1 adet Textbox ve Button ekleyin. Textbox ın ismini txtDeger yapıp Button 1 in click olayına aşağıdaki kodu yazmanız yeterli.

int result;
if (int.TryParse(txtDeger.Text, out result))
{
MessageBox.Show(“Girdiğiniz Sayı İnteger : “ + result.ToString());
}
else
{
MessageBox.Show(“Girdiğiniz Sayı İnteger Değil !!!”);
}
Projeyi çalıştırdığınızda textbox’a girdiğiniz değerin sayısal olup olmadığını görebilirsiniz.

Bu Yazıyı Paylaşın

Makale Serisi: Ofis Yardımcısını Kullanma

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_________________________

Örneğimizde programlarımızda msagent nesnesi ile ofis yardımcılarını kullanacağız. Bir Windows Application açıp ToolBox’ta sağ tıklayıp Choose Items seçeneğini tıklayalım. COM komponentlerinden Microsoft Agent Control komponentini ekleyelim.

1.Şekil: Microsoft Agent Control komponentinin eklenmesi

Biz örneğimizde genie isimli ofis yardımcısını kullandık bu ve daha fazla ofis yardımcısını http://www.microsoft.com/msagent/downloads/user.asp#character adresinden seçerek indirebilirsiniz.

Daha sonra form üzerine bir text kutusu bir tane de komut butonu ekleyelim.

2.Şekil: Tasarım formu

ToolBox’ımıza Microsoft Agent Control komponenti eklenecektir. Sürükleyip formumuzun üzerine bırakalım. Yukarıdaki şekilde görülen şapkalı adam resmi Agent kontrolümüzdür.

Daha sonra kodumuzu aşağıdaki gibi yazalım;

Public Class Form1

Dim Genie As AgentObjects.IAgentCtlCharacter

Const DATAPATH = “genie.acs”

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Genie.Show()

Genie.Speak(TextBox1.Text)

Genie.Hide()

End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

AxAgent1.Characters.Load(“Genie”, DATAPATH)

Genie = AxAgent1.Characters(“Genie”)

Genie.LanguageID = &H409

TextBox1.Text = “Hello World!”

End Sub

End Class

Bu ve diğer karakterlerle ilgili kullanabileceğiniz diğer animasyon ve işlemler için

http://download.microsoft.com/download/2/1/8/2183fc41-9313-4624-9e9e-25d26d0f7e19/docs.zip linkindeki yardım dosyasını kullanabilirsiniz.

Kaynak:MSDN

Bu Yazıyı Paylaşın

Makale Serisi: Excel Hücresine Değer Yazdırma

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

____________________________

Form üzerine bir adet komut butonu ekleyelim. Kod olarak da şunları yazalım:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xl

xl = CreateObject(“Excel.Application”) ‘Excel nesnesi oluşturuyoruz

xl.Workbooks.add() ‘Yeni bir çalışma kitabı ekliyoruz

xl.application.visible = True ‘Excel sayfasını görüntülüyoruz

xl.worksheets(1).Activate() ‘1 nolu çalışma sayfasını aktif ediyoruz

xl.cells(1, 1).value = “Deneme” ‘A1 hücresine değerimizi yazıyoruz

End Sub

End Class

Programımızı çalıştırdığımızda A1 hücresine Deneme yazıldığını görürüz.

xl.cells(1, 1) ifadesinde ilk değer satırı, ikinci değer ise sütunu belirtmektedir.

Bu Yazıyı Paylaşın

Makale Serisi: Excel Hücresine Değer Aktarma ve Biçimlendirme

Vb.NET de yapılacak olan bu örneği Volkan AKTAŞ hocam Hazırladı.

Makalenin Orjinalini ve daha Fazlasını GCN.NET Adresinden Ulaşabilirsiniz..

_______________________

Form üzerine bir adet komut butonu ekliyoruz ve kod olarak da şu satırları ekliyoruz:

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim xl

‘Excell nesnesi oluşturuyoruz

xl = CreateObject(“Excel.Application”)

‘Yeni bir çalışma kitabı ekliyoruz

xl.Workbooks.add()

‘Excel sayfasını görüntülüyoruz

xl.application.visible = True

‘1 nolu çalışma sayfasını aktif ediyoruz

xl.worksheets(1).Activate()

‘A1 hücresine değerimizi yazıyoruz

xl.cells(1, 1).value = “Deneme1″

‘A1 hücresindeki yazının yazı tipini Verdana olarak değiştirdik

xl.cells(1, 1).Font.Name = “Verdana”

‘A1 hücresindeki yazının yazı boyutunu 8 olarak değiştiiyoruz

xl.cells(1, 1).Font.Size = 8

‘A1 hücresindeki yazının yazı rengini yeşil olarak değiştiriyoruz

xl.cells(1, 1).Font.color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Green)

‘B1 hücresine değerimizi yazıyoruz

xl.cells(1, 2).value = “Deneme2″

‘C1 hücresine değerimizi yazıyoruz

xl.cells(1, 3).value = “Deneme3″

‘B1 hücresindeki yazıyı kalın yaptık

xl.cells(1, 2).font.bold = True

‘B1 hücresinin zemin rengini kırmızı yaptık

xl.cells(1, 2).Interior.ColorIndex = 3

‘C1 hücresinin zemin rengini mavi yaptık

xl.cells(1, 3).Interior.Color = RGB(0, 0, 255)

End Sub

End Class

Örneğimizde xl.cells(1, 1).Font.color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Green)

Satırı ile hücre içerisine yazılan yazının rengini değiştirebiliriz.

xl.cells(1, 2).Interior.ColorIndex = 3 satırında geçen Interior.ColorIndex ifadesi ile ise hücrenin zemin rengini değiştiriyoruz. Bunu ister o renge karşılık gelen rakam ile istersek RGB değerleri ile yapabiliriz.

Rakam ile xl.cells(1, 2).Interior.ColorIndex = 3 şeklinde yaparken RGB değerleri ile xl.cells(1, 3).Interior.Color = RGB(0, 0, 255) şeklinde yapabiliriz.

Bu Yazıyı Paylaşın

Burada açıkça görebileceğiniz gibi bilgisayar programları patent tescili ile korunamaz. Neden dersek; bilgisayar programları fikir eseri olarak kabul ediliyor. Herkesin sorduğu gibi bi daha soralım:

Yazılım Patenti var mı??
Yok!

Soruyu değiştirelim:

Yazılımları üretenlerin bu üretimden doğan hakları korunabilir mi?
Evet!

Buraya(2. madde) bakarsanız fikir eseri olarak kabul edilen bilgisayar programlarının koruma altına (7. madde) alınabileceğini görebilirsiniz (hem de 70 yıl). Burası anasayfa, Burada da formlar var.

Aslında yazılımlarınız için bir tescil belgesine ihtiyaç var mı derseniz yok derim; gerekli olan sadece o yazılımı sizin ilk defa ortaya çıkardığınızı kanıtlayabilmeniz. Bunu da çeşitli şekillerde yapabilirsiniz:

• Kendi kendine iadeli taahhütlü mektup yollamak bi yoldur mesela
• Ya da burada sanal ortamda zaman mühürlemesi yapıyorlar
• Ya da en yeni hali ile yukarıda linklerini verdiğim kültür bakanlığının yaptığı kayıt ve tescil yöntemini uygularsınız.

Bir de BİL KOD diye bişey söyleniyor. BİL KOD’un yazılım korumasıyla ilgisi yok diyerek duruyorum.

Kaynak

Bu Yazıyı Paylaşın