tabloları bağlayacağım, ama çok uzaktan

mehmetdemiral · 26 Ağustos 2007

Evet realpereste katılıyorum. Gerçekten de Vb de sorgu tasarımı accessteki gibi değil. Bir ara accesste sorguyu yazıp sql'ini getieip vb'e yapıştırmayı düşünmüştüm

)))

mehmetdemiral · 26 Ağustos 2007

alın size kod örnekleri.. Bakalım accesse benziyor mu?

VB.NET ile PDF Yaratma ve İşleme
---------------------------------------------------------------------------------------------------
VB.NET ile 3. Parti yazılımlar kullanarak PDF yaratma, işleme ve çeşitli özelliklerle PDF dosyaları üzerinde yapılan işlemleri örnek kodlar eşliğinde anlatmaya çalışıyoruz.
---------------------------------------------------------------------------------------------------

Makalemde, sizlere VB.NET ile PDF yaratma ve PDF işleme ile ilgili bilgiler sunacağım. Projemize 3. Parti bir DLL ekleme zorunluluğumuz var bu dll’i http://www.tallcomponents.com/default.aspx?id=tallpdf3-download adresinden de çekebilirsiniz. Piyasada sınırsız bu işi yapan DLL ler varken bu firmanın dll’ini seçmemdeki amaç tamamen sınırsız kullanıma açık olmasıdır. Belli bir zaman kısıtlaması olmamasına rağmen deneme sürümü olduğunu uygulamamızda belirtiyor.

Buna ek olarak tamamen ücretsiz zLib’i de önerebilirim bu dll ise tamamen ücretsiz TallComponents’e göre doküman eksikliği biraz var ama source’ları açık olduğu için istediğiniz atraksiyonu yapabilirsiniz. zLib içinde

http://www.componentace.com/zlib_.NET.htm adresini kullanabilirsiniz. Bu makalemde zLib örneklerine değinmeyeceğim.

Projemize referans olarak:

TallComponents.PDF.Layout.DLL dosyasını eklemeniz gerekli.

Ardından çeşitli atraksiyonları PDF üzerinde gerçekleştirebiliriz.

Bir PDF dosyası yaratmak için aşağıdaki kodu kullanabilirsiniz:

Imports System
Imports System.IO
Imports TallComponents.PDF.Layout
Imports TallComponents.PDF.Layout.Paragraphs
Namespace TallComponents.Samples.TallPDF

Public Class HelloWorld

Shared Sub Main()
' Using
Dim file As FileStream = New FileStream("..\..\HelloWorld.pdf", FileMode.Create, FileAccess.Write)
Try
Dim document As Document = New Document
Dim section As Section = document.Sections.Add
Dim textParagraph As TextParagraph = New TextParagraph
section.Paragraphs.Add(textParagraph)
Dim fragment As Fragment = New Fragment
fragment.Text = "Hello world!"
textParagraph.Fragments.Add(fragment)
document.Write(file)
Finally
CType(file, IDisposable).Dispose()
End Try
End Sub
End Class
End Namespace

Hazır bulunan bir text dosyası veya text üzerinde biçimsel işlemler yaparak PDF olarak kaydetmek çok basit metodlarla mümkün kodun açıklaması kodun içinde yapılmıştır.

Imports System
Imports System.IO
Imports TallComponents.PDF.Layout
Imports TallComponents.PDF.Layout.Paragraphs
Namespace TallComponents.Samples.TallPDF

Public Class TextFormatting
Const text As String = "With TallPDF.NET you can create PDF documents " + "by building an instance of the TallPDF.NET Document " + "Object Model. The TallComponents team has produced " + "a DOM that is extremely intuitive and yet powerful. " + "This allows you to create both simple and complex " + "documents fast."

