[débutant] projet Visual Basic 6

**Jere3110** · 01/12/2007, 13h40

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Function deuxieme(List1) As Integer
    Dim max1 As Integer, max2 As Integer, suivant As Integer, i As Integer
    max1 = 0
    max2 = 0
    For i = 0 To UBound(List1)
      suivant = List1(i)
      If suivant >= max1 Then
        max2 = max1
        max1 = suivant
      ElseIf suivant >= max2 Then
        max2 = suivant
    End If
  Next i
  deuxieme = max2
 End Function

avec un code pour l'interface de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Cmd_second_Click()
Dim tabsec() As Integer
Dim n As Integer
Dim i As Integer
n = List1.ListCount
ReDim tabsec(n)
For i = 0 To n - 1
tabsec(i) = List1.List(i)
Next i
lbl_second.Caption = deuxieme(List1, n)
End Sub

me renvoi a une erreur de compilation, nombres d'argument incorrect ou affectation de propriété incorecte en me surligant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Private Sub Cmd_second_Click()

en jaune et deuxieme en bleu

**ucfoutu** · 01/12/2007, 13h55

1) ton erreur est là (en rouge) :

lbl_second.Caption = deuxieme(List1, n)

2) alors, tu travailles finalement avec quoi ?
Un tableau ? (tu as déjà le code)
Une listbox ? (et je fais le code pour une listbox, dans ce cas)

dis...

edit : je vois que tu mets les éléments de ta listbox dans un tableau ... pourquoi diable ? (c'est inutile)

**Jere3110** · 01/12/2007, 14h03

je travaille avec les donnés qui sont mises dans une listbox (List1) ces donnés sont ensuites intégrés a un tableau (tabsec) a ki japplik la fonction é jaffiche le tou dans un label.
je fais comme ça car j'avance a taton et j'essai de retombé sur mé patte avec des trucs que j'ai déja fait.
En fait j'ai déja fait quelque heure de VB (appri les bases et quelques aplications trés simple, mais jamais fait de liste et c'est de là que vienne mes plus gros problèmes car je sais pas trop quoi en faire et comment leur apliquer mes fonctions)... Voila j'espere avoir été clair et je m'escuse de t'avoir induit en erreur

**ucfoutu** · 01/12/2007, 14h16

Jere3110,

tu as déjà une listbox, et elle est déjà elle-même une espèce de tableau !!!

Voilà comment la traiter directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub Command1_Click()
  MsgBox deuxieme_sans_select_case(List1) ' et rien d'autre ici, s'il te plait !
 'ou si tu préfères dans un label : Label1.Caption = deuxieme_sans_select_case(List1) 
End Sub

Private Function deuxieme_sans_select_case(maliste As ListBox) As Integer
    Dim max1 As Integer, max2 As Integer, suivant As Integer, i As Integer
    max1 = 0
    max2 = 0
    For i = 0 To maliste.ListCount - 1
      suivant = maliste.List(i)
    If suivant >= max1 Then
      max2 = max1
      max1 = suivant
    ElseIf suivant >= max2 Then
      max2 = suivant
    End If
  Next i
  deuxieme_sans_select_case = max2
 End Function

il n'y a pas à faire un tableau à partir de ce qui en est déjà un !!!

**Jere3110** · 01/12/2007, 14h25

ok ok, donc ça marche

Plus que le palindrome lol

, c'est bientot fini

**ucfoutu** · 01/12/2007, 14h28

Mais tu l'as déjà, ton palindrome, voyons ....

Il te suffit de transformer (si peu) pour traitement d'une listbox plutôt que d'un tableau ...
Juste un peu de réflexion... reviens si VRAIMENT tu ne t'en sors pas tout seul !

**Jere3110** · 01/12/2007, 15h09

Juste un problème de syntaxe:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function Palindrome(Liste2 As ListBox) As Boolean
Dim j As Integer
Dim i As Integer
Dim n As Integer
Palindrome = True
For i = 1 To n \ 2 and j = n To n - (n \ 2)
If Liste2.List(i) <> Liste2.List(j) Then
Palindrome = False
Else
i = i + 1
j = j + 1
End If
Next
End Function

vb m'accepte pas le and, comment présenter l'idée que la boucle for doit faire deux choses à la fois ?

**SfJ5Rpw8** · 01/12/2007, 15h17

j'ai pas tout suivi dans ton code... mais pour une boucle For tu n'as pas à incrémenter l'index.. la boucle For s'en charge... ensuite tu peu imbriquer une boucle dans une autre...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For i = 1 to 10
  For j = 1 to 10
 
  ( .... traitement)
 next
next

**Jere3110** · 01/12/2007, 15h22

