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

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

 

     

       

     

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

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.