Bascom: 10 stellige Hexzahl in Dezimalzahl wandeln

[Jesse P. (parker)]

Der RFID Leser von Pollin (Best.Nr. 810 059) gibt die Werte in 
hexadezimaler Form aus, ich brauche die Zahlen in dezimaler Form.

Mit Bascom habe ich mich vorher noch nie beschäftigt, denke aber (noch 
:), es ist einfacher die Ausgabe zu ändern, als alles in C neu zu 
programmieren.

Die Umwandlung von einer hexadezimalen Zahl in einem String zu einer 
dezimalen Zahl geschieht mit Hilfe von Hexval 
(http://avrhelp.mcselec.com/hexval.htm). Leider funktioniert diese 
Umrechnung nur für Zahlen des Typs Long (signed 32 Bit: -2147483648 to 
2147483647). Meinen Versuch den Typ Single (unsigned 32 Bit: 1.5 x 
10^–45 to 3.4 x 10^38) zu verwenden quittiert Bascom mit einer 
Fehlermeldung.

Der Hexwert besteht jedoch aus 5 einzelnen Werten, z.B. 1F00451682, dies 
ist korrekt umgewandelt 133148513922. Entsprechend reicht Long nicht 
aus.

Bevor ich mich jetzt in Bascom mit einer manuellen Umrechnung 
beschäftige, dachte ich, ich frage mal die Experten, ob ich etwas 
übersehen habe und/oder ob mir jemand mit einem Codeschnipsel helfen 
kann.

Hier der bisherige Code, der ohne Fehler kompiliert wird, jedoch im 
Ergebnis falsch ist:

Dim Hexstr As String * 5
Dim Dezzahl As Long

Dezzahl = Hexval(Hexstr)
Hexstr = Str(Dezzahl)
Lcd Hexstr

Ich danke schon einmal vorab für eure Hilfe.

Parker

[Route_66 (Gast)]

Da ich mir keine Anwendung vorstellen kann, wo man den Hex-String von 
RFID's wirklich als Zahl benötigt (z.B. zum Addieren oder 
Multiplzieren),
solltest Du an das Umwandeln einer 48-Bit Hex-Zahl in einen 
Dezimalstring nachdenken. Weil sowas einfach keiner braucht, wird das 
von allen, bei Microcontrollern üblichen, Sprachen nicht unterstützt. 
Auch nicht von BasCom. Du musst es "zu Fuss" selbst machen!

[Route_66 (Gast)]

sorry: 40-Bit Hex-String

[Jesse P. (parker)]

Route_66 schrieb:
> Da ich mir keine Anwendung vorstellen kann, wo man den Hex-String von
> RFID's wirklich als Zahl benötigt (z.B. zum Addieren oder
> Multiplzieren),

Die Kartennummer wird in dem Zeiterfassungsystem unserer Firma dezimal 
eingetragen. Ich brauche den Leser nur zur Anzeige der Kartennummer und 
möchte den Zwischenschritt über einen Taschenrechner vermeiden, ein µC 
kann schließlich rechnen :)
Jedoch nur das, was ich ihm vorgebe und da hapert es derzeit ein wenig.

[Route_66 (Gast)]

d.h. die Verarbeitungssoftware kann keine Buchstaben innerhalb von 
Strings! Wie lang darf denn die Kartennummert werden?

[Route_66 (Gast)]

Ich persönlich würde das so lösen:
Um Zeit zu sparen, muss nicht der Dezimalwert, sondern ein eindeutiger 
Ziffern-String „errechnet“ werden. Ich würde Byteweise verfahren - also 
aus FF -> 255, aus 00 -> 0 und aus 80 -> 128 machen.
Das ergibt in Deinem Beispiel (1F 00 45 16 82) 31 0 69 22 130.
Das geht mit BasCom. Jetzt können 2 Probleme auftauchen: Die Software 
kann keine "Spaces" in der Kartennummer, dann also 031000069022130. Dies 
könnte zum zweiten Problem führen: Die Ziffernfolge wird zu lang, dann 
kann ein immer gleicher Teil (z.B. der manufacturer-code) weggelassen 
werden.

[Jesse P. (parker)]

Route_66 schrieb:
> Das ergibt in Deinem Beispiel (1F 00 45 16 82) 31 0 69 22 130.

