A volte basta uno script facile per tutti.

[Father]

Io credo che Missione vi segue anche dal paradiso,fate finta che sia io! Il suo discepolo,con soddisfazione vedo chi lo ama e difende.Grazie la fortuna continua...

perchè dovremmo pensare che tu sia discepolo di missione ?? in tal caso sapresti perfettamente che lo stesso spiego' bene il perchè dei 18 colpi e il perchè iniziare a seguire dopo 9 colpi a vuoto anche se io sono convinto di rispettare i anche i 27 lo ricordo benissimo, senza offesa. Inoltre fu sottolineato e a ragion veduta che le presenze erano ancora piu importanti se ricordo bene fu codicebinario a sostenere anche questa condizione.

spero con tutto me stesso che possa esser in salute e sicuramente il suo modo di scrivere e/o interpretare i numeri e le condizione è cosa che nel caso specifico solo lui lo sa fare, quindi verrà fuori in un modo o nell'altro in un forum o nell'altro, seguo anche io il forum del quale parli e già da subito posso dirti che non è lui al momento.

per il resto confermo e ribadisco la conoscenza e l'umiltà con le quali ha condiviso i suoi dati e le ricerche e ribadisco CONDIVISO ...cosa che molti altri stanno li a fare tanto i preziosi o per lo piu si capiscono da soli e nessuno li segue, inoltre è uno dei pochissimi 3D ad avere avuto piu visualizzazioni in assoluto quindi mi pare logico il divenire .

GRANDE MISSIONE OVUNQUE TI SIA NEL BENE E NEL MALE SEGUIRO' SEMPRE I TUOI INSEGNAMENTI E LE TUE INDICAZIONI.

 

[Father]

ti garantisco che Missione aveva e ha delle particolarità nella scrittura e nell'esporre e nel condividere ,quindi c'è davvero poco da fare se capita lo becco di sciuro e lo tengo segreto..

 

[Bepy78]

Buona sera a tutti...
passavo di qua per un saluto ...
Comunque ha ragione Father...
Missione Impossibile...è Missione Impossibile.
Io non credo al suo lutto...
il fratello di Missione era proprio Missione in persona, ma elegantemente ha mandato a quel paese tutti.
Per il casino che si era creato.
Ognuno di noi ha un suo carattere e suoi difetti e bisognava rispettarli,che alcune persone non hanno saputo accoglierli quelli di Missione.
Fatto sta che ora tutti si chiedono,dei suoi misteri e dei suoi centri con le previsioni.
Ma ormai è troppo tardi!
Io sono negato con la tecnologia e non sono riuscito a salvare nulla.
Però son sicuro che un giorno,lui arriverà da qualche parte e con la sua umiltà e pregi a far vincere gratis le persone.
Un saluto
Bepy

 

[Father]

Buona sera a tutti...
passavo di qua per un saluto ...
Comunque ha ragione Father...
Missione Impossibile...è Missione Impossibile.
Io non credo al suo lutto...
il fratello di Missione era proprio Missione in persona, ma elegantemente ha mandato a quel paese tutti.
Per il casino che si era creato.
Ognuno di noi ha un suo carattere e suoi difetti e bisognava rispettarli,che alcune persone non hanno saputo accoglierli quelli di Missione.
Fatto sta che ora tutti si chiedono,dei suoi misteri e dei suoi centri con le previsioni.
Ma ormai è troppo tardi!
Io sono negato con la tecnologia e non sono riuscito a salvare nulla.
Però son sicuro che un giorno,lui arriverà da qualche parte e con la sua umiltà e pregi a far vincere gratis le persone.
Un saluto
Bepy

non ti preoccupare bepy se si puo una mano la si da sempre .
da oggi sono in ferie e al mare , ma al 3d partecipo volentieri ,in effetti lo sto rileggendo dall'inizio e farlo ti assicuro che ci sono molti passaggi interessanti.
ciao bapy

 

[Bepy78]

non ti preoccupare bepy se si puo una mano la si da sempre .
da oggi sono in ferie e al mare , ma al 3d partecipo volentieri ,in effetti lo sto rileggendo dall'inizio e farlo ti assicuro che ci sono molti passaggi interessanti.
ciao bapy

