USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Digitaçao em textbox
Jbr
RIBEIRÃO DAS NEVES
MG - BRASIL
ENUNCIADA !
Postada em 20/09/2007 14:08 hs            
Caros amigos sou leigo e estou prescisando de uma grande ajuda
estou fazendo um progaminha para digitaçao
mas nao consigo fazer um codigo que conte o numero de erros que odigitador cometa
ex:
no label acima do textobox aparece o que deve ser digitado
se alguem puder me ajudar eu agradeço de coração
   
PH1959
não registrado
Postada em 20/09/2007 16:42 hs   
label1= texto a ser digitado
text1 = digitação
label2= marcação dos erros
command1 = botão início
command2= botão fim
no declarations
 
dim contador as integer
 
private sub command1_click()
       aki vai:
         text1.text="" 'limpar o text1
         selecionar aleatoriamente um texto
         label1.caption="texto_selecionado"
         contador=0
label2.caption=0
 end sub
 private sub text1_keyup()
        contador=contador+1
        if mid$(label1.caption,contador,1)<> mid$(text1.text,contador,1) then
              label2.caption= val(label2.caption)+1
        else
        endif
 
     
       
     
     
NeyTrevas
RIO DE JANEIRO
RJ - BRASIL
ENUNCIADA !
Postada em 20/09/2007 16:45 hs         
Tente isso meu amigo. Agora detalhe, só vale para uma palavra, se colocar espaço em branco entre palavras pode não gerar o efeito desejado.
 
Private Sub VerificaErros_Click()
Dim palvra1, palavra2 As String
Dim i, j, verros As Integer
verros = 0
palavra1 = Label1.Caption
palavra2 = Text1.Text
i = Len(Trim(palavra1))
For j = 1 To i
    If Mid(palavra1, j, 1) <> Mid(palavra2, j, 1) Then
        verros = verros + 1
    End If
Next
Text2.Text = Str(verros)
End Sub
Abraços
   
Jbr
RIBEIRÃO DAS NEVES
MG - BRASIL
ENUNCIADA !
Postada em 20/09/2007 19:13 hs            
Meus amigos ainda nao conseguir veja
dim liçao1 as integer
dim liçao2 as integer
liçao1 = "asdfg asdfg asdfg"
liçao2 = "qwert qwert qwert"
no text2 é onde escolhe um nº
se 1
label1 = liçao1 se 2 label1 = liçao2 assim por diante
no text1 devera digitar o que label1 pede
desde já muito obrigado pela atençao.
   
comercial@kirzn
não registrado
Postada em 15/05/2018 08:58 hs   
Olá, somos a Kirzner do Brasil , e somos Especialistas em Lojas Virtuais.

Meu objetivo com esse e-mail e falar um pouco sobre a Melhor e Mais utilizada Plataforma de E-commerce.

Já ouviu falar sobre Magento ?

O Magento é uma das plataformas de comércio eletrônico mais completa e robusta do mercado, sendo utilizada por grandes marcas como Coca Cola, Saraiva, Ideal Cosméticos e muito mais. Agora VOCÊ TAMBEM PODE utilizar essa Plataforma com um CUSTO SUPER ACESSÍVEL.

Mas afinal, o que é a MAGENTO?

A Magento é o ambiente onde o administrador faz todo o gerenciamento da loja, como cadastrar produtos, controlar estoque, pedidos e gerenciar relatórios.

Tem integração fácil com os buscadores como Google, Yahoo e Bing para que seu público alvo te encontre, e você consiga VENDER MUITO MAIS. Também tem integração com centenas de FORMAS DE PAGAMENTO e ENTREGA.

Veja mais como é possível em nosso site, você também ter a sua Loja Magento
http://www.kirznerdobrasil.com.br

Ah, mas eu já tenho uma Loja em Magento e não estou satisfeito com os resultados. Esse e-mail também é para você.


Acesse agora mesmo nosso site e solicite agora um CHECK-UP GRATUITO e veja o que pode melhorar em sua loja.


http://www.kirznerdobrasil.com.br
Ligue Grátis : 0800 591 2170
Atendemos todo o Brasil

Não tem interesse nesta oferta:
http://www.sairdalista.site?u=http://www.vbweb.com.br&c=425cee3a758a1800681D
     
totalconsultas@
não registrado
Postada em 14/06/2018 15:27 hs   
Prezada Empresa

Somos a Total Consultas.


Apresentamos o serviço mais completo e exclusivo de consultas cadastrais mercado.

Consultas cadastrais de CPF / CNPJ Online.  

Consultas Completas, Faturamento Presumido, Restricoes financeiras, dividas, protestos, a partir de R$ 7,00.    

- Sistemas Pos-pago, Pre-pago e Pacotes de consultas.    

- Pacotes com  10 consultas por R$ 70,00.  

- Planos pós-pago a partir de R$ 79,00 / mês.  

- Integracao/API  e personalizacão dos servicos para sua empresa.  


Atendemos todo o Brasil.  


Acesse:   www.totalconsultas.com.br  ou  solicite atendimento personalizado.    


Atenciosamente,  


TOTAL CONSULTAS  
- Distribuidor Autorizado SCPC - Servico Central de Protecao ao Credito


Não tem interesse nesta oferta:
http://www.sairdalista.site?u=http://www.vbweb.com.br&c=4b09c047c864D06C9A82
     
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2018   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página