Bloc 10 - Université Lumière Lyon 2
Contents
1. Universit Lumi re Lyon 2 Facult de Sciences conomiques et de Gestion DEUG 2 ann e Bloc 10 Ann e 1999 2000 Examen de Visual Basic Session de d cembre 1999 J Darmont jerome darmont univ lyon2 fr On souhaite diter une facture l cran avec calcul automatique du prix TTC pour chaque ligne de la facture en fonction du prix unitaire HT de la quantit et du taux de TVA et du montant total de la facture somme des prix TTC calcul s pour chaque ligne Le taux de TVA peut tre normal 20 6 ou r duit 5 5 1 Cr er une application conforme au mod le ci dessous Indiquer votre nom et votre pr nom directement sur la feuille Enregistrer le projet sur votre disquette en utilisant votre nom de famille comme nom des fichiers Ne pas oublier de donner des noms explicites aux composants visuels qui seront utilis s dans le code 2 Programmer le bouton Nouvelle facture de mani re vider les listes d dition qui composent la facture remettre le montant total z ro et mettre jour l tiquette associ e On pourra utiliser la m thode Clear des composants ListBox pour effacer simplement les listes 3 Programmer le bouton Ajouter la facture puis v rifier vos calculs avec le jeu de donn es ci x r A r r dessous A chaque clic sur le bouton les op rations suivantes devront tre ex cut es d termination du taux de TVA calcul du prix TTC pour la l2. ffichage D si_facture AddItem D si_saisie Text PrixU facture AddItem Mon taire pu Qt _ facture AddItem q Prix tot AddIitem Mon taire p Total_facture Caption Mon taire TOTAL R initialisation des champs de saisie D si saisie Text PrixU saisie Text Qt _ saisie Text TVAnormale Value True End Sub Private Sub Nouvelle_Click R initialisation de la facture D si_facture Clear PrixU facture Clear Qt _facture Clear Prix Eot Clear TOTAL O0 Total facture Caption Mon taire TOTAL End Sub Private Sub Quitter Click End End Sub
3. igne de facture en cours cumul du montant total de la facture affichage de la ligne de facture dans les listes d dition affichage du montant total dans l tiquette appropri e e r initialisation des zones de texte pour la saisie vides et du taux de TVA normal par d faut 4 Programmer le bouton Quitter pour sortir de l application 5 Cr er dans un module une fonction permettant d ajouter derri re les prix affich s dans la facture uniquement l unit de mesure F Facture EE x J r me Darmont m Saisie des donn es D signation Prix unitaire Quantit fe Normal Nouvelle facture Facture C R duit D signation Prix unitaire Quantit Prix total PC Pentium IIl Ecran 17 Imprimante laser Scanner Manuel d utilisation 2 2 1 1 1 m Total facture 37298 44 F Quitter Seul le manuel d utilisation b n ficie d un taux de TVA r duit Code du module Function Mon taire x As Single As String Mon taire x amp F End Function Code de la feuille Dim TOTAL As Single Private Sub Ajouter Click D clarations Dim pu As Single Dim q As Single Dim p As Single Dim tx As Single Initialisations PrixU saisie Text q Qt _saisie Text D termination taux de TVA If TVAnormale Then tx 0 206 Else tx 0 055 End If Calcul du prix p q pu 1 tx Cumul du total TOTAL TOTAL p A
Download Pdf Manuals
Related Search