Changes between Version 6 and Version 7 of epics/bbb/debian/thermometer/ft260

Timestamp:

09/06/17 18:03:26 (7 years ago)

Author:

michkawa

Comment:

--

epics/bbb/debian/thermometer/ft260

@@ -359 +359 @@
 
 シリアル番号をunicodeで設定したら、オープンできたので、大丈夫そう。[[br]]
+
+== IOC ==
+
+接続方法と使用するコマンドがわかったので、IOCを作成する。[[br]]
+作成するレコードは、ADT7410のADCを16bitに設定するコマンドと、温度を取得するコマンドのみ。[[br]]
+以前作った、[wiki:/epics/bbb/debian/USBHID/USB_SP4T drvAsynUSBHID]を使って、コマンドを実装。[[br]]
+
+ここで気付いたのだが、drvAsynUSBHIDはInput,Outputを使った制御には使えるが、USBHIDデバイス自体を制御するFeatureコマンドには対応していない。[[br]]
+今回もFeatureコマンドを使わなくても目的は達成できたが、今後Featureコマンドが必須の制御をする場合には、何らかの解決策を考える必要がありそう。[[br]]
+
+=== 使用コマンド(FT260) ===
+
+今回使用するFT260上のコマンドは、
+
+ * I2C Write Request(0xD0~0xDE)
+ * I2C Read Request(0xC2)
+ * I2C Input Report(0xD0~0xDE)
+
+のみである。I2C Input ReportはReadで返ってくるフォーマットの定義なので、I2C Write RequestとI2C Read Requestだけを実装する。
+
+=== protocol ファイル ===
+
+今回作成したプロトコルファイルがこれ。
+
+{{{
+TERMINATOR="";
+LockTimeout  = 500;
+ReplyTimeout = 100;
+ReadTimeout  = 100;
+WriteTimeout = 100;
+MaxInput=8;
+
+wr_4 = 0xD0;
+rd   = 0xC2;
+flg  = 0x06;
+len  = 0x04;
+
+#####################
+# $1:I2C slave device addr
+#####################
+
+# Set ADT7410 ADC Resolution(16bit)
+setADCRes {
+    out $wr_4 $1 $flg 0x02 0x03 0x80 0x00 0x00;
+}
+
+# Read ADT7410 templature value
+getTemp {
+    out $rd   $1   $flg    $len 0x00;
+    in  $wr_4 $len "%(\$2)01r" "%01r" "%*4r";
+}
+
+}}}
+
+I2Cデバイスのアドレスをdbファイルから設定できるようにして、温度レジスタを別々に読み込んでCALCで計算するようにした。[[br]]
+
+=== DBファイル ===
+
+{{{
+record(bo, "$(user):ADT7410:init")
+{
+    field(DESC, "Set ADT7410 ADC 16bit")
+    field(DTYP, "stream")
+    field(OUT,  "@FT260_ADT7410.proto setADCRes($(i2caddr)) $(dev)")
+}
+
+record(longin, "$(user):temp:reg:HSB")
+{
+    field(DESC, "Get temperature registor HSB")
+}
+
+record(longin, "$(user):temp:reg:LSB")
+{
+    field(DESC, "Get temperature registor LSB")
+    field(DTYP, "stream")
+    field(INP,  "@FT260_ADT7410.proto getTemp($(i2caddr),$(user):temp:reg:HSB) $(dev)")
+    field(SCAN, "$(scan)")
+    field(FLNK, "$(user):temp")
+}
+
+
+record(calc, "$(user):temp")
+{
+    field(DESC, "Get temperature")
+    field(INPA, "$(user):temp:reg:LSB")
+    field(INPB, "$(user):temp:reg:HSB")
+    field(CALC,  "(B&0x80)=0x80?(((B<<8)|A)-65536)/128:((B<<8)|A)/128")
+    field(PREC,  "5")
+    field(EGU,   "degC")
+}
+}}}
+
+
+