Grazie mille Father della grande disponibilità...
Missione me l'aveva detto di leggerlo dall'inizio,ma per impegni lavorativi,non mi ci sono ancora messo.
Però mi sono ripromesso che appena vado in ferie,mi dedico alla lettura volentieri.
Allora che dirti ti auguro buone ferie
a risentirci
Bepy

 

[Father]

ti porto un esempio cheche se ne dica c'è un passaggio importante sulle direttrici molto interessante ,e c'è uno script direi che accorcia di parecchio il lavoro di ricerca e penso che qui presto ci sarà un buon risultato

questo che vedi non è nient'altro che lo script che riguarda le direttrici e sono andato a ritroso a cercare quelle che ancora non hanno dato esito ,poi.....

QUESTO LO SCRIPT IN DECINA OCCHIO AL 59

QUESTO IL TOOL DI ARN CHE SECONDO QUELLO CHE DICE MISSIONE SI PRENDE QUEL NUMERO CHE VIENE SEGNALATO IN QUESTO CASO ABBIAMO IL 60 CHE VIENE SEGNALATO DAL 90 IN VERTICALE E SI VANNO A PRENDERE ANCHE I SUOI LATERALI IN QUESTO CASO L'UNICO è IL 59 CHE GUARDA CASO POTREBBE SORTIRE A BREVE PERCHE' INTERESSANTE ASSIEME PROPRIO AL 60

MA UN ATTENZIONE LA DEDICHEREI ANCHE AL 50.56

PS LA DECINA è AL BORDO VERTICALE E ORIZZONTALE AL SUO INTERNO SONO NUMERI SEGNALATORI CJE CONFERMANO O MENO

COME VEDI IL 59 è SCOMPENSATO MA IL 59 IN ORIZZONTALE CONFERMA IL 52 E IL 56 NON E' DA SOTTOVALUTARE ,IO MI FACCIO DUE TERZINE E LE GIOCO PER ESTR AMBO SU MI

POI CHE GLI ALTRI SMENTISCANO O CONFERMINO CON EVENTUALI CONVERGENZE

I DATI QUESTI SONO ,SI PUO' ANCHE SEMPLICEMENTE OSSSERVARE COSA ACCADRA' PER 4 ESTRAZIONI

CIAO BAPY

RIPETO QUESTO E' SOLO UN ESEMPIO E DI QUANTO SIANO INDICATORI LE DIRETTRICI MA SOPRATTUTTO LA SPIEGAZIONE DI MISSIONE A TAL PROPOSITO..

CIAO MISSIONE

 

[Missione Impossibile2]

Sapevate che Missione era molto credente.?
Sapevate che credeva solo chi ha creato l universo.?
Sapevate che distruggeva chi lo calpestava.? (Il Male)
Sapevate che lui capiva veramente chi aveva bisogno di vincere qualcosa.
Sapevate che attaccava solo quelli furbi e invidiosi. Perche credetemi ce ne sono in questo 3D.
Io sono quello che ha sempre creduto in lui,allievo AMICO VERO da 15 anni.
Notte a tutti.

 

[Father]

MIssione è missione un po come Berlusconi era Berlusconi , uno solo e hanno buttato via lo stampo.

parlo al presente perchè la sua presenza è forte so che è in vita so che legge e voglio crederci .

 

[Missione Impossibile2]

ti porto un esempio cheche se ne dica c'è un passaggio importante sulle direttrici molto interessante ,e c'è uno script direi che accorcia di parecchio il lavoro di ricerca e penso che qui presto ci sarà un buon risultato

questo che vedi non è nient'altro che lo script che riguarda le direttrici e sono andato a ritroso a cercare quelle che ancora non hanno dato esito ,poi.....

QUESTO LO SCRIPT IN DECINA OCCHIO AL 59

