|
|||||||
|
|
|
 |
|
|
Strumenti |
22-04-2004, 20:17
|
#1 |
|
Member
Iscritto dal: Mar 2004
Messaggi: 38
|
[vb]Problema con un prgetto...
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... |
|
|
|
22-04-2004, 20:20
|
#2 |
|
Member
Iscritto dal: Mar 2004
Messaggi: 38
|
ecco l'allegato...
|
|
|
|
|
23-04-2004, 01:29
|
#3 |
|
Senior Member
Iscritto dal: Aug 2002
Città: Biella
Messaggi: 1882
|
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 
__________________
"Analizzando e valutando ogni giorno tutte le idee, ho capito che spesso tutti sono convinti che una cosa sia impossibile, finchè arriva uno sprovveduto che non lo sa e la realizza!" A. Einstein |
|
|
|
|
23-04-2004, 06:11
|
#4 | |
|
Bannato
Iscritto dal: Jan 2001
Messaggi: 1976
|
Quote:
Codice:
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
  ma dei, per esempio, cicli For Next la mamma non ti ha detto niente ? 
|
|
|
|
|
|
23-04-2004, 08:51
|
#5 | |
|
Senior Member
Iscritto dal: Nov 2003
Città: Zena
Messaggi: 1883
|
Quote:
miiinchia.....
__________________
Internet gratis in mobilità? perchè no? http://www.fon.com/ |
|
|
|
|
|
23-04-2004, 09:15
|
#6 |
|
Member
Iscritto dal: Jul 2002
Città: TV
Messaggi: 125
|
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! |
|
|
|
|
|
| Strumenti | |
|
|
Tutti gli orari sono GMT +1. Ora sono le: 14:31.
