-->

Sponsor Alanı

Slider

İlgi Çeken Videolar

Sağlık

Teknoloji

Sinema

Televizyon

Ne Nedir?

En5 Konular

ads

Visual Studio Formun İçinde Form Açma (2020)

Visual Studio Formun İçinde Form Açma İŞLEMİ.


Vb.net ile form içinde veya başka bir form nasıl açılır kısaca video ve kodlara aşağıdan ulaşabilirsiniz.

Öncelikle Form oluşturun visual basic ile ve tüm kodları ekleyin yeterli olacaktır.

Form üzerine bir buton eklemeniz yeterli olacaktır..



Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Forum As New Form
Forum.TopLevel = False
Forum.Dock = DockStyle.None
Me.Controls.Add(Forum)
Forum.Show()
Forum.Text = " Form 1 "
End Sub
End Class

Videolu anlatım:


Vb.net Yeniler İçin

Visual Basic ile ilgilenenler ve yeni başlayanlar için önemli başlangıç noktalarına değineceğiz. Aşağıda açıklamış olduğumuz bilgiler her kişi için başlangıçta öğrenilmesi gerekenlerdendir.

Proglamlama yapmak güzeldir ve zevklidir. Ancak sabır ve emek ister. Kısa zamanda öğrenmek her insan için kolay değildir. Ancak yeni başlayanlar için ön bilgiler önem taşır. 

İF: Türkçe dilinde karşılığı eğer manasını taşımaktadır. Aynı zamanda zaten anlamını da ifade eder. Bu ikisini aklınızda bulundurmanız yeterlidir. 

Örnek olarak kısa bir açıklama:

50 den yüksek olan bir sayı çıkmasını istiyorsunuz. Bunun için 50 sayısından küçük çıkarsa başarısız oldunuz, büyük sayı çıkarsa başarılı oldunuz yazısı ekranda belirsin. bunun için aşağıdaki gibi kod yazmanız gerekecektir. 

Dim a As Integer

        a = InputBox("Herhangi bir sayı gir")

        If a <= 50 Then

            MsgBox("kaldınız")

        ElseIf a >= 55 Then

            MsgBox("geçtiniz")


        End If


Vb.net Yeniler İçin


Aşağıdaki resimde ki gibi örnek bir form oluşturabilirsiniz. Ve bir adet button ekleyerek, çift tıklayın ve içine yukarıda ki kodu ekleyin. Sonra deneme yaparak herhangi bir sayı giriniz. Ben 50 sayısından büyük sayı girdim ve geçtiniz mesaj kutusu ekrana yansıdı. 

Aşağıdaki videoyu izleyebilirsiniz. Kısa bir video çektik. 





Visual Basicte  en çok kullanılan döngülerin başında gelen for next, adı üstünde bir döngüdür. Bir işi birden daha fazla şekilde yaptırılmasına olanak tanır. 

Bunu da bir örnek ile açıklayalım: 

Yapacağımız basit bir program ile çift olan sayıları bulan bir yazılım gerçekleştireceğiz. 

Dim a, i, c As Integer

        a = InputBox("sayınızı girin")

        For i = 0 To a

            c = i Mod 2

            If c = 0 Then

                ListBox1.Items.Add(i)

            End If


        Next

Yukarıdaki kod ile 0 ile klavyeden girilen herhangi bir sayılar arasındaki çift olanları bulmaya yarıyor.  Tabi bu modları  değiştirebilirsiniz. 


Vb.net Yeniler İçin

Hazırlamış olduğumuz aşağıdaki örnek videoyu izleyebilirsiniz.





Bir önceki konumuzda "Listbox ile Veri Tabanı Kayıtlarını Görmek" ismindeki konuyu detaylı bilgilere ulaşmak için konumuza göz atmanız yeterlidir.

Listbox ile Veri Tabanı Kayıtlarını Görme.

Visual basic ile  veri tabanında kayıtlı olan verileri görüntülemek.


Bu çalışma ile "DATA.MDF" isimli veri tabanında bulunan bilgileri "Listbox"da göstereceğiz. 

Listbox ile Veri Tabanı Kayıtlarını Görme.


İlk olarak Vb.Net pşrogramınızı açın ve ardından File + New project kısmından devam ederek. Visual Basic kısmının işaretli olmasına dikkat edin ve bir "Ok" diyerek bir form açın. 

