SHARE
TWEET

Untitled

a guest Jul 12th, 2017 127 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. rebol [
  2. title: "Convertisseur Franc/Euro"
  3. ]
  4. convertir: function [ valeur /franc /euro ] [ somme ] [
  5. somme: to-decimal valeur
  6. either franc [
  7. somme: somme * 6.55957
  8. ] [ somme: somme / 6.55957 ]
  9. prix/text: copy (to-string somme)
  10. show prix
  11. ]
  12. view layout [
  13. prix: field 200x20 ""
  14. across
  15. franc: radio of 'monnaie true [ convertir/franc prix/text ]
  16. text "Francs"
  17. euro: radio of 'monnaie [ convertir/euro prix/text ]
  18. text "Euro"
  19. return
  20. button "Quitter" 255.0.0 [ quit ]
  21. button "Calculer" [
  22. either franc/data = true [
  23. convertir/franc prix/text
  24. ] [ convertir/euro prix/text ]
  25. ]
  26. ]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top