Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Modulo 11 - Wie geht das? (https://www.delphipraxis.net/85696-modulo-11-wie-geht-das.html)

rainman51 3. Feb 2007 13:17


Modulo 11 - Wie geht das?
 
Mein Problem:

Man hat ein Editfeld und gibt eine Zahl ein...mit Der Funktion OnExit soll am Ende
überprüft werden ob die Zahl nach Modulo 11 richtig ist..wie genau soll das funktionieren

zb. bei 12

BenjaminH 3. Feb 2007 13:21

Re: Modulo 11 - Wie geht das?
 
Inwiefern richtig? Wenn z.B. x modulo 11=5 sein soll, dann überprüfst du das einfach so:
Delphi-Quellcode:
If (x mod 11)=5 Then

Jürgen Thomas 3. Feb 2007 13:24

Re: Modulo 11 - Wie geht das?
 
Was meinst Du?

a) Ist die Zahl durch 11 teilbar ohne Rest? Dann siehe [oh]Ausdrücke[/oh] mod

b) Prüfziffernberechnung? Dann siehe z.B. Prüfziffern.

Gruß Jürgen

rainman51 3. Feb 2007 13:36

Re: Modulo 11 - Wie geht das?
 
Prüfziffernverfahren...ich hab aber keine ahnung wie das geht..


also man kennt die Prüfziffer nicht sondern gibt eine Zahl in ein Editfeld an...verlässt man es mit (onexit) soll überprüft werden ob sie richtig ist..

Klaus01 3. Feb 2007 13:45

Re: Modulo 11 - Wie geht das?
 
Zitat:

Zitat von rainman51
Prüfziffernverfahren...ich hab aber keine ahnung wie das geht..


also man kennt die Prüfziffer nicht sondern gibt eine Zahl in ein Editfeld an...verlässt man es mit (onexit) soll überprüft werden ob sie richtig ist..

Wenn Du uns nicht mitteilst was richtig ist, dann kann man Dir auch schlecht helfen.

Delphi-Quellcode:
if (x mod 11) = 0 then
  richtig:=true;
oder was?

Grüße
Klaus

BenjaminH 3. Feb 2007 13:46

Re: Modulo 11 - Wie geht das?
 
Wie richtig?
Soll einfach eine bestimmte Zahl darin stehen?
Wenn ja, dann geht das so:
Delphi-Quellcode:
If StrtoInt(Edit.Text)=84375 Then
  ShowMessage('Richtig');
[Edit] Natürlich, Hawkeye, danke.

Hawkeye219 3. Feb 2007 15:18

Re: Modulo 11 - Wie geht das?
 
@Benjamin
IntToStr?

@rainman51
Jürgen hat bereits auf die Prüfziffernberechnung verwiesen. Vielleicht ist diese gemeint, denn im Text heißt es

Zitat:

Falls sich als Prüfziffer eine "10" ergibt, so wird diese Nummer nicht als PZN vergeben. Der Code wäre also ungültig.
Gruß Hawkeye

sakura 3. Feb 2007 17:15

Re: Modulo 11 - Wie geht das?
 
@rainman: Du musst auch sagen welchen Mod-11 check Du haben willst. Da gibt es verschiedene, die alle abhängig vom Hersteller sind. Hier der von HP: http://www.docs.hp.com/cgi-bin/doc3k...90006.10192/60

...:cat:...

rainman51 6. Feb 2007 10:43

Re: Modulo 11 - Wie geht das?
 
Dabei sollen wir die Plausibilität einer Zahl nach Modulo 11 durchführen

Das ganze soll in einem Editfeld stattfinden

marabu 6. Feb 2007 11:09

Re: Modulo 11 - Wie geht das?
 
Hallo,

nochmal mit anderen Worten: viele Prüfzifferverfahren arbeiten mit der Modulo-Operation und es gibt mehrere die mit Modulo-11 arbeiten. Dabei wird stets von einer bestimmten Eingabelänge ausgegangen und die einzelnen Ziffern werden in einer bestimmten Reihenfolge mit einem Gewicht belegt. Alleine dieser Schritt sorgt schon dafür, dass es mehrere Rechenvorschriften gibt. Sollst du nun ein bestimmtes Modulo-11 Verfahren implementieren? Wenn es egal ist, dann nimm irgendeines von der verlinkten Seite.

Wenn du Hilfe brauchst, dann musst du uns mitteilen, wieviele Stellen die abzusichernde Zahl haben soll und für welches Verfahren du dich entschieden hast.

Freundliche Grüße vom marabu


Alle Zeitangaben in WEZ +1. Es ist jetzt 19:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz