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.
örnek eski kod:
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.
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
B4X:
#AdditionalJar: com.android.support:design
bu kodu #Region Project Attributes alanına ekleyin ve kullanınız.
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.
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.
takvim kullanma örneği:
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