COMO GERAR PALAVRAS COMECANDO DE A A Z?
Olá galera, eu gostaria de saber se alguém sabe como fazer um botao clicar e fazer o text1.text gerar uma palavra [Ô]a[Ô] e depois clico novamente e ela vira [Ô]aa[Ô] até 6 caracteres, depois dos 6 caracteres serem [Ô]aaaaaa[Ô], ele vira [Ô]b[Ô] e depois [Ô]ba[Ô] e depois vai gerando tudo até que no final fique [Ô]zzzzzz[Ô].
Como posso fazer isso?
Alguém tem algum exemplo pronto?
Obrigado e abraços.
Como posso fazer isso?
Alguém tem algum exemplo pronto?
Obrigado e abraços.
Criei um combo e mandei inserir os valores nele para ver como ficava.
Não sei se é isso que precisa, mas aà pode adaptar.
Dim alfabeto, x
alfabeto = Array([Ô]a[Ô], [Ô]b[Ô], [Ô]c[Ô], [Ô]d[Ô], [Ô]e[Ô], [Ô]f[Ô], [Ô]g[Ô], [Ô]h[Ô], [Ô]i[Ô], [Ô]j[Ô], [Ô]k[Ô], [Ô]l[Ô], [Ô]m[Ô], [Ô]n[Ô], [Ô]o[Ô], [Ô]p[Ô], [Ô]q[Ô], [Ô]r[Ô], [Ô]s[Ô], [Ô]t[Ô], [Ô]u[Ô], [Ô]v[Ô], [Ô]x[Ô], [Ô]y[Ô], [Ô]z[Ô])
For a = 0 To 24
x = alfabeto(a)
For b = 1 To 6
Combo1.AddItem x
x = x & alfabeto(a)
Next
x = [Ô][Ô]
For c = a To 24
x = x & alfabeto(c)
Next
Combo1.AddItem x
Next
Isso vai gerar a, aa, aaa, aaaa, aaaaa, aaaaaa, abcdefghijklmnopqrstuvxyz, b, bb, bbb, bbbb, bbbbb, bbbbbb, bcdefghijklmnopqrstuvxyz e assim por diante.
é só pra vc ter idéia e adaptar como quiser.
Flw
Não sei se é isso que precisa, mas aà pode adaptar.
Dim alfabeto, x
alfabeto = Array([Ô]a[Ô], [Ô]b[Ô], [Ô]c[Ô], [Ô]d[Ô], [Ô]e[Ô], [Ô]f[Ô], [Ô]g[Ô], [Ô]h[Ô], [Ô]i[Ô], [Ô]j[Ô], [Ô]k[Ô], [Ô]l[Ô], [Ô]m[Ô], [Ô]n[Ô], [Ô]o[Ô], [Ô]p[Ô], [Ô]q[Ô], [Ô]r[Ô], [Ô]s[Ô], [Ô]t[Ô], [Ô]u[Ô], [Ô]v[Ô], [Ô]x[Ô], [Ô]y[Ô], [Ô]z[Ô])
For a = 0 To 24
x = alfabeto(a)
For b = 1 To 6
Combo1.AddItem x
x = x & alfabeto(a)
Next
x = [Ô][Ô]
For c = a To 24
x = x & alfabeto(c)
Next
Combo1.AddItem x
Next
Isso vai gerar a, aa, aaa, aaaa, aaaaa, aaaaaa, abcdefghijklmnopqrstuvxyz, b, bb, bbb, bbbb, bbbbb, bbbbbb, bcdefghijklmnopqrstuvxyz e assim por diante.
é só pra vc ter idéia e adaptar como quiser.
Flw
Tópico encerrado , respostas não são mais permitidas