Shared Sub Main()
' Using
Dim file As FileStream = New FileStream("..\..\TextFormatting.pdf", FileMode.Create, FileAccess.Write)
Try
Dim document As Document = New Document
Dim section As Section = document.Sections.Add
section.PageSize = PageSize.A4
Dim textParagraph As TextParagraph
section.Paragraphs.Add(CreateTextParagraph("TextParagraph with default properties:"))
section.Paragraphs.Add(CreateTextParagraph(text, System.Drawing.Color.Blue))
section.Paragraphs.Add(CreateTextParagraph("textParagraph.HorizontalAlignment = HorizontalAlignment.Right"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.HorizontalAlignment = HorizontalAlignment.Right
section.Paragraphs.Add(textParagraph)
section.Paragraphs.Add(CreateTextParagraph("textParagraph.HorizontalAlignment = HorizontalAlignment.Center"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.HorizontalAlignment = HorizontalAlignment.Center
section.Paragraphs.Add(textParagraph)
section.Paragraphs.Add(CreateTextParagraph("textParagraph.Justified = true"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.Justified = True
section.Paragraphs.Add(textParagraph)
section.Paragraphs.Add(CreateTextParagraph("textParagraph.LineSpacing = 5"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.LineSpacing = 5
section.Paragraphs.Add(textParagraph)
section.Paragraphs.Add(CreateTextParagraph("textParagraph.FirstLineIndentation = 20"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.FirstLineIndentation = 20
section.Paragraphs.Add(textParagraph)
section.Paragraphs.Add(CreateTextParagraph("textParagraph.HangIndentation = 20"))
textParagraph = CreateTextParagraph(text, System.Drawing.Color.Blue)
textParagraph.HangIndentation = 20
section.Paragraphs.Add(textParagraph)
document.Write(file)
Finally
CType(file, IDisposable).Dispose()
End Try
End Sub

Private Shared Function CreateTextParagraph(ByVal text As String) As TextParagraph
Return CreateTextParagraph(text, System.Drawing.Color.Black)
End Function

Private Shared Function CreateTextParagraph(ByVal text As String, ByVal textcolor As System.Drawing.Color) As TextParagraph
Dim paragraph As TextParagraph = New TextParagraph
Dim textFragment As Fragment = New Fragment(text)
textFragment.TextColor = textcolor
paragraph.Fragments.Add(textFragment)
paragraph.SpacingAfter = 10
Return paragraph
End Function
End Class
End Namespace

Aynı zamanda XML dosyalarınıda PDF formatına çevirebiliyoruz.
Örnek XML:
'<'document author="Volkan"'>'
'<'section pagesize="Letter"'>'
'<'!-- İçerik... --'>'
'<'/section'>'
'<'/document'>'

XML dosyamızı PDF çeviren kod bloğu,

Dim xml As XmlDocument = New XmlDocument
xml.Load("topdf.xml")
Dim document As Document = New Document
document.Read(xml.DocumentElement)
Dim file As FileStream = New FileStream("out.pdf", FileMode.Create)
document.Write(file)

Burada sayamayacağımız kadar çeşitli örneklerle kütüphane kullanımımızı ve yapacaklarımızı genişletebiliriz. Makalemin başında verdiğim linkten çektiğiniz zLib ile ilgili bir örnek yapmanın önemliliğini vurgulamak isterim her componenet değişik arayüzlerle gelmekte. Yine zLib’i referans olarak eklememiz gerekiyor.

Volkan Atasever
volkan.atasever@msakademik.net

mehmetdemiral · 26 Ağustos 2007

Bir tane daha....

Print
WMI ile Bilgisayarın Bilgilerini Toplama 12.03.2006 16:38:00

Kategori : Visual Basic .NET

Özet :
WMI (Windows Management Instrumentation) ile bilgisayarımıza bağlı tüm donanım hakkında bilgi toplayabiliriz. Öncelikle bunu neden ve sonra da nasıl kullanacağımızı göreceğiz .

Bilgisayar hakkında topladığımız bilgileri programlarımızı kullanıcı bilgisayarına kurarken kullanabiliriz. Diyelim ki programımızın sağlıklı çalışabilmesi için belirlediğimiz bir minimum konfigürasyona ihtiyaç var ve kullanıcı makinesinde bu ihtiyaca cevap verecek donanım var mı bilmemiz gerek. Ya da programımıza şifre koyacağız ve bunu genellikle hdd seri numarasından yaparız. Bunlar gibi pek çok şeyi rahatlıkla yapabileceğimiz kısaca bilgisayarımızın donanımı hakkındaki tüm bilgileri toplayabileceğimiz bir yöntem. Şimdi de nasıl yapacağımız kısmına yani kodlamaya ve icraata geçelim.

WMI kullanabilmek için önce kütüphanemizden ilgili namespace eklemesini yapalım referanslardan eklemezsek bu namespace gelmiyor önce referanslardan ekleyiniz..

Imports System.Management

Daha sonra kodlamada kolaylık olması açısından kodumuzu bir sınıf içine yazıyoruz ve sınıfımızın içine geriye istediğimiz değerleri döndüren fonksiyonlarımızı yazıyoruz. Böylece ana formumuzun kodunu da kalabalıktan kurtarıyor ve OOP (Object Oriented Programming) yasamıza da sadık kalıyoruz.

Aşağıdaki foksiyon bize string olarak cpu adını verecektir. Dikkat ederseniz burada bir döngü var o da birden fazla işlemcili makineler de olabileceği içindir ve aynı şey pek çok parçada mümkün. Mesela ekran kartı, hdd .

Aslında yaptığımız işlemler tüm fonksiyonlarda hemen hemen aynı. Öncelikle managementClass dan bilgisini alacağımız cihazın sınıfını yaratıyoruz. Sonra bu parçaların (birden fazla ise) tutulduğu koleksiyonu yaratıyoruz. Son olarak da bu koleksiyon içindeki tüm parçalar için bir döngü yaratıp o parçanın bize lazım olan bilgisini alıyoruz. Mesela ilk fonksiyonda ben CPU adını almışım. “Intel P4 3.0 .. ” gibi.

Public Function Cpu() As String

Dim isim As String

Dim CpuSinif As New ManagementClass("Win32_Processor")

Dim CpuKoleksiyon As ManagementObjectCollection = CpuSinif.GetInstances

Dim CpuNesne As ManagementObject

For Each CpuNesne In CpuKoleksiyon

isim = CStr(CpuNesne("Name"))

Next CpuNesne

Return isim

End Function

Aşağıdaki fonksiyon bize yine string olarak Ram boyutunu MB cinsinden döndürür.

Public Function Ram() As String

Dim toplamRam As Integer = 0

Dim RamSinif As New ManagementClass("Win32_PhysicalMemory")

Dim RamKoleksiyon As ManagementObjectCollection = RamSinif.GetInstances

Dim RamNesne As ManagementObject

For Each RamNesne In RamKoleksiyon

toplamRam += CType(CType(RamNesne("Capacity"), UInt64).ToString, Integer)

Next

Return CStr((toplamRam / 1024) / 1024)

End Function

Bu fonsiyonda ise bilgisayarımıza takılı olan hdd lerin partitionlarını ve boyutlarını GB olarak bir hashtablosu halinde döndüreceğiz. Dönecek sonuç :

“c,40,15 “ , Anlamı Partition adı c, alanı 40Gb ve boş alan 15Gb . Burada mediaType değerini de inceliyoruz. Bunun nedeni logicalDisk alırken koleksiyonumuza o anda takılı usb bellek tipi diskler varsa onların da fonksiyondan değer olarak döndürülmesini engellemek. Burada şart değişkenimizin değerinin “Fixed hard disk media” olması, o zamna hdd partition olduğunu anlıyoruz.

Public Function DiskBoyutlari() As Hashtable

Dim hddHashTablo As New Hashtable

Dim diskClass As New System.Management.ManagementClass("Win32_LogicalDisk")

Dim disks As System.Management.ManagementObjectCollection = diskClass.GetInstances()

Dim disk As System.Management.ManagementObject

Dim isim As String

Dim boyut As System.UInt64

Dim bosAlan As System.UInt64

Dim pnpDeviceIDsi As String

Dim sayacDriver As Integer = 0

For Each disk In disks

pnpDeviceIDsi = CType(disk("MediaType"), UInt32).ToString

isim = CStr(disk("Name"))

boyut = disk("Size")

bosAlan = disk("FreeSpace")

If CType(boyut, UInt64).ToString <> "0" AndAlso pnpDeviceIDsi = "12" Then '12 nin anlamı: Fixed hard disk media

hddHashTablo.Add(sayacDriver, isim & "," & Fix((((Convert.ToDouble(CType(boyut, System.UInt64)) / 1024) / 1024) / 1024)).ToString & "," & Fix((((Convert.ToDouble(CType(bosAlan, System.UInt64)) / 1024) / 1024) / 1024)).ToString)

sayacDriver += 1

End If

Next disk

Return hddHashTablo

End Function

Burada bilgisayardaki seri portların adedini dündürüyoruz.

Public Function SeriPortAdet() As Integer

Dim seriPortSinif As New Management.ManagementClass("Win32_SerialPort")

Dim seriPortKoleksiyon As Management.ManagementObjectCollection = seriPortSinif.GetInstances

Dim seriPortNesne As Management.ManagementObject

Dim portSayisi As Integer = 0

For Each seriPortNesne In seriPortKoleksiyon

portSayisi += 1

Next seriPortNesne

Return portSayisi

End Function

Burada bilgisayara tanıtılmış olan tüm network ve direk bağlı yazıcıları görebiliriz.

Public Function printers() As Hashtable

Dim yaziciHash As New Hashtable

Dim printerSinif As New Management.ManagementClass("Win32_Printer")

Dim printerKoleksiyon As Management.ManagementObjectCollection = printerSinif.GetInstances

Dim printerNesne As Management.ManagementObject

Dim printerSayac As Integer = 0

For Each printerNesne In printerKoleksiyon

yaziciHash.Add(printerSayac, printerNesne("Name"))

printerSayac += 1

Next printerNesne

Return yaziciHash

End Function

Programın örnek ekran çıktısı aşağıdakine benzer olacaktır.

.

Yukarıdaki örnekler genişletilebilir , biraz msdn i karıştırmak yeterli. Miskin kodcular için bu makaledeki örneğin tam kodu aşağıda mevcuttur.

--------------------------------------------------------------------------------
Yazgelistir.com

cuneyta · 26 Ağustos 2007

valla çok zor olacak gibime geliyor.. ama olacak inşallah

))

mehmetdemiral · 26 Ağustos 2007

Allahım.. Adamın projelerine bir bakın....

http://www.nuricankaya.com/projelerim.asp#yazilim

cuneyta · 26 Ağustos 2007

olacak.. emin olun birlikten kuvvet doğar.. kolaylık olarak herhalde bugüne kadar access gibisi olmadı her istediğini mutlaka yapıveriyorsun, ama ne yapalım yenilere ayak uydurmamız gerek..

cuneyta · 26 Ağustos 2007

bak görüldüğü gibi bütün büyük projeler .net yapılıyormuş.. : )))) yeni54 nerde yaw

cuneyta · 26 Ağustos 2007

alla alla kimmiş bu mehmet nuri çankaya vaybe..

mehmetdemiral · 26 Ağustos 2007

http://www.nuricankaya.com/sunumlarim.asp sayfasından konunun en uzman adamından sunuları indirin. http://www.nuricankaya.com/vbnet özellikle..

mehmetdemiral · 26 Ağustos 2007

adam microsoftta yazılım uzmanı.. Çok büyük projeler yapmış ama. Mesela arena bilgisayara yaptıkları süper...

mehmetdemiral · 26 Ağustos 2007

Bilgi Paylaşıldıkça Artar" vizyonu ile öğrendiğim bilgileri paylaşmak için yazmış olduğum kitaplar aşağıdadır. diye yazmış.. Tam bizim foruma lazım bu adam

))

mehmetdemiral · 26 Ağustos 2007

Kaçıralım mı?

mehmetdemiral · 26 Ağustos 2007

Ben sana bir elma versem, sen bana bir elma versen, bende bir elma, sende bir elma olur.
Ben sana bir bilgi versem, sen bana bir bilgi versen, bende iki BİLGİ, sende iki BİLGİ olur." ( George Bernard Shaw )

cuneyta · 26 Ağustos 2007

: )))))))))))))))))))))))))))))) bence kaçıralım boşver elmayı.. bizim foruma gerekli..

