Jump to content
Mateus Diniz

Adicionando valores ao textbox

Recommended Posts

Mateus Diniz

Olá,amigos!

Bom,minha dúvida é a seguinte,

Eu tenho 1 textbox e 1 button.

No caso quero que quando a pessoa clique no button1,quero que o programa adicione 2 zeros para cada caracter do textbox1,exemplo :

A pessoa digita no textbox1:

Portugal

Quando ela clicar no button o valor do textbox1 terá que ser :

P00O00R00T00U00G00A00L

Desde já,obrigado!

Share this post


Link to post
Share on other sites
aesp

Uma das coisas que poderias fazer, é ao haver o click nesse botão, apanhavas o texto da textbox e dividia-lo, por um array, em seguida a cada posição do array, adicionavas à string dois zeros. Isto poderia ser feito através de um ciclo For, por exemplo.

Não sei se estás familiarizado com os ciclos for e com os os array, mas teremos certamente todo o gosto em ajudar-te. Se já tiveres algum código feito, coloca-o aqui.

Abraço.

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Apenas uma das muitas formas de fazer isso

For i As Integer = 0 To TextBox1.Text.Length - 1
 TextBox2.Text &= TextBox1.Text.Chars(i).ToString + "00"
Next

Edited by Andrepereira9

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Mateus Diniz

Boas

Apenas uma das muitas formas de fazer isso

For i As Integer = 0 To TextBox1.Text.Length - 1
 TextBox2.Text &= TextBox1.Text.Chars(i).ToString + "00"
Next

Olá, amigo quase deu certo,só deu 1 errinho,ao clicar no button ele adiciona o texto com os 00,porém o outro texto ( o texto normal) ainda continua lá,fica :

PortugalP00R00T00U00G00A00L

O código foi esse:

		For i As Integer = 0 To sNomeitem.Text.Length - 1
		sNomeitem.Text &= sNomeitem.Text.Chars(i).ToString + "00"
	Next

Edited by ribeiro55

Share this post


Link to post
Share on other sites
ribeiro55

E não consegues resolver isso? Já sabes como colocar texto mas não consegues perceber como tirar o que lá estava?


Sérgio Ribeiro


"Great coders aren't born. They're compiled and released"
"Expert coders do not need a keyboard. They just throw magnets at the RAM chips"

Share this post


Link to post
Share on other sites
Andrepereira9

Porque tu estas a adicionar o texto sem teres apagado o que estava antes na textbox...

O exemplo que te deu utilizava 2 textboxes, e o teu codigo esta a fazer tudo na mesma textbox

Experimenta assim:

Dim aux As String = sNomeitem.Text
sNomeitem.Text = String.Empty

For i As Integer = 0 To aux.Length - 1
  sNomeitem.Text &= aux.Chars(i).ToString + "00"
Next

Edited by Andrepereira9

A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
Mateus Diniz

Porque tu estas a adicionar o texto sem teres apagado o que estava antes na textbox...

O exemplo que te deu utilizava 2 textboxes, e o teu codigo esta a fazer tudo na mesma textbox

Experimenta assim:

Dim aux As String = sNomeitem.Text
sNomeitem.Text = String.Empty

For i As Integer = 0 To aux.Length - 1
  sNomeitem.Text &= aux.Chars(i).ToString + "00"
Next

Deu certo,obrigado!

Tenho +1 dúvida,se você souber responder...

É o seguinte,tenho 1 strings e 1 array quero substituir o valor de 1 pelo valor indexado no array,segue o código :

       Dim darkhero As String = "FF FF FF FF @tidID @TidNomeIt 00 FF @tidchar 00 00 00 @tidClasse 00 00 00 35 00 00 00 1D 02 00 00 @tidtipoitem @tidAcessorio 00 00 00 00 00 00 @tidatk 00 00 00 @tiddefesa 00 00 00 @tidhp 00 00 02 00 00 CC CC CC CC CC CC CC CC CC 39 00 30 00 @tidmoeda 00 00 00 @tidpreco 00 "

       Dim dark As String() = {
        "@tidID|" & sids.Text,
        "@TidNomeIt|" & sNomeitem.Text,
        "@tiddescricaao|" & sdescricao.Text,
        "@tidchar|" & commandModule.compareCheckBoxArray({selesis, slire, sarme, slass, srian, sronan, sgeral}, {"01", "02", "04", "08", "10", "20", "3F"}),
        "@tidClasse" & commandModule.compareCheckBoxArray({class1, class2, class3, class4}, {"00", "01", "02", "03"}),
        "@tidtipoitem" & commandModule.compareCheckBoxArray({selmo, scota, scalca, sluva, sbota, scapa, sarma, sacessorio}, {"02", "04", "08", "10", "20", "40", "80", "00"}),
        "@tidAcessorio" & commandModule.compareCheckBoxArray({sdiadema, sasas, sescudo, sfacas, smascara, sequipamento}, {"01", "08", "20", "10", "02", "00"}),
        "@tidatk" & satk.Text,
        "@tiddefesa" & sDef.Text,
        "@tidhp" & sHp.Text,
        "@tidmoeda" & commandModule.compareCheckBoxArray({stgp, stcash, stcristal, stgema}, {"00", "01", "02", "03"}),
        "@tidpreco" & spreco.Text,
        "@tidloja" & commandModule.compareCheckBoxArray({slojasim, slojanao}, {"00", "01"})}

Criei 1 função para comparar os checkbox,segue ela :

 Public Function compareCheckBox(chk As CheckBox, trueValue As String, falseValue As String) As String
       If chk.Checked Then
           Return trueValue
       Else
           Return falseValue
       End If
   End Function

   Public Function compareCheckBoxArray(chk() As CheckBox, ByVal values() As String) As String
       If Not chk.Count = values.Count Then
           MessageBox.Show("tamanho dos arrays não são iguais")
           Return Nothing
       End If
       Try

           For c As Integer = 0 To chk.Count
               If chk(c).Checked Then
                   Return values(c)
                   Exit For
               End If
           Next
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

No caso oque eu não consigo é fazer é com que o programa substitua os campos que estão com @tidItem,@tidnome na string darkhero pelos campos

que estão no array dark...

um exemplo :

A primeira parte :

FF FF FF FF @tidID

no lugar do @tidID,deveria ficar oque está escrito no sids.Text,igual como está na array

"@tidID|" & sids.Text,

se alguém souber me ajudar...

Share this post


Link to post
Share on other sites
jota_wa

Boas

Podes fazer assim:


For Each str As String In dark
    Dim partes As String() = str.Split("|")
    darkhero = darkhero.Replace(partes(0), partes(1))
Next

Cumps

Edited by jota_wa
  • Vote 1

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.