Android Question Advanced test

Erel said:

Nothing special needed. A simple panel with RadioButtons. Or xCLV. Or B4XDialog + B4XListTemplate.

Click to expand...

sfsameer said:

B4A:

Sub Globals
Dim rdMain,rdGroup,rdFinal As RadioButton

End sub

sub Create_Buttons
   
    rdMain.Initialize("rdMain")
    pItems.AddView(rdMain,60%x,16%y,15%x,10%x)
    rdMain.Text = "test 1"
    rdMain.TextColor = Colors.Black
    rdMain.TextSize = 16
    rdMain.Gravity = Gravity.RIGHT
    rdMain.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdMain.BringToFront
    rdMain.TextSize = 18
    rdMain.Checked = True
   
    rdGroup.Initialize("rdGroup")
    pItems.AddView(rdGroup,40%x,16%y,15%x,10%x)
    rdGroup.Text = "test 2"
    rdGroup.TextColor = Colors.Black
    rdGroup.TextSize = 16
    rdGroup.Gravity = Gravity.RIGHT
    rdGroup.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdGroup.TextSize = 18
    rdGroup.BringToFront
   
    rdFinal.Initialize("rdFinal")
    pItems.AddView(rdFinal,20%x,16%y,15%x,10%x)
    rdFinal.Text = "test 3"
    rdFinal.TextColor = Colors.Black
    rdFinal.TextSize = 16
    rdFinal.Gravity = Gravity.RIGHT
    rdFinal.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdFinal.TextSize = 18
    rdFinal.BringToFront

end sub

sub Btn
    If rdMain.Checked = True Then
            log("test 1 Checked")
    End If
    If rdGroup.Checked = True Then
            log("test 2 Checked")
    End If
    If rdFinal.Checked = True Then
            log("test 3 Checked")
    End If

end sub

Click to expand...

sfsameer said:

B4A:

Sub Globals
Dim rdMain,rdGroup,rdFinal As RadioButton

End sub

sub Create_Buttons
   
    rdMain.Initialize("rdMain")
    pItems.AddView(rdMain,60%x,16%y,15%x,10%x)
    rdMain.Text = "test 1"
    rdMain.TextColor = Colors.Black
    rdMain.TextSize = 16
    rdMain.Gravity = Gravity.RIGHT
    rdMain.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdMain.BringToFront
    rdMain.TextSize = 18
    rdMain.Checked = True
   
    rdGroup.Initialize("rdGroup")
    pItems.AddView(rdGroup,40%x,16%y,15%x,10%x)
    rdGroup.Text = "test 2"
    rdGroup.TextColor = Colors.Black
    rdGroup.TextSize = 16
    rdGroup.Gravity = Gravity.RIGHT
    rdGroup.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdGroup.TextSize = 18
    rdGroup.BringToFront
   
    rdFinal.Initialize("rdFinal")
    pItems.AddView(rdFinal,20%x,16%y,15%x,10%x)
    rdFinal.Text = "test 3"
    rdFinal.TextColor = Colors.Black
    rdFinal.TextSize = 16
    rdFinal.Gravity = Gravity.RIGHT
    rdFinal.Typeface = Typeface.LoadFromAssets("arfont.otf")
    rdFinal.TextSize = 18
    rdFinal.BringToFront

end sub

sub Btn
    If rdMain.Checked = True Then
            log("test 1 Checked")
    End If
    If rdGroup.Checked = True Then
            log("test 2 Checked")
    End If
    If rdFinal.Checked = True Then
            log("test 3 Checked")
    End If

end sub

Click to expand...

Erel said:

Repeating the code. There are many patterns to this one and all of them are bad.

Click to expand...