Newsgroup: it.comp.lang.visual-basic
Titolo: Visual Basic - Compito

A scuola mi hanno dato da fare un form nel quale inserisco dei dati ad
esempio dei nomi e poi li scorro in ordine alfabetico.
Mi spiego meglio, io non li inserisco in ordine alfabetico ma quando li
immetto loro si imettono nella posizione giusta.
Naturalmente non conosco tanti comandi...quindi non posso mettere comandi a
me sconosciuti...altrimenti si capisce!!!1
questo č quello che ho scritto:
Private Type archivio
   nome As String
   indirizzo As String
   localita As String
   provincia As String
   successivo As Integer
   precedente As Integer
   corrente As Integer
 
End Type
Dim persona(10) As archivio
Dim i As Integer
Dim num As Integer
Private Sub Command3_Click()
num = num + 1
persona(num).corrente = num
persona(num).successivo = num + 1
If num > 2 Then
persona(num).precedente = num - 1
End If
For i = 0 To 10
If num > 1 Then
If Text1.Text < persona(persona(num).precedente).nome Then
persona(persona(num).corrente).nome = persona(num).nome
persona(num).nome = Text1.Text
num = num - 1
Else
persona(persona(num).corrente).nome = Text1.Text
End If
Next i
num = persona(num).corrente
End Sub
Vi prego...non voglio prendere 3!!!!!
ps: non posso usare database
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Vi prego...non voglio prendere 3!!!!!
E allora datti da fare..........o cerchi la pappa pronta?
Non sei in classe dove puoi scopiazzare il tuo compito,
e certo tra qualche anno non vorrei ritovarti nel mondo
professionale: alla larga.

 Inviato via 
http://arianna.libero.it/usenet/
-- 
Il Wodkino Nazionale č a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 Quotefix e altro:
http://www.martek.it/go.asp?portamia=4
Usr: ICLVB Pw: amici

> alemno il bubble-sort lo conosci?
c'č  gente che ha strabuzzato gli occhi quando ho parlato di bubble -sort.
mi č stato detto Quick-Sort!
E mi hanno tirato le orecchie che sembravo il capitano kirck....
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 bye
:-)
LOL



Malgrado apprezzi molto il tuo "coca cola"
devo tirarti le orecchie:
si scrive kirk
e le orecchie "tirate" le aveva spock
--
Mauro Cerreto
www.cerretosoft.it
MSN-Yahoo mauro_6808

 E mi hanno tirato le orecchie che sembravo il capitano kirck....
Quello era Spak/Spok >:)
termoPilucco, affascinante capitano

 a me han tirato il pisello che sembravo John Holmes (R.I.P.)
ROTFL!


 questo è quello che ho scritto:

Questa dovrebbe andare
dim array() as string
dim sTemp as string
dim i as long
dim j as long
for i = 0 to ubound(array())-2
    for j =0 to (ubound(array())-2) - i
        if array(j)> array(j+1) then
            stemp = array(j+1)
            array(j+1) = array(j)
            array(j)=stemp
        end if
    next j
next i
Alla prossima però dì alla prof che basta caricare gli elementi in una
listbox e impostare la proprietà sorted a true, gli elementi vengono
automaticamente ordinati in ordine alfabetico.
;-P
Ciao
-- 
Le persone non sono il proprio comportamento: devi sempre andare oltre,
essere flessibile, capire il punto di vista degli altri, interpretarne i
comportamenti ed intuirne le esigenze.
Per rispondere in privato elimina
dall'indirizzo "togliquesto"
MasterDavidex
David Ruscelli

 e le orecchie "tirate" le aveva spock
azz! battutona andata a male (e relativa tirata di orecchie che sembro spock
:-P)
Vabbč ci riprovo la prossima volta.


 next i
Ahhhh.... l'algoritmo di belzebu'!!!
termoPilucco, spaventato

 "Frank Ottobre" ha scritto
caz deve ordinare 10 elementi non un milione di milardi!
io dico che anche il suo p166 ce la fa!!!
OT SPAM
Ho aggiornato il bestiario!


 io dico che anche il suo p166 ce la fa!!!
Il male si insinua in innocenti interstizi per propagarsi in modo subdolo e
giungere alla catarsi apocalittica.
In pratica: adesso ha 10 elementi, ma domani, quando ne avrà 100.000 dirà
'ho già l'algoritmo pronto!'
termoPilucco, ok, vado a casa.

 Bubble Sort è il male.
