Se ingresa unca cadena de numero en jTextRut.Text y esto genera un resultado en jTextDigito.Text.
creo que tiene problema con el if, select y el for, necesito corregirlo..
por ejemplo:
11111111-1
imagen de ejemplo
http://i43.tinypic.com/2lkqlmv.png
este es el algoritmo, no me lo reconoce netbeans como tal.
Cita:
private void jTextRutKeyReleased(java.awt.event.KeyEvent evt) {
// TODO add your handling code here:
If jTextRut.Text = "" {
jTextDigito.Text = "" ;
}
int Vari1, Vari2, Vari3;
Vari3 = 2
For I = 0 To Len(jTextRut) - 1
If Left(Right(jTextRut, I + 1), 1) <> "." Then
Vari1 = Vari1 + Left(Right(jTextRut, I + 1), 1) * Vari3
Vari2 = Vari1 % 11
Select Case Vari2
Case 0
jTextDigito.Text = "0"
Case 1
jTextDigito.Text = "K"
Case Else
jTextDigito.Text = 11 - Vari2
End Select
If Vari3 = 7 Then
Vari3 = 2
Else
Vari3 = Vari3 + 1
End If
End If
Next
}
// TODO add your handling code here:
If jTextRut.Text = "" {
jTextDigito.Text = "" ;
}
int Vari1, Vari2, Vari3;
Vari3 = 2
For I = 0 To Len(jTextRut) - 1
If Left(Right(jTextRut, I + 1), 1) <> "." Then
Vari1 = Vari1 + Left(Right(jTextRut, I + 1), 1) * Vari3
Vari2 = Vari1 % 11
Select Case Vari2
Case 0
jTextDigito.Text = "0"
Case 1
jTextDigito.Text = "K"
Case Else
jTextDigito.Text = 11 - Vari2
End Select
If Vari3 = 7 Then
Vari3 = 2
Else
Vari3 = Vari3 + 1
End If
End If
Next
}