Newsgroup: it.comp.lang.visual-basic
Titolo: Algoritmo per VB6





Da un'urna contenente m numeri diversi estraggo, con 
reimbussolamento, un campione ordinato di dimensione n (ovviamente n < 
m).


Ho bisogno di un algoritmo per VB6 che mi dica se nel 
campione estratto vi sia almeno una coppia di numeri uguali. Maggiormente 
gradito sarebbe il codice per esteso.


Per inciso : io lo so fare ma il mio algoritmo non è né 
elegante né presentabile perché, purtroppo, fa ricorso al famigerato 
GoTo.


1000 grazie a chi mi può aiutare.


ciao :-)


e.b.



 1000 grazie a chi mi può aiutare.
Poi pero' l'esame viene accreditato noi, giusto? ;-)
--
ciao, hal
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/


Se mandi il tuo codice magari si può anche "sistemare", io lo faccio
tutte le volte che riprendo in mano una mia routine.
(mi piacerebbe avere il tempo di lavorare bene, ma più spesse volte mi
tocca correre per finire in fretta senza badare all'eleganza... sigh!)

 ha scritto nel messaggio
news:V5e0e.1104415$35.41...@news4.tin.it...

Se ho capito bene ...tutto in buona sostanza si riduce a contare quante
volte un numero è stato estratto!
Beh una matrice ...altrimenti che servono?
Considerato che lo utilizzerai con m piccoli ...non ci son problemi di
memoria
se prendi l'indice come numero estratto ed il contenuto come numero di
volte.....
dim numero(1 to 90) as long
......77...le gambe....
numero(77)=numero(77)+1
....
etc etc
alla fine basta guardare i valori per sapere quante volte è uscito....
UNA CONSIDERAZIONE FONDAMENTALE:
generare un numero random è tutt'altro che banale per un computer!
Se ti fidi della funzione del VB...cadi in errore
Si tratta di numeri "pseudo-random"....tant'è che hai una funzione randomize
per cominciare la sequenza dove vuoi!
Tutto deve essere considerato in base a quelloc he vuoi fare!
Per simulare il lotto va bene...tanto non c'è nulla di scentifico nelle
previsioni del lotto!
Per estrarre una carta ...anche
Per simulazioni beh insomma!....sulla base dei risultati non ci fare
previsioni troppo affrettate!
Ammesso e non concesso che ti interessasse saperne di più
http://snipurl.com/dlxn
è un thread lunghissimo
oppure il + breve
http://snipurl.com/dlxq
oppure
http://snipurl.com/dlxr
-- 
------------------------------------------------
Il Wodkino Nazionale è a : 
www.martek.it
Pagina Vb/Bestiario/Lamer Experience :
http://www.martek.it/go.asp?portamia=2
 New Entry nel bestiario!
:-)

 ha scritto nel messaggio 
news:1111587553.0...@o13g2000cwo.googlegroups.com...


Esempio m = 5  n = 2   (per brevità)
[CUT]
For i = 1 To NumeroProve
Randomize
C1 = Int(Rnd * 5 +1)           ' C1 = compleanno della prima persona
Randomize
C2 = Int(Rnd * 5 +1)           ' C2 = compleanno della seconda persona
If C2 = C1 Then
GoTo 10
Else
GoTo 20
End If
10 StessiCompleanni = StessiCompleanni + 1
20 Next i
[CUT]
Print "StessiCompleanni = "; Round(100 * StessiCompleanni/NumeroProve,2); 
"%"
End Sub
Per prima cosa eliminare l'orribile GoTo......
Ciao :-)
e.b.

 e.b.

Usa l'algoritmo B che ti ho indicato nel mio post, fai un ciclo abanle, 
generi il numero in modo pseudo-randomico e fai il check sul vettore di 
M posizioni. Appeni cerchi di risettare un booleano a true significa che 
hai un altro doppione
for i=1 to n
	K=random(m)
	v(i)=K
	if (p(K)=false) then
		p(K)=true
	else
		NumeroDoppioni=NumeroDoppioni+1
	endif
next i
 

emilio benecchi wrote:
SUPERZAC
ARRGH! dove č m e dove č n?
in quel codice?...
Allora prendo per buono quello che scrivi cercando di capire quello che vuoi
fare!
apri Vb
prendi un form
metti un command button ed un listbox
imposta le dimensioni verticali del listbox abbastanza "lunghe"
poi incolla questo codice
Option Explicit
'da cambiare a piacimento
Private Const NUMERIINGIOCO As Long = 100
Private Const NUMEROESTRAZIONI As Long = 1000
'la funzione di C non la capisco ....
'In pratica TARPI le uscite...
'allora non capisco perchč non imposti i numeri in gioco ad un valore piů
piccolo!
' E' ridondante!
' per me ti sei spiegato male!
Private Const C As Long = 50
Private Estrazioni() As Long
Private Sub Command1_Click()
Dim n As Long
Dim numEstratto As Long
'inizializza array
ReDim Estrazioni(1 To NUMERIINGIOCO)
'reinizializzando senza "preserve" reimposti tutti i valori a ZERO!
For n = 1 To NUMEROESTRAZIONI
    Randomize
    numEstratto = CLng((Rnd * C) + 1)
    Estrazioni(numEstratto) = Estrazioni(numEstratto) + 1
Next
' adesso mostra il risultato
' ti faccio notare che i numeri superiori a C non li fai uscire
' per definizione!
Me.List1.Clear
For n = 1 To NUMERIINGIOCO
    If n > C Then
        List1.AddItem "[" & CStr(n) & "]  Numero escluso da C"
    Else
        List1.AddItem "(" & CStr(n) & ") uscito " & CStr(Estrazioni(n)) & "
volte"
    End If
Next
End Sub
....schiaccia piů volte il command per vedere cosa succede!
Su questo scheletro fai le variazioni che vuoi!
Leggi bene i commenti!...per me ti sei spiegato male!
forse volevi su 100 numeri far uscire solo C numeri
es. su 100 numeri solo 20 numeri diversi.....
ma ordinati che vuol dire?
su 100 numeri contare quante volte escono quelli da 20 a 40 ?
o che cosa?
Buono studio!
-- 
------------------------------------------------
Il Wodkino Nazionale č a : 
www.martek.it


avere una maggiore efficienza nel codice.
Su questo sono completamente d'accordo, il Goto a volte è la strada
migliore.
Se per evitare questa istruzione devo fare costruzioni arzigogolate e
incasinate, il Goto va benissimo.
Pensa che io uso il GOTO anche in C (ovviamente senza esagerare, ma
avendo iniziaito anni fa con l'assembler mi viene +facile)
Tanto quando il programma viene compilato in linguaggio macchina fa un
sacco di salti con JMP o di BRA.
ciao
  Stefano

 ha scritto nel messaggio 
news:0b1541hr12nvc91lp...@4ax.com...

1000 grazie a tutti coloro che mi hanno scritto. Ho gradito molto il fatto 
che il povero
GoTo non sia stato ostracizzato. Ora ho dell'abbondante materiale da 
studiare per migliorare le mie conoscenze di programmatore empirico.
Ciao :-)
e.b. 

 fare!
Senza fartene una colpa, perň, ti devo dire che non hai proprio capito nulla 
di ciň che ho scritto e chiesto.
Ho scritto : Da un'urna contenente m numeri diversi  estraggo,con 
reimbussolamento,
un campione ordinato di dimensione n ( n < m).
Spiegone : Nel calcolo delle probabilitŕ l'operazione suddetta viene appunto 
definita
estrazione di un "campione ordinato di classe n".
 E questo risponde anche alla domanda che piů avanti mi poni : ordinati che 
vuol dire?
Ho chiesto : un algoritmo per VB che sia in grado di verificare se nel 
campione ordinato estratto vi sia "almeno" una coppia di numeri uguali.
Commento : l'aggettivo "ordinato" e la parola "reimbussolamento" avrebbero 
dovuto farti capire che nel campione estratto potevano presentarsi dei 
numeri uguali.
Non che io non sia in grado di farmi tale programmino, ma ne volevo uno piů 
elegante.
Chiarito il punto non ho alcuna difficoltŕ a dirti che non ho capito una 
mazza delle tue elocubrazioni. Comunque io ti ringrazio del contributo 
perché ritengo che tu abbia agito in buona fede. Non tutti hanno il dono 
della semplicitŕ e della chiarezza.
Buon studio anche a te!
ciao :-)
e.b.


