[xcorelli]

Evet Arkadaslar visual basici ufak tefek kavradigima inaniyorum.Ve ogrendigim calismalari burada paylasacagim.​

Forma Eklenecekler=4 Adet TextBox 3 Adet Label 1 Adet Buton Ekleyecegiz ve Formun Code Penceresine verdigim kodlari inceleyerek Yapistirin Ama sunu soyliyim direk copy paste yaparsaniz codlara hic bakmazsaniz bisey ogreneceginizi sanmiyorum teker teker incelegin onun icin
1.Texboxa Dogdugunuz Gunu(Ornek=5)
2.Textboxa Dogdugunuz Ayi(Ornek= 7)
3.Textboxa Dogdugunuz Yili(Orgenin= 1991)
4.TextBoxda Yasinizi Gostericek Dogdugunuz Mevsimi Gostericek.​

Labelleride kendinize gore TextBoxlarin yanina Getirerek Isim koyabilirsiniz karismamasi icin ​

Public Class Form1
    Dim k, t, c, z As Integer
    Dim v, f As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        k = Val(TextBox1.Text)
        t = Val(TextBox2.Text)
        c = Val(TextBox3.Text)
        If t = 1 Then
            v = "Ocak"
        ElseIf t = 2 Then
            v = "Subat"
        ElseIf t = 3 Then
            v = "Mart"
        ElseIf t = 4 Then
            v = "Nisan"
        ElseIf t = 5 Then
            v = "Mayis"
        ElseIf t = 6 Then
            v = "Haziran"
        ElseIf t = 7 Then
            v = "Temmuz"
        ElseIf t = 8 Then
            v = "Agustos"
        ElseIf t = 9 Then
            v = "Eylul"
        ElseIf t = 10 Then
            v = "Ekim"
        ElseIf t = 11 Then
            v = "Kasim"
        ElseIf t = 12 Then
            v = "Aralik"
        End If
        If t = 12 Or t = 1 Or t = 2 Then
            f = "kıs"
        ElseIf t = 3 Or t = 4 Or t = 5 Then
            f = "ilk bahar"
        ElseIf t = 6 Or t = 7 Or t = 8 Then
            f = "yaz"
        ElseIf t = 9 Or t = 10 Or t = 11 Then
            f = "son bahar"
        End If
        z = 2010 - c
        TextBox4.Text = k & " " & v & " " & c & "  Tarihinde  " & f & " günü Dunyaya Geldiniz ve " & z & " yaslarindasiniz."
    End Sub
End Class

Bir Sorun olursa konu altina yazin

 

[man45]

Konu Güzel ama Şunu Codlarını Select case yapılışı daha güzel olur bence Ve buyrun Paylaşıyorum Ve Bide İnputboxla Bize Bugunun Tarihini ve Doğum Tarihimizi Sölicek ....

Public Class Form1

Dim gün, zaman, tarih1, tarih2 As Integer
Dim ay, f As String



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
gün = Val(TextBox1.Text)
zaman = Val(TextBox2.Text)
Select Case zaman
Case 1
ay = "Ocak"
Case 2
ay = "Şubat"
Case 3
ay = "Mart"
Case 4
ay = "Nisan"
Case 5
ay = "Mayıs"
Case 6
ay = "Haziran"
Case 7
ay = "Temmuz"
Case 8
ay = "Ağustos"
Case 9
ay = "Eylül"
Case 10
ay = "Ekim"
Case 11
ay = "Kasım"
Case 12
ay = "Aralık"
End Select

If zaman = 12 Or zaman = 1 Or zaman = 2 Then
f = "kıs"
ElseIf zaman = 3 Or zaman = 4 Or zaman = 5 Then
f = "ilk bahar"
ElseIf zaman = 6 Or zaman = 7 Or zaman = 8 Then
f = "yaz"
ElseIf zaman = 9 Or zaman = 10 Or zaman = 11 Then
f = "son bahar"
End If
tarih1 = tarih1 - tarih2
TextBox4.Text = zaman & " " & ay & " " & tarih2 & " Tarihinde " & f & " günü Dunyaya Geldiniz ve " & tarih1 & " yaslarindasiniz."

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
tarih1 = InputBox("Bu Günün Tarihini Giriniz", "Tarih", "", 55, 50)
tarih2 = InputBox("Doğum Tarihini Giriniz", "Tarih", "", 55, 50)
Label1.Text = "Bu Günün Tarihi : " & tarih1
End Sub
End Class


Facebok V.B Konu Anlatımlar : http://www.facebook.com/photo.php?fbid=127223460670663&set=a.127016144024728.18729.127016054024737#!/pages/Visual-Basic-Dersleri/127016054024737

 

[xcorelli]

Yeni Baslayanlar select case yapisini bilmeyebilir bunuda dusunmek gerek