Visual Basic 6 - calcolare conbinazioni

Forum - Visual Basic 6 - calcolare conbinazioni

Pagine: [ 1 2 ]

robert6777 (Normal User)
Newbie

Messaggi: 3
Iscritto: 17/04/2007

Postato alle 13:49
Martedì, 17/04/2007

salve sono roberto,
vorrei sapere come posso calcolare conbianzioni
avendo un cmdcalcola un listbox e una txtbox.
Cioe'ho dieci squadre inserite nella listbox, per ogni squadra mi deve calcolare le G e N, inserendo conbinazioni da uno a 10 nella text.
La listbox poi mi deve visualizzare le conbinazioni cliccando sul cmdcalcola.
Spero di essere stato chiaro.
ciao a presto. :-?

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:52
Martedì, 17/04/2007

1) NON FACIIAMO PROGRAMMI SU BLA bla bla..
tanto ormai si sa l'abbiamo detto migliaia di volte.

detto questo intendi fare un programma di calcolo combinatorio o cosa? non penso di aver capito esattamente.

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 15:01
Martedì, 17/04/2007

neanch'io ho capito...

robert6777 (Normal User)
Newbie

Messaggi: 3
Iscritto: 17/04/2007

Postato alle 15:40
Martedì, 17/04/2007

vorrei che invece dei numeri mi visualizzasse G invece di 0 e n invece di 1
Private Sub cmdCalcola_Click()
For i1 = 0 To 1
For i2 = 0 To 1
For i3 = 0 To 1
For i4 = 0 To 1
For i5 = 0 To 1
For i6 = 0 To 1
For i7 = 0 To 1
For i8 = 0 To 1
For i9 = 0 To 1
For i10 = 0 To 1
ListBox1.AddItem CStr(i1) + CStr(i2) + CStr(i3) + CStr(i4) + _
CStr(i5) + CStr(i6) + CStr(i7) + CStr(i8) + CStr(i9) + CStr(i10)
Next i10
Next i9
Next i8
Next i7
Next i6
Next i5
Next i4
Next i3
Next i2
Next i1
Text1.Text = ListBox1.ListCount
End Sub

c.ronaldo (Normal User)
Expert

Messaggi: 577
Iscritto: 01/02/2007

Postato alle 21:23
Martedì, 17/04/2007

Se qualcuno ha capito me lo spiegasse :k:

P4p3r0g4 (Member)
Guru

Messaggi: 1319
Iscritto: 29/12/2006

Postato alle 14:29
Mercoledì, 18/04/2007

non ho capito, puoi spiegarti meglio?

Hacker (Member)
Guru

Messaggi: 1014
Iscritto: 06/06/2006

Postato alle 15:06
Mercoledì, 18/04/2007

ma perchè usa 10 cicli? :-|

c.ronaldo (Normal User)
Expert

Messaggi: 577
Iscritto: 01/02/2007

Postato alle 19:48
Sabato, 21/04/2007

Forse intendi sostituire gli 0 con gli 1,e allora si fà così mi pare :

Codice sorgente - presumibilmente Plain Text

risultato = replace (risultato,"Parola da sostituire","parola sostituita")
risultato = replace (risultato,"1","G")

robert6777 (Normal User)
Newbie

Messaggi: 3
Iscritto: 17/04/2007

Postato alle 19:52
Sabato, 28/04/2007

Private Sub cmdCalcola_Click()
Dim gn(1) As String
Dim sColonna As String
Dim i1, i2, i3, i4, i5, i6, i7, i8, i9, i10 As Integer
sColonna = Space(10)
gn(0) = "G"
gn(1) = "N"
For i1 = 0 To 1
Mid$(sColonna, 1, 1) = gn(i1)
For i2 = 0 To 1
Mid$(sColonna, 2, 1) = gn(i2)
For i3 = 0 To 1
Mid$(sColonna, 3, 1) = gn(i3)
For i4 = 0 To 1
Mid$(sColonna, 4, 1) = gn(i4)
For i5 = 0 To 1
Mid$(sColonna, 5, 1) = gn(i5)
For i6 = 0 To 1
Mid$(sColonna, 6, 1) = gn(i6)
For i7 = 0 To 1
Mid$(sColonna, 7, 1) = gn(i7)
For i8 = 0 To 1
Mid$(sColonna, 8, 1) = gn(i8)
For i9 = 0 To 1
Mid$(sColonna, 9, 1) = gn(i9)
For i10 = 0 To 1
Mid$(sColonna, 10, 1) = gn(i10)
ListBox1.AddItem (sColonna)
Next
Next
Next
Next
Next
Next
Next
Next
Next
Next
Text1.Text = ListBox1.ListCount
End Sub

Ecco quello che volevo fare....
Credevo aveste capito.
Ditemi se va bene o puo essere migliorato.
L'umilta e dei GRANDI.

Ultima modifica effettuata da robert6777 il 28/04/2007 alle 19:53

Pagine: [ 1 2 ]