A volte basta uno script facile per tutti.

[Missione Impossibile.]

Buona sera a chi può essere utile

A nessuno perche in 14 casi ha gia' dato 13 esiti positivi su 14,manca un colpo vedi tu,tentar non nuoce.

 

[Missione Impossibile.]

Ragazzi comunque c'e' un caos di numeri,che io non riesco a starci dietro,potreste per favore con i numeri da voi inseriti se negativi o positivi, oppure si continua...Grazie. Io ho chiuso a BARI con il 2x1 5-6 uscito il 5 caso chiuso. A napoli esce il 73 caso chiuso.

 

[Sakti]

Scrivi "-------E1--E2--E3--E4--E5" Codice a E1dai 7 spazi e tra le lettere 2 spazi, dovrebbe allinearsi,
nel secondo listato, Scrivi "------------Rit---Sto" 12 spasi prima di Rit e 3 da Sto e si allinea.
Mission, la tua ricerca da che estrazione parte per il 22?
Oggi mi è uscito il 64 a Bari ma ho sbagliato posizione, quindi sta volta nada...

 

[Missione Impossibile.]

Scrivi "-------E1--E2--E3--E4--E5" Codice a E1dai 7 spazi e tra le lettere 2 spazi, dovrebbe allinearsi,
nel secondo listato, Scrivi "------------Rit---Sto" 12 spasi prima di Rit e 3 da Sto e si allinea.
Mission, la tua ricerca da che estrazione parte per il 22?
Oggi mi è uscito il 64 a Bari ma ho sbagliato posizione, quindi sta volta nada...

Dal 1871

 

[Sakti]

Questi i miei dati a ieri:
Frequenze MI 1° 106 - 2° 111 - 3° 112 - 4° 108 - 5° 120
Ritardi..............1° 118 - 2° ..71 - 3° ..56 - 4° 118 - 5° ..64
-------------------------------------------------------
Frequenze PA 1° 113 - 2° .93 - 3° 110 - 4° 101 - 5° 122
Ritardi..............1° ..17 - 2° .59 - 3° ..35 - 4° 125 - 5° 136

 

[Missione Impossibile.]

Questi i miei dati a ieri:
Frequenze MI 1° 106 - 2° 111 - 3° 112 - 4° 108 - 5° 120
Ritardi..............1° 118 - 2° ..71 - 3° ..56 - 4° 118 - 5° ..64
-------------------------------------------------------
Frequenze PA 1° 113 - 2° .93 - 3° 110 - 4° 101 - 5° 122
Ritardi..............1° ..17 - 2° .59 - 3° ..35 - 4° 125 - 5° 136

Ok sono giusti. Grazie TOON

 

[sorujoe]

potete gentilmente fare in modo che questo script lavori sulle decine naturali? Ora calcola le cabalistiche Grazie

Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
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 = 8950'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 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 decina 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

 

[Missione Impossibile.]

Dove trovi Decina scrivi DecinaNaturale.

 

[Missione Impossibile.]

Per tutti il 47 a Bari è probabile anche a Na/Pa per ambata secca.

 

[sorujoe]

Grazie MISSIONE se volessi mettere quindicina cosa dovrei scrivere man mano al posto di decina?
If Decina(x) = Decina And Decina(x) = Decina(sp) Then

 

[sorujoe]

A buon rendere

 

[sorujoe]

Ovviamente inviato all'aiuto a Missione o chi ne è capace
Se volessi mettere quindicina cosa dovrei scrivere man mano al posto di decina?
If Decina(x) = Decina And Decina(x) = Decina(sp) Then

 

[Missione Impossibile.]

Ovviamente inviato all'aiuto a Missione o chi ne è capace
Se volessi mettere quindicina cosa dovrei scrivere man mano al posto di decina?
If Decina(x) = Decina And Decina(x) = Decina(sp) Then

Io non ho dimistichezza con gli script, magari qualcuno ti aiutera' sicuramente

 

