トップページ⇒tech
42コメント11KB

HELP：モジュラス43のVBコード教えて

■ このスレッドは過去ログ倉庫に格納されています
0001モジュラス43NGNG
只今、納期に追われてます・・・
チェックデェジットのモジュラス43をＶＢで至急書かなければなりません。
アルゴリズムは解ったのですが、ＶＢコードの関数お持ちの方、実コード教えて下さい。
お願いします・・・・

0002デフォルトの名無しさんNGNG

























0003デフォルトの名無しさんNGNG









っっっっっっっっっっっっっっっっっっっっっっっっっっｄ







っっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっっｄ
ｄ
0004モジュラス43NGNG
モジュラス43はCODE39で用いられるチェックデジットの計算方法です。よね！
0005デフォルトの名無しさんNGNG
2get
0006デフォルトの名無しさんNGNG
だれかゴルゴ１３に依頼して>>1を･･･
0007デフォルトの名無しさんNGNG
VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用

という地位だそーです（.net magazine 4月号より）。VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用

という地位だそーです（.net magazine 4月号より）。VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用

という地位だそーです（.net magazine 4月号より）。VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用

という地位だそーです（.net magazine 4月号より）。VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用

という地位だそーです（.net magazine 4月号より）。
0008デフォルトの名無しさんNGNG
VB開発者は

アメリカでは、VBはプロ用
ジャパンでは、VBは素人用
という地位です（日本語版 .net magazine 4月号より）

アメリカでは、VBは素人用
ジャパンでは、VBはプロ用
という地位です（英語版 .net magazine 4月号より）
0009モジュラス43NGNG
14桁+ＣＤのバーコード印刷で使う必要があります。
ＶＢ実コードお持ちの方、助けてください。
0010モジュラス43NGNG
HELP!!です
0011デフォルトの名無しさんNGNG
　 ∧＿∧
　（　´∀｀）＜　ぬるぽ
0012デフォルトの名無しさんNGNG
誰も真面目に応えようとしないな…
>>1
アルゴリズム判ってんならてめぇで書けよ脳足りん！
つか、いちいち俺様専用ｽﾚ勃てんな禿！
0013デフォルトの名無しさんNGNG
すでにこの板では、VB 使いは煽られもしない。
0014mod43("TEST") => "E"NGNG
Function mod43(ByVal code As String) As String
Const tbl = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-+・$/% "
Dim i As Integer, t As Integer
t = 0
For i = 1 To Len(code) '([0-9A-Z]|-|\+|・|$|/|%| )以外はしらんよ
t = t + (InStr(tbl, Mid(code, i, 1)) - 1)
Next
mod43 = Mid(tbl, (t Mod 43) + 1, 1)
End Function
0015デフォルトの名無しさんNGNG























0016モジュラス43NGNG
14>お礼】mod43("TEST") => "E"さん
ありがとう！
今日も休出で、他案件バタバタしてまして、助かりました。

ｐｓ）初書き込みで、藁にも縋る思いで書き込みしました。
クソからのボコボコ書き子も覚悟してましたが、、、
本当の良識ある「神」も、ここにはいるのですね！ホッしました。

・・・ネッ！>12クン
0017デフォルトの名無しさんNGNG























　
0018デフォルトの名無しさんNGNG
死ね、低級（低給）コーダ。

クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
クソからのボコボコ書き子も覚悟してましたが、、、
0019デフォルトの名無しさんNGNG
for i = 1 to -1
i := i + 0;
0020デフォルトの名無しさんNGNG
>>19
forの最後に doがないぞ。
0021デフォルトの名無しさんNGNG
>>16
情け心はあるかもしれないが、決して良識のなせる技じゃない。
こうやって助け舟を出してもらっていては、
あんたはいつまでたっても無能なままだからだ。
0022デフォルトの名無しさんNGNG
>>21さん
納期を守るのがプロ。例え、どんな手段を使ってもね。
アマはテク求めるけど・・・
「無能」ってあんあり使わないほうがいいよ。
ねっ　>>21さん
0023デフォルトの名無しさんNGNG
>>22
本当のプロなら最後にわざわざ喧嘩なんぞ売らんと思うが。
0024デフォルトの名無しさんNGNG
>>23
ははは、おっしゃる通り。
おれもまだまだ、セミだね。
で、あんたは？
0025デフォルトの名無しさんNGNG
>>16
> クソからのボコボコ書き子も覚悟してましたが、、、

偉い!よくぞ言った!
0026デフォルトの名無しさんNGNG
>>22
だって無能じゃん。
0027デフォルトの名無しさんNGNG
>>26
あんたは、偉い！！
誉めてやるよ。
0028デフォルトの名無しさんNGNG
>>26
VBごときで死んでるからまぁ、来年は転職だろう。
0029デフォルトの名無しさんNGNG
>>28を晒しあげ
0030デフォルトの名無しさんNGNG
　 ∧＿∧
　（　´∀｀）＜　ぬるぽsage
0031デフォルトの名無しさんNGNG
削除依頼
0032山崎渉NGNG
（＾＾）
0033山崎渉NGNG
　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）
0034山崎渉NGNG
　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉
0035 ◆muE155WXIk NGNG
あｓ
0036 ◆muE155WXIk NGNG
ｓｓｓｓ
0037デフォルトの名無しさんNGNG
糞スレの予感
0038山崎 渉NGNG

　__∧＿∧_
　|（　　＾＾ ）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣
0039山崎 渉NGNG
（＾＾）
0040デフォルトの名無しさんNGNG
ぬるぽ
0041山崎 渉NGNG
　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン
0042abcNGNG
写真集だよん☆☆☆☆☆☆
http://www.sexpixbox.com/pleasant/sexy/index.html
■ このスレッドは過去ログ倉庫に格納されています