Forum
Aktif konular
Üyeler
Kurallar
Arama
Tahribat.com Forumları 
Visual Basic - Basic - PicBasic ve Türevleri 
[Pembe Tahribat] Visual Basicte Yaş Hesabı :). [Pembe Tahribat] Visual Basicte Yaş Hesabı :).
-
2 tane command buton ekleyin
Private Sub Command1_Click()
Dim d_gun, d_ay, d_yil, b_gun, b_ay, b_yil As Integer 'Sayısal (tam sayı) değişkenleri tanımladık
Dim mesaj As String 'Bir tane sözel (string) değişken tanımladık
b_gun = Left(Now(), 2) 'İçinde bulunulan tarihin gününü aldık
b_ay = Mid(Now(), 4, 2) 'İçinde bulunulan tarihin ayını aldık
b_yil = Mid(Now(), 7, 4) 'İçinde bulunulan tarihin yılını aldık
d_gun = InputBox("Gününü Giriniz.", "Doğum Tarihinizin") 'Mesaj kutusundan kişinin doğum tarihi için gününü sorduk ve onu da d_gun adlı değişkene atadık
d_ay = InputBox("Ayını Giriniz.", "Doğum Tarihinizin") 'Mesaj kutusundan kişinin doğum tarihi için ayını sorduk ve onu da d_ay adlı değişkene atadık
d_yil = InputBox("Yılını Giriniz.", "Doğum Tarihinizin") 'Mesaj kutusundan kişinin doğum tarihi için yılını sorduk ve onu da d_yil adlı değişkene atadık
f_gun = Abs(b_gun - d_gun) 'Bugünün günü ile doğum tarihinin günü arasındaki farkı aldık ama Abs fonksiyonu ile aldık çünkü negatif çıkmasın diye
f_ay = Abs(b_ay - d_ay) 'Bugünün ayı ile doğum tarihinin ayı arasındaki farkı aldık ama Abs fonksiyonu ile aldık çünkü negatif çıkmasın diye
f_yil = Abs(b_yil - d_yil)'Bugünün yılı ile doğum tarihinin yılı arasındaki farkı aldık ama Abs fonksiyonu ile aldık çünkü negatif çıkmasın diye
mesaj = " " & f_gun & " gün, " & f_ay & " ay, " & f_yil & " yıl geçmiştir." 'Vereceğimiz mesajı hazırladık
Form1.Print "Bugünkü tarih :" & Left(Now(), 10) 'Bugünün tarihini yazdırdık
Form1.Print "Sizin doğumunuzdan itibaren" 'Anladın sen onu :)
Form1.Print mesaj 'Mesaj adlı değişkeni form üzerine yazdırdık
End Sub -
bu pembe tahribat yeni mi
ben c# da örnek uygulama paylaşabilir miyim :D
-
isim babası benim niye belirtmiyosunuz yaf? lütfen; (C) Prometheus
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla