Android Question Advanced test

rezaghasmi

Member
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😅🥴

Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۷-۴۹-۹۳۹_com.sololearn.jpg

Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۶-۵۶-۵۱۳_com.sololearn.jpg
screenshot_%DB%B2%DB%B0%DB%B2%DB%B1-%DB%B0%DB%B1-%DB%B1%DB%B8-%DB%B0%DB%B7-%DB%B2%DB%B5-%DB%B2%DB%B6-%DB%B8%DB%B9%DB%B1_com-sololearn-jpg.106437
 

Attachments

  • Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۶-۵۶-۵۱۳_com.sololearn.jpg
    Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۶-۵۶-۵۱۳_com.sololearn.jpg
    145.4 KB · Views: 169
  • Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۵-۲۶-۸۹۱_com.sololearn.jpg
    Screenshot_۲۰۲۱-۰۱-۱۸-۰۷-۲۵-۲۶-۸۹۱_com.sololearn.jpg
    194.9 KB · Views: 445

sfsameer

Well-Known Member
Licensed User
Longtime User
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
 
Upvote 0

rezaghasmi

Member
❤️❤️
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
❤️❤️
 
Upvote 0

LucaMs

Expert
Licensed User
Longtime User
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
Repeating the code. There are many patterns to this one and all of them are bad.
From here: Code smells (#7)
;)
 
Upvote 0
Top