QUESTO IL TOOL DI ARN CHE SECONDO QUELLO CHE DICE MISSIONE SI PRENDE QUEL NUMERO CHE VIENE SEGNALATO IN QUESTO CASO ABBIAMO IL 60 CHE VIENE SEGNALATO DAL 90 IN VERTICALE E SI VANNO A PRENDERE ANCHE I SUOI LATERALI IN QUESTO CASO L'UNICO è IL 59 CHE GUARDA CASO POTREBBE SORTIRE A BREVE PERCHE' INTERESSANTE ASSIEME PROPRIO AL 60

MA UN ATTENZIONE LA DEDICHEREI ANCHE AL 50.56

PS LA DECINA è AL BORDO VERTICALE E ORIZZONTALE AL SUO INTERNO SONO NUMERI SEGNALATORI CJE CONFERMANO O MENO

COME VEDI IL 59 è SCOMPENSATO MA IL 59 IN ORIZZONTALE CONFERMA IL 52 E IL 56 NON E' DA SOTTOVALUTARE ,IO MI FACCIO DUE TERZINE E LE GIOCO PER ESTR AMBO SU MI

POI CHE GLI ALTRI SMENTISCANO O CONFERMINO CON EVENTUALI CONVERGENZE

I DATI QUESTI SONO ,SI PUO' ANCHE SEMPLICEMENTE OSSSERVARE COSA ACCADRA' PER 4 ESTRAZIONI

CIAO BAPY

RIPETO QUESTO E' SOLO UN ESEMPIO E DI QUANTO SIANO INDICATORI LE DIRETTRICI MA SOPRATTUTTO LA SPIEGAZIONE DI MISSIONE A TAL PROPOSITO..

CIAO MISSIONE

Errato corrige,dove lo vedi quel 50,se posso chiedere, hai osservato le due uscite del 58 il 12/7/2024 e il 19/7/2024 dava il 51 al 70% uscito il 20/7/2024,occhio a queste piccolezze,che a volte danno esiti in 3/4 colpi.

 

[Missione Impossibile2]

E poi Father, lo script in decine,perche utilizzi le decine cabalistiche? Metti decineNaturali. Un consiglio.
Notte a tutti che l universo sia con voi.

 

[Father]

Errato corrige,dove lo vedi quel 50,se posso chiedere, hai osservato le due uscite del 58 il 12/7/2024 e il 19/7/2024 dava il 51 al 70% uscito il 20/7/2024,occhio a queste piccolezze,che a volte danno esiti in 3/4 colpi.

il 50 è uno di quei numeri piu' volte ripetuti nell'esito delle decine e Missione ci ha sempre tenuto a segnalare questo tipo di ripetizioni ma questo dovresti saperlo ,anzi le ritiene ancora piu importante rispetto agli esiti del 100% quindi un 50 58 59 60 io ritengo siano numeri molto interessanti.

 

[Baciccia4251]

Buonanotte a tutti. E un metodo favoloso (per farci una risatina).
Questo sistema permette di vincere ad ogni estrazione. Mi raccomando, leggetelo ad occhi chiusi! E' un segreto!
E' un segreto talmente segreto che non lo conosco nemmeno io!
Fatene buon uso.

Se volete altri preziosi consigli avete solo da chiedere
La notte vi porti sogni con numeri vincenti (poi passatemeli)
Baciccia

 

[tornado]

E poi'credo che il Vero Missione Impossibile,ruota su un altro forum,che manca da 5 mesi,poi ho notato che da batter,a Mission impossible,a Missione Impossibile,qualcuno ci ha giocato con il suo nik.Non posso dire il forum,credo che lottoced non lo permetta.

..
Vedi l'allegato 2287384
a Voi la valutazione
Saluti
ps: per i 3 casi trovati in 15 es di ritroso
Tempo elaborazione: 00:00:17

Bungiorno
Io mi sono fermato a futuro 2 si puo' avere futuro 3 ?

 

[Baciccia4251]

Dovrebbe essere questo:

Sub Main()
Scrivi " FUTURO 3 in figura ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la figura",,1)
c = InputBox("Numero colpi di gioco",,27)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 9000'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Figura(x) = Figura And Figura(x) = Figura(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in figura spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
---------------------------------------------------------------------------------------------
Poi, in cadenza:

