Pessoal, sou iniciante em B4A, comecei meu primeiro aplicativo ontem, mas, estou com duvida sobre como mostrar meu mapa em tela.
Fiz um mapa para gerar números randômicos, mas, não consigo de forma alguma exibir o resultado em tela.
Como posso fazer para exibir o resultado em uma mensagem, ou em um label, ao clicar no botão Mostrar_click?
Desde já agradeço,
obrigada.
Sub btn_Mostrar_Click As Map
numeroMap.Initialize
numeroMap = CreateMap("Numero 1":1, "Numero 2":2)
qtdNumerosTotal = 0
qtdNumeros = 0
If Rb_17.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 17
Else
If Rb_18.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 18
Else
If Rb_19.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 19
Else
If Rb_20.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 20
Else
If Rb_21.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 21
Else
If Rb_22.Checked Then
qtdNumerosTotal = 26
qtdNumeros = 22
End If
End If
End If
End If
End If
End If
Do Until numeroMap.Size=qtdNumeros
numeroMap.Put(Rnd(qtdNumerosInicial,qtdNumerosTotal+1),Null)
Você tem que criar um layout, adicionar um label (por exemplo) e no evento click do botao colocar label.text = xxxx
Vou fazer um exemplo para você. me dê alguns minutos.
Pessoal, deu certo, consegui.
Agradeço pela ajuda!!
Somente mais uma dúvida: com relação ao MAP que utilizei o resultado foi {13=null, 6=null, 14=null...}. Existe uma forma de demonstrar somente os números, sem as chaves, = e null? Vi que para o null, posso deixar como " " que fica um espaço em branco, então tudo bem. Mas com relação ao = e as {} é possível retirar?
O código abaixo talvez te ajude. Mas o ponto é que Map é uma estrutura de dados, não é uma string.
B4X:
Dim m As Map
m.Initialize
m.Put(1,"a") '1 é a key, e a é o value
m.Put(2,"")
m.Put(3,"b")
Log(m) 'não é correto fazer isso pois pode ter uma imagem como valor e vai dar erro ao fazer log de uma imagem
'saída: (MyMap) {1=a, 2=, 3=b}
Dim sm As String = m 'nao é correto
Log(sm.Replace("{","").Replace("}",""))
'saída: (MyMap) 1=a, 2=, 3=b
For Each key In m.keys 'forma correta de fazer
Log(key & ", " & m.Get(key))
Next
'saída do for
'1,a
'2,
'3,b
Quando eu comecei aqui eu li e fiz alguns dos exemplos que estão nos Booklets. Levei uns dois dias para passar por todos e valeu muito a pena.