Ece Sükan Benim Bloguma Yakışan VAIO'yu Seçti... Sıra Sende!

Bana en çok Turuncu VAIO yakışıyor!

Ünlü moda ikonu Ece Sükan, Sony VAIO için ilginç bir işe imza attı. Blogların renkli dünyası ile Sony VAIO'nun renkli dünyasını birleştiren Ece Sükan, bir çok blog gibi benim blogumu da inceledi ve yakışacak olan rengi belirledi. Ece Sükan, blog içeriği, tasarımı, duruşuna göre 6 farklı rengi olan Sony VAIO içinden bana Turuncu VAIO'yu seçti.

Ayrıca Facebook üzerinde yapılmış özel bir aplikasyonla Ece Sükan profil fotoğraflarını inceliyor ve sana yakışan Sony VAIO'yu belirliyor. Sen de fotoğrafa tıklayarak Facebook üzerinden İkinci Nesil Intel® Core™ i3 İşlemcili VAIO kazanma şansı yakalayabilirsin...

Bir bumads advertorial içeriğidir.

Rumeli Hisarı'nda Büyüleyen Fantastik Gösteri!

Daha önce Galata Kulesi'nde yaptığı project mapping ile dikkatleri üzerine çeken 8x4, yeni ürünleri olan Beauty ve Beast için bu sefer de Rumeli Hisarı'nda görkemli bir project mapping uygulaması yapmış. Fantastik gösteriye, hepimizin yakından bildiği Güzel ve Çirkin masalı ilham vermiş. Birbirine kavuşamayan iki aşığın kötü niyetli ejderhaya karşı olan savaşı konu edilmiş. Ejderha masalın sonunda 8x4'ün yeni kokularına yenik düşüyor ve aşıklar kavuşuyor.

Bu arada söylemeden edemeyeceğim; 8x4 gerçekten de hoş ve güçlü kokulara sahip... Deodorant özelliğinin yanında bir parfüm gibi de rahatlıkla kullanılabilir. Gösteriyi Rumeli Hisarı'nda seyredemeyenler için aşağıda paylaşıyorum.

8x4 dünyasını Facebook'tan takip etmek isteyenler; http://www.facebook.com/8x4Turkiye

Bir bumads advertorial içeriğidir.

Son Derece Cazip Mac Kampanyasında Son Hafta...

Eğer bir Mac satın alma hedefiniz varsa şimdi tam zamanı… Şu günlerde yetkili Apple mağazalarının yapmış olduğu önemli bir kampanya var. Bu kampanya, aslında mağaza mağaza dolaşmayı sevmeyen beni bile harekete geçirdi.

Eğer ki hem evinize bir iMac, hem de kendinize bir iPad2 almak istiyor fakat bütçeniz nedeniyle bunu gerçekleştiremiyorsanız bu kampanya tam size göre. 15 Şubat’a kadar süren Mac kampanyası sayesinde bilgisayar için ayırdığınız para ile hem istediğiniz özelliklerde bir iMac, hem de fiyat avantajı nedeniyle artan bütçeniz sayesinde ne zamandır almak istediğiniz iPad 2’yi satın alabilirsiniz.

Ayrıca 14 Şubat Sevgililer Günü’nde sevgiliniz için bir sürpriz yapma planınız varsa yine bu kampanya tam size göre…

Bu nedenle kampanya hakkında bazı ayrıntıları sizlerle paylaşmak istedim. Çünkü 15 Şubat’a kadar geçerli olan kampanyada iMac, MacBook Pro ve MacBook Air için 563 TL’ye varan cazip fiyat indirimleri söz konusu…

Örneğin, hafifliği ve şıklığı ile kadınlar için en güzel bilgisayar olduğunu düşündüğüm Ultrabook’un yaratıcısı MacBook Air’ı bu kampanyada KDV dahil 2 bin 762 TL yerine 2 bin 490 TL’ya satın almanız mümkün.. MacBook Air’de 272 TL olan fiyat avantajı, ürünler arasındaki fiyat farkına bağlı olarak MacBook Pro’da 390 TL’yi, kampanyanın en cazip ürünü iMac’de ise 963 TL’yi buluyor. Son yıllarda Apple ana distribütorü Bilkom’un Mac ve iPad ürünlerini çok iyi rakamlara çektiğini biliyorum. Ama mağazaların bu çalışması, Mac aşkımı daha da kabartıyor.

