Android Time Dialog Tutorial using Basic4Android

Submitted by donbermoy on Monday, January 20, 2014 - 10:10.

Hi! this is my 3rd tutorial on using the Dialogs in B4A. I will introduce another kind of dialog, the Time Dialog. First, you need to create one button and named it Button1. Next, named your layout name as "Main". Declare first your variable in the Sub_Global like this:

Sub Globals
        'These global variables will be redeclared each time the activity is created.
        'These variables can only be accessed from this module.
 
        Dim Button1 As Button
        Dim bmp As Bitmap
End Sub

I have initialized bmp as Bitmap because I wanted to have an icon to my TimeDialog. Here's the full code for this:

Sub Process_Globals
        'These global variables will be declared once when the application starts.
        'These variables can be accessed from all modules.
 
End Sub
 
Sub Globals
        'These global variables will be redeclared each time the activity is created.
        'These variables can only be accessed from this module.
 
        Dim Button1 As Button
        Dim bmp As Bitmap
End Sub
 
Sub Activity_Create(FirstTime As Boolean)
        'Do not forget to load the layout file created with the visual designer. For example:
        'Activity.LoadLayout("Layout1")
        Activity.LoadLayout("Main")
        bmp.InitializeSample(File.DirAssets, "bermoy.jpg",48,48)
        Activity.Title = "Time Dialog - Lyndon Bermoy"
        
End Sub
 
Sub Activity_Resume
 
End Sub
 
Sub Activity_Pause (UserClosed As Boolean)
 
End Sub
 
Sub Button1_Click
        Dim td As TimeDialog
        Dim txt As String
        Dim ret As Object
        td.Hour = DateTime.GetHour(DateTime.Now)
        td.Minute = DateTime.GetMinute(DateTime.Now)
        td.Is24Hours = True
        ret = td.Show("Set the required time", "B4A Time Dialog", "Yes", "No", "Maybe", bmp)
        ToastMessageShow(ret & " : " & td.Hour & ":" & td.Minute, False)
End Sub

Note: td - used as my variable for TimeDialog txt - used as my variable for String ret - used as my variable for Object td.Hour = DateTime.GetHour(DateTime.Now) - my syntax used to get the hour at this moment. td.Minute = DateTime.GetMinute(DateTime.Now) - my syntax used to get the minute at this moment. td.Is24Hours = True - syntax used to determine if you want to configure the time in 24hours. For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below. Best Regards, Engr. Lyndon Bermoy IT Instructor/System Developer/Android Developer/Freelance Programmer Mobile: 09488225971 Landline: 826-9296 E-mail:[email protected] Add and Follow me on Facebook: https://www.facebook.com/donzzsky Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Add new comment

105 views