IP Adresini bulmak(vb.net)

Public Function GetIPAddress() As String

        Dim h As System.Net.IPHostEntry = _
System.Net.Dns.GetHostEntry(System.Net.Dns.GetHostName)

        Return h.AddressList.GetValue(0).ToString

    End Function

OpenFileDialog (Vb.Net)

Private Sub btnFilePathBrowse_Click_
(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles btnFilePathBrowse.Click

      
   ofdFilePath.Title = "Please Select a File"

        ofdFilePath.FileName = ""

        ofdFilePath.InitialDirectory = "C:"

        ofdFilePath.ShowDialog()

End Sub

Private Sub ofdFilePath_FileOk_
(ByVal sender As System.Object, ByVal e As _
System.ComponentModel.CancelEventArgs) Handles ofdFilePath.FileOk

    
Dim sioStream As System.IO.Stream

    sioStream = ofdFilePath.OpenFile()

    txtFilePath.Text = ofdFilePath.FileName.ToString()

End Sub

Dünyanın Yeni 7 Harikası

Dünyanın 7 harikası olarak bilinen tarihi eserlerden sadece Keops Piramidi’nin ayakta kalması nedeniyle, 2005 yılında yeni bir seçim düzenlendi. İnternet ve cep telefonundan oylama yapılarak Dünyanın 7 Yeni Harikası belirlendi. UNESCO seçilen yeni harikaları kabul etmese de toplamda 21 adayın yarıştığı ve dünyada 100 milyon kişinin oyladığı anket sonuçlarına göre seçilen Yeni 7 Harika, görülmeyi fazlasıyla hak ediyor.

1. Petra Antik Kenti – Ürdün

Fotoğaf: jonathanmtsai.files.wordpress.com

UNESCO

Dünya Kültürel Mirasları

arasında yer alan antik kent, 2007 yılından bu yana Yeni 7 Dünya Harikası’ndan biri olarak kabul ediliyor. İçerisinde Roma mimarisiyle yapılmış bir amfitiyatro, kaya mezarları, kraliyet mezarlığı ve müzeler bulunan kent, MÖ 400 ve MS 106 yılları arasında Nebatiler tarafından yapılmış. Petra Antik Kenti, Nebatilerin ölen kralları için mezar olması amacıyla kurulmuş.

2. Çin Seddi – Çin

Fotoğaf: bilmiyorsan.com
Yıkılmış olan kısımları ile birlikte tam 8.851 kilometre olarak inşa edilen ve dünyanın en uzun savunma duvarı olan Çin Seddi’nin bugün ayakta olan kısmı 2.500 km. Ülkenin sınırlarını belirlemek üzere çekilen bu uzun hat üzerinde gözlem kuleleri, saraylar ve tapınaklar bulunuyor.

3. Kurtarıcı İsa Heykeli – Brezilya

Fotoğaf: www.biletall.com
Yapımı 1926 ile 1931 yılları arasında gerçekleşen ve Rio de Janeiro şehrinin simgesi haline gelen dev İsa heykeli, 30 metre uzunluğa sahiptir ve 8 metrelik bir kaide üzerinde yer alır. Fransız heykeltıraş Paul Landowski’nin elinden çıkma bu devasa heykel, Corcovado Dağı üzerinden şehri gözetliyor.

4. Machu Picchu Antik Kenti – Peru

Fotoğaf: anddragonsinthecrease.files.wordpress.com
Yüzyıllardır yaşanan depremlere karşı dimdik ayakta duran Machu Picchu Antik Kenti İnka döneminden günümüze ulaşmış bir tarihi eser. Güney Amerika’nın en çok turist çeken bölgesi olan antik kente ulaşmak için Peru’nun Cusco şehrinden Aguas Calientes köyüne gelip buradan da 8 km’lik bir yolculuk yapmanız gerekiyor.

5. Chichen Itza Piramidi – Meksika

Fotoğaf: julsatravel.si
Maya tapınaklarının sonuncusu ve en büyüğü olan piramit, 24 metre uzunluğunda. 4 cepheli tapınağın her bir cephesinde 91 basamak bulunuyor ve üstündeki düzlük kısımla beraber bu sayı 365’i tamamlıyor. Aynı zamanda 9 farklı düzey olarak tasarlanan tapınak Mayalara göre yeraltı aleminin kat sayısına işaret ediyor.

6. Colosseum – İtalya

Fotoğaf: 3.bp.blogspot.com
Yapımına MÖ 72 yılında başlanıp tam 152 yılda tamamlanan Colosseum, diğer adıyla Arena, Antik Roma döneminde gladyatör dövüşlerine ev sahipliği yapmıştır. Savaş gösterileri, tiyatrolar, kutlamalar ve infazlara ev sahipliği yapan bu dev amfitiyatro depremlerle hasar görmüş olsa da hala Roma’nın en çok turist çeken bölgelerinden.

7. Tac Mahal – Hindistan

Fotoğaf: emdera.net
Babür İmparatorluğu hükümdarı Şah Cihan’ın, ölen eşine sevgisinin simgesi olarak 1632’de bu eşsiz yapının temelleri atılmış. Mimari tarihinde “aşk için yapılmış en büyük ve en güzel anıt” olarak tanınan Tac Mahal, yapımında kullanılan beyaz, parlak mermer dolayısıyla en açık gecelerde dahi aydan daha parlak görünüyor. Hakkında pek çok efsane dolaşan Tac Mahal’in duvarlarında binlerce değerli taş gömülü olduğu biliniyor.

Devexpress XtraGrid satırları renklendirmek (VB.Net)

satırların koşullara göre renklendirmek için aşağıdaki kodları kullana bilirsiniz.
condition1.Appearance.BackColor = Color.Yellow bu satırda renkleri düzenleyebilirsiniz.

koşulları ise
condition2.Expression = "[Tutar] = 0"
Tutar adlı sutunun koşulunu belirleye bilirsin.

kodları projenin load kısmına ekleyin

kodlar:



    Dim condition1 As StyleFormatCondition = New DevExpress.XtraGrid.StyleFormatCondition()
        condition1.Appearance.BackColor = Color.Yellow
        condition1.Appearance.Options.UseBackColor = True
        condition1.Condition = FormatConditionEnum.Expression
        condition1.Expression = "[Tutar] < 0"
        GridView1.FormatConditions.Add(condition1)

        Dim condition2 As StyleFormatCondition = New DevExpress.XtraGrid.StyleFormatCondition()
        condition2.Appearance.BackColor = Color.White
        condition2.Appearance.Options.UseBackColor = True
        condition2.Condition = FormatConditionEnum.Expression
        condition2.Expression = "[Tutar] = 0"
        GridView1.FormatConditions.Add(condition2)

        Dim condition3 As StyleFormatCondition = New DevExpress.XtraGrid.StyleFormatCondition()
        condition3.Appearance.BackColor = Color.AliceBlue
        condition3.Appearance.Options.UseBackColor = True
        condition3.Condition = FormatConditionEnum.Expression
        condition3.Expression = "[Tutar] > 0"
        GridView1.FormatConditions.Add(condition3)

VB.Net ile Harddisk Seri Numarası Bulma

Harddisk seri numarasını bulabilmek için kullanmamız gereken kütüphane System.Management kütüphanesidir.

İlk olarak bunu Referans olarak eklemeli ve daha sonra projemize Import etmeliyiz.

form üzerine Me.HDDseriNo.Text diye textbox veya label oluşturuyoruz.
Label1,Label2,Label3 ve Label4 diye dört tane label oluşturuyoruz.

kodları kopyalıyıp yapıştırın, çalıştırın hepsi bu.

Imports System.Management


'HDD seri Numarası
        Dim DriveSerial As Long
        Dim fso As Object, Drv As Object
        'Create a FileSystemObject object
        fso = CreateObject("Scripting.FileSystemObject")
        Drv = fso.GetDrive(fso.GetDriveName(AppDomain.CurrentDomain.BaseDirectory))
        With Drv
            If .IsReady Then
                DriveSerial = .SerialNumber
            Else    '"Drive Not Ready!"
                DriveSerial = -1
            End If
        End With
        'Clean up
        ' Drv = Nothing
        '  fso = Nothing
        Me.HDDseriNo.Text = Hex(Trim(DriveSerial))


Label1.Text = My.Computer.Name
Label2.Text = My.Computer.Info.OSFullName
Label3.Text = My.Computer.Keyboard.CapsLock
Label4.Text = My.Computer.Info.OSVersion