Variable = I2cwrite ( Data )

CUBLOC 코어모듈

SET I2C에서 설정한 클록과 데이터 핀으로 한 바이트의 전송합니다.
Acknowledge 응답이 있을 경우에는 0을 리턴하고 없을 경우에는 1을 리턴합니다.
Acknowledge응답이 없다면 I2C 연결선이 끊어져 있거나, 칩이 없는 경우, 또는 전원 공급이 안되었을 경우 등 다양한 경우가 있습니다. 이런 경우, I2C통신을 중단하고 에러처리 동작을 하시기 바랍니다.

If I2cwrite(DATA)=1 Then Goto ERR_PROC Acknowledge에 대한 응답여부를 확인하고 싶지 않은 경우에는 어떤 변수에 결과를 저장하는 형식으로 사용하시면 됩니다. A = I2cwrite(DATA) ‘ 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 = I2cread(0)                                       
    I2cstop

명령어 목록으로 가기