Android Question Advanced test

[rezaghasmi]

Hi?️?
How do I make an optional four-choice vacancy test in an advanced test?

Is there a library?
I am a newcomer, please help me??

 

[Erel]

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

 

[rezaghasmi]

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

Show me the source code? Please explain more I am a newcomer??

 

[sfsameer]

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

 

[rezaghasmi]

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

 

[LucaMs]

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

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

From here: Code smells (#7)