diogobruno

taí Var renavam : string; soma, digito : integer; valor, verificador : integer; i, j : integer; begin j := 1; soma := 0; renavam := edt_renavam.Text; For i := 5 downto 2 do begin soma := soma + (StrToInt(renavam[j]) * i); j := j + 1; end; valor := soma mod 11; digito:= StrToInt(renavam[6]); if((valor <= 1) or (valor >= 10)) then verificador := 0 else verificador := valor; If (digito = verificador) then showmessage ('Renavam nº '+ renavam+ ' Valido!!!') else showmessage ('Renavam nº '+ renavam+ ' invalido!!!');

Em VB eu Consegui com o seguinte código.. se precisar implementar em outra linguagem só pidir, ou se tiver alguma duvida quando a logica também Dim Renavam As String Dim Numeros(5) As String Dim I, J As Integer Dim Soma, Valor As Single Dim Digito As Integer J = 0 Renavam = txt_renavam.Text Renavam = Replace(Renavam, "-", "") For I = 1 To 5 Numeros(I - 1) = Mid(Renavam, I, 1) Next For I = 5 To 2 Step -1 Soma = Soma + (Numeros(J) * I) J = J + 1 Next Valor = Soma Mod 11 If ((Valor = 1) Or (Valor = 0) Or (Valor >= 10)) Then Digito = 0 Else Digito = Valor End If Label2.Caption = Digito & " " & Numeros(4) & " " & Soma & " " & Digito If (Digito = Numeros(4)) Then MsgBox ("Renavam nº " & Renavam & " Valido!") Else MsgBox ("Renavam nº " & Renavam & " Invalido!") End If

Nunca vi um numero desse =p mas qual a regra da validação?