Sub Main()
Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la cadenza",,0)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8790'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Cadenza(x) = Cadenza And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
---------------------------------------------------------------------------------------------

Poi c'è Futuro decine naturali:

Sub Main()
Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la cadenza",,0)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8790'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Cadenza(x) = Cadenza And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub

-------------------------------------------------------------------------------------------------------

Poi c'è questo che non ricordo cos'è:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

-------------------------------------------------------------------------------------------------------
Questo:

Sub Main()
Dim Nu(90,2),ru(1),nx(1)

Periodi = 1'<-------------------------numero di periodi
Periodo = 19'<-------------------------durata periodo

Fin = EstrazioneFin
Ini = Fin -(Periodo * Periodi) + 1'<-----------------------Tot estr. esaminate


For ruo = 1 To 10

For Es = Ini To Fin Step Periodo
AvanzamentoElab ini,fin,es


ru(1) = ruo


For x = 1 To 90
nx(1) = x
Nu(x,1) = x
Nu(x,2) = Nu(x,2) + SerieFreqTurbo(Es,Es + Periodo - 1,nx,ru,1)
Next

OrdinaMatrice Nu,- 1,2

For x = 1 To 90
If Nu(x,2) <> 0 Then
rig1 = rig1 + Format2(Nu(x,1)) & " "
rig2 = rig2 + Format2(Nu(x,2)) & " "
End If
Next


Scrivi "Dalla " & Es & " alla " & Es + Periodo - 1 & " Num: " & rig1,1
Scrivi SiglaRuota(ru(1)) & Space(20) & "Pres: " & rig2
Scrivi
ReDim Nu(90,2)
rig1 = ""
rig2 = ""
Next 'Es

Next 'ruo
End Sub

----------------------------------------------------------------------------------------------

Infine questo:

Sub Main()
Dim frequenze(90)
Dim n,c
Dim i
Dim ruota
Dim es
Dim s
es = EstrazioneFin
ruota = 1 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ
Scrivi "ricerca per la ruota " & " " & ruota
Scrivi
Scrivi DataEstrazione(EstrazioneFin) & " " & es
Scrivi
For n = es To es - 17 Step - 1
For i = 1 To 5
e = Estratto(n,ruota,i)
frequenze(e) = frequenze(e) + 1
Next
Next
For n = 0 To 18
s = " numeri sortiti " & CStr & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & CStr(i) & " "
c = c + 1
End If
Next
If c > 0 Then
Scrivi CStr(c) & s
End If
Scrivi
Next
End Sub
--------------------------------------------------------------------------
Nessuno di questi Script, sia chiaro, è opera mia: l'unico Script che sono riuscito a fare si limita a stampare la frase "Ciao idiota" (maleducato!)

Che il Dio Bacco (il mio preferito) di colmi il bicchiere del suo Nettare
Baciccia

 

[Father]