Gerekli araçlarımız:

Bir adet ListBox 
Bir adet Button ekleyerek aşağıdaki kodları Button'a çif tıklayın ve click olayına aşağıdaki vermiş olduğum kodu yazın. 


ComboBox ile ListBox Ayarları

Bu dersimizde ComboBox ile ListBox rengini nasıl değiştireceğimizi ve ayarlarını göreceğiz. Bunun için programınızı açın ve yeni bir proje oluşturun.

Forma eklemeniz gereken araçlar.

1 tane "ComboBox"

1 tane "ComboBox"

Arkadaşlar ComboBox ile ListBox içine istediğimiz renkleri ekleyebiliriz biz sadece sarı-kırmızı-siyah ve beyaz renklerini ekledik. Ve aşağıda videolu şekilde de eklemesini yaptık..

ComboBox ile ListBox Ayarları


Yapmanız gereken. ComboBox üstüne  sağ  tıklayıp "Edit Items" yazana tıklayın yeni bir pencere açılacak ve bu pencere içine istediğiniz renkleri yazabilirsiniz. Örnek resim aşağıda.

ComboBox ile ListBox Ayarları 1


Sizler  daha  farklı renkler ve daha çok renk seçenekleri ekleyebilirsiniz. Biz sadece  4 renk ekledik. Ve örnek olması açısından faydasını göreceksiniz.

Aşağıdaki kodları ComboBox üstüne çift tıklayın ve aradaki boşluğa şu kodları ekleyin.

Public Class Form1

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "sarı" Then
            ListBox1.BackColor = Color.Yellow
        ElseIf ComboBox1.Text = "kırmızı" Then
            ListBox1.BackColor = Color.Red
        ElseIf ComboBox1.Text = "siyah" Then
            ListBox1.BackColor = Color.Black
        ElseIf ComboBox1.Text = "beyaz" Then
            ListBox1.BackColor = Color.White

        End If
    End Sub
End Class



Bir önceki Vb.Net dersimizde "Parola ekleme" Forma parola nasıl eklenir.  Visual Basic ile prola eklemeyi basit şekilde anlattık.

Paralo Nasıl Eklenir (Vb.Net)

Visual Basic Dersi - Forma  Parola Ekleme İşlemi:


Visual basic ile yeni başlayanlara ön ders olarak derslerimize kaldığımız yerden devam ediyoruz. uzun bir zaman içerisinde devam edemedik. Vb.Net ile uğraşan kişiler için aslında önemli kodlamalardan biridir. Bu forum şifreleme, parola koyma işi. Bunun için biz burada basit yöntemi ile kodlamaları yapacağız.

İlk olarak forma eklemeniz gereken araçlar:

2 Adet Button

2 Adet Label

2 Adet TextBox ekleyiniz. Ve formu aşağıda resimde görmüş olduğunuz gibi düzene sokabilirsiniz.

Paralo Nasıl Eklenir (Vb.Net)

Bu yapmış olduğumuz program ile  sizlerin belirlediği kişilerin girebileceği şekilde tasarlayabilirsiniz. 

Kodlamayı ise "if" komutunu kullanarak yazacağız. 

İlk olarak Button1'in click olayın  aşağıdaki kodları ekleyiniz. 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "ibrahimfirat" And TextBox2.Text = "1453" Then

            MsgBox("hoşgeldiniz") 'Eğer girdiğimiz kullanıcı adı doğru ise hoş geldiniz mesajı ile sizi karşılıyor'

            Form2.Show() ' şifreniz doğru ise ikinci  forum açılacak'

        Else

            MsgBox("kayıtlı kullanıcı degil")

        End If
    End Sub

2. adımda ise aşağıda kodu temizleme olarak kullanacağımız bu kodu  button2'nin içine yazınız veya kopyalayınız.

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = " "

        TextBox2.Text = " "
    End Sub

yapılan işlemler bu kadar siz bu kodlamalanın  içinde  parolayı şu bölümdeki  "If TextBox1.Text = "ibrahimfirat" And TextBox2.Text = "1453" Then" değiştirip kendinize göre bir  prola üreterek değişiklik yapabilirsiniz. Kolay gelsin.

Sayı Tahmin Oyunu (Visual Basic)

Random özelliği ile visual basic 2010 ile sayı tahmin oyunu yapacağız. Random özelliği nedir? Random herhangi bir sayıyı atamaya yarayan farklı sayıları  türetiyor. Bundan dolayı hep aynı sayılar yerine  çeşitli sayılar atamaktadır.

Forma eklemeniz gereken araçlar:

Bir  tane Button eklemeniz yeter  eğer  forma aşağıdaki gibi görsel eklemek isterseniz PictureBox kullanmanız gerekir.  Görsel nasıl ekleyeceğinizi Video ile göstereceğim.

Sayı Tahmin Oyunu (Visual Basic)

İlk olarak  form load kısmına gelip aşağıdaki kodları yazalım, değişken tanımayacağız.

Dim sayı As Integer = (Rnd() * 50), tahmin As Integer 

Daha sonra Button'a çift tıklayın click olayına aşağıdaki kodu yazın veya ekleyin..

On Error Resume Next
        Randomize()
        For I = 1 To 7
            tahmin = InputBox("Tahmininiz: ", "sayı  Tahmin")
            If tahmin = sayı Then
                MsgBox(" tebrikler bildiniz")
                Continue For
                sayı = (Rnd() * 50)
            ElseIf sayı < tahmin Then
                MsgBox(" küçük deger giriniz")
            ElseIf sayı > tahmin Then
                MsgBox(" büyük deger giriniz")
            End If

        Next I
        MsgBox("game ower")

    End Sub



Bir önceki dersimiz form şifreleme visual basic ile form nasıl şifrelenir basit bir şekilde anlatılmıştır.

Vb.Net Form'u Şifreleme

Visual Basic İle Forma Parola Ekleme

vb.net
Forma şifre nasıl koyulur bu derste kısa ve kolay şekilde açıklamasını yapacağız.

Bu dersimiz visual studio 2010 ile yapılmaktadır. Forma eklemeniz gereken araçlar aşağıda.

2 adet Label
2 adet Button
2 adet TextBox  ve  formu aşağıdaki benim yaptığım tasarım gibi yapabilirsiniz.


İlk olarak  aşağıdaki kodları  Button1'in  clikc olayına yazın. 

If TextBox1.Text = "ibrahimfirat" And textbox2.text= "12345" Then
            MsgBox("hoşgeldiniz")'kullanıcı bilgisi doğru ise hoşgeldiniz mesajı variyor'
            Form2.Show() ' şifre dogrulanırsa ikinci form' u  acıyor'
        Else
            MsgBox("kayıtlı kullanıcı degil")
        End If

2. aşamada 2. button olan temizle buttonun click olayına aşağıdaki 2 satır kodu  yazın.

TextBox1.Text = " "
TextBox2.Text = " "



Bir önceki visual basic dersinde "Hata Olmaması İçin (Catch komutu)" ayarları nasıl yapılır konumuzda inceleyebilirsiniz.

Hata Olmaması İçin (Catch komutu)

Bu konuda hataları engellemek için yapmamız gerekenleri anlatacağız. Program kodlarken istenmeyen durumlarda hatalar gerçekleşebilmektedir. Bu hataları önceden engellemek için aşağıdaki uygulamaları yapalım.


Örnek vermek gerekirse bir sayı hesaplama programı yapıyoruz ve  400'den fazla  sayı girilmemesi lazım bunu önceden engellemek için Catch komutunu kullanmamız gerekir.  Bunun için forma eklememiz gereken araçlar:

2 tane TextBox
4 tane Label
1 adet Button ekleyelim ve aşağıdaki kodu Button'a çift tıklayarak click olayına yazalım.

Hata Olmaması İçin (Catch komutu)


Kod:

 Try
            Dim x, y, z As Byte
            x = TextBox1.Text
            y = TextBox2.Text
            z = x + y
            Label4.Text = z
        Catch

        End Try
        MsgBox("400 den az degerleri toplayınız..") Bu bölüme hangi mesajı vermek için o hataları girmeniz gerekmektedir.
 

Video

Girilen Sayıyı Büyükten Küçüğe Sıralamak

Bu derste basit bir ListBox'a yazılan 10 tane sayıyı büyükten küçüğe sıralayan basit bir program yapacağız.

Forma eklemeniz gereken araçlar:

1 Adet ListBox

Girilen Sayıyı Büyükten Küçüğe  Sıralama

Kod:

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim sayi(10), yedek, k, i, j As Long
        For i = 1 To 10
            sayi(i) = InputBox(i & ".Herhangi Sayı Girin...")
        Next i
        For i = 1 To 10
            For j = 1 To 10
                If sayi(i) > sayi(j) Then
                    yedek = sayi(j)
                    sayi(j) = sayi(i)
                    sayi(i) = yedek
                End If

            Next j
        Next i
        For k = 1 To 10
            ListBox1.Items.Add(sayi(k))
        Next k
    End Sub
End Class


Video

Doğum Günü Hesaplama Programı

Bu dersimizde visual basic ile doğum günü hesaplama  programı yapacağız.

Forma eklemeniz gereken araçlar:

1 tane Button
4 tane Label
4 tane TextBox

Tasarımı aşağıdaki gibi yapabilirsiniz.

Doğum Günü Hesaplama Programı

Kod:

Public Class Form1
    Dim a, b, c, g As Integer
    Dim d, f As String


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = Val(TextBox1.Text)
        b = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        If b = 1 Then
            d = "Ocak"
        ElseIf b = 2 Then
            d = "Şubat"
        ElseIf b = 3 Then
            d = "Mart"
        ElseIf b = 4 Then
            d = "Nisan"
        ElseIf b = 5 Then
            d = "Mayıs"
        ElseIf b = 6 Then
            d = "Haziran"
        ElseIf b = 7 Then
            d = "Temmuz"
        ElseIf b = 8 Then
            d = "Ağustos"
        ElseIf b = 9 Then
            d = "Eylül"
        ElseIf b = 10 Then
            d = "Ekim"
        ElseIf b = 11 Then
            d = "Kasım"
        ElseIf b = 12 Then
            d = "Aralık"
        End If
        If b = 12 Or b = 1 Or b = 2 Then
            f = "kış"
        ElseIf b = 3 Or b = 4 Or b = 5 Then
            f = "ilk bahar"
        ElseIf b = 6 Or b = 7 Or b = 8 Then
            f = "yaz"
        ElseIf b = 9 Or b = 10 Or b = 11 Then
            f = "son bahar"
        End If
        g = 2015 - c
        TextBox4.Text = a & " " & d & " " & c & " tarihinde bir " & f & " günü doğdunuz. " & g & " yaşındasınız."
    End Sub
End Class

Yaş Hesaplama Programı Video İzle




Bir önceki visual basic dresimizde Vb.Net 2010 ile Arka Plan Rengi Ayarlama programının yapımını anlattık.

Vb.Net 2010 ile Arka Plan Rengi Ayarlama

Visual Basic İle Arka Plan Rengini Değiştirme.


Bu dersimizde kolay bir şekilde form arka plan rengini değiştirmeyi göstereceğiz. Yeni başlayanlar için faydalı bir kodlama olacaktır.

Forma eklemeniz gereken nesneler:

1 Adet Combobox ekleyelim. Combobox seçili olduğu zaman sağ kısımda ok işareti çıkar ona  tıklayın.  Sonrasında ufak bir kutucuk açılacak orada en bulunan "Edit Items" yazana tıklayın. Ve yeni bir  boş kutucuk açılacak bu boş alanın içine renkleri yazacaksınız.

* Kırmızı
* Sarı
* Mavi
* Yeşil
* Siyah

Bu renkleri çoğaltabilirsiniz. Biz örnek olması açısından bu kadarla yetindik.

If ComboBox1.Text = "kırmızı" Then
            BackColor = Color.Red
        ElseIf ComboBox1.Text = "sarı" Then
            BackColor = Color.Yellow
        ElseIf ComboBox1.Text = "mavi" Then
            BackColor = Color.Blue
        ElseIf ComboBox1.Text = "yeşil" Then
            BackColor = Color.Green
        ElseIf ComboBox1.Text = "siyah" Then
            BackColor = Color.Black
        End If

Arka Plan Rengi Değiştirme Video İzle


3 Basamaklı Sayıların Farkını Bulmak

3 Basamaklı Sayıların Farkını Bulmak
Bu basit programla TextBox'a girilen 3 basamaklı sayıların farklarını gösteren kolay bir program yapacağız.


Forma eklemeniz gerekenler:

1 tane Label
1 tane Button
2 Adet TextBox ekleyin ve tasarımı resimdeki gibi yapabilirsiniz.

Button'a çift tıklayın ve içine aşağıdaki kodları yazın

