opdracht delphi

• 

  WH Geraards

  07-06-2005 12:48

  Hallo,

  Wij moeten voor school de volgende opdracht maken maar komen niet zo heel ver aangezien wij Delphi nog niet geheel goed beheersen.

  Kunnen jullie ons misschien helpen?

  De opdracht is als volgt:

  Carpoolen

  Bouw een carpoolprogramma waarmee reiskostenvergoedingen kunnen worden berekend.

  - Reiskosten tot 10 worden niet vergoed.

  - Van 10 tot en met 50 km wordt 22 eurocent vergoed.

  - Boven de 50 km wordt 16 eurocent vergoed.

  - Voor elke carpooler die wordt meegenomen, wordt 10% extra vergoed.

  - Bij afstanden kleiner dan 10 kilometer wordt 12 eurocent vergoed als er carpoolers worden meegenomen.

  De afstand moet in een textbox worden ingevuld, het aantal carpoolers wordt doormiddel van keuzerondjes aangegeven. (max 3 )

  wten jullie hier misschien een oplossing voor?

  Met vriendelijke groet,

  Wilma Geraards & Sandra Ortmans
• 

  Enrico

  09-06-2005 23:38

  Je moet voor de calculatie een aparte functie maken die men oproept bij elke wijziging van een element waarmee je iets bepaalt.

  Bij een invoer test men eerst de range uit of die klopt.

  Verkeerde invoer is funest voor een berekening.

  Dus afstand is vanaf 0.

  Afstand is maxiaal 1000 km ofzo

  Dus het resultaat van de funktie kan men uitprinten.

  de funktie is zoiets als:

  FUNCTION naamprogramma_calculation(afstand:real;carpooler:integer)eal;

  Var werkvar1:real;

  Var werkvar2:real;

  begin

  de calculatie methode in stappen verdelen.

  result:=berekening;

  end;

  TIP: gebruik de naam van het programma als basis voor de variabelenaam

  programmanaam_onderwerp_verdeling.

  dus als de naam declaratie is benoemt men het program declaria ofzo.

  declaria_afstand

  en men heeft declaria_carpooler.

  Tip2: zet alle delphi item eerst om naar eigen variabelen die door een filter zijn gehaald en ontdoen van fouten.

  Dus een invoer van -9999999999999999999999999999 kan tot een crash lijden van het programma.

  Na een filtering voorkomt men dit.

  Val(string,nummer,error) zet een string om en aan de error kan men zien of de conversie geslaagd is.

  en dan houdt men een range test.

  Hopelijk kom je hiermee wat op weg.