aprenda FECHAR
   portasaídab 888 0
   apaguejanela "d1
FIM

aprenda lertemperatura2
   criejanela "main "d1 [Leitura de Temperatura] 30 50 130 90
   criebotão "d1 "b1 "Liga 15 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
   criebotão "d1 "b8 "Fechar 15 40 40 20 [FECHAR]
fim

aprenda LIGA
  atribua "temp 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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+128] ;Bit 7 alto, 1 bin
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+64] ;Bit 6 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+32] ;Bit 5 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+16] ;Bit 4 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+8] ;Bit 3 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+4] ;Bit 2 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+2] ;Bit 1 alto, 1 bin 
  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 portaentrada 889 ;Le dados da entrada
  se :entrada = 126 [atribua "temp :temp+1] ;Bit 1 alto, 1 bin 
  espere 1
  
  mudeestático "e2 :temp  

  portasaída 888 0
fim

Atribua "entrada -13186
Atribua "temp 0
Atribua "valido 1