Il est de bon ton de se souhaiter la bonne année. Mais vous, et vous seul, pourrez faire en sorte que cette année soit bonne, meilleure que celle qui vient de s'écouler. Apprenez à ne compter que sur vous, car personne n'est plus qualifié que vous-même pour bâtir, réparer ou améliorer votre propre vie. Personne ne fera les choses à votre place. D'ailleurs, tout ce que les autres peuvent faire, c'est souhaiter que vous le fassiez. Et ne croyez pas que tout ceux qui vous entourent vous apporteront des solutions : certains font juste partie de vos problèmes. Transformez vos résolutions en actes, et dans douze mois, retournez-vous et souriez-vous fièrement : C'était long. C'était difficile. Mais ça y est : 2017 était une bonne année, merci Moi.

Change de monnaie

Ce programme permet d'entrer une somme en francs suisses, et d'obtenir le résultat en argent étranger.

Pseudo-code

AFFICHE "Entrez la somme en francs suisses : "
ACCEPTE CHF
AFFICHE "Entrez le nom de la monnaie étrangère : "
ACCEPTE NomArgent
AFFICHE "Pour un franc suisse, combien obtenez vous de " NomArgent " ?"
ACCEPTE TauxChange
Resultat = CHF * TauxChange
AFFICHE "Pour " CHF "francs suisses, vous obtenez " Resultat " " NomArgent

Visual Basic

Change de 100 CHF en lires, avec un taux de 300

Sub ChangeMonnaie()
  MsgBox "Pour 100 CHF, vous aurez " & 100 * 300 & " lires"
End Sub


Change en lires, avec un taux de 300

Sub ChangeMonnaieV2()
  Dim CHF As Integer
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * 300 & " lires"
End Sub


Change en lires, valeur variable

Sub ChangeMonnaieV3()
  Dim CHF As Integer
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  ValeurChange = Val(InputBox("Pour 1 CHF, combien obtenez-vous de lires"))
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * ValeurChange & " lires"
End Sub


Change en monnaie variable, valeur variable, change variable

Sub ChangeMonnaieV4()
  Dim CHF As Integer
  Dim MonnaieEtrangere As String
  Dim ValeurChange As Currency
  
  CHF = Val(InputBox("Combien de francs suisses changez vous ?"))
  MonnaieEtrangere = InputBox("Quel est le nom de la monnaie étrangère ?")
  ValeurChange = Val(InputBox("Pour 1 CHF, combien obtenez-vous de " & MonnaieEtrangere & " ?"))
  
  MsgBox "Pour " & CHF & " francs suisses, vous aurez " & CHF * ValeurChange & " " & MonnaieEtrangere
End Sub

Exercice : Il faudrait que d'un montant en francs suisses, on aie la correspondance en plusieurs autes monnaies : une ou deux autres, ou même mieux : Un nombre indéterminé de monnaies