scrivo e racconto....
piccoli episodi di esperienza personale, di uno spaccato di vita che in quest'anno tribolato mi ha visto partecipe, dove incontri ,umiltà ,bisogno ,rispetto e sofferenza che coniugandosi formano esseri che non si è mai stati ...fino a quel preciso momento dove tutto cambia, quando i tuoi pensieri cambiano direzione, le paure ti incattiviscono, rimetti in gioco la tua vita ,quando il tempo scorre inesorabilmente e non ti accorgi ,dimentichi ,il tuo essere piu profondo risale , quello che fino a ieri hai mascherato perfettamente oggi non vale piu ..sei diverso ,ironico (forse)(irriverente ?(ma tutto ti è perdonato),ti accorgi che gli altri ti trattano con condiscendenza e forse è anche un bene. ricordo quando ricoveravo il mio papà, ricordo questo fare degli infermieri e le grandi litigate anche con i medici che facevo ,proprio per onorare rispetto verso l'uomo che è stato ed i valori che ci ha lasciato, è vero: ti trattano da malato ti trattano senza rispetto e senza che tu possa comprenderlo e questo non ho mai permesso che accadesse
perchè mio padre aveva una famiglia che lo ha sempre rispettato e difeso in tempo di malattia,oggi onoro sempre il suo ricordo e lo faro' fin che campo.è importante lasciare un buon ricordo.......
la malattia di per sè ,ti annulla inesorabilmente e non avendo nessuno al tuo fianco (assicuro che si rimane davvero soli)è come se fossi un bebè rimasto solo e senza alcuna protezione , i tempi ,le necessità, le paure, cambiano ogni giorno, accadono le cose peggiori ,ed avere qualcuno al tuo fianco significa poter finire la propria vita con dignità e rispetto. mi rendo anche conto che queste cose ci incattiviscono e usiamo gli scudi dell'ironia e a volte l'arroganza .
In questo ultimo anno di sofferenza avendone fatto davvero il pieno ,ma al contempo ho avuto modo di incontrare tanta gente malata gravemente e con grande dispiacere nel cuore,,ho visto piccoli esseri ammalati di cose innominabili, sempre con il loro splendido sorriso ,accolti da gioia e sofferenza dagli infermieri del reparto ,che si incamminano verso quelle maledette poltroncine piene di fili piene di aghi piene di non so bene cosa ,e lo fa fanno da combattenti lo fanno con dignità ,lo fanno perchè sono supereroi di un Mondo a noi perlo piu sconosciuto.
In queste terribili sale di attesa ,in queste file interminabili già dalle 5 dalle mattino hai a che fare con moltissimi persone di varia estrazione sociale ,persone spesso anziane..quelli soli pè davvero.... , ma che conservano sempre ed inesorabilmente quella dignità di un vissuto pregresso che ha accompagnato la loro vita nel rispetto degli altri.
Apprezzare queste piccole cose ogni giorno ti cambia radicalmente in meglio , ti fai scorrere addosso le inutili cazzate raccontate ovunque e quello che la gente pensa di sapere e conoscere senza condividerlo o peggio condividerlo per soldi, ti rende arido ,insensibile ,arrogante, cerchi considerazione ma è semplice pietà ,metti avanti la malattia come a giustificare il tuo comportamento ...tutto ti è concesso tutto è lecito,ma è tutto terribilmente un fake , è un processo inesorabile per tutti :chi prima e chi dopo, il condividere ,confrontarsi rapportarsi agli altri e farlo con umiltà e senso critico anche nel piu profondo della malattia rende gli uomini unici che meritano di esser ricordati e proprio per questo anche se virtualmente ricordero' sempre Missione per come ha condiviso il suo sapere e come ha saputo conservarlo e tramandare la sua conoscenza solo ad alcuni.
questo piccolo racconto...
E' uno spaccato di vita, per dire: che non servono tanti sotterfugi palesati da ironie che le capite solo voi e si rendono spicciole se vogliamo, al fine di criticare il prossimo , scendete dal vostro piedistallo di cartone ,toglietevi il vestito di carnevale e senza offesa il vostro sapere tenetevelo stretto non serve .

 

[tornado]

Dovrebbe essere questo:

Sub Main()
Scrivi " FUTURO 3 in figura ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la figura",,1)
c = InputBox("Numero colpi di gioco",,27)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 9000'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Figura(x) = Figura And Figura(x) = Figura(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in figura spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
---------------------------------------------------------------------------------------------
Poi, in cadenza:

Sub Main()
Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la cadenza",,0)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8790'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Cadenza(x) = Cadenza And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
---------------------------------------------------------------------------------------------

Poi c'è Futuro decine naturali:

Sub Main()
Scrivi " FUTURO 3 in cadenza ********* Tabella List by Mike58 *********** ",1,- 1,3

Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,5)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,27))
ff = InputBox("Scegli la cadenza",,0)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8790'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Cadenza(x) = Cadenza And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y

nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub

-------------------------------------------------------------------------------------------------------

Poi c'è questo che non ricordo cos'è:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte

est = InputBox("Quante estrazioni analizzi",,10293)
sorte = CInt(InputBox("Quale sorte verificare ",,1))