Das Programm akzeptiert nur die komplett Dezimalzahl, in dem Fall also 
133148513922. Die Umrechnung habe ich jetzt selber geschrieben, ist ja 
kein Problem, nur ist der Speicherplatz des ATiny2313 sehr begrenzt und 
ich überschreite bei der Verwendung von Single die Grenzen.

Ich vermute, ich werde auf C ausweichen müssen.

Danke für Deine Hilfe!

[Peter D. (peda)]

Jesse Parker schrieb:
> kein Problem, nur ist der Speicherplatz des ATiny2313 sehr begrenzt und
> ich überschreite bei der Verwendung von Single die Grenzen.
>
> Ich vermute, ich werde auf C ausweichen müssen.

Hast Du denn einen Compiler der (long long) unterstützt?

Der AVR-GCC hat das nur sehr codefressend implementiert, läuft daher 
erst auf AVRs >5kB Flash.

Auf dem ATtiny2313 mußt Du es wohl selber implementieren über ein 5 Byte 
Array.
Am einfachsten geht die Subtraktionsmethode von Zehnerpotenzen.


Peter

[Karl H. (kbuchegg)]

Jesse Parker schrieb:
> Route_66 schrieb:
>> Das ergibt in Deinem Beispiel (1F 00 45 16 82) 31 0 69 22 130.
>
> Das Programm akzeptiert nur die komplett Dezimalzahl, in dem Fall also
> 133148513922. Die Umrechnung habe ich jetzt selber geschrieben, ist ja
> kein Problem, nur ist der Speicherplatz des ATiny2313 sehr begrenzt und
> ich überschreite bei der Verwendung von Single die Grenzen.
>
> Ich vermute, ich werde auf C ausweichen müssen.

Auch dort musst du dir die 48 Bit Arithmetik selber schreiben (wenn long 
long nicht verfügbar ist)

Aber habt ihr wirklich so viele Leute?
Umsatztabelle: mit der RFID Nummer in eine Tabelle gehen aus der man die 
Mitarbeiterkennung herausliest.

Das ist sowieso auch aus folgenden Gesichtspunkten besser:
RFID Karten gehen auch schon mal verloren. Die RFID Nummer wird aus der 
Umsetztabelle herausgelöscht, die neue Karte mit ihrer neuen Nummer wird 
der Mitarbeiterkennung zugeordnet.
-> In den restlichen Datenbanken ändern sich keine Kennungen
   Die verlorene Karte wird sofort unbrauchbar, da es für sie keinen
   Eintrag mehr in der Tabelle gibt

[Jesse P. (parker)]

@Peter: Du hast Recht, es liegt wohl eher an der Größe der Zahl denn an 
der Programmiersprache. Das mit dem Array ist ein guter Tip, werde das 
mal testen.

@Karl Heinz: Ich glaube hier besteht noch ein Mißverständnis. Ich nutze 
den RFID Leser nur zur Anzeige der Nummer der RFID Karte. Die serielle 
Schnittstelle wird nicht verwendet.
Bisher muß ich mit einer Karte zum Terminal gehen, welches die Nummer 
eine Sekunde anzeigt, d.h. ich stehe recht lange davor, bis ich die 13 
Stellen der Nummer aufgeschrieben habe. Ok, ich schicke immer meinen 
Kollegen die Nummer holen, aber nunja :)
Den RFID Leser von Pollin habe ich in ein Gehäuse eingebaut und ein LCD 
angeschlossen, dort möchte ich nur die Nummer angezeigt bekommen.

Theoretisch ganz einfach, bis dann die Praxis beginnt, mit 13 stelligen 
Zahlen in kleinen ATinys :)

[Peter D. (peda)]

Jesse Parker schrieb:
> Theoretisch ganz einfach, bis dann die Praxis beginnt, mit 13 stelligen
> Zahlen in kleinen ATinys :)

Kannst Du nicht auf nen ATtiny84 oder 861 wechseln?


Peter

[Karl H. (kbuchegg)]

Jesse Parker schrieb:

> @Karl Heinz: Ich glaube hier besteht noch ein Mißverständnis. Ich nutze
> den RFID Leser nur zur Anzeige der Nummer der RFID Karte. Die serielle
> Schnittstelle wird nicht verwendet.


Ah. ok
Ich dachte, du möchtest den Leser als Eingabegerät in die Zeiterfassung 
benutzen.