a = TextBox1.Text  100
        b = TextBox1.Text Mod 10
        c = TextBox1.Text Mod 100
        d = c  10
        f = a + b + d
        g = TextBox2.Text  100
        h = TextBox2.Text Mod 10
        ı = TextBox2.Text Mod 100
        j = ı  10
        k = g + h + j


        If k > f Then
            Label1.Text = k - f
        Else
            Label1.Text = f - k
        End If

ve son olarak değişkenleri tamamlayın program hazırdır.

Dim a, b, c, d, f, g, h, ı, j, k As Integer

Ödeme Hesaplama Programı

Yemek, lokanta veya cafe sahipleri için  kullanışlı bir cafe ödeme hesaplama yazılımı yapımı.  Oldukça basit olan bu program yeni başlayanlar için ön ders olarak kendilerini geliştirmeleri için faydalı olacaktır.

Form'a eklemeniz geraken nesneler:

Form üzerinde görülen nesneleri ekleyiniz:

Ödeme Hesaplama Programı


Tasarımınızı yaptıktan sonra aşağıdaki adımları takip edin.

RadioButton1_Click Olayına aşağıdaki kodları yazınız.

If CheckBox1.Checked = True Then
a = 2

End If
If CheckBox2.Checked = True Then
b = 3

End If
If CheckBox3.Checked = True Then
c = 2.5

End If
If CheckBox4.Checked = True Then
d = 1.5

End If
If CheckBox5.Checked = True Then
f = 0.5

End If
TextBox1.Text = (a + b + c + d + f) * 0.8



RadioButton2_Click Olayına aşağıdaki kodları yazınız

If CheckBox1.Checked = True Then
a = 2

End If
If CheckBox2.Checked = True Then
b = 3

End If
If CheckBox3.Checked = True Then
c = 2.5

End If
If CheckBox4.Checked = True Then
d = 1.5

End If
If CheckBox5.Checked = True Then
f = 0.5

End If
TextBox1.Text = (a + b + c + d + f)



Değişkenleri tanımlayınız:


Dim a, b, c, d, f As Double

Büyükten Küçüğe Doğru Sayı Sıralama (Vb.Net)

Bu konumuzda Visual Basic ile Sayıları büyükten küçüğe doğru sıralama yapan basit ve kolay bir program yapımını öğreneceğiz.
Büyükten Küçüğe Doğru Sayı Sıralama (Vb.Net)

TextBox'lara girilen herhangi bir sayıların Button'a basarak büyükten küçüğe doğru en basit şekliyle sıralanışını hep beraber yapalım.

Form'a eklemeniz gereken nesneler aşağıda:

3 Tane TextBox ve bir adet Button ekleyelim.

İlk olarak değişken tanımlayacağız. Değişkeni tanımlamak için aşağıdaki kodu, form'da  Public Class Form1'in hemen altına yazınız.

Dim a, b, c, d As Integer

Sonrasında Buttona çift tıklayarak button1_click olayına aşağıdaki kodları yazın.

a = TextBox1.Text
b = TextBox2.Text
c = TextBox3.Text

If a > b Then
a = b
b = d
End If

 If a > c Then
d = a
a = c
c = d
End If

If b > c Then
d = c
c = b
b = d
End If



TextBox1.Text = a
TextBox2.Text = b
TextBox3.Text = c


Vb.Net İle 4 Basamaklı Sayının Toplamını Hesaplamak

Bu Konumuzda Visual basic İle 4 Basamaklı herhangi bir sayının her basamağında olan sayının tümünü hesaplamak.

Forma eklemeniz gereken araçlar:

1 tane textbox: 4 basamaklı sayımızı girmenize yaracak nesne
1 adet  label: sonuçları ekrana yansıtacak
1 adet button: Button ile işlem hesaplayacağız

Yukarıdaki nesneleri ekledikten sonra Button'a çift tıklayarak click olayın aşağıdaki kodu yazmanız yeterli olacaktır. Ancak bu kodlar Visual basic 6.0 a göre düzenlenmiştir.

a = TextBox1.Text Mod 10
b = TextBox1.Text  1000
c = (TextBox1.Text  100) Mod 10
d = (TextBox1.Text Mod 100)  10
label1.Text = a + b + c + d

vb.net


Visual Studio Eski Ayarlara Geri Dönmek

Microsof Visual Studio Programını Varsayılan Ayarlara Geri döndürmek  Reset Atmak.