mehmetdemiral · 26 Ağustos 2007

)) Çok iyi yaa. Elmanı da getir diyelim olsun bitsin... Bu elmacı galiba...

mehmetdemiral · 26 Ağustos 2007

vb nokta net studio indiriyorum şu anda emuleden. (özellikle böyle yazdım.. anlarsın ya

))

yeni54 · 27 Ağustos 2007

yazılanları ilgiyle okudum.

vb.net e doğru bir gidiş var. ben hala c# diye ısrar ediyorum.

bu arada sayın mehmetdemiral, uzunca bir zaman sonra (ya da kısa bir zaman

) yapabileceğimiz örnekleri eklemiş. ufkumuz açılsın diye

madem adam kaçıracaz, bikaç kişi daha ekleyelim ne dersiniz?

cuneyta · 27 Ağustos 2007

günaydınlar,
c# den sapmayacaz arkadaşlar vb.net te aynı pakette ya ona da ara ara bakarız açısından ve mehmet kardeşimizin gönlü hoş olsun diye : )))

yeni54 · 27 Ağustos 2007

az önce, c# mı vb.net mi diye bir arama yaptım.

profesyonel anlamda uğraşılacaksa c# tercih edilmeli sonucunu çıkardım.

bu arada

http://www.kodyaziyorum.com/printer_friendly_posts.asp?TID=113

da, türkçe c# kitabından bahsediyor.
(şirkette rapid e giriş yasak olduğu için link kırık mı değil mi bilemiyorum)

beab05 · 27 Ağustos 2007

Emule ya da torrent kullanın vs 2005 pro .. Bu arada sorgu tasarımı yapmak accessten zor değil daha kolay siz yanlış yerlere baktınız galiba

tabloları bağlayacağım, ama çok uzaktan

Özel Üye