Senti io non avrò capito una mazza ma
....
modificando un attimo....l'esempio...
se ho un array tutto a zero
.....poi eseguo 40 estrazioni incremtando il valore corrispondente come
indice al numero estratto....
ed
alla fine guardo
es.
se ho Array(27)=3
significa che su 40 estrazioni il 39 è uscito 3 volte!
con un minimo di programmazione ti puoi fare tutte le ricerche che
vuoi....sulla base di quell'array
Le mie elucubrazioni significano che Randomize e rnd NON va bene per
generare numeri casuali!
Ora hai capito????!


io spero di no!
E che tutto faccia parte di un test universitario!
Ho cercato un po su google reimbussolamento....e mi vengono fuori un sacco
di link a psdeudoscienze "lottologiche"
Ciclometrie...leggi del terzo e menate varie!
Io spero che non sia l'ennesima domanda sul lotto!
Se lo è...non ti stare a bacare tanto le scatole:
http://www.villaceleste.it/html/Spippolamenti/index.asp
è quello che ti ci vuole!
Fa previsioni sulla base di calcoli complicatissimi e che hanno un delta
integrativo di errore prossimo a 0.8927 che come saprai è un ottimo
risultato!
...ed è pure velocissimo!
Saluti!

Wodka 40°,
Non ho detto che tu non abbia capito una mazza, ma che io "non ho capito una 
mazza delle tue elocubrazioni".
Ora però, leggendo i tuoi due ultimi post, posso affermare, con prove alla 
mano, che non capisci proprio una mazza.
Continui a non capire ciò che ho scritto e chiesto (vatti a rileggere il mio 
post originale). Nonostane ciò hai la presunzione di darmi delle risposte 
perseverando nelle tue elocubrazioni.
Tra le tue trollate vi è anche l'affermazione che la funzione Randomize non 
va bene per generare numeri casuali. La funzione Randomize, se non ripetuta 
nella routine (ad esempio : non la puoi collocare all'interno di un ciclo 
For...Next) risponde molto bene alla richiesta di generare numeri casuali. 
Poi tu potrai chiamare questi numeri come meglio vorrai (numeri pseudo 
casuali o numeri strani o qualunque cosa ti venga in mente). Però non farai 
un baffo alla loro attendibilità.
(Per inciso, ho fatto, per divertimento, decine di programmini sperimentali 
VB per controllare le previsioni teoriche sulla probabilità di diversi 
giochi (poker, roulette, dadi ...) ed ho avuto sempre una frequenza relativa 
che ha confermato la previsione teorica.
Il mio cruccio è il fatto che tante volte ho dovuto far ricorso al GoTo.
E poi, dico, se la funzione Randomize fosse da buttare immagino che MS 
l'avrebbe già eliminata dalle sue applicazioni.
Non ti crucciare. Ciò che conta è la buona fede, ed io mi sono convinto che 
sia in buona fede.
Il giudizio lo lascio agli amici del NG che avranno avuto la benevolenza e 
la pazienza di seguire questa diatriba.
Ciao :-)
e.b.

 fede.
CORRIGE in
Ciň che conta č la buona fede, ed io mi sono convinto che TU
sia in buona fede. 

emilio benecchi wrote:
io invece son convinto che tu NON sia in buona fede e con un altissima
considerazione di te stesso che ti porta a non essere obiettivo...pensa un
po!
appena ho tempo ti mando un po di link!
CERTO
bisogna aver voglia di leggerli....e anche di capirli...pensa un po!
Il fatto che parli di poker ed altro.....mamma mia!
Tra un po mi vieni a parlare di lottologia e ciclometria come scenze
(sciiiiiiienze scusa) esatte!
A tra un po!