J'ai suivi ton conseil:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function Palindrome(Liste2 As ListBox) As Boolean
Dim j As Integer
Dim i As Integer
Dim n As Integer
Palindrome = True
For i = 1 To n \ 2
For j = n To n - (n \ 2)
If Liste2.List(i) <> Liste2.List(j) Then
Palindrome = False
Else
i = i + 1
j = j + 1
End If
Next
Next
End Function

Ca marche mieux, mais cela m'affiche du Vrai même quand c'est faux

**ucfoutu** · 01/12/2007, 15h23

et...

aussi et surtout :

Tu as vraiment l'impression d'avoir suivi mon algo, jere3110 ???... pas moi ...

bon ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command2_Click()
  MsgBox Palindrome(List2)
End Sub

Public Function Palindrome(maliste As ListBox) As Boolean
  Dim rg As Integer, i As Integer
  rg = maliste.ListCount - 1
  Palindrome = True
  For i = 0 To rg \ 2 ' et attention : ce n'est pas au hasard que j'ai mis \ et non / 
   If maliste.List(i) <> maliste.List(rg - i) Then
      Palindrome = False
      Exit For
    End If
  Next i
End Function

L'opérateur \ permet de tirer directement l'entier d'une division (x\y est égal à Int(x/y))

Edit : et ne change pas une seule virgule à mon code, hein...

**Jere3110** · 01/12/2007, 15h32

non j'ai essayer d'adapter le tien avec le mien

. Je te remerci ça marche maintenant

.
Mon projet est donc terminé. Je vous remerci (surtout ucfoutu bbil) pour votre patience et pour le temps que vous m'avez accordez.
je vous souhaite une bonne aprés midi.

**bidou** · 01/12/2007, 15h46

qui est ce qui lui dit qu'il a oublié de gérer la suppression ou la modification d'un élément ?

**ucfoutu** · 01/12/2007, 16h41

Envoyé par bidou

qui est ce qui lui dit qu'il a oublié de gérer la suppression ou la modification d'un élément ?

Bien vu, Bidou

Pourvu qu'il repasse par là ...

Alors jere3110 ...

T'as pas fini tout ton exercice, là ...
Au boulot (il t'en reste peu, mais il t'en reste encore .)

..

**Jere3110** · 01/12/2007, 17h32

J'ai vu j'ai vu le message de bidou et je m'y suis mis

!!
Pas de soucis pour déterminer un emplacement, et effacer une valeur à un emplacement donné, par contre le problème commence quand, aprés avoir éffacé une valeur à un emplacement choisi je la remplace par une autre valeur.

Pour moi, la logique est de d'abord effacer la valeur a un emplacement choisi et ensuite attribuer une nouvelle valeur à cet emplacement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Cmd_modifier_Click()
List1.RemoveItem (CInt(Txt_modifier1.Text))
List1.AddItem (Txt_modifier1.Text, Txt_modifier2.Text)
End Sub

Le text_modifier1 donne l'emplacement et le text_modifier2 la nouvelle valeur. j'ai chercher sur des cours en lignes qui expliquer comment remplacer en mettant d'abord l'indexation et ensuite la nouvelle valeur dans la paranthèse. là ça marche pas et je suis obliger de jouer les prolongations.

**ucfoutu** · 01/12/2007, 17h46

Rassure-toi (tu vas pouvoir passer ton dimanche tranquille

) :

Il n'est pas nécessaire de supprimer pour modifier

Tu peux directement affecter la nouvelle valeur, ainsi (exemple) :

List1.List(2) = 9

ou 2 est l'index de l'article et ou 9 est la valeur de remplacement.

**ucfoutu** · 01/12/2007, 17h54

tu peux toujours également, comme tu l'as essayé, insérer un article à l'emplacement de ton choix...

tu y étais presque (juste une question de syntaxe)

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Command2_Click()
   ou = 3
   valeur = 9
  List1.AddItem valeur, ou
End Sub

pas de parenthèses.

**Jere3110** · 01/12/2007, 18h09

Cette fois si c'est bon alors, ça marche parfaitement

encore une fois merci beaucoup et le jour ou moi je pourrai apporter mon aide, ça sera avec plaisir

bien cordialement

**Jere3110** · 13/12/2007, 19h17

Bonsoir à tous,

Je cherche a insérer une messagebox dans mon application et elle apparaitrai aprés le clik sur la croi de fermeture. L'application se fermerait ensuite en appuyant sur le ok de la messagebox.
Cela est-il possible, Et si oui quelle en est la syntaxe ?

Merci beaucoup d'avance

**Delbeke** · 13/12/2007, 19h25

Tu prends ton courage a deux mains et tu te lances dans la réécriture de Windows

**Jere3110** · 13/12/2007, 19h37

Arf, l'idée m'était venu en me servant de word (par exemple) qui demande toujours avec une messagebox si on veut enregristrer ou autre quand on ferme.

En tous cas merci pour ta réponse rapide, cordialement.

[débutant] projet Visual Basic 6

VB 6 et antérieur

Discussions similaires

Partager

Partager