Unutmayın bu özel ürünler için kampanya 15 Şubat 2012 tarihine kadar ve yetkili Apple mağazalarında geçerli.

http://www.bilkom.com.tr/tr/yetkili-saticilar/apple/apple-magazalari/

Bir bumads advertorial içeriğidir.

1.000.000 "İyi" İnternet Kullanıcısı Aranıyor!

Son günlerde İstanbul, Ankara ve İzmir'de billboardlarda sıkça görmeye başladığımız bir slogan var: "1.000.000 "iyi" internet kullanıcısı aranıyor!"

Altına da şöyle bir not düşülmüş: "Adayların ekranlarından 1 satır verecek kadar "iyi" olmaları yeterlidir."

Aslında bu son derece yenilikçi bir sosyal projeleri destekleme yöntemi. http://www.ekledestekle.com/ adresinden bilgisayarınıza bir program indiriyorsunuz. Bu program araç çubuğunuza bir "satır" gibi yerleşiyor. Bu satırda görüntülenecek reklamlardan yaratılan kaynakla, projede yer alan sivil toplum kuruluşlarına destek veriyorsunuz. Böylece hem cebinizden 5 kuruş harcamadan sosyal projelere destek vermiş, hem de internette geçen zamanınızı "iyi" şeylere harcamış oluyorsunuz.

Kullanıcı sayısı ne kadar artar ve mecra reklamverenler için ne kadar cazip hale gelirse, o kadar çok sivil toplum kuruluşu ve sosyal projenin desteklenmesi mümkün olacak. Dolayısıyla her şey aslında sizlerin, yani internet kullanıcılarının elinde.

Projeye katılmak çok kolay. http://www.ekledestekle.com/ adresine girip, "İndir, Ekle" butonuna basıyor ve basit bir programı indirip, kullanıcı kaydınızı oluşturuyorsunuz. Kaydınızı oluştururken de hangi projeyi / projeleri desteklemek istediğinizi seçiyorsunuz.

Tüm vereceğiniz 3-5 dakika vaktiniz ve sonrasında da ekranınızda sizi rahatsız etmeyecek kadar küçük bir alan…

Bakalım Türkiye’de kaç tane "iyi" internet kullanıcısı var…

Bir bumads advertorial içeriğidir.

Sayısal Loto ( Randomize-Rnd )

            Artık yılbaşı geldi. Çoğumuz yılbaşı çekilişi için bilet almıştır. Şimdiden bu programla size çıkacak büyük ikramiyeye hazırlanın :D 

KODLAR

Public Class Form1

    Dim a, b, c, d, f, g, sayi As Integer

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

        Randomize()

        sayi = Rnd() * 49

        If TextBox1.Text = "" Then

            TextBox1.Text = sayi

        ElseIf TextBox2.Text = "" Then

            TextBox2.Text = sayi

        ElseIf TextBox3.Text = "" Then

            TextBox3.Text = sayi

        ElseIf TextBox4.Text = "" Then

            TextBox4.Text = sayi

        ElseIf TextBox5.Text = "" Then

            TextBox5.Text = sayi

        ElseIf TextBox6.Text = "" Then

            TextBox6.Text = sayi

            a = TextBox1.Text

            b = TextBox2.Text

            c = TextBox3.Text

            d = TextBox4.Text

            f = TextBox5.Text

            g = TextBox6.Text

            ListBox1.Items.Add(a & " - " & b & " - " & c & " - " & d & " - " & f & " - " & g)

            TextBox1.Text = ""

            TextBox2.Text = ""

            TextBox3.Text = ""

            TextBox4.Text = ""

            TextBox5.Text = ""

            TextBox6.Text = ""

        End If

    End Sub

End Class