karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Salve,
ho un problema con i vettori:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command4_Click() Dim J As Integer For i = 1 To N - 1 For J = i + 1 To N If Numeri(i) > Numeri(J) Then Scambia Numeri(i), Numeri(J) End If Next J Next i End Sub Sub Scambia(ByRef x As Integer, ByRef Y As Integer) Dim appoggio As Integer appoggio = x x = Y Y = appoggio End Sub
|
Quando premo sul pulsante ordina...mi visualizza il risultato nella stessa Label però attaccando i numeri vekki con quelli ordinati, io però voglio che cancelli il contenuto dei numeri inseriti casualmente e visuallizzi quelli in modo crescente? Poi come visualizzarli in una label vuota?
Se devo postare anke il resto del codice...ovviamente non ci sono problemi.
Grazie
Ultima modifica effettuata da karl93 il 17/10/2011 alle 19:13 |
|
Alex (Ex-Member)
Expert
Messaggi: 441
Iscritto: 15/08/2005
|
si penso servi anche il resto del codice perchè senza vedere tutto è un pò difficile=)
comunque se nella label ci sono ancora quelli vecchi vuol dire che prima di inserire quelli nuovi non hai tolto quelli vecchi..quindi prova, prima di inserire quelli nuovi a fare:
Codice sorgente - presumibilmente Plain Text |
e vedere se funziona
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6403
Iscritto: 03/01/2010
|
Quindi non hai un problema con i vettori ma con la label ... ma nel codice che hai mostrato non c'è nulla che faccia riferimento a delle label ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
Qwertj (Dev Team)
Guru
Messaggi: 678
Iscritto: 30/05/2011
|
Illogicità O.o
|
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Codice sorgente - presumibilmente VB.NET |
Option Explicit Dim i, N, tot, totpari, totdispari, indicipari, indicidispari As Integer Dim Numeri(1 To 30) As Integer Private Sub Command1_Click() tot = 0 totpari = 0 indicipari = 0 indicidispari = 0 Do N = InputBox("quanti numeri vuoi inserire?" & vbCrLf & _ "(inserire un vamlore minore di 30)", "richiesta numero dati") Loop While N > 30 For i = 1 To N Numeri(i) = InputBox("inserisci un numero", "inserimento dati") Next i End Sub Private Sub Command2_Click() For i = 1 To N Label1.Caption = Label1.Caption & Numeri(i) & " " tot = tot + Numeri(i) If Numeri(i) Mod 2 = 0 Then totpari = totpari + Numeri(i) ElseIf Numeri(i) Mod 2 <> 0 Then totdispari = totdispari + Numeri(i) End If If i Mod 2 = 0 Then indicipari = indicipari + Numeri(i) ElseIf i Mod 2 <> 0 Then indicidispari = indicidispari + Numeri(i) End If Next i Label3.Caption = tot Label8.Caption = totpari Label9.Caption = totdispari Label14.Caption = indicidispari Label12.Caption = indicipari End Sub
|
Si ho un problema con le label...cioè come visualizzare al meglio il vettore ordinato in una nuova label; quindi in una label devo visualizzare i numeri come li carico e nell'altra label in modo ordinato. Devo visulizzare i numeri ordinati in una determinata label, premendo sul CommandButton ordina, in particolare Command4.
Grazie ancora
Ultima modifica effettuata da karl93 il 17/10/2011 alle 21:00 |
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Avete capito il problema? Oppure no?
|
|
nessuno (Normal User)
Guru^2
Messaggi: 6403
Iscritto: 03/01/2010
|
E tu hai letto la risposta di Alex oppure no?
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|
karl93 (Normal User)
Rookie
Messaggi: 47
Iscritto: 17/09/2011
|
Si ho scritto così:
Codice sorgente - presumibilmente VB.NET |
Private Sub Command4_Click() Label1.Caption="" Dim J As Integer For i = 1 To N - 1 For J = i + 1 To N If Numeri(i) > Numeri(J) Then Scambia Numeri(i), Numeri(J) End If Next J Next i End Sub
|
Funziona perfettamente...dovevo solo aggiungere quella riga di codice.
Grazie
Ultima modifica effettuata da karl93 il 18/10/2011 alle 17:49 |
|
nessuno (Normal User)
Guru^2
Messaggi: 6403
Iscritto: 03/01/2010
|
Postato originariamente da karl93:
Funziona perfettamente...dovevo solo aggiungere quella riga di codice.
|
A parte il fatto che le risposte vanno lette, è anche intuitivo, scusa ... ci arrivi da solo al fatto che un "contenitore" va svuotato prima di "riempirlo" ripetutamente ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità. |
|