Automake

CalculadoraDeDecimoTerceiroSalario

Sep 4th, 2019
392
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.     PUBLIC SUB _new()
  2.  
  3.     END
  4.  
  5.     PUBLIC SUB Form_Open()
  6.  
  7.     END
  8.  
  9.     PUBLIC SUB Calcular_Click()
  10.  
  11.       Textbox3.Text = Val(Textbox1.Text) * Val(Textbox2.Text) / 12
  12.  
  13.     END
  14.  
  15.     PUBLIC SUB Apagar_Click()
  16.  
  17.       Textbox1.Text = ""
  18.       Textbox2.Text = ""
  19.       Textbox3.Text = ""
  20.      
  21.  
  22.     END
  23.  
  24.     PUBLIC SUB Sair_Click()
  25.  
  26.       ME.Close
  27.  
  28.     END
  29.  
  30.     Voltar ao Topo
RAW Paste Data