Wodka40° wrote:
Siccome ad un troll come me non ci credi (ma lo sai che vuol dire troll??!!
o hai sparato il primo termine che t'è passato in mente?)....
Un po di letteratura:
http://www.webinn.it/programmazione/vb/vblez15.asp
dice in mezzo
"...
L'istruzione Randomize serve ad inizializzare il generatore di numeri
casuali: come saprete, i numeri "casuali" generati da un qualunque computer
non sono veramente casuali, poiché sono generati in modo deterministico,
seguendo regole ben precise; solo che queste regole sono tali da garantire,
entro certi limiti, una sorta di casualità nei numeri generati, che per
questo vengono definiti più correttamente "pseudo-casuali".
...
"
http://www.ing.unitn.it/~fondinfo/appuntiAL/LEZIONE%20INFORMATICA/INFO131101/INFO131101.htm
recita:
"...
I numeri generati dal calcolatore sono pseudocasuali (partendo dallo stesso
seme otteniamo la stessa sequenza) per ovviare a ciò è introdotto RANDOMIZE
che permette di avere ogni volta una nuova sequenza di numeri pseudocasuali
(genera sequenze di partenza differenti perchè si basa sul tempo passato)
.."
il problema è che il timer in un pc non genera una sequenza infinita (come
non son infiniti i numeri rappresentati da un long, single,double etc
etc)...ma dopo un po si ripete...sputtanando tutti i calcoli eventuali sui
grandi numeri....quindi niente previsioni del lotto.
o meglio la % del culo è identica a quella di giocarsi i numeri della
patente o della tessera sanitaria!
In C esiste il solito problema:
http://ada2.unipv.it/biblio/trickyc/20c15.htm
"....
La libreria C include alcune funzioni per la generazione di numeri casuali.
Va subito precisato che si tratta di una casualità piuttosto... fittizia, in
quanto essi sono generati applicando un algoritmo di una certa complessità
ad un numero base, detto seed (seme). Dato che l'algoritmo è sempre lo
stesso, ad uguale seed corrisponde uguale numero casuale che, quindi, tanto
casuale poi non è (infatti si parla, per la precisione, di numeri
pseudocasuali). Per ovviare almeno parzialmente al problema, l'algoritmo di
generazione del numero casuale modifica il seed, con l'effetto di abbattere
la probabilità che venga generato sempre il medesimo numero casuale.
..."
Abbattere non significa "cancellare " occhio!
Una trattazione abbastanza esaustiva in italiano
http://www.statistica.unimib.it/utenti/mecatti/Corso%20MdS/dispensa%20pdf/Cap%20IV%20NUmeri%20Casuali.pdf
In questo documento viene descritto perchè Randomize e RND....e come sono
comodi.
E poi vedi come il problema sia "delicato"
In estrema sintesi dato un algoritmo deterministico....se mi dai tempo e ho
modo di studiare l'output, posso risalire all'input...ossia dopo un pò(il
"pò" è ralativo e a seconda della bontà dell'algoritmo sarà più o meno
lungo...ma comunque finito!) io riesco a prevedere che numero uscirà! Alla
faccia della casualità e senza chiamarmi "Mago Otelma...o Anubi"!
ti introduco anche un altro concetto:
l'algoritmo sarà sempre più buono quanto più alta sarà l'entropia del
generato!
http://macosa.dima.unige.it/agpr/sched8p3.htm
Tutta questa roba rileva alquanto ad esempio in criptografia....dove nessuno
si sognerebbe di fare uno XOR con una chiave generata con randomize e rnd !
O meglio..non per criptare il numero della carta di credito!
SINTESI:
Per fare una scopa o un poker casalingo va più che bene un RANDOMIZE E RND
per fare un casinò online già girerebbero le balle al
titolare....simulazioni economiche poi!
LOTTO e cazzate varie:
Oramai è una mia crociata personale
1 2 3 4 5 ha la stessa probabilità di uscita di una cinquina con tutti i
numeri + ritardatari!
Poi ti fai la ciclometria, il metodo di don Pasquale Pisciotta, il terno
secco ambato con il cactus di zia Emma ...quello che vuoi!
E' roba per polli che ci cascano...e siccome c'è un bel mercato ci credo che
molti ci si tuffano!
Sappi solo che è una pseudoscienza...come l'astrologia!
Poi fai te...in molti ci credono agli oroscopi!
Ma rimettiamo tutto nella prospettiva giusta!
Saluti!
p.s.
Quindi spero che troll te lo tenga adesso per te e ti renda conto delle
lamerate sparate (spero in buona fede)...puoi obiettare a me come persona!
Ma la matematica non è una opinione!
Ciao Lamer!
;-)
p.p.s
http://trollate.altervista.org/usenet.htm
Ahlòa!
-- 
------------------------------------------------
Il Wodkino Nazionale è a : 
www.martek.it


 o hai sparato il primo termine che t'č passato in mente?)....
