28/12/2010, 09:12
|
| | | Fecha de Ingreso: diciembre-2010
Mensajes: 7
Antigüedad: 14 años Puntos: 0 | |
| Pasar Codigo de VB6 a C++
Necesito si alguien me ayuda a pasar esta rutina de claculo de chacksum de VB6.0 a C++
'************** Clacula CheckSUM
For i = 1 To Len(CodigoBarras)
CheckSUM = CheckSUM + Val("&H" & Hex(Asc(Mid(CodigoBarras, i, 1))))
Next i
CheckSUM_TMP = Format(Hex(CheckSUM), "000")
CodigoBarras_New = CodigoBarras & CheckSUM_TMP |