FeliCa でソフトを作� ..

---

[2ch|▼Menu]

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
74:デフォルトの名無しさん 08/10/28 22:18:09 If (PollingAndGetCardInformation(udtPolling, bytNumberOfCard, udtCardInformation) = 0) Then MsgBox "Can't find FeliCa." Else IDm = "" For i = 0 To 7 IDm = IDm + Hex(bytCardIdm(i)) Next i Sheets(1).Cells(1, 1).Value = IDm End If If (CloseReaderWriter() = 0) Then MsgBox "Can't close reader writer." If (DisposeLibrary() = 0) Then MsgBox "Can't dispose library." Exit Sub End If Exit Sub End If 75:デフォルトの名無しさん 08/10/28 22:21:05 If (DisposeLibrary() = 0) Then MsgBox "Can't dispose library." Exit Sub End If End Sub 76:デフォルトの名無しさん 08/10/28 23:32:28 これ、エクセルのvbaか？ 77:デフォルトの名無しさん 08/10/29 01:07:54 ソフトでFeliCaを作りまくるほうがいい。

---

次ページ

最新レス表示

スレッドの検索

類似スレ一覧

話題のニュース

おまかせリスト

▼オプションを表示

レスジャンプ

mixiチェック！

Twitterに投稿

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch

---

4348日前に更新/47 KB
担当:undef