Source code menentukan digit kontainer untuk nama kontainer standard dengan delphi

 Kali ini saya akan share source code untuk menghitung digit terakhir kontainer, untuk membuat sebuah nama kontainer tidak bisa sembarangan karena ada pedoman pembuatannya.

Jika sebuah kontainer tidak memiliki nama sesuai pedoman maka akan sulit untuk di kirim secara international.

Kebetulan saya membuat coding untuk kalkulasi digit container, berikut ini source codenya

const

  arrAlphabet: Array [0 .. 25] of string = ('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');

 arrAlphanumb: Array [0 .. 25] of byte = (10, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 34, 35, 36, 37, 38);

// new

function getdigitcont(Number: string): string;

var

  i, j, index: Integer;

  jumlah, val, stepb, stepc, stepd, hasil: real;

begin

  try

    if length(Trim(Number)) <> 10 then

      exit;

    jumlah := 0;

    for i := 0 to 9 do

    begin

      if i < 4 then

      begin

        for j := 0 to 25 do

        begin

          if arrAlphabet[j] = Number.Substring(i, 1) then

          begin

            index := j;

          end;

        end;

        val := arrAlphanumb[index] * pangkat(2, i);

      end

      else

      begin

        val := strtoint(Number.Substring(i, 1)) * pangkat(2, i);

      end;

      jumlah := jumlah + val;

    end;

    stepb := jumlah / 11;

    stepc := floor(stepb);

    stepd := stepc * 11;

    hasil := jumlah - stepd;

  except on e:exception do

    ShowMessage(e.ToString);

  end;

  result := floattostr(hasil);

end;

 

untuk mengetahu lebih detail cara untuk menghitung kontainer dibawah ini

http://www.gvct.co.uk/2011/09/how-is-the-check-digit-of-a-container-calculated/

untuk versi javascript bisa lihat disini 

https://github.com/langerheiko/Calc-ILU-check-digit/blob/master/calc_check_digit.js

Share :