Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
y solo se puede utilizar un tipo de fuente y listo, no creo!
'Cálculo del dígito de control EAN
Dim iSum As Integer = 0
Dim iDigit As Integer = 0
Dim EAN As String = "123456789041" 'EAN de prueba
For i As Integer = EAN.Length To 1 Step -1
iDigit = Convert.ToInt32(EAN.Substring(i - 1, 1))
If (EAN.Length - i + 1) Mod 2 <> 0 Then
iSum += iDigit * 3
Else
iSum += iDigit
End If
Next
Dim iCheckSum As Integer = (10 - (iSum Mod 10)) Mod 10
Console.Write("Dígito de control: " & iCheckSum.ToString())
<html>
<head></head>
<body>
<script language="javascript" type="text/javascript">
function valida_envia(){
var FiltroRx = /[0-9]{8}/;
if (document.form1.titulo.value.length==0){
alert("Ingrese su codigo");
return false;
}
else if (!FiltroRx.test(document.form1.titulo.value)){
alert('error,solo se aceptar 8 digitos')
return false;
}
else {
return true;
}
}
//Este Codigo permite Validar que sea un campo Numerico
function Solo_Numerico(variable){
Numer=parseInt(variable);
if (isNaN(Numer)){
return "";
}
return Numer;
}
function ValNumero(Control){
Control.value=Solo_Numerico(Control.value);
}
//fin de function Solo_Numerico
</script>
<form name="form1" action="insertar_datos.php" onSubmit="valida_envia(this)">
codigo:
<input type="text" name="titulo" maxlength="8" onkeyUp="return ValNumero(this);">
<input type="submit" value="Enviar">
</form>
</body>
</html>