USB-IO関連

Delphiから例のdll使ってうまくできた

function uio_out(Port:integer;OutDat:integer;p3:integer):integer;stdcall; external 'vbausbio.dll';
function uio_inp(var InpDat:byte;Port:integer;p3:integer):integer;stdcall; external 'vbausbio.dll';
function uio_find:integer;stdcall; external 'vbausbio.dll';
function uio_free:integer;stdcall; external 'vbausbio.dll';
function uio_getdevs:integer;stdcall; external 'vbausbio.dll';
function uio_seldev(p1:integer):integer;stdcall; external 'vbausbio.dll';

定義部分をちょこっと変えたら動いた
よかった良かった！

USB-IOきた！

発光ダイードを買いに走って早速点灯させてみた・・・・
プログラム側は世間ではHSPやVBやABでやるようだが
今後の事も考えるとやはりDelphiを使うしかないだろ！ってことになったんだけど
これからコンポ作るには気がせいて間に合わない！（汗

ﾊｧﾊｧしながらハンダ付けして、USBケーブル刺して待ちかまえてる状況なんだから！

仕方なくVBな人々が利用すると言われる伝説のバケさん作のDLL(VBA用専用Dll（vbausbio.dll) )を急いで使うことにした

Delphi用にDLLの定義部分を記述

function uio_out(Port:WORD;OutDat:WORD;p3:WORD):WORD;stdcall; external　'vbausbio.dll';
function uio_inp(var InpDat:byte;Port:WORD;p3:WORD):integer;stdcall; external 'vbausbio.dll';
function uio_find:WORD;stdcall; external 'vbausbio.dll';
function uio_free:WORD;stdcall; external 'vbausbio.dll';
function uio_getdevs:WORD;stdcall; external 'vbausbio.dll';
function uio_seldev(p1:WORD):WORD;stdcall; external 'vbausbio.dll';

こんな感じで定義してDLLをProjectと同じ場所にセットしてイザ！！　イザ・イザ！！！　イザやイザ・イザ？？？アレ？
動きません・・・・・（涙
調べてみるとuio_outは成功してるみたいですがinpで思いっきり落ちます

取りあえず、今はoutしかないんでいいんだけど、次からはこうはいかんだろ！
ってことで調査中（時間があればvclで書きたいところだがHID.DLL辺りが面倒だにゃぁ）

USB-IO注文した

実は明確には何を作るかは決めてないものの２個注文してみた
１つは朧気ながら作りたいものがある、メールが届いたらランプを点滅させるか
旗を立てるような装置を作りたい

あとは、放送で使えるような何かを作れたらいいなぁ～

ここ最近の釣果

ベカが１桁台
漁連の裏に居るに居るのだが、エギと疑似餌だと抱かない
やはり干潮からの上げ潮で汐の動き始めが１９時辺りで狙えないとダメかな
次の金曜土曜日が狙いかな、いや、その前に火曜21:2満潮に期待して１９時頃狙いで様子を探ってみよう