> Theoretisch ganz einfach, bis dann die Praxis beginnt, mit 13 stelligen
> Zahlen in kleinen ATinys :)

Ist aber nicht so schlimm.
Arrayaddition ist nicht so schwer und viel mehr brauchst du nicht, wenn 
du dir die 48 Zahlen mit jeweils nur einem einzigen 1 Bit in einer 
Tabelle vorrätig hältst.

[Jesse P. (parker)]

Peter Dannegger schrieb:
> Kannst Du nicht auf nen ATtiny84 oder 861 wechseln?

Das werde ich noch versuchen, habe mich bisher nur mit den ATMegas 
beschäftigt und keinen einzigen ATiny vorrätig.

Die Zahl wird mittlerweile (sehr wahrscheinlich) korrekt berechnet, es 
hapert (vermutlich) an der Wandlung mit STR, um die Zahl auszugeben. 
Aufgrund der beengten Verhältnisse habe ich aber auch nicht viel Platz 
zum Testen. Denke ich werde erst einmal den µC tauschen und dann weiter 
testen.

Vielen Dank für die Ideen!

[Karl H. (kbuchegg)]

Jesse Parker schrieb:
> Peter Dannegger schrieb:
>> Kannst Du nicht auf nen ATtiny84 oder 861 wechseln?
>
> Das werde ich noch versuchen, habe mich bisher nur mit den ATMegas
> beschäftigt und keinen einzigen ATiny vorrätig.
>
> Die Zahl wird mittlerweile (sehr wahrscheinlich) korrekt berechnet, es
> hapert (vermutlich) an der Wandlung mit STR, um die Zahl auszugeben.

Daher auch der Vorschlag das ganze als BCD zu rechnen.
Dann brauchst du keine String Umwandlung :-)

[Jesse P. (parker)]

Karl heinz Buchegger schrieb:
> Daher auch der Vorschlag das ganze als BCD zu rechnen.
> Dann brauchst du keine String Umwandlung :-)

Jau, das macht Sinn. Leider reicht der ATiny2313 nicht, um das mit 
Bascom umzusetzen. Zumindest kenne ich mich mit Bascom zu wenig aus, um 
dort effektiven Code zu erzeugen. Wobei ich auch C nicht so gut kenne, 
aber auf den ATMegas hatte ich immer genug Platz :)

[Karl H. (kbuchegg)]

Nur so als erste Anregung in C

Disclaimer: Der Code ist einfach runtergetippt ohne Rücksicht auf 
Optimierungen. Insbesondere würde sich der Code mächtig vereinfachen, 
wenn bei den Zahlen die Einerstelle an der Arrayposition 0 wäre. Aber 
dann wären die Strings nicht mehr so einfach zu lesen :-)

#include <stdio.h>
#include <string.h>

typedef char LongNum[14];

LongNum Bits[] = { "0000000000001",
                   "0000000000002",
                   "0000000000004",
                   "0000000000008",
                   "0000000000016",
                   "0000000000032",
                   "0000000000064",
                   "0000000000128",
                   "0000000000256",
                   "0000000000512",
                   "0000000001024",
                   "0000000002048",
                   "0000000004096",
                   
                   // .. to be continued
};

void Add( LongNum result, LongNum a, LongNum b )
{
  unsigned char i;
  char carry = 0;
  char digit;
  
  for( i = 0; i < 13; ++i ) {
    digit = a[12-i] + b[12-i] - '0' + carry;
    if( digit > '9' ) {
      digit -= 10;
      carry = 1;
    }
    else
      carry = 0;
    result[12-i] = digit;
  }
  result[13] = '\0';
}

void Calc( LongNum result , unsigned char Hex[5] )
{
  unsigned char i;
  unsigned char j;
  
  strcpy( result, "0000000000000" );
  
  for( i = 0; i < 5; ++i ) {
    for( j = 0; j < 8; ++j ) {
      if( Hex[4-i] & ( 1 << j ) )
        Add( result, result, Bits[ i * 8 + j ] );
    }
  }
}

int main()
{
  LongNum result;
  unsigned char Hex[] = { 0x00, 0x00, 0x00, 0x01, 0xFF };

  Calc( result, Hex );
  
  printf( "%s", result );
}

Die Tabelle der 2-er Potenzen darfst du selbst noch erweitern, bis du 
alle Zahlen bis zur Bitposition 40 hast :-)