Open topic with navigation

カスタムチェックデジットの作成

既存のチェックディジットアルゴリズムを使用するか、カスタムアルゴリズムを作成することによって、Visual Basic スクリプト (VBScript) にカスタムチェックディジットを作成できます。

Closed既存のアルゴリズムを使用してカスタムチェックディジットを作成するには

  1. バーコードをダブルクリックして [バーコードのプロパティ] ダイアログを開きます。または、バーコードを右クリックし、[プロパティ] をクリックします。

  2. ナビゲーションウィンドウで、エンコードするデータを含むデータソースを選択します。

  3. データソースツールバーにある アイコンをクリックして、[新規データソースウィザード] を起動します。

  4. [種類] リストで [Visual Basic スクリプト] を選択し、[終了] をクリックします。

  5. [スクリプトの種類] リストで [シングルライン] を選択し、[スクリプトエディタで編集] をクリックしてスクリプトの編集。

  6. [エディタペイン] で、 既存の式テキストを削除します。

  7. [スクリプトアシスタント] ペインで、[関数] ノードおよび [チェックディジット] ノードを展開し、目的のチェックディジットの種類をダブルクリックします。

  8. [スクリプトアシスタント] ペインでハイライトしたテキスト ("String") を置き換えるために使用するデータソースをダブルクリックします。

  9. [OK] をクリックして、スクリプトエディタを閉じます。

Closedカスタムアルゴリズムを使用してカスタムチェックディジットを作成するには

  1. バーコードをダブルクリックして [バーコードのプロパティ] ダイアログを開きます。または、バーコードを右クリックし、[プロパティ] をクリックします。

  2. ナビゲーションウィンドウで、エンコードするデータを含むデータソースを選択します。

  3. データソースツールバーにある アイコンをクリックして、[新規データソースウィザード] を起動します。

  4. [種類] リストで [Visual Basic スクリプト] を選択し、[終了] をクリックします。

  5. [スクリプトの種類] リストで [マルチライン] を選択し、[スクリプトエディタで編集] をクリックしてスクリプトの編集。

  6. [エディタペイン] で、 既存の式テキストを削除します。

  7. 次のようなカスタムチェックディジット計算アルゴリズムを入力します。

    'Create a Mod43 check digit

    charSet = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-.$/+%"

    For i = 1 To Len(C39)

    total = InStr(charSet, Mid(C39,i,1)) - 1 + total

    Next

    Value = Mid(charSet, (total Mod 43 + 1), 1)

  8. [OK] をクリックして、スクリプトエディタを閉じます。

関連トピック