Tweet

Ana Sayfa   Forum   VB.NET
Yeni Başlık Cevap Ekle
white_bullet İşletim Sistemi Bilgilerini Çekmek (22/08/2008 06:06)
profil Oguzz
 offline OFFLINE
 Senior Coder

Öncelikle formu oluşturuyoruz. 2 textbox ve 2 buttondan oluşuyor. Textboxlarımızın birine işletim sistemimizin türü, diğerine ise işletim sistemimizin dili geliyor. Buttonların hiçbir özelliği yok. Sadece görsel amaçlı, textboxta ne yazıyorsa orada da yazmasını istiyoruz.

Şimdi başlıyalım..

Öncelikle System.IO ve System.Management sınıflarını projemize import ediyoruz.

CODE:

Imports System.IO



Imports System.Management


Daha sonra formumuzun load özelliğine kodlarımızı yazıyoruz. Kodların açıklamaları satır aralarında yer alacaktır

WqlObjectQuery'i kullanarak



' win32_OperatingSystem tablosuna bağlanıp verileri çekiyoruz

CODE:
Dim objectQuery As New WqlObjectQuery("select * from win32_OperatingSystem")



Dim searcher As New ManagementObjectSearcher(objectQuery)



Dim share As ManagementObject



'a parametresi sistem dilinin değerini taşıyacak



Dim a As String



'os parametresi ise isletim sistemimizin türünü tutacak



Dim os As String



For Each share In searcher.Get()



'win32_OperatingSystem tablosundaki name alanını



'isimize yarayacak sekilde cekiyoruz



a = share("Name")



Dim split1 As String()



split1 = Split(a, "|")



os = split1(0)



'hem textbox2ye hemde button2ye isletim sistemimizin türünü yazdiriyoruz



TextBox2.Text = os



Button2.Text = os



Next share



'simdi ise isletim sistemimizin dilini ögrenecegiz



For Each share In searcher.Get()



'yine win32_OperatingSystem tablosunun



' Locale alanindaki veriyi okuyoruz



a = share("Locale")



'belirli global degiskenler var



'örnegin 0409 ingilizceyi temsil ediyoruz



'ben önemli dillerin kodlarini aldim



'siz daha cok ekleyebilir yada silebilirsiniz



If a = "0409" Then



TextBox1.Text = "English"



Button1.Text = "English"



ElseIf a = "0407" Then



TextBox1.Text = "German"



Button1.Text = "German"



ElseIf a = "040a" Then



TextBox1.Text = "Spanish"



Button1.Text = "Spanish"



ElseIf a = "040c" Then



TextBox1.Text = "French"



Button1.Text = "French"



ElseIf a = "0416" Then



TextBox1.Text = "PortBraz"



Button1.Text = "PortBraz"



ElseIf a = "0419" Then



TextBox1.Text = "Russian"



Button1.Text = "Russian"



ElseIf a = "0410" Then



TextBox1.Text = "Italian"



Button1.Text = "Italian"



ElseIf a = "0415" Then



TextBox1.Text = "Polish"



Button1.Text = "Polish"



'iste asil yakalamamiz gereken dil



'041f türkceyi temsil ediyor



ElseIf a = "041f" Then



TextBox1.Text = "Turkish"



Button1.Text = "Turkish"



End If



Next share


Kolay gelsin..Projede kullanılan Local ID'ler için http://www.microsoft.com/globaldev/reference/lcid-all.mspx

Not : Yağız GÖNÜLER'e Kodlar için teşekkür ediyorum.Alıntıdır..

just code it!

Üye Profili

white_bullet Re:İşletim Sistemi Bilgilerini Çekmek (31/08/2008 08:14)
profil M.Akif
 offline OFFLINE
 Coder

Sağol Oğuz güzel paylaşım (: Kesinlikle yararı olacağına inanıyorum

[IMG SRC="http://sdu.ictp.it/os/img/ubuntu_logo.jpg" ALIGN="CENTER"]M.Akif[/IMG]
Destekleneler :
Yazıyok Blog
M-Akif.net




What is a problem ?

profil

white_bullet Re:İşletim Sistemi Bilgilerini Çekmek (31/08/2008 15:19)
profil Oguzz
 offline OFFLINE
 Senior Coder

Bazı programlarda uyumluluk örneğin xp dir bunnla kontrol edersiniz sistem xp değilse yükleme yapma veya xp ise yükleme yap fonksiyonları atanabilir.Tabi bu en basiti kullanılacak alanları elbette daha fazla;)geliştirilmeye açık bir kod..

just code it!

profil
 
1 /
 
Ana Sayfa   Forum   VB.NET
Yeni Başlık Cevap Ekle
 

MENÜ » FORUM
Menü » Takip et
RSS Facebook Twitter Friendfeed
Sık Kullanılanlar Google Yahoo Live
Menü » Paylaş
E-Posta ile gönder Twitter Facebook Friendfeed
Buzz Stumbleupon Delicious Digg