Mindboards

Code: Select all

#include "NXTDefs.h"
#define I2CPort IN_1
#define I2CAddress 0x40
// 0x40 for PCF8574 or 0x70 for PCF8574A
dseg    segment
lswArgs TCommLSWrite        // Write structure
lscsArgs TCommLSCheckStatus // Status structure
Value byte
dseg ends
thread main
// Initialize variables
mov lswArgs.Port, I2CPort
mov lscsArgs.Port, I2CPort
// Initialize input port to I2C
SetSensorType(I2CPort,IN_TYPE_LOWSPEED)
SetSensorMode(I2CPort,IN_MODE_RAW)
ResetSensor(I2CPort)
Loop:  // Top of loop
// Build buffer and write port
arrbuild lswArgs.Buffer, I2CAddress, Value
set lswArgs.ReturnLen, 0 // Read back 0 bytes
syscall CommLSWrite, lswArgs
Wait: // Wait till done
syscall CommLSCheckStatus, lscsArgs
brtst GT, Wait, lscsArgs.Result
// Increment
add Value, Value, 1
// Start over
jmp Loop
endt

Code: Select all

#define I2Cport S1 // Port number
#define I2CAddr8574 0x70 // I2C address x040 8574 or 0x70 for 8574A
byte WriteBuf[]={I2CAddr8574,0x00}; // write buffer is addr and data
task main() {
int nbytes;
SetSensorLowspeed (I2Cport); // Configure I2C port
while (true) {
WriteBuf[1]++; // update data byte
I2CWrite(I2Cport, 0, WriteBuf); // send buffer
while(I2CStatus(I2Cport, nbytes)==STAT_COMM_PENDING); // wait
}
}

Code: Select all

#define Port    S1
#define Address 0x40

void WritePins(byte port, byte addr, byte input){

  byte I2CMsg[];
  //byte Command = ~input;           //with enhanced FW
  byte Command = input*(-1)+255;   //with standard FW
  byte nByteReady = 0;
  int loop;

  ArrayBuild(I2CMsg,addr,Command);

  while (loop == STAT_COMM_PENDING) {
    loop = I2CStatus(port, nByteReady);
  }

  I2CWrite(port, 1, I2CMsg);

  while (loop == STAT_COMM_PENDING) {
    loop = I2CStatus(port, nByteReady);
  }
}

int LEDtoDrive;
bool LR;
task main()
{
  SetSensorLowspeed(Port);
  LR=1;
  LEDtoDrive=1;
  while (true)
  {
    WritePins(Port, Address, LEDtoDrive);
    if (LR==1)
    {
      LEDtoDrive=LEDtoDrive*2;
      if (LEDtoDrive>128)
      {
        LEDtoDrive=128;
        LR=0;
      }
    }
    if (LR==0)
    {
      LEDtoDrive=LEDtoDrive/2;
      if (LEDtoDrive==1)
      {
        LR=1;
      }
    }
    
    ClearScreen();
    NumOut(0,LCD_LINE1,LEDtoDrive);

    Wait (30); //Slow down a little, but must be at least 7ms
  }
}