[vb]Problema con un prgetto...

[wretched2088]

Ciao a tutti ho un problema con un progetto, mi sono bloccato e nn riesco più ad andare avanti, ho allegato il form in questone perfavore aiutatemi!
P.S. è tutto spiegato nel form...

[wretched2088]

ecco l'allegato...

[matpez]

Adesso sono troppo stanco per farlo!

Te lo faccio stasera se nessun altro a tempo :)

Ma toglimi solo una curiosità..ma perchè se aumenti i punti di 0.5 nella lista dei punti disponibili ne togli 1 ? nn dovresti togliere sempre 0.5 ?

ciaoooo :p

[a2000]

Originariamente inviato da wretched2088
ecco l'allegato...


If List8.Selected(0) = True Then
tey = 0
ElseIf List8.Selected(1) = True Then
tey = 1
ElseIf List8.Selected(2) = True Then
tey = 2
ElseIf List8.Selected(3) = True Then
tey = 3
ElseIf List8.Selected(4) = True Then
tey = 4
ElseIf List8.Selected(5) = True Then
tey = 5
ElseIf List8.Selected(6) = True Then
tey = 6
ElseIf List8.Selected(7) = True Then
tey = 7
ElseIf List8.Selected(8) = True Then
tey = 8
ElseIf List8.Selected(9) = True Then
tey = 9
ElseIf List8.Selected(10) = True Then
tey = 10
ElseIf List8.Selected(11) = True Then
tey = 11
ElseIf List8.Selected(12) = True Then
tey = 12
ElseIf List8.Selected(13) = True Then
tey = 13
ElseIf List8.Selected(14) = True Then
tey = 14
ElseIf List8.Selected(15) = True Then
tey = 15
ElseIf List8.Selected(16) = True Then
tey = 16
ElseIf List8.Selected(17) = True Then
tey = 17
ElseIf List8.Selected(18) = True Then
tey = 18
ElseIf List8.Selected(19) = True Then
tey = 19
ElseIf List8.Selected(20) = True Then
tey = 20
ElseIf List8.Selected(21) = True Then
tey = 21
ElseIf List8.Selected(22) = True Then
tey = 22
ElseIf List8.Selected(23) = True Then
tey = 23
ElseIf List8.Selected(24) = True Then
tey = 24
ElseIf List8.Selected(25) = True Then
tey = 25
ElseIf List8.Selected(26) = True Then
tey = 26
ElseIf List8.Selected(27) = True Then
tey = 27
ElseIf List8.Selected(28) = True Then
tey = 28
ElseIf List8.Selected(29) = True Then
tey = 29
End If


:( :rotfl:

ma dei, per esempio, cicli For Next la mamma non ti ha detto niente ? :D :D

[The March]

Originariamente inviato da a2000

If List8.Selected(0) = True Then
tey = 0
ElseIf List8.Selected(1) = True Then
tey = 1
ElseIf List8.Selected(2) = True Then
tey = 2
ElseIf List8.Selected(3) = True Then
tey = 3
ElseIf List8.Selected(4) = True Then
tey = 4
ElseIf List8.Selected(5) = True Then
tey = 5
ElseIf List8.Selected(6) = True Then
tey = 6
ElseIf List8.Selected(7) = True Then
tey = 7
ElseIf List8.Selected(8) = True Then
tey = 8
ElseIf List8.Selected(9) = True Then
tey = 9
ElseIf List8.Selected(10) = True Then
tey = 10
ElseIf List8.Selected(11) = True Then
tey = 11
ElseIf List8.Selected(12) = True Then
tey = 12
ElseIf List8.Selected(13) = True Then
tey = 13
ElseIf List8.Selected(14) = True Then
tey = 14
ElseIf List8.Selected(15) = True Then
tey = 15
ElseIf List8.Selected(16) = True Then
tey = 16
ElseIf List8.Selected(17) = True Then
tey = 17
ElseIf List8.Selected(18) = True Then
tey = 18
ElseIf List8.Selected(19) = True Then
tey = 19
ElseIf List8.Selected(20) = True Then
tey = 20
ElseIf List8.Selected(21) = True Then
tey = 21
ElseIf List8.Selected(22) = True Then
tey = 22
ElseIf List8.Selected(23) = True Then
tey = 23
ElseIf List8.Selected(24) = True Then
tey = 24
ElseIf List8.Selected(25) = True Then
tey = 25
ElseIf List8.Selected(26) = True Then
tey = 26
ElseIf List8.Selected(27) = True Then
tey = 27
ElseIf List8.Selected(28) = True Then
tey = 28
ElseIf List8.Selected(29) = True Then
tey = 29
End If


:( :rotfl:

ma dei, per esempio, cicli For Next la mamma non ti ha detto niente ? :D :D


miiinchia.....

[Geen]

Ecco qua,ho dato fondo ai miei ricordi di Vb:)

Non hai specificato come partono i punti iniziali e come incidono(o non l'ho capito) ma penso che ora riuscirai a finire tu.Fai anche i controlli sugli indici delle liste(<>-1).
Per l'amor del cielo indenta il codice,dai un nome sensato a variabili e controlli e dai un occhio alle basi perche' non era proprio il max quello che avevi scritto!