Appena rientrato ti rispondo...
Innanzitutto impara l'italiano. La frase : "Siccome ad un troll come me non 
ci credi" in italiano corretto va scritta : Siccome non credi ad un troll 
come me.
La tua frase contiene un doppio dativo (come : a me mi piace).
Significato di troll :
A) Personaggio del folklore teutonico abitatore di boschi e di caverne.
B) Esca per pescare (parte per il tutto).
C) Filo con esca per pescare (tutto).
Significato di to troll :
D) Pescare con filo ed esca trascinandoli nell'acqua.
E) Cantare o suonare allegramente.
F) Cantare le parti di una canzone in successione.
Penso che, nel NG, il neologismo americaneggiante troll venga usato al posto 
di cavernicolo, un modo assai piů urbano ed elegante che non dire stronzo.
Ne consegue che trollata, nel NG, č sostitutivo di stronzata.
Perň non č detto che raramente, sempre nel NG, qualcuno lo usi per 
furbastro, nel senso che il troll si prefigge di prendere gli altri all'amo 
come pesci.
Questa č soltanto una mia ipotesi.
Vedo che ti manca il dono della sintesi e non sai perdere.
Ciao :-))
e.b.

 e.b.
Tutto quanto sopra rileva solo se hai meno di 60 anni ....e quindi
"mastichi" un po di usenet, internet, netiquette etc etc
se ne hai di più mi scuso e sarò lieto di spiegarti punto punto cosa non va
nell'esposizione
e la relativa ironia di fondo che molto probabilmente non hai capito!
cmq sappi una cosa....al di là "dell'itagliano".....detto alla toscana
"
Oh bischero prendi per il culo quanto ti pare
...ma te tu c'hai tutte le basi sballate!
Che ti piaccia o u'n tì piaccia.
Ciao bucaiolo!
"
PLONK (sai che vuol dire???)
Ma guarda tu questo!
:o(

 Questa è soltanto una mia ipotesi.
SOLO una cosa "extra risposta":
Se rispondi in questo modo capisco che non frequenti molto Internet e allora
forse sei una persona anziana che per diletto ogni tanto
entra in Usenet convinta di essere in un forum o non so dove.
Mini glossario:
TROLL:
 colui che non ha altro scopo che provocare flame (vedi sotto). Non gli
interessa in alcun modo la risposta.
Sposta continuamente la discussione per aumentare il flame.
LAMER:
Lo spippolatore troppo pigro per capire cosa spippola. E' convinto di
conoscere tutto salvo fare eclatanti
figure di merda appena arriva un utente preparato o un guru.
GURU:
Colui che sa quello che dice. ma lo sa talmente bene che è in grado di dire
persino qualcosa di nuovo.
FLAME:
Discussione che degenera in rissa verbale. Scoppiano all'improvviso e sono
in grado sulla spinta di qualche troll di durare moltissimo.
OT
Off Topic . Discussione che non ha nulla a che fare con il manifesto del
gruppo di discussione.
PLONK
Abbandonare la discussione non per resa ma perchè troppo stupida e banale
per perderci tempo.
NEWBIE
Nuovo utente. Che chiede cose anche banalissime. A differenza del Lamer "non
crede già di sapere tutto" ma chiede per capire.
Chiaro?
L'americanismo?
Per forza Usenet è stata una delle prime forme di comunicazione
online...usato dai ricercatori universitari (americani) per scambiarsi
esperienze...
Comunque Italianismo
TROLL: Cretino rompicoglioni
LAMER: Stupido che sa tutto
GURU: Esperto ai massimi livelli in (specificare)
FLAME: Incazzatura generale con relativa rissa verbale
OT: Argomente assolutamente non pertinente
PLONK: Vado via sei troppo stupido
NEWBIE: Principiante Matricola
:-)

 Ciao bucaiolo!
