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

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

目的のバーコードをダブルクリックして、[バーコードのプロパティ] ダイアログを開きます。または、オブジェクトのコンテキストメニューから、[プロパティ] を選択します。
ナビゲーションバーで、エンコードするデータを含むデータソースを選択します。
データソースツールバーにあるアイコンを選択して、[新規データソースウィザード] を起動します。
[種類] で [Visual Basic スクリプト] を選択します。
[完了] をクリックして、[新規データソースウィザード] を閉じます。
[スクリプトの種類] を [シングルライン] にしたまま、[スクリプトエディタを使って編集] を選択します。
既存のテキストをエディタペインから削除します。
[スクリプトアシスタント] ペインで、[関数] ノードを展開し、[チェックディジット] ノードを展開します。
目的のチェックデジットの種類をダブルクリックします。
エディタペインで、強調表示されているテキスト («String») を、上記の手順 4 で名前を付けたデータソース共有名に置換します。
[OK] をクリックして、スクリプトエディタを閉じます。

目的のバーコードをダブルクリックして、[バーコードのプロパティ] ダイアログを開きます。または、オブジェクトのコンテキストメニューから、[プロパティ] を選択します。
ナビゲーションバーで、エンコードするデータを含むデータソースを選択します。
データソースツールバーにあるアイコンを選択して、[新規データソースウィザード] を起動します。
[種類] で [Visual Basic スクリプト] を選択します。
[完了] をクリックして、[新規データソースウィザード] を閉じます。
[スクリプトの種類] を [マルチライン] に変更します。
[スクリプトエディタを使って編集] を選択して、スクリプトエディタを開きます。
既存のスクリプトテキストをエディタペインから削除します。
以下のようなカスタムチェックデジット計算アルゴリズムを入力します。

'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)
[OK] をクリックして、スクリプトエディタを閉じます。