Ir para o conteúdo
Mateus Diniz

Adicionando valores ao textbox

Mensagens Recomendadas

Mateus Diniz    2
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!

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
aesp    2
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Andrepereira9    4
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

Editado por Andrepereira9

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

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Mateus Diniz    2
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

Editado por ribeiro55

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
ribeiro55    46
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"

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Andrepereira9    4
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

Editado por Andrepereira9

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

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Mateus Diniz    2
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...

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
jota_wa    3
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

Editado por jota_wa

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.