Se non ti rimane che l'insulto sei proprio all'ultima spiaggia!
Hai una peculiaritŕ : quella di porre la tua testa sul ceppo per fartela 
tagliare. Sei forse un tantino masochista o č soltanto inesperienza?
Non hai fermezza : mi dici ADDIO e poi, dopo soli 14 minuti, senti 
l'improcrastinabile bisogno di scrivermi di nuovo (o dovevo dire postarmi?).
Penso che tu sia un caso interessantissimo per uno psicologo. 
Sfortunatamente non sono uno strizzacervelli.
Noto che tu usi il linguaggio dei ricercatori universitari americani, ma tu 
non sei americano!Tu devi ancora imparare l'italiano.
Io, avendo lavorato diversi anni negli USA, potrei permettermi di infarcire 
il mio linguaggio di termini anglosassoni in slang. Preferisco parlare e 
scrivere in buon Italiano.
Per ciň che riguarda la frequentazione di un qualsiasi NG penso che tutti ne 
abbiano diritto quando ottemperano a questa regola aurea : rispetto del 
manifesto e correttezza di linguaggio.
Mi sono giŕ pentito di essermi lasciato andare all'uso della parola da 
iniziati "trollata" di cui, tu guardiano inflessibile del purismo di usenet, 
internet, netiquette etc, hai messo in dubbio io conoscessi il significato. 
Mi scuso del mio errore. Avrei dovuto usare una delle tante parole in 
dotazione alla nostra lingua : baggianata, cavolata, stupidata...Hanno la 
stessa forza di grullata, belinata, stronzata, cazzata...e non danno adito 
ad errate interpretazioni.
Avrai notato che ti ho degradato. Sei praticamente solo acqua.
Ciao :-)))
e.b.

(non merita altro se non il cut)
SPLONK (non resisto)
BELLISSIMO!
sei uno dei migliori Lamer che abbia mai trovato!
:-)
Stampo tutto il post e lo incornicio!
mi piaciiiie
ops...
Ehm...cof....
Mi aggrada alquanto il passaggio:
"...
Io, avendo lavorato diversi anni negli USA, potrei permettermi di infarcire
il mio linguaggio di termini anglosassoni in slang. Preferisco parlare e
scrivere in buon Italiano.
....
"
Un purista noterebbe che:
"...Preferisco parlare e
scrivere in buon Italiano"
Non si scrive con la I maiuscola...vabbè l'igniiiiorante sono io!
Oltre che il significato "parlare e scrivere in buon italiano"....che è
alquanto suscettibile di varie interpretazioni:
L'italiano di chi?...di Manzoni....dell'Accademia della Crusca....dei
sussidiari....della Treccani...di chi?
E pensare che tutta l'"alta" discussione sul mio itagliano a confronto con
il tuo italiano...deriva da una mia cortesia nel farti notare come
RND e RANDOMIZE ti generassero numeri pseudocasuali...assolutamente inutili
per una qualsiasi "seria" indagine (statistica,stocastica,empirica).
Da noi si dice
"O vai a fà dè bene à ciuchi...calci in faccia ti pigli!"
cmq torniamo a noi!
Hai scritto pure dei libri nella lingua di Albione?
"How to sbank a NY lottery"
L'hay (notare la y) scritto tu???
:-)
p.s.
Così per sport.... dormo bene lo stesso...ma sarebbe una cosa carina se mi
rispondessi:
cosa è che ti ha dato più fastidio delle mie risposte....
che ti facessero sorgere qualche dubbio su cose che ritenevi certe?
(rnd...randomize)
.....o cosa?
Lascia stare la forma...
Almeno sulle questioni tecniche sei convinto?
:oD

"emilio benecchi" ha scritto...

Così lo capisci o chiamo Wodka? :P
Il vettore (te lo estrai da solo tanto è facile) è veTToRE(n).
dim esiSTE as boolean
dim l as integer, p as integer
dim copPIE as integer
esiSTE = false
copPIE = 0
for l = 1 to n
    for p = l to n
        if veTToRE(p) = veTToRE(l) then
            esiSTE = true
            copPIE = copPIE + 1
        end if
    next
