I contenuti più recenti di Mike58

Ciao a Tutti, purtroppo io non sarò disponibile per Un po di tempo. Sono in ricovero ospedaliero per cure varie. Spero presto di essere attivo con voi tutti.

Ciao Miki55 , abbiamo condiviso tante statistiche e raccolte Lotto, persona squisita. Ci mancherai, R.I.P. Mi spiace tanto. Condoglianze alla famiglia

Io ho detto stacco, intesa come pausa, poi è chiaro che senza il Prof lo stimolo manca un pochino, Purtroppo i codici , il linguaggio vb, se poco stimolato e poco confrontato, va pian piano a perdersi e senza una guida poi è dura ritrovarlo. P.s. proprio l'altro giorno ho trovato un mio file...

Solare mi spiace ma No !!! In questo costrutto di script non c'è il flusso for-next delle estrazioni e quindi non c'è lo scorrere delle estrazioni e pertanto risulta difficoltoso conteggiare le risultanze per mese. Purtroppo sarebbe tutto un altro script nella sua iterazione. Script così ne...

Oppure Mettere i Numeri in array e ciclarli . Sub Main Dim A,B,Ambo k = 0 A = Array(0,1,2,3,4) B = Array(0,1,2,3,4,5) For Aa = 1 To UBound(A) For Bb = Aa + 1 To UBound(B) Ambo = Array(0,A(Aa),B(Bb)) k = k + 1 Scrivi FormatSpace(k,2,1) & ") " &...

Posto un altra versione in Tabella Sub Main 'Ritardo & frequenze Posizionale Dim T Ini = 8117'EstrazioneIni fin = EstrazioneFin Scrivi Space(20) & "Frequenze" & Space(40) & "Ritardi",1 r = InputBox("Quale Ruota",,1) T =...

Ecco la I numeri Frequenti per posizioni Sub Main Dim fp(5),Riga Ini = 8117 fin = EstrazioneFin Scrivi "Numeri Frequenti In posizione" Scrivi r = InputBox("Quale Ruota",,1) T = "Num" & Space(2) & "P1 P2 P3 P4 P5" & Space(5) & "Min Max" & Space(5) & " Ruota di " &...

Un Immenso Grazie per tutto quello che ci hai insegnato. Io ho veramente imparato tanto con i tuoi insegnamenti ed giusto darti un ritorno di quanto. Tante belle cose per il tuo prosieguo di percorso. Ciao Luigi, sempre sempre grazie.

Non Ti preoccupare non era rivolto a te direttamente , e solo che vedere script con costrutto datato la voglia in primis per capire la logica itinerante risulta a volte poco coinvolgente. Quelli sono script con un mio bagaglio script più limitato che con il tempo un pochetto si è evoluto...

Non Mi Piace + rimodellare , correggere , scompigliare script . Comunque bastava un nuovo ciclo for e immettere la sorte di esito nella serieFrequenza. Sub Main() Dim nua(4005,14),nn(2) ee = InputBox("DA QUALE DATA INIZIARE"," DATA ","15/09/2009") ms = CInt(InputBox("In quale mese...

Ciao bauman , benvenuto nel forum. Di questi script ne sono stati fatti a bizzeffe ed anche io avevo certe aspettative, deluse con passare del tempo e con il capire cosa sta dentro ad un valore raccolto. Cosa voglio dire, e non solo a te, che poi andrebbe approfondito una raccolta che può...

Grazie Luigi, Penso che qualche stampa una volta ogni tanto si possa fare, specialmente al superenalotto, dove i sistemi hanno una loro valenza. L'importante è averla a disposizione. P.s. non ho le schedine , ma alla prima occasione la provo. Un saluto

Claudio, giusto per intenderci meglio a livello di costrutto script. Neanche io sono propenso ad elaborare combinazioni su combinazioni con la serieFreq (non sopporto tempi elevatissimi di elaborazioni). Penso altresì che Ambata + Ambata + Ambata etc... ossia conteggio abbinamenti porta a...

Ti metto lo script per allungare il brodo. Sub Main Dim abb,Nu(90),Ru(1),Quanti_Abb,T Dim kkk(90),aN(5) n = 90 r = 1 Ru(1) = r Ini = EstrazioneFin -(156*5) fin = EstrazioneFin ef = EstrattoFrequenza(r,n,Ini,fin) Tot = fin - Ini + 1 Quanti_Abb =...

Claudio un suggerimento per via da seguire... Non sarebbe più facile trovare gli abbinamenti con il codice preposto o fare un conteggio dei presenti con il numero in posizione ? esempio numero spia 90 P.S. la Tabella è a parte in quanto con lo spoiler non era visibile correttamente. Abbinamenti...