Programmeren, de basis/Implementatie

Uit Wikibooks

[bewerken] Oefeningen

[bewerken] De prijsofferte

[bewerken] De pseudocode

Als we de oefening van de prijsofferte in zijn totaliteit bekijken, dan hebben we de volgende pseudocode. Deze pseudocode kunnen we vervolgens gebruiken om te beginnen met onze implementatie.

'Declaratie en initialisatie van de constanten:
winst als reëel getal = 0,30          'de gebruikte winst
uurloon als reëel getal = 42,14       'het loon dat de loodgieter per uur rekent
drempelOudHuis als natuurlijk getal = 20 	'welke leeftijd maakt een huis 'oud'
btwOudHuis als reëel getal = 0,06 	'het BTW-percentage dat van toepassing is op een huis ouder dan 20 jaar
btwNieuwHuis als reëel getal = 0,21 	'het BTW-percentage dat van toepassing is op een huis jonger dan 20 jaar
maxAantalTermijnen als natuurlijk getal = 24

'Declaratie van de variabelen:
strNaamKlant als tekst
intPostcode als natuurlijk getal
sngPrijsOnderdelen als reëel getal
intOuderdomHuis als natuurlijk getal
sngVerplaatsingskosten als reëel getal
sngBedragExclBTW als reëel getal
sngVerplaatsingskosten als reëel getal
sngBTWbedrag als reëel getal
sngTotaalBedrag als reëel getal
sngTermijn als reëel getal
aantalTermijnen als geheel getal
boodschap als tekst

aantalTermijnen = teBetalen / termijn

Als aantalTermijnen > maxAantalTermijnen Dan
    termijn = teBetalen / maxAantalTermijnen
    'Voorbeeld: De termijn van 24 maanden is overschreden. De termijn 136,15 EUR wordt gebruikt.
    boodschap = "De termijn van " & maxAantalTermijnen & " maanden is overschreden. De termijn " & termijn & " EUR wordt gebruikt."
    toon boodschap 

Als ouderdomHuis > drempelOudHuis Dan
    BTW = btwOudHuis
Anders
    BTW = btwNieuwHuis


Selecteer Geval provincieKlant
    Geval Oost-Vlaanderen
        verplaastingskosten = kostNrOVl
    Geval West-Vlaanderen
        verplaastingskosten = kostNrWVl
    Geval Antwerpen
        verplaastingskosten = kostNrAnt
    Geval Limburg
        verplaastingskosten = kostNrLi

Vervolgens gebruik je de programmeertaal naar keuze om bovenstaande in pseudocode om te zetten naar iets dat echt werkt. Het leeuwendeel van het werk is gedaan, maar dit betekent niet dat de kous af is. Bepaalde zaken zie je over het hoofd en op sommige fouten (bugs) kan je een ganse tijd zoeken.

[bewerken] VBA-implementatie