ScegliNumeri(num)
nStart = Timer ' partenza tempo di elaborazione
Ini = EstrazioneFin - est
fin = EstrazioneFin
diff = fin - Ini + 1
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",True,False,6,0,3
Scrivi" " & StringaNumeri(num) & " ",True,False,2,4,3
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",True,True,3,0,3
Scrivi String(130,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(130,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(15)
atitoli(1) = " Ruota "
'atitoli(2) = " Combinazione "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = " Ritardo attuale "
atitoli(9) = " Ritardo Storico "
atitoli(10) = " incr. storico "
atitoli(11) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito - "
atitoli(14) = " data estraz.uscita "
atitoli(15) = " Indice Convenienza "
' inizializzo la tabella
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
'If r = 11 Then r = 12
ruota(1) = r
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(num,ruota,sorte,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(num,ruota,fin - rit,sorte,1,,retesito,retcolpi,retestratti,retidestr)
ic = Round((freq/diff*rit),2)
'----- calcolo valori in tabella --------------
ReDim avalori(15)
avalori(1) = NomeRuota(r)
avalori(3) = RitDiPos(num,1,ruota)
avalori(4) = RitDiPos(num,2,ruota)
avalori(5) = RitDiPos(num,3,ruota)
avalori(6) = RitDiPos(num,4,ruota)
avalori(7) = RitDiPos(num,5,ruota)
avalori(8) = rit
avalori(9) = ritmax
avalori(10) = incrRitMax
avalori(11) = freq
avalori(12) = retesito
avalori(13) = retestratti
If retesito <> "" Then avalori(14) = DataEstrazione(retidestr)
If retesito = "" Then avalori(14) = " -- "
avalori(15) = ic
Call AddRigaTabella(avalori,,,3,,"cambria")
If r = 11 Then Call SetColoreCella(11,3,1)
If retidestr = fin Then Call SetColoreCella(14,3,1)
If ic > 1 Then Call SetColoreCella(15,4,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
Function RitDiPos(num,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,num,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

-------------------------------------------------------------------------------------------------------
Questo:

Sub Main()
Dim Nu(90,2),ru(1),nx(1)

Periodi = 1'<-------------------------numero di periodi
Periodo = 19'<-------------------------durata periodo

Fin = EstrazioneFin
Ini = Fin -(Periodo * Periodi) + 1'<-----------------------Tot estr. esaminate


For ruo = 1 To 10

For Es = Ini To Fin Step Periodo
AvanzamentoElab ini,fin,es


ru(1) = ruo


For x = 1 To 90
nx(1) = x
Nu(x,1) = x
Nu(x,2) = Nu(x,2) + SerieFreqTurbo(Es,Es + Periodo - 1,nx,ru,1)
Next

OrdinaMatrice Nu,- 1,2

For x = 1 To 90
If Nu(x,2) <> 0 Then
rig1 = rig1 + Format2(Nu(x,1)) & " "
rig2 = rig2 + Format2(Nu(x,2)) & " "
End If
Next


Scrivi "Dalla " & Es & " alla " & Es + Periodo - 1 & " Num: " & rig1,1
Scrivi SiglaRuota(ru(1)) & Space(20) & "Pres: " & rig2
Scrivi
ReDim Nu(90,2)
rig1 = ""
rig2 = ""
Next 'Es

Next 'ruo
End Sub

----------------------------------------------------------------------------------------------

Infine questo:

Sub Main()
Dim frequenze(90)
Dim n,c
Dim i
Dim ruota
Dim es
Dim s
es = EstrazioneFin
ruota = 1 'QUI PUOI CAMBIARE LA RUOTA IN ESAME; 1=BA, 2=CA, 3=FI, ecc. ecc., 12= NZ
Scrivi "ricerca per la ruota " & " " & ruota
Scrivi
Scrivi DataEstrazione(EstrazioneFin) & " " & es
Scrivi
For n = es To es - 17 Step - 1
For i = 1 To 5
e = Estratto(n,ruota,i)
frequenze(e) = frequenze(e) + 1
Next
Next
For n = 0 To 18
s = " numeri sortiti " & CStr & " volte: "
c = 0
For i = 1 To 90
If frequenze(i) = n Then
s = s & CStr(i) & " "
c = c + 1
End If
Next
If c > 0 Then
Scrivi CStr(c) & s
End If
Scrivi
Next
End Sub
--------------------------------------------------------------------------
Nessuno di questi Script, sia chiaro, è opera mia: l'unico Script che sono riuscito a fare si limita a stampare la frase "Ciao idiota" (maleducato!)

Che il Dio Bacco (il mio preferito) di colmi il bicchiere del suo Nettare
Baciccia

grazie

 

[Missione Impossibile2]

Avete visto fuori da questo 3d,qualcuno ha iniziato a copiare FUTURO2? Cosa vi diceva Missione,vi daranno il fumo ma mai l arrosto!!!
SQUALI in ogni angolo del mondo.Ma siccome non voglio polemiche sono stufo diceva,,,,giocare con i bambini.
A breve si iniziano le danze con i numeri al lotto,il tempo di ordinare il programma personale!
Senza offesa a qualcuno che sa'.

 

[Father]

Avete visto fuori da questo 3d,qualcuno ha iniziato a copiare FUTURO2? Cosa vi diceva Missione,vi daranno il fumo ma mai l arrosto!!!
SQUALI in ogni angolo del mondo.Ma siccome non voglio polemiche sono stufo diceva,,,,giocare con i bambini.
A breve si iniziano le danze con i numeri al lotto,il tempo di ordinare il programma personale!
Senza offesa a qualcuno che sa'.

ma infatti lui lo disse chiaramente , c'erano anche modi diversi per leggere bene futuro e ne diede qualche accenno
poi ci sta è capibile che lo si copi ha buttato le briciole quà e la perchè qualcuno abboccasse e mi pare che ci sia riuscito ,ci mancherebbe .è un vanto da considerare quando ti copiano ,tanto chi ha seguito il 3d sa di certo e trae le conclusioni ..poi non è sempre facile copiare ..
.

 

[Father]

vediamo porto altro su cui riflettere sempre da futuro 3 in decinanaturale , grazie del consiglio @Serafino1 ,
se non erro ci sono due direttrici ancora aperte su mi ,spero di non prendere una cantonata perchè ci sto ancora
sbattendo la caveza...vediamo dai ...

Ruota MI
1 ELEMENTO

2 ELEMENTO E QUI SI dovrebbe comprendere meglio

3 ELEMENTO AGGIUNTO DA UN MIO SCRIPT CHE RIGUARDA I CICLI COPERTI

mi sembra che la 69.70 sia aperta
come anche la 67.68.69

il 67 conferma il 70 e viceversa
61 fortissimo
anche il 63 conferma il 70 e viceversa /riportato nelle coppie migliori in decina

65 e 66 sembrano in apparenza forti e segnalati ma non è cosi , seguendo il metodo di Missione appartengono a direttrice chiusa ,il metodo ovviamente non lo dico ...

madonna che pippa mentale.. grazie Missione ahahaha

 

[Baciccia4251]

vediamo porto altro su cui riflettere sempre da futuro 3 in decinanaturale , grazie del consiglio @Serafino1 ,
se non erro ci sono due direttrici ancora aperte su mi ,spero di non prendere una cantonata perchè ci sto ancora
sbattendo la caveza...vediamo dai ...

Ruota MI
1 ELEMENTO

2 ELEMENTO E QUI SI dovrebbe comprendere meglio

3 ELEMENTO AGGIUNTO DA UN MIO SCRIPT CHE RIGUARDA I CICLI COPERTI

mi sembra che la 69.70 sia aperta
come anche la 67.68.69

il 67 conferma il 70 e viceversa
61 fortissimo
anche il 63 conferma il 70 e viceversa /riportato nelle coppie migliori in decina

65 e 66 sembrano in apparenza forti e segnalati ma non è cosi , seguendo il metodo di Missione appartengono a direttrice chiusa ,il metodo ovviamente non lo dico ...

madonna che pippa mentale.. grazie Missione ahahaha

Se ti può essere utile Tabelle probabilitò lettura orizzontale e verticale quindicina 61-75



E Pazzaglia: