XProfan

Source wurde am 02.03.2007 in die Babyklappe auf XProfan.Com abgelegt:
Source wurde am 01.03.2007 in die Babyklappe auf XProfan.Com abgelegt:
Danke dem edlen Spender - an Profan angepaßt  WOD

Proc getCheckDigit

    Parameters ISBN$
    Declare erg$, lngSum&
    ISBN$ = Translate$(ISBN$,-,)

    WhileLoop 9

        lngSum& = lngSum& + (11 - &loop) * Val(Mid$(ISBN$,&loop,1))

    EndWhile

    erg$ = format$(#0,(11 - (lngSum& mod 11)) mod 11)
    case erg$ = 10 : erg$ = X
    Return erg$

EndProc

Proc Test

    Declare ISBN$
    ISBN$ = 3-7609-4012-9
    MessageBox(ISBN$+Chr$(13)+Chr$(10)+getCheckDigit(ISBN$),ISBN-Checksumme Ok?,0)

EndProc

test
end

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
ISBN-Nummer überprüfen
Source wurde am 30.08.2006 in die Babyklappe auf XProfan.Com abgelegt:
Diese Proc prüft, ob eine ISBN-Nummer valid ist.
Eine valide ISBN-Nummer ist z.B.: 0-672-31285-9.
Jede Zahl wird mit ihrer Position multipliziert.
Wenn das Ergebnis durch 11 teilbar ist, ist die Nummer valid: 0*10 + 6*9 + 7*8 + 2* 7 usw.
Da ich blutiger Anfänger bin wird das wohl viel eleganter zu lösen sein.Trotzdem.....
Declare Eingabe$,Ziffer%[10],Ergebnis%

Proc Isbn_pruef

    Let Eingabe$ = @Translate$(Eingabe$,-,)

    Whileloop 10

        Ziffer%[&Loop] = @Val(@Mid$(Eingabe$,&Loop,1))

    Endwhile

    Let Ziffer%[1] = Ziffer%[1]*10
    Let Ziffer%[2] = Ziffer%[2]*9
    Let Ziffer%[3] = Ziffer%[3]*8
    Let Ziffer%[4] = Ziffer%[4]*7
    Let Ziffer%[5] = Ziffer%[5]*6
    Let Ziffer%[6] = Ziffer%[6]*5
    Let Ziffer%[7] = Ziffer%[7]*4
    Let Ziffer%[8] = Ziffer%[8]*3
    Let Ziffer%[9] = Ziffer%[9]*2
    Let Ziffer%[10] = Ziffer%[10]*1
    Let Ergebnis% = Ziffer%[1]+Ziffer%[2]+Ziffer%[3]+Ziffer%[4]+Ziffer%[5]+Ziffer%[6]+Ziffer%[7]+Ziffer%[8]+Ziffer%[9]+Ziffer%[10]

    If (Ergebnis% Mod 11 = 0)

        Print richtige ISBN-Nummer

    Else

        Print ungültige ISBN-Nummer

    Endif

Endproc

Cls
Eingabe$ = @Input$(ISBN Nummer eingeben:, ISBN-Nummer prüfen, 0-6723-1285-9)
Isbn_pruef
Waitinput