Combien ca coute

Rédigé par spheris Aucun commentaire
Classé dans : Logiciels, comptabilite, mathematique, gambas 3 Mots clés : aucun
howmuch.jpg


Ce petit utilitaire est bien pratique pour décomposer une somme que vous saisirez dans la boite texte, en une combinaison de billets et de pièces pour arriver à la somme exacte.
Il utilise les deux commandes principales qui sont MOD et DIV

Télécharger le fichier source ICI


Voici le code de l 'application :


Public Sub bok_Click()
Dim lasomme As Integer
Dim lecombien As Integer
Dim lereste As Integer
Dim lesdecimales As Float
lasomme = vsomme.Value
lecombien = lasomme Div 200
l1.Text = lecombien
lereste = lasomme Mod 200
lasomme = lereste
lesdecimales = vsomme.Value - (lecombien * 200)
lecombien = lasomme Div 100
l2.Text = lecombien
lereste = lasomme Mod 100
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 100)
lecombien = lasomme Div 50
l3.Text = lecombien
lereste = lasomme Mod 50
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 50)
lecombien = lasomme Div 20
l4.Text = lecombien
lereste = lasomme Mod 20
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 20)
lecombien = lasomme Div 10
l5.Text = lecombien
lereste = lasomme Mod 10
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 10)
lecombien = lasomme Div 5
l6.Text = lecombien
lereste = lasomme Mod 5
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 5)
lecombien = lasomme Div 2
l7.Text = lecombien
lereste = lasomme Mod 2
lasomme = lereste
lesdecimales = lesdecimales - (lecombien * 2)
lecombien = lasomme Div 1
l8.Text = lecombien
lereste = lasomme Mod 1
lasomme = lereste
lesdecimales = lesdecimales - lecombien
lasomme = lesdecimales * 100
lecombien = lasomme Div 50
l9.Text = lecombien
lereste = lasomme Mod 50
lasomme = lereste
lecombien = lasomme Div 20
l10.Text = lecombien
lereste = lasomme Mod 20
lasomme = lereste
lecombien = lasomme Div 10
l11.Text = lecombien
lereste = lasomme Mod 10
lasomme = lereste
lecombien = lasomme Div 5
l12.Text = lecombien
lereste = lasomme Mod 5
lasomme = lereste
lecombien = lasomme Div 2
l13.Text = lecombien
lereste = lasomme Mod 2
lasomme = lereste
lecombien = lasomme Div 1
l14.Text = lecombien
lereste = lasomme Mod 1
lasomme = lereste
End
wink
Fil RSS des articles de cette catégorie