Beh, se mi serve un sorting su una decina di elementi senza dover andare a
cercarmi la funzione di quick e ri-tipizzarmela, mi scrivo le mie 4 righe di
bubble e via andare :)
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 ha scritto:
[CUT]
Dal nick che hai scelto direi che hai letto il libro di Faletti e ti è 
anche piaciuto :-)
Stefano
Inviato da 
www.mynewsgate.net

 anche piaciuto :-)
:-)


POVERA BESTIA... e aiutatelo
Questo è l'ordinamento più semplice ke esiste lo conoscono pure le pecore...
Ma datti da fare.
Private sub ordina
 dim temp as archivio
  for a:=1 to num-1 do
    if persona(a).nome>persona(a+1).nome then
      temp=persona(a)
      persona(a)=persona(a+1)
      persona(a+1)=temp
    end if
  next a
end sub

 termoPilucco, ok, vado a casa.
In realta' (a volte ritornano... maciao!!!) il bubble e' abbastanza
efficiente per tipo 10-20000 elementi.
Ad ogni algoritmo la sua applicazione :)
Ciaotutti,
*

   for a:=1 to num-1 do
":=" ?!?
"do" ?!?
Mi sono perso qualcosa? 
VB.NET
 e' un Pascal in disguise?
Ciaotutti,
* -- che per ora e' su evil Visual C 4...

 efficiente per tipo 10-20000 elementi.
(20000*19999)/2=199990000 confronti
Metto i puntini per capire meglio il numero:
199.990.000 = centoNovantaNoveMilioniNovecentoNovantaMila confronti (stiamo
parlando di confornti di stringhe, non di numeri).
Io non lo proverei neppure a lanciare :)
Diciamo che, Bubble Sort è abbastanza efficiente per far capire allo
studente come (non) funziona un algoritmo di ordinamento :)
Oppure per ordinare tre elementi.
Effettivamente  viene utilizzato dai programmatori della ID nel motore di
Quake per ordinare la classifica nella modalità multiplayer (c'è anche un
commento del tipo 'Good old bubble sort'). L'avessero utilizzato per
ordinare gli oggetti poligonali, il gioco girerebbe a 1 fps anche con i PC
di oggi.
termoPilucco


Vediamo... Il costo per ordinare 20k elementi e' di circa 200M confronti.
Fossero confronti di *interi*, al tempo medio di 20 cicli di clock a
confronto (che ci stanno belli larghi ma fanno media con lo swap di un
record di due elementi (il secondo diciamo che e' il puntatore a una
stringa, ordinando per ID) e i cazzemazzi dell'OS), sono 4Gcicli, cioe' 2
secondi su un moderno 2Ghz. Mi pare sia ragionevolmente efficiente :)
Diciamo poi che un confronto di stringhe di una quarantina di caratteri e'
100 volte piu' lento (non e' vero, soprattutto con cache decenti), fanno 200
secondi (che sono meno di 4 minuti). Lentino, per carita', ma da li' a
preoccuparsi di farlo partire... :)
Ovviamente, se le stringhe sono piu' lunghe il tempo aumenta, ma in
proporzione lineare...
Scordo qualcosa? :)
Ciaotutti,
*

 Scordo qualcosa? :)
Ti racconto di come č nato il bubble sort.
Belzebů, che era lesto a far di conto, incontrň due commercianti:
'Vediamo chi č piů rapido a contare!' lanciň la sfida Belzebů. E cosě
fecero.
Belzebů trionfante umiliň i suoi sfidanti.
Il giorno dopo, ehm... duemila anni dopo, Belzebů vide un commerciante far
di conto con un computer.
Lanciň la sua sfida e, suo malgrado, perse miseramente.
Passň mille notti a cercare la vendetta e alla fine inventň il "bubble
sort".
'Inserisci questo algoritmo nel tuo computer.' disse  'E' facile da scrivere
e da capire!' continuo.
Fu cosě che i computer di tutto il mondo rallentarono l'elaborazione, con
somma soddisfazione di Belzebů e dei suoi adepti.
termoPilucco, ehm

 con somma soddisfazione di Belzebů e dei suoi adepti.
Ma ROTFL!



Con una directory di 20kfile, altro che 1 minuto ci vuole per vederli, sul
mio povero 400MHz :P
Ciaotutti,
*