Pb vb

Pb vb - VB/VBA/VBS - Programmation

Marsh Posté le 21-03-2004 à 17:34:51    


Voila g un problème avec visual Basic
 
J'ai commencé à écrire le code d'un programme qui gère plusieures fiches. Il y a la fonction créer fiche, passer au précédent, passer au suivant, mais il me manque 2 fonctions, dont je n'arrive pas à sortir une seule ligne !
 
Quelqu'un pourrait m'aider ?
 
Merci
 
Voici le code
 
Par rapport la feuille permettant de créer une fiche et de la remplir :  
 

Code :
  1. Private Sub Command1_Click()
  2. Dim imat As String
  3. imat = Text1 & Text2 & Text3
  5. If Ajouter_elt(imat, cmbnom, cmbenergie, cmbmarque, Text4, Text5, Text6) = True Then
  6.     MsgBox " Fiche ajoutée"
  7.    
  8. End If
  10. End Sub
  12. Private Sub Command3_Click()
  13. If Premier = False Then
  14.     MsgBox "la liste n'est pas creée"
  15. End If
  17. End Sub
  19. Private Sub Command5_Click()
  20. If suivant = False Then
  21.     MsgBox "voues étes sur le dernier ou la liste n'est pas crée"
  22. End If
  24. End Sub
  26. Private Sub Form_Load()
  27. cmbmarque.AddItem "Peugeot"
  28. cmbmarque.AddItem "Renault"
  29. cmbmarque.AddItem "Fiat"
  30. cmbmarque.AddItem "Citroen"
  31. cmbmarque.AddItem "Nissan"
  33. cmbenergie.AddItem "Essence"
  34. cmbenergie.AddItem "Gasoil"
  35. cmbenergie.AddItem "GPL"
  37. cmbnom.AddItem "Dupont"
  38. cmbnom.AddItem "Durant"
  39. cmbnom.AddItem "Richard"
  40. cmbnom.AddItem "Dupond"
  41. cmbnom.AddItem "Gergio"
  42. cmbnom.AddItem "Martini"
  43. cmbnom.AddItem "Zunnino"
  44. cmbnom.AddItem "Albert"
  47. End Sub
  49. Private Sub retacc_Click()
  50. Me.Hide
  51. Accueil.Show
  52. End Sub


 
Détail du module qui gère les fonctions
 

Code :
  1. Type struclist
  2.     info_liste As String * 20
  3.     Pt_prec As Integer
  4.     Pt_suiv As Integer
  5.     immatriculation As String * 9
  6.     marque As String * 20
  7.     modele As String * 20
  8.     kilometrage As Long
  9.     millesime As Long
  10.     conducteur As String * 20
  11.     energie As String * 20
  12.    
  13. End Type
  14. Const Max_element = 1000
  15. Global liste(Max_element) As struclist
  16. Global Pointeur_liste As Integer
  17. Global element_encours As Integer
  19. Function Cree_liste() As Boolean
  20.     If Pointeur_liste = 0 Then
  21.         Pointeur_liste = 1
  22.         liste(Pointeur_liste).immatriculation = ""
  23.         liste(Pointeur_liste).Pt_prec = 0
  24.         liste(Pointeur_liste).Pt_suiv = 0
  25.         Cree_liste = True
  26.     Else
  27.         Cree_liste = False
  28.     End If
  29. End Function
  31. Function Ajouter_elt(info1 As String, info2 As String, info3 As String, info4 As String, info5 As String, info6 As String, info7 As String) As Boolean
  32.     Dim Encours As Integer
  33.         If Pointeur_liste > 0 Then
  34.             Encours = Pointeur_liste
  35.             'recherche de la dernière fiche
  36.             While liste(Encours).Pt_suiv > 0
  37.             Encours = Encours + 1
  38.             Wend
  39.            
  40.             If liste(Encours).Pt_prec = 0 Then
  41.            
  42.                 If liste(Encours).immatriculation = "" Then  ' info_ilste  = immatriculation
  43.                
  44.                         liste(Encours).immatriculation = info1
  45.                         liste(Encours).millesime = info2
  46.                         liste(Encours).marque = info3
  47.                         liste(Encours).modele = info4
  48.                         liste(Encours).conducteur = info5
  49.                         liste(Encours).kilometrage = info6
  50.                         liste(Encours).energie = info7
  51.                         Ajouter_elt = True
  52.                        
  53.                     Else
  54.                    
  55.                         Encours = Encours + 1
  56.                         liste(Encours).immatriculation = info1
  57.                         liste(Encours).millesime = info5
  58.                         liste(Encours).marque = info3
  59.                         liste(Encours).modele = info4
  60.                         liste(Encours).conducteur = info2
  61.                         liste(Encours).kilometrage = info6
  62.                         liste(Encours).energie = info7
  63.                        
  64.                         liste(Encours).Pt_suiv = "0"
  65.                         liste(Encours).Pt_prec = Encours - 1
  66.                         liste(Encours - 1).Pt_suiv = Encours
  67.                         Ajouter_elt = True
  68.                        
  69.                 End If
  70.                
  71.                     Else
  72.                    
  73.                         Encours = Encours + 1
  74.                        
  75.                         liste(Encours).immatriculation = info1
  76.                         liste(Encours).millesime = info5
  77.                         liste(Encours).marque = info3
  78.                         liste(Encours).modele = info4
  79.                         liste(Encours).conducteur = info2
  80.                         liste(Encours).kilometrage = info6
  81.                         liste(Encours).energie = info7
  82.                        
  83.                         liste(Encours).Pt_suiv = "0"
  84.                         liste(Encours).Pt_prec = Encours - 1
  85.                         liste(Encours - 1).Pt_suiv = Encours
  86.                         Ajouter_elt = True
  87.             End If
  88.            
  89.                     Else
  90.                    
  91.                     Ajouter_elt = False
  92.         End If
  93. End Function
  95. Function Premier() As Boolean
  96. If Pointeur_liste <> 0 Then
  97.     element_encours = Pointeur_liste
  98.     Premier True
  99. Else
  100.     Premier = False
  101. End If
  102. End Function
  103. Function suivant() As Boolean
  104. If element_encours <> 0 Then
  105.     If liste(element_encours).Pt_suiv > 0 Then
  106.         element_encours = liste(element_encours).Pt_suiv
  107.         suivant = True
  108.      Else
  109.         suivant = False
  110.      End If
  111. Else
  112.     suivant = False
  113. End If
  114.    
  115.    
  116. End Function


 
 
Code par rapport à le fenetre d'accueil
 

Code :
  1. Private Sub Command1_Click()
  2. If Cree_liste = True Then
  3.     MsgBox " La liste est créee ! "
  4.     Else
  5.     MsgBox " La liste ne peut pas etre créee : elle l'est déjà ! "
  6. End If
  7. End Sub
  9. Private Sub Command2_Click()
  10. Fiche.Show
  11. Me.Hide
  12. End Sub


 

Reply

Marsh Posté le 21-03-2004 à 17:34:51   

Reply

Marsh Posté le 21-03-2004 à 17:36:18    

je m'excuse
les 2 fonctions sont suppripmer une fiche, et rechercher un fich e par son numéro ou le type de vehicule

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed