23 Aralık 2016 Cuma

Dünyanın Yeni 7 Harikası





main
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

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

Çin Seddi
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

Kurtarıcı İsa Heykeli
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

Machu Picchu Antik Kenti
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

Chichen Itza Piramidi
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

Colosseum
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

Tac Mahal
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.

4 Aralık 2016 Pazar

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

Samsung Galaxy A7 (2017)

Samsung Galaxy A7 (2017) ABD Federal İletişim Komisyonu tarafından onaylandı.



Samsung Galaxy A7 (2017) Bluetooth sertifikası alma ve Zauba’da listelenmenin yanı sıra, birçok kez testlerde ortaya çıkmıştı. Telefon şimdi de ABD Federal İletişim Komisyonu FCC’den onay aldı.
Samsung Galaxy A7 (2017) akıllı telefonun ana teknik özellikleri şimdiye kadar kriter testlerinde ortaya çıkmıştı. Sammobile sitesi, 2017 model Galaxy A7'nin özelliklerine dair daha çok bilgi yayınladı. Buna göre Galaxy A7 (2017), toza ve suya dayanıklı IP68 sertifikasına sahip olacak.
157,69 x 76,92 x 7,8 mm ölçülerinde olan Galaxy A7, USB Type-C şarj konektörü ve 3600mAh pil ile gelecek. Aşağıda telefonun şimdiye kadar sızdırılan özelliklerini inceleyebilirsiniz.





2017 model Galaxy A7'nin özellikleri

Model kodu: SM-A720F
Ekran: FHD 1080p 5.5 / 5.7 inç
İşlemci: 1.8 GHz Exynos 7880
GPU: ARM Mali-T830
RAM: 3 GB
microSD aracılığıyla genişletilebilir  32 GB dahili depolama
Arka kamera: 16 MP
Ön kmaera: 16 MP
Pil: 3600 mAh
USB Type-C Konnektör
Boyutlar: 157,69 x 76,92 x 7,8 mm
Toz ve su dayanıklı IP68 sertifika
İşletim Sistemi: Android 6.0.1 Marshmallow

HDD yeniden yapılandırma


Hdd yapılandırma ayarlarını değiştirmek için aşağıdaki video izleyiniz.