B4A ile Android Sistem Takvimini Kullanma

[ugokhan]

merhaba,

daha önceki sürümlerde Dialogs kütühanesine bağlı olarak DateDialog sınıfını kullanıp Android sistem takvimini uygulamaya çağırabiliyordum.

Dim Takvim As DateDialog
Takvim.DateTicks = DateTime.DateParse("21.09.2020")- DateTime.DateParse("01.01.1970")

Cevap = Takvim.Show("", "Bir Tarihi Seçin", "Seç", "", "İptal", Null)
...

10.0 versiyonu daha yeni indirdim fakat bu kütüphaneyi bulamadım. Eskiden yapmış olduğum uygulamalarda bu kısım hata veriyor.

Android sistem takvimini kullanmak için hangi kütüphaneyi seçmeliyiz? basit bir kod örneği eklenirse yararlı da olur.

 

[Ertan]

Merhaba, kolay gelsin öncelikle.

Ben de bugun bir projemde DatePicker kullanmam lazımdı uzun uğraşlar sonucu Android Sistem Takvimini bulabildim;

MaterialDateTimePicker

this is a wrap for this github project. I´m VERY PROUD to present you this Date- and TimePicker Dialog library! I have tried to wrap about 20 different Date and TimePickers in the past 1,5 years. ALL UNSuccessfully. :-( But this one i got working :D MaterialDateTimePicker Author: DonManfred...

www.b4x.com

Bu konuda ki kütüphane ve örnekten yola çıkarak size yardımcı olacaktır.

Bir hata veriyor eğer hata verirse

    #AdditionalJar: com.android.support:design

bu kodu #Region Project Attributes alanına ekleyin ve kullanınız.

 

[ugokhan]

Cevap için teşekkürler.

Dediklerinizi yaptım. En sondaki hatayı verdi. Onu da yaptım. Bu sefer "Maven artifact bulunamadı" hatası verdi. Bunu da biraz araştırdım, çözümü var forumda. İş iyice uzayıp gidiyordu. Bu tarz harici nesnelerde hatalar olabiliyor.

Amacım kullanıcıya takvimden bir gün seçtirmek. 2014 yılındaki versiyonda iki türlü yaptırıyordum bunu. Birincisi resimde görülen kendi yaptığım basit takvim. İkincisi de telefondaki android sisteminin takvimi. Herhangi bir harici library eklememiştim. Şimdi, kendi yaptığım kısmı çıkarıp sadece telefonun takvimini kullanmak istedim.

 

[ugokhan]

bu arada en başta verdiğim kod normal çalışıyormuş. bir yerde hata yapmışım sanırım. Hiç olmazsa bunu kullanmak isteyenler için bir örnek bırakayım.

Dialogs kütüphanesi eklenir. aşağıdaki kod bir butona basınca sistem takvimini ekrana getirir ve seçim yapmanızı bekler. Sonucu bir label üzerine ekler. Bu sayede uygun bir takvim veri girişi sağlamış olursunuz.

Sub Button2_Click
    Dim DlgTakvim As DateDialog
    Dim Cevap As Int
        
    DlgTakvim.DateTicks = DateTime.Now
        
    Cevap = DlgTakvim.Show("", "Bir Tarihi Seçin", "Seç", "", "İptal", Null)
    If Cevap = DialogResponse.POSITIVE Then
        Label1.Text = DlgTakvim.DayOfMonth & "." & DlgTakvim.Month & "." & DlgTakvim.Year
    Else
        Label1.Text = "seçim yapılmadı"
    End If
End Sub