next
if esiSTE = true then
    MsgBox "Pirla! Ho trovato " & copPIE & " coppia/e di numeri
uguali.",vbinformation,"Olé"
end if
Il goto è una barbarie e DEVE morire.
In altri linguaggi è già morto...
Vedo che qui si fa fatica.
-> GbC|
www.gbcweb.com
PS: c'è un errore nel codice.
Ma è facile facile capire.
Giusto per non dire 'la pappa fatta' :)

 cosa č che ti ha dato piů fastidio delle mie risposte....
Nulla. Sei uno spasso. Almeno cosě la vedo io.
Ciao :-))))
p.s.
Prova a dare e dire agli altri solo ciň che ti chiedono. Ne ricaverai grandi 
soddisfazioni e non batoste.

 grandi soddisfazioni e non batoste.
A) Vecchia discussione.....se non sai stare su un NG non ci venire!
Guarda qui:
http://groups.google.it/groups?hl=it&lr=&c2coff=1&threadm=8fa5eijy3ihb.pfhfov1dl5sm%24.dlg%4040tude.net&rnum=1&prev=/groups%3Fq%3Dcall%2Bcenter%2Bwodka%26hl%3Dit%26lr%3D%26c2coff%3D1%26selm%3D8fa5eijy3ihb.pfhfov1dl5sm%2524.dlg%254040tude.net%26rnum%3D1
Oramai è ciclica sta discussione!
B) Per capire bisogna attaccare il cervello...ti son stati dati
link...addirittura più di un programma....e continui a persistere!
In cosa persisti? BOH! oramai manco lo sai più te!
C) Batoste?...ma chi cazzo sei!
Sei venuto sul NG...attacchi uno che manco sai chi è....almeno
informati!Lurka un po il ng! (Chissà come questa espressione ti scatenerà)
Cercando con San google...ho visto come sul NG di matematica ti affanni!
Credimi le batoste da un lamer non si prendono mai!
Lamer-O-meter
12345678910
***
Warning overhead!!!
BLAM!
Pensala come vuoi !
Se qualcuno vuol continuare ok....stampo il post lo incornicio!
Sappi che hai preso il posto di Franco (credevo fosse impossibile)!
D'ora in poi dirò:
"Smettila di fare l'emiliobenecchi"
Passo e chiudo!
Ciao nì!

 scrivono :"Do you speak English?".
gli Anglofoni Scrivono Con le Maiuscole Decisamente Troppe Cose,
e Questa Discussione ha Rotto il Cazzo non solo a Me :P
facciamo che vi scrivete in mail, eh ?

 e.b.
Andrea

 e.b.
Andrea

 informati!Lurka un po il ng! (Chissà come questa espressione ti scatenerà)
Sono tutto un fremito!
Parli proprio come quelli che dicono :"Lei non sa chi sono io".
Continui a divertirmi ma purtroppo devo anche tener conto di quelli che, nel 
NG,  giustamente ne hanno le palle piene. Uno di questi è javalab che 
ringrazio per il suo consiglio che, però, non seguirò. Io con questa mail 
chiudo l'argomento "Algoritmo per VB6" e ringrazio coloro che mi hanno 
aiutato inviandomi brani di codice che non conoscevo, ma che studierò con 
attenzione.
E' stato un piacere.
Ciao :-))))))
e.b.
p.s.
Noto che siete più di uno a volermi incorniciare. 


beh insomma...alla  fine...tanto va la gatta al lardo!
mi son benechizzato pure io!
a proposito di gatti...
Come sta "javina"?
Ciao!
:-P

 ken
Andrea

 Per prima cosa eliminare l'orribile GoTo......
Orribile è 20 Next i !!
For i = 1 To NumeroProve
    Randomize
    C1 = Int(Rnd * 5 +1) ' C1 = compleanno della prima persona
    Randomize
    C2 = Int(Rnd * 5 +1) ' C2 = compleanno della seconda persona
    If C2 = C1 Then
        StessiCompleanni = StessiCompleanni + 1
        Exit For
    End If
Next i
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/