HX711 hal Modul

component hx711 "Interface";

description """Crude Interface.  Reads analog data from HX711.""";

pin out bit SCK "SCK pin out";
pin in  bit DT  "DT input";
pin out  float output "output value";
pin in bit enable "Enable pin";
pin in bit reset "Reset pin (set channel A Gain 128)" ;
pin in bit select "select channel 0=ch.A gain 128, 1=ch.B gain 32";

function _ nofp;
license "GPLv2 or greater";
author "MK";

variable int ByteState = 0;
variable int BitState = 0;
variable int bnum = 0;
variable u32 TXByte;
variable int oldDT;
variable int waitcount = 0;
variable int chselect;

;;

enum Byte_state
    {
	eIdle               = 0,
	eWait               = 1,
	eRead		    = 2,
	eReset              = 3
    };
enum Bit_State
    {
	eIdleBit          = 0,
	eSCKLow           = 1,
	eSCKHigh          = 2,
	eResetBit         = 3
    };

FUNCTION(_)
{
	if (enable) {
		if (reset){
			ByteState = eReset;
		}
		chselect = (select==1) ? 26 : 25;
		
		// bytes
		switch (ByteState) {
		case eReset :
			BitState = eResetBit;
			break;
		case eIdle :
			BitState = eIdleBit;
			if (!DT && oldDT){
				ByteState = eRead;
				BitState = eSCKHigh;
				bnum = 0;
			TXByte = 0;
			}
		break;
		case eRead :
			if (BitState ==  eSCKHigh) {
			   if (bnum < 24){
				TXByte = (DT==1) ? (1 | TXByte << 1) : (TXByte << 1);
			   }
			bnum++;
			}
			if (bnum == chselect){
				output = TXByte;
				bnum = 0;
				ByteState = eIdle;
				BitState = eIdleBit;
			}
			
		break;
		default :
            		ByteState = eIdle;

                }
		// bits
                switch (BitState) {
                case eResetBit :
                        SCK=1;
                        waitcount++;
                        if (waitcount>=100) {
                                waitcount = 0;
                                BitState = eIdleBit;
				ByteState = eIdle;
			}
                break;
                case eIdleBit:
			SCK = 0;
		break;
		case eSCKLow :
			SCK = 1;
			BitState = eSCKHigh;
		break;
		case eSCKHigh :
			SCK = 0;
			BitState = eSCKLow;
		break;
		default :
		        BitState = eIdleBit;

                break;
                }



        }
	oldDT = DT;
}

component hx711 "Interface for read HX711";

description
"""Crude Interface.  Reads analog data from HX711.
 Modul must run on BASE-THREAD faster than 45000ns
 
 Example config
 loadrt hx711 
 addf hx711.0 base-thread
 net DT hx711.0.DT parport.0.pin-10-in
 net SCK hx711.0.SCK parport.0.pin-09-out
 

""";

pin out bit SCK "Serial Clock Input ";
pin in  bit DT  "Serial Data Output";
pin out  unsigned output "Output value";
pin in bit enable = TRUE "Enable read from hx711, default value = TRUE ";
pin in bit reset "Reset pin and Power Down (set channel A and Gain 128 for next read) if reset=1, hx711 is in power down mode" ;
pin in bit select "Select channel 0=ch.A gain 128, 1=ch.B gain 32";

function _ nofp;
license "GPL"; // indicates GPL v2 or later
author "fupeama";

variable int ByteState = 0;
variable int BitState = 0;
variable int bnum = 0;
variable int oldDT;
variable int waitcount = 0;
variable unsigned TXByte;
variable int chselect;

;;

enum Byte_state
    {
	eIdle		= 0,
	eWait		= 1,
	eRead		= 2,
	eReset		= 3
    };
enum Bit_State
    {
	eIdleBit		= 0,
	eSCKLow			= 1,
	eSCKHigh		= 2,
	eResetBit		= 3
    };

FUNCTION(_)
{
	if (enable) {
		if (reset){
			ByteState = eReset;
		}
		chselect = (select==1) ? 26 : 25;
		// bytes
		switch (ByteState) {
		case eReset :
			BitState = eResetBit;
			break;
		case eIdle :
			BitState = eIdleBit;
			if (!DT && oldDT){
				ByteState = eRead;
				BitState = eSCKHigh;
				bnum = 0;
			TXByte = 0;
			}
		break;
		case eRead :
			if (BitState ==  eSCKHigh) {
			   if (bnum < 24){
				TXByte = (DT==1) ? (1 | TXByte << 1) : (TXByte << 1);
			   }
			bnum++;
			}
			if (bnum == chselect){
				output = TXByte;
				bnum = 0;
				ByteState = eIdle;
				BitState = eIdleBit;
			}
			
		break;
		default :
			ByteState = eIdle;
		}
		// bits
		switch (BitState) {
		case eResetBit :
			SCK=1;
			waitcount++;
			if (waitcount>=10) {
				waitcount = 0;
				BitState = eIdleBit;
				ByteState = eIdle;
			}
		break;
		case eIdleBit:
			SCK = 0;
		break;
		case eSCKLow :
			SCK = 1;
			BitState = eSCKHigh;
		break;
		case eSCKHigh :
			SCK = 0;
			BitState = eSCKLow;
		break;
		default :
			BitState = eIdleBit;
		}
	}
	oldDT = DT;
}