3andek controle 3and moba7

hhhhhhhhhhhhhhhhhhhhhhh



Module Module1
Structure ENREG
Dim CodePRO As Integer
<VBFixedString(20)> Dim despro As String
Dim pupro As Double
Dim qtestockpro As Integer
Dim trouve As Boolean
End Structure
Dim enregpro As ENREG
Dim i, j, k As Integer
Dim Code, qte As Integer
Dim pu As Double
Dim des As String
Dim trouve As Boolean
Dim choix As Integer

Sub Main()
Do
Console.WriteLine(" ")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ♫ -1-Enregistrer un nouveau produit ♫")
Console.WriteLine(" ♫ -2-Rechercher un produit ♫")
Console.WriteLine(" ♫ -3-Afficher la liste de tous les produits ♫")
Console.WriteLine(" ♫ -4-suprrimer ts les produits ayant une quantité en stock =0 ♫")
Console.WriteLine(" ♫ -5-augmenter tous les prix des produit ♫")
Console.WriteLine(" ♫ -6-arréter ♫")
Console.WriteLine(" ♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫♫")
Console.WriteLine(" ")
Console.WriteLine("Faites votre choix(1,2,3,4,5 ou 6)")
choix = Console.ReadLine

Select Case choix

Case Is = 1
FileOpen(1, "c:\produit.txt", OpenMode.Random)
Do
Console.WriteLine("introduire le code du produit a enregistrer")
Code = Console.ReadLine
i = LOF(1) / Len(enregpro)

j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
End If
End While
If trouve = True Then
Console.WriteLine("code existe deja introduire un nouveau")
End If

Loop Until trouve = False
Console.WriteLine("introduire la designation")
des = Console.ReadLine
Console.WriteLine("introduire le prix unitaire")
pu = Console.ReadLine
Console.WriteLine("introduire la quantite en stock")
qte = Console.ReadLine
enregpro.CodePRO = Code
enregpro.despro = des
enregpro.pupro = pu
enregpro.qtestockpro = qte
FilePut(1, enregpro, i + 1)
FileClose(1)

Case Is = 2
Console.WriteLine("introduire le code du produit a rechercher")
Code = Console.ReadLine

FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)

j = 0
trouve = False
While j < i And trouve = False
j = j + 1
FileGet(1, enregpro, j)
If Code = enregpro.CodePRO Then
trouve = True
Console.WriteLine(enregpro.CodePRO)
Console.WriteLine(enregpro.despro)
Console.WriteLine(enregpro.pupro)
Console.WriteLine(enregpro.qtestockpro)
End If
End While
If trouve = False Then
Console.WriteLine("code inexistant")

End If
FileClose(1)

Case Is = 3
Dim j As Integer
FileOpen(1, "c:\produit.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
Console.WriteLine("Code | designation | prix unitaire | qte")

For j = 1 To i
FileGet(1, enregpro, j)
Console.WriteLine(enregpro.CodePRO & " | " & enregpro.despro & " | " & enregpro.pupro & " | " & enregpro.qtestockpro)

Next
FileClose(1)

Case Is = 4
FileOpen(1, "c:\produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
k = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
If enregpro.qtestockpro <> 0 Then
k = k + 1
FilePut(2, enregpro, k)

End If
End While
FileClose(1)
FileClose(2)
Kill("C:\Produit.txt")
Rename("c:\FTemp.txt", "C:\Produit.txt")

Case Is = 5
Dim i, j As Integer
FileOpen(1, "C:\Produit.txt", OpenMode.Random)
FileOpen(2, "c:\FTemp.txt", OpenMode.Random)
i = LOF(1) / Len(enregpro)
j = 0
While j <= i
j = j + 1
FileGet(1, enregpro, j)
enregpro.pupro = enregpro.pupro + (enregpro.pupro * 0.1)
FileClose(1)
End While

Case Is = 6
Exit Sub
End Select

Loop

End Sub
End Module