Büyük Geliyoruz. Bekleyin.

Büyük bombayı patlatacağız. Hem tasarım sitemiz hemde blog sitemiz orantılı devam edecek. Yeniliklere az kaldı :)

Blogların eski tadı kalmadı artık diye düşünüyorum. Bir zamanlar forumlar ünlüyken mükemmel bir şekilde ilgi vardı. Sonra forumlar bozuldu. Tarihin kara sularına gömülmeye başladı. Ardından blog denen birşey popüler olmaya başladı. Herkes merak ediyordu. Günlük tutar gibi hergün yazı yazıyordu. Ve gün geldi insanoğlu bundan da bıktı. Artık yeni birşeyler lazım diye düşünüyorum. Bunun için MD Tasarımı kurdum. Bakalım nasıl olacak…

Ayrıca teknoyazar kapanmayacak. Bi tema değişikliğine ihtiyacımız var sanırım :)

Merhaba Tekno Yazar takipçileri;

Bu yazımda size bu ay kazandığım yarışmalardan bahsedeceğim.

Dönemin başında düzenlenen proje tabanlı beceri yarışmasında manisa 3.sü olmuştum. Dün fuar vardı ve ben standda görevliydim. İlerleyen saatlerde ödül töreni olacağını bildirdiler. Oradan güzel ve pahalı bir ödülle ayrıldık.

Bu yarışmadan sonra 3 hafta önce düzenlenen , 3. web tasarım yarışmasında Manisa 1.liğini aldım. Oradan bir adet netbook aldım. Hediye olarak da okul bana bir Casio saat verdi.

Bu hafta sonucu açıklanan Afiş yarışmasında arkadaşım CAN , Manisa 1.si oldu. Ben ise 2. oldum. Buradan da bir adet mp3 player kazandım. (Ödül olarak fotoğraf makinesi bekliyordum.)

İşte böyle….

Bugün serisini başlattığım program arşivi ile karşınızdayım. Program VB.Net ile hazırlanmıştır.

İlk programımız dövizi Türk Lirasına kdvli şekilde çeviren bir program. Yazım mantığı gayet basit.

Dim doviz, kur, kdv As Integer
Dim fiyat As Single

If ComboBox1.Text = "Dolar" Then
TextBox5.Text = "$"
End If
If ComboBox1.Text = "Euro" Then
TextBox5.Text = "€"
End If
doviz = CInt(TextBox1.Text)
kur = CInt(TextBox4.Text)
kdv = CInt(TextBox3.Text)
fiyat = (doviz * (kdv / 100) + doviz) * kur
TextBox2.Text = fiyat

Bunu oluşturduğumuz butona yazıyoruz. Gerekli textbox işlemlerini yapıyoruz. Bu kadar…

Bu programı hazır halde indirmek için TIKLAYINIZ…