aprenda FECHAR
   se :testetemporizador = 1 [desativetemporizador 1]
   portasaídab 888 0
   apaguejanela "d1
FIM

aprenda lertempeumid
   criejanela "main "d1 [Leitura de Temperatura e Umidade] 20 40 130 80
   criebotão "d1 "b1 "Liga 5 10 40 20 [LIGA]
   crieestático "d1 "e1 [Temperatura] 70 10 45 20
   crieestático "d1 "e2 [Valor] 75 20 20 10
   crieestático "d1 "e3 [*C] 100 20 10 10
   crieestático "d1 "e4 [Umidade] 75 35 45 20
   crieestático "d1 "e5 [Valor] 75 45 20 10
   crieestático "d1 "e6 [%] 100 45 10 10
   criebotão "d1 "b8 "Fechar 5 35 40 20 [FECHAR]
   atribua "testetemporizador 0
fim

aprenda LIGA
  atribua "temp 0
  atribua "umid 0
  atribua "vout 0
  atribua "ur 0
  atribua "div 0
  atribua "mult 0
  atribua "vur 0
  
  ;Inicializa o Conversor A/D
  portasaídab 888 0 ;CLK e CS com 0v
  espere 1;por 16.67 ms
  portasaídab 888 16 ;CLK com 5V
  espere 1
  portasaídab 888 0 ;CLK com 0V
  espere 1
  portasaída 888 48 ;CS e CLK com 5V
  espere 1
  
  ;Captura o Bit 7 - MSB ------------------------------------------------------
  portasaída 888 32; CS com 5V e CLK com 0V
  espere 1
  portasaída 888 0; CS e CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit 7
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+128) (atribua "umid :umid+128)] ;Bit 7 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+128] ;Bit 7 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+128] ;Bit 7 alto, 1 bin no pino 12 - Umidade
  espere 1
  
  ;Captura o Bit 6 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit6
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+64) (atribua "umid :umid+64)] ;Bit 6 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+64] ;Bit 6 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+64] ;Bit 6 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 5 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit5
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+32) (atribua "umid :umid+32)] ;Bit 5 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+32] ;Bit 5 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+32] ;Bit 5 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 4 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit4
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+16) (atribua "umid :umid+16)] ;Bit 4 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+16] ;Bit 4 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+16] ;Bit 4 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 3 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit3
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+8) (atribua "umid :umid+8)] ;Bit 3 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+8] ;Bit 3 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+8] ;Bit 3 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 2 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit2
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+4) (atribua "umid :umid+4)] ;Bit 2 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+4] ;Bit 2 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+4] ;Bit 2 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 1 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit1
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+2) (atribua "umid :umid+2)] ;Bit 1 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+2] ;Bit 1 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+2] ;Bit 1 alto, 1 bin no pino 12 - Umidade
  espere 1

  ;Captura o Bit 0 ----------------------------------------------------------------
  portasaída 888 16 ;CLK com 5V
  espere 1
  portasaída 888 0 ;CLK com 0V
  espere 1
  mostre portaentradab 889 ;Bit0
  atribua "entrada portaentradab 889 ;Le dados da entrada
  se :entrada = 126 [(atribua "temp :temp+1) (atribua "umid :umid+1)] ;Bit 0 alto, 1 bin no pino 10 e 12
  se :entrada = 94 [atribua "temp :temp+1] ;Bit 0 alto, 1 bin no pino 10 - Temperatura
  se :entrada = 62 [atribua "umid :umid+1] ;Bit 0 alto, 1 bin no pino 12 - Umidade
  espere 1

  atribua "vout :umid*3.92/255
  atribua "ur :vout-0.869
  atribua "ur :ur/0.0305
  atribua "mult :temp*0.00216
  atribua "div :mult-1.0546
  atribua "div :div*-1
  atribua "vur quociente :ur :div

  mudeestático "e2 :temp 
  mudeestático "e5 :vur

  portasaída 888 0

  atribua "testetemporizador 1
  ativetemporizador 1 200 [LIGA]
fim

Atribua "div 1.00492
Atribua "entrada 126
Atribua "mult 0.04968
Atribua "slope 0.0305
Atribua "temp 23
Atribua "testetemporizador 1
Atribua "umid 223
Atribua "ur 82.75731276117
Atribua "vmin 0.869
Atribua "vout 3.39309803921569
Atribua "voutmin 0.869
Atribua "vur 82.3521402312324