Microsof Visual Studio dünyadaki en iyi yazılım programıdır. Ve bununla bilgisayarlarınızda kullandığınız neredeyse tüm programlar dahildir. Eğer sizde Visual Studio programı ile program yazıyorsanız, bazen bazı hatalar ile programda değişiklikler yapmış olabilirsiniz bu yüzden bazı aksaklıklar çıkabilir. Bundan dolayı programı tamamen varsayılan ayarlara döndürmeyi anlatacağım.

Ben anlatımı Vb.Net 2010'a göre anlatacağım hemen hemen her sürümünde ayarlar aynıdır. Menülerin yerleri değişik olabilir.

Visual Studio 2010 üst menü kısmından Tools olana tıklayın ve ardından açılan menüde Import and Export Settings tıklayın. Karşınıza bir pencere çıkacak içerisinde 3 seçenek var biz en alttakini işaretleyeceğiz. "Reset All Setting" işaretleyerek ileri (Next) butonuna tıklayın bir kaç kere Next butonu çıkacak hepsini tıklayarak geçin ve en sonunda Finish butonuna tıklayarak sonlandırın.

Bu ayarları yaptıktan sonra "Microsof Visual Studio" programınız varsayılan ayarlara geri dönmüş olacak.

Ayalarları yapmak için sizler için video hazırladım aşağıdaki video ile daha rahat işlemleri yapabilirsiniz.

Vb.Net 2010 reset Atmak Video izle

Radyo ve Tv Programı Vb.Net İle

Visual basic 2010 ile  Tv ve Radyo Programı Yapmak

Radyo ve Tv Programı Vb.Net İle
Bu derste kısaca vb.net ile radyo ve tv programı yapmayı göstereceğiz. Öncelikle ilk yapmanız gereken forma 1 adet  WindowsMediaPlayer eklemeniz gerekmekte. Eğer programınızda bulunmuyorsa aşağıdaki video da nasıl toolbox'a ekleyeceğinizi gösterdim.  ve kaç tv ve radyo eklemek istiyorsanız ona göre button ekleyeceksiniz. Ben sadece bir button ve bir kanal ekledim örnek olması açısından



Aşağıdaki örnek kodu buttona çift tıklayarak click olayına ekliyorsunuz.

AxWindowsMediaPlayer1.URL = ("http://212.175.166.3/TV1")


WindowsMediaPlayer ToolBox'a nasıl Eklenir Video


Doğum Günü Hesaplama (Vb.Net)

Gün hesaplama Programı Yapma - Visual basic ile.

Bu yazımızda basit bir gün hesaplama programı yapacağız. Hangi günde doğduğunuzu gösteren basit ve kullanışlı bir programı hep beraber yapalım.

Forma eklemeniz gereken araçlar:

1 tane TextBox
2 tane Button
ve 2 tane Label ekleyerek  tasarımı aşağıdaki gibi yapıyoruz.

Doğum Günü Hesaplama (Vb.Net)

Yazmanız gereken kodlar aşağıda:

Public class form1

  Dim d_tarih, gun

button1_click

        Do
            d_tarih = TextBox1.Text
        Loop While Not IsDate(d_tarih)
        Select Case Weekday(d_tarih)
            Case 1 : gun = "Pazar"
            Case 2 : gun = "Pazartesi"
            Case 3 : gun = "Salı"
            Case 4 : gun = "Çarşamba"
            Case 5 : gun = "Perşembe"
            Case 6 : gun = "Cuma"
            Case 7 : gun = "Cumartesi"
        End Select
        MsgBox(gun & " Günü Doğmuşsunuz", MsgBoxStyle.Information, "SONUÇ")

button2_click

    d_tarih = TextBox1.Text
        If d_tarih <= Now.Date Then
            MsgBox("Daha geçerli bir tarih giriniz.")
        Else
            Do
            Loop While Not IsDate(d_tarih)
            Select Case Weekday(d_tarih)
                Case 1 : gun = "Pazar"
                Case 2 : gun = "Pazartesi"
                Case 3 : gun = "Salı"
                Case 4 : gun = "Çarşamba"
                Case 5 : gun = "Perşembe"
                Case 6 : gun = "Cuma"
                Case 7 : gun = "Cumartesi"
            End Select
            MsgBox(gun & " Günü Doğum Gününüz.", MsgBoxStyle.Information, "SONUÇ")
        End If