RZ-1自身でI2Cのテスト(?)
私のRZ-1は本体の胸にLCD表示器を搭載しているので、I2Cテストプログラムで表示することができるのです。
ROBONOVAのマニュアルにあったサンプルプログラムを参考にして作ってあったI2Cの内容を表示するサンプルプログラムを以下に記載しました。
'================================
' I2C Sample Program
'================================
DIM RR AS BYTE
DIM A AS BYTE
DIM i AS BYTE
DIM code AS BYTE
CONST scl = 22
CONST sda = 23
'---------------------------
A = IN(sda)
s1:
OUT scl,1
OUT sda,0
s3:
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT scl,0
OUT scl,1
A = IN(sda)
PRINT "ACK="
PRINT FORMAT(A,DEC,3)
DELAY 1000
code=0
PRINT 12 'CLS:LCD_clear
FOR i=0 TO 7
OUT scl,0
OUT scl,1
A=IN(sda)
A=A< code =code OR A
PRINT FORMAT(code,DEC,3)
PRINT " "
DELAY 500
NEXT i
DELAY 1000
PRINT 12 'CLS:LCD_clear
PRINT "ROMPEEK DATA"
DELAY 1000
PRINT 12 'CLS:LCD_clear
FOR i=0 TO 255
PRINT " "
A= ROMPEEK(i)
PRINT FORMAT(A,HEX,2)
PRINT " "
DELAY 100
NEXT i
END
'======-=== Program End ==========
ROBONOVAのマニュアルにあったサンプルプログラムを参考にして作ってあったI2Cの内容を表示するサンプルプログラムを以下に記載しました。
'================================
' I2C Sample Program
'================================
DIM RR AS BYTE
DIM A AS BYTE
DIM i AS BYTE
DIM code AS BYTE
CONST scl = 22
CONST sda = 23
'---------------------------
A = IN(sda)
s1:
OUT scl,1
OUT sda,0
s3:
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT sda,1
OUT scl,0
OUT scl,1
OUT scl,0
OUT scl,1
A = IN(sda)
PRINT "ACK="
PRINT FORMAT(A,DEC,3)
DELAY 1000
code=0
PRINT 12 'CLS:LCD_clear
FOR i=0 TO 7
OUT scl,0
OUT scl,1
A=IN(sda)
A=A< code =code OR A
PRINT FORMAT(code,DEC,3)
PRINT " "
DELAY 500
NEXT i
DELAY 1000
PRINT 12 'CLS:LCD_clear
PRINT "ROMPEEK DATA"
DELAY 1000
PRINT 12 'CLS:LCD_clear
FOR i=0 TO 255
PRINT " "
A= ROMPEEK(i)
PRINT FORMAT(A,HEX,2)
PRINT " "
DELAY 100
NEXT i
END
'======-=== Program End ==========
- 2010.02.10 Wednesday
- モーション
- comments(0)
- trackbacks(0)
- by takuo1