Variable = I2creadna ( dummy )

CUBLOC 코어모듈

SET I2C에서 설정한 클록과 데이터 핀으로 부터 한 바이트의 데이트를 읽어옵니다. 괄호 안에는 0을 적어주십시오. 의미없는 숫자입니다.Acknowledge를 발생시키지 않습니다. 좀더 구체적으로 설명하자면 한 바이트를 읽어온뒤 SCL에 펄스 하나를 발생시키는 동안 SDA를 HIGH로 잡아둡니다. 이렇게 하면 데이터를 읽어오는 상대측에 Acknowledge를 보내지 않는 것입니다.

    Dim DATA As Integer
    Set I2c 8,9           '8번을 SDA로 9번을 SCL로 정의
    I2cstart
    If I2cwrite(&B10100000) = 1 Then Goto ERR_PROC     
    If I2cwrite(ADR.BYTE1) = 1 Then Goto ERR_PROC   'ADDRESS WRITE
    If I2cwrite(ADR.LOWBYTE) = 1 Then Goto ERR_PROC 
    I2cstart                                   'Repeated Start
    If I2cwrite(&B10100001) = 1 Then Goto ERR_PROC     
    DATA = I2creadna(0)                                       
    I2cstop
    Do
    Loop
ERR_PROC:
    Debug "ERROR",CR
    Do
    Loop

명령어 목록으로 가기