[VB6] Creare automa riconoscitore

[ale500]

Senti ho un pò di domande...
Vedi di rispondere ben benino che ho qui il compilatore aperto con una bozza del tuo progetto...

Allora innanzitutto mi hai detto che:
1. Converti carattere per carattere da HEX a DEC facendo in che modo??? Mettiamo che il mio carattere da convertire sia la "D", come diventerebbe in decimale??? postaci il codice di conversione carattere per carattere che facciamo prima...

2. 28 lo devo sottrarre ad ogni carattere??? devo sottrarre 28 decimale o hex???

3. I dati naturalmente ti arrivano come una unica grande stringa, vero???

4. Nell'esempio che tu hai fatto di conversione HEX-->DEC ci sono delle cose che non portano...
Prima dici che la conversione va fatta carattere per carattere, poi con un numero263A314D3017 dici:

02 Hex = 02 Dec e fin qui tutto OK
poi 63 Hex = 99 Dec e qui non va + bene, o converti un carattere alla volta oppure ci devi dire come fai i raggruppamenti prima della conversione...

Risp che siamo a cavallo, intanto butto giù una bozza...

[ale500]

Allora si può dire che la bozza l'ho terminata ma ci sono dei problemi:

In genere nei sistemi di rilevamento presenza (+ o - quello che stai facendo tu) si imposta a priori dei parametri per la suddivisione del dato (te lo dico perchè ci lavoro proprio con il rilevamento presenza)...

Quindi ad esempio della tua stringa di dati potrebbe essere suddivisa cosi:

BADGE   -> primi 3 caratteri
ANNO    -> 4° carattere, a partire da 1995
MESE    -> 5° carattere
GIORNO  -> 6-7° carattere
ORA     -> 8-9° carattere
MINUTI  -> 9-10°
SECONDI -> 10-11°

ma se tu mi inizi a dire che se per esempio l'ora è 1:00 lui non memorizza 01 ma 1 allora ti posso dire che si sono seri problemi...

Per me qualcosa hai sbagliato a capire...

Se l'ora non è fissa a 2 caratteri allora neanche i minuti, i secondi e cosi via...

cosi una stringa tipo 1234 potrebbe essere che 01 sia l'ora, 23 i minuti e 04 i secondi...

o anche 12 l'ora, 3 i minuti e 4 i secondi...

Credo di aver ragione...Quindi controlla bene, tutti i campi saranno sicuramente a lunghezza fissa...

Se ho ragione fammi una tabellina delle lunghezze come ti ho fatto io, cosi finisco il codice e te lo mando...

Altrimenti cerca di essere + chiaro possibile,
[supersaibal]Io e MdE2005 abbiamo promesso di finirti il codice entro Natale...[/supersaibal]

[ale500]

Ho analizzato la tua precedente stringa che avevi inviato (la prima) e mi da ragione....

I dati sono sempre di 13 caratteri, nei tuoi ultimi post diventavano di 12...

Dami 5 secondi e ti posto il codice, così domani mattina sei tutto bello contento

[WGH]

Mi stai facendo...DAVVERO PAURA!!! VVoVe:

[ale500]

5 secondi è ho pure finito!!!!!

[ale500]

La funzione HexToInt l'hai già fatta oppure no???

[WGH]

Avevo creato una funzione come questa per scrivere correttamente il codice...probabilmente negli esempi che feci all'epoca (marzo) non la avevo ancora implementata!!!

If (Asc(ch) > &HF) Then
            Text1.Text = Text1.Text & "-" & Hex$(Asc(ch))
        Else
            Text1.Text = Text1.Text & "-0" & Hex$(Asc(ch))
        End If

Ma...che lavoro fai, tanto per curiosità!!!
Grazie 1000!

[ale500]

programmatore...
un attimo e ci sono...
non dormire...

[WGH]

Si, era così!

Function dec(value, inBase)
'Converts any base to base 10

    Dim strValue, i, x, y

    strValue = StrReverse(CStr(UCase(value)))

    For i = 0 To Len(strValue) - 1
        x = Mid(strValue, i + 1, 1)
        If Not IsNumeric(x) Then
            y = y + ((Asc(x) - 65) + 10) * (inBase ^ i)
        Else
            y = y + ((inBase ^ i) * CInt(x))
        End If
    Next

    dec = y

End Function

E la richiamavo con

dec(Hex$(Asc(ch) - &H28), 16)

[ale500]

Ma allora questo &H28 non è un codice di criptazione
Semplicemente che i numeri in ASCII non partono dallo 0 ma da un altro valore...

cmd la funzione DEC la prendo...se dici che funzia...
Anzi la provo e ti faccio sapere...

Mi manca soltanto da riconvertire i numeri...
Un attimo di pazienza..