[claudio8]

Ovviamente inviato all'aiuto a Missione o chi ne è capace
Se volessi mettere quindicina cosa dovrei scrivere man mano al posto di decina?
If Decina(x) = Decina And Decina(x) = Decina(sp) Then

Non c'e' nessuna funzione di quindicine in SPMT devi costruirtela

 

[Missione Impossibile.]

Io non ho dimistichezza con gli script, magari qualcuno ti aiutera' sicuramente

Comunque bella idea sulle quindicine.

 

[Missione Impossibile.]

Non c'e' nessuna funzione di quindicine in SPMT devi costruirtela

Grazie per il tuo intervento Claudio8 tu riesci,penso proprio di si.

 

[Codicebinario]

Comunque bella idea sulle quindicine.

Si bella idea...ma.... di che 15 dicine? miste,cioe' scelgo io 15 numeri? da a a b a scelta?
consecutive e disposte in senso progressivo?:

01.02.03.04.05.06.07.08.09.10.11.12.13.14.15
16.17.18.19.20.21.22.23.24.25.26.27.28.29.30
31.32.33.34.35.36.37.38.39.40.41.42.43.44.45
46.47.48.49.50.51.52.53.54.55.56.57.58.59.60
61.62.63.64.65.66.67.68.69.70.71.72.73.74.75
76.77.78.79.80.81.82.83.84.85.86.87.88.89.90

La vedo molto dura....Visto che Spzmt non dispone di archivi a quindicine....che valori si andrebbero a ricercare?Boh,comunque,tutti sanno che sono un "pippone" con gli script, non mi ci metto neanche.Certo che Claudio8,mike58,iLegend,Joe,sapranno aiutare,tempo e voglia di cimentarsi permettendo,sono curioso....

 

[Codicebinario]

X Batters,domani giornata casareccia...aggiorno tutti i software,e,visto che ormai posto solo qui,vedrò di aggiornare e chiudere tutte le "proposte"....e cosi' ripartire da settimana prossima....

Per ora : BA 47
47.73
47.73.74
47.49.76

Sperando che i laterali non mi fottano ancora...(facile)... a K8 da stasera.

 

[Missione Impossibile.]

Si bella idea...ma.... di che 15 dicine? miste,cioe' scelgo io 15 numeri? da a a b a scelta?
consecutive e disposte in senso progressivo?:

01.02.03.04.05.06.07.08.09.10.11.12.13.14.15
16.17.18.19.20.21.22.23.24.25.26.27.28.29.30
31.32.33.34.35.36.37.38.39.40.41.42.43.44.45
46.47.48.49.50.51.52.53.54.55.56.57.58.59.60
61.62.63.64.65.66.67.68.69.70.71.72.73.74.75
76.77.78.79.80.81.82.83.84.85.86.87.88.89.90

La vedo molto dura....Visto che Spzmt non dispone di archivi a quindicine....che valori si andrebbero a ricercare?Boh,comunque,tutti sanno che sono un "pippone" con gli script, non mi ci metto neanche.Certo che Claudio8,mike58,iLegend,Joe,sapranno aiutare,tempo e voglia di cimentarsi permettendo,sono curioso....

Se si riesce a fare le 15cine hai nelle decine delle coppie in piu'.

 

[Codicebinario]

Se si riesce a fare le 15cine hai nelle decine delle coppie in piu'.

O yesss.....facciamole in 90 (novantine)....per me non serve a una cippa....pero',sono curioso......vediamo poi come finisce....sono concetti affrontati e trattati da "illotempore"......Fidati, Il concetto di "FUTURO" va' gia bene cosi...e non credo possa migliorare con concetti vecchi e gia' esplorati....quello che ti rimane e' solo una estrazione "reale" e "vera".....il presente e' questo....e non ha' nessun senso andare a vedere,visualizzare il passato....la statistica pura ti restituisce un analisi del passato,ma non è la situazione del presente.....Ciao,"il Folle".