1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Visual Basicte.NET Ufak bir Yas Hesaplama Yapalim.


  1. xcorelli

    xcorelli Buralıyım rank8

    Kayıt:
    14 Kasım 2008
    Mesajlar:
    3.137
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Hayat Nereye Suruklerse..
    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 :thumbsup: 8)


    Kod:
    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 :thumbsup: 8)
     
  2. man45

    man45 Öğreniyorum rank8

    Kayıt:
    29 Ağustos 2010
    Mesajlar:
    153
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    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
     
  3. xcorelli

    xcorelli Buralıyım rank8

    Kayıt:
    14 Kasım 2008
    Mesajlar:
    3.137
    Beğenilen Mesajlar:
    0
    Ödül Puanları:
    0
    Şehir:
    Hayat Nereye Suruklerse..
    Yeni Baslayanlar select case yapisini bilmeyebilir bunuda dusunmek gerek :thumbsup: