//********************************************************
//*** C Coding ********************************************
//********************************************************

sbit ADDO = P1^5;
sbit ADSK = P0^0;

unsigned long ReadCount(void){
unsigned long Count;
unsigned char i;

  ADDO=1;
  ADSK=0;
  Count=0;

  while(ADDO);

  for (i=0;i<24;i++){
    ADSK=1;
    Count=Count<<1;
    ADSK=0;
    if(ADDO) Count++;
  }

  ADSK=1;
  Count=Count^0x800000;
  ADSK=0;
  return(Count);
 }
 

'********************************************************
'*** Bascom *********************************************
'********************************************************

Adsk Alias Portd.4                                          'I use pin D.4 as output Clock
Addo Alias Portd.5                                          'I use pin D.5 as input Databit
Config Adsk = Output
Config Addo = Input
Dim Count As Long

'-------------------------------------------------------------------------------
Function HX711_Read() As Long
'-------------------------------------------------------------------------------
Local I As Byte

  'ADDO = 1               'I also give quotation marks at this alternately coz as input, not output
  Adsk = 0                                                  'clock LOW
  Count = 0                                                 'reset variable

  While Addo = 1                                            'wait until data ready
  Wend

  'Shiftin ADDO , ADSK , Count , 1 , 24 , 10     --> similar ?
  For I = 1 To 24                                           'channel A, gain 128x
    Adsk = 1                                                'clock HIGH
    Shift Count , Left , 1                                  'shift to left 1 bit
    Adsk = 0                                                'clock LOW
    If Addo = 1 Then Incr Count                             'give bit 1 for LSB, otherwise 0
  Next

  Adsk = 1                                                  'clock HIGH
  Count = Count Xor &H800000                                '0x800000
  Adsk = 0                                                  'clock LOW

  Hx711_read = Count                                        'returned value

End Function

 

Addo Alias Pind.5                                          'I use pin D.5 as input Databit