1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
Module Module1
Structure caisse
Dim article As String
Dim qte As Integer
Dim prix As Double
Dim MT As Double
End Structure
Sub Main()
Dim a As caisse
Dim total As Double = 0
Dim TTC As Double = 0
Dim t(100) As String
Dim rep As String = "oui"
Dim i As Integer = 1
While rep = "oui"
Console.WriteLine("donner le nom de l'article" & i)
a.article = Console.ReadLine
Console.WriteLine("donner la quantité")
a.qte = Console.ReadLine
Console.WriteLine("donner le prix")
a.prix = Console.ReadLine
a.MT = a.prix * a.qte
Console.WriteLine("le mantant total et:" & a.MT)
t(i) = a.article
Console.WriteLine("voulais vous choisir un autre article ? oui /non")
rep = Console.ReadLine
total = total + a.MT
i = i + 1
End While
Console.WriteLine("________________________________")
Console.WriteLine("article qte prix montant")
Console.WriteLine("________________________________")
Dim x As String = (a.article & " ").Substring(0, 10)
Dim b As String = (a.qte & " ").Substring(0, 8)
Dim c As String = (a.prix & " ").Substring(0, 8)
Dim d As String = (a.MT & " ").Substring(0, 8)
Console.WriteLine(x & b & c & d)
Console.WriteLine("________________________________")
Console.WriteLine("PRIX TOTAL:" & total)
Dim TVA As Double = total * 0.2
Console.WriteLine("TVA:" & TVA)
TTC = total + TVA
Console.WriteLine("PRIX TTC:" & TTC)
Console.ReadKey()
End Sub
End Module |
