Novità

X Mike 58-Mod-Blackmore 2

antonio65

antonio65

Super Member >PLATINUM<
Ciao, volevo chiedere visto che siete gli autori dello script che allegherò in sequenza
se è possibile ricavare gli ambi anzichè gli algoritmi più frequenti???
Ho cercato di smanettare non ne sono capace...

Sub Main()
ColoreTesto 1: Scrivi
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(90,8),nn(1),ruota(1),nt(90,8),n3(90,8),n4(90,8),n5(90,8)
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,1))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",158)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru1 = 1 To 1
If nru1 = 11 Then nru1 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 7694 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
'If IndiceMensile(es) = ind Then



'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensile(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensile(es + 1) = 1)And(eval(ind) = 0)))) Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 90
co = co + 1
a = Estratto(es,nru1,p)
aa = Estratto(es,nru1,p2)
a3 = Estratto(es,nru1,p3)
b = Fuori90(a + nu)
bb = Fuori90(aa + nu)
b3 = Fuori90(a3 + nu)
a4 = Estratto(es,nru1,p4)
a5 = Estratto(es,nru1,p5)
b4 = Fuori90(a4 + nu)
b5 = Fuori90(a5 + nu)
nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru1
nt(co,2) = nru1
n3(co,2) = nru1
n4(co,2) = nru1
n5(co,2) = nru1
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b
nt(co,6) = bb
n3(co,6) = b3
n4(co,6) = b4
n5(co,6) = b5
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru1,pp)
If e = b Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = bb Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b3 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b4 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b5 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
'End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
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
 
Ciao Antonio, frequento poco i forum oramai, e mi spiace ma sarei anche un po' stufo di riprendere vecchi script per giunta datati.
Ricorreggere uno script per altre funzionalità non sa quando diventa complesso e poi come puoi vedere all'epoca fu scriptato da Ramco nel lontano 2011-2012..

Come puoi vedere sono tante righe di codice e metterci mano sicuramente non si arriverebbe allo scopo.

Tuttavia da quella data qualcosa ho imparato e messo su delle righe di codice diverso per tale scopo, ma come dicevo allora e come dico adesso Attenzione certe statistiche sono lo specchio del passato e non è detto che funzionano per il futuro.

Ti metto questo mio altro script di qualche anno dopo che può fare al caso tuo e per chi vuole è + facile modificare per i propri scopi.

P.s. io non ho intenzione di ripercorrere modifiche a scopi diversi.

Codice: 
Sub Main()
 Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
 Scrivi : ColoreTesto 2: Scrivi String(54," ") & "  SCRIPT DI MIKE58 ",1
 Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
 Dim cin(10),ruote(10)
 casi = 0
 x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
 r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
 pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
 colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",14)) 'DA CAMBIARE A PIACIMENTO
 visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",10)) 'DA CAMBIARE A PIACIMENTO

 ruote(1) = r
 fin = EstrazioneFin
 Ini = fin - 140
 fine = EstrazioneFin
 ReDim atitoli(11)
 atitoli(1) = " ESTRATTO "
 atitoli(2) = " SOMMATIVO "
 atitoli(3) = " PRESENZA SU CASI "
 atitoli(4) = " NUMERO IN GIOCO "
 atitoli(5) = " ESITO "
 atitoli(6) = " RET_ESTRATTI "
 atitoli(7) = " DATA ESTRAZIONE "
 atitoli(8) = " COLPO ESITO "
 atitoli(9) = " NUM. 1 "
 atitoli(10) = " NUM. 2 "
 atitoli(11) = " NUM. 3 "
 Call InitTabella(atitoli,1,,3,5)
 For es = Ini To Fin
  If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
   idd = GetInfoEstrazione(es)
   Call Messaggio("Costruttore Sommativo per Ambi      " & " casi trovati...." & casi)
   Call AvanzamentoElab(Ini,fin,es)
   Inco = fine - es
   casi = casi + 1
   co = 0
   es1 = es + 1
   es2 = es1 + colpi
   e = Estratto(es,r,pos)
   For s1 = 1 To 88
    For s2 = s1 + 1 To 89
     For s3 = s2 + 1 To 90
      co = co + 1
      cin(1) = Fuori90(e + s1)
      cin(2) = Fuori90(e + s2)
      cin(3) = Fuori90(e + s3)
      ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
      num(co,1) = s1
      num(co,2) = s2
      num(co,3) = s3
      num(co,4) = num(co,4)
      If ea > 0 Then
       num(co,4) = num(co,4) + 1
      End If
     Next
    Next
   Next
  End If
 Next
 Scrivi : ColoreTesto 0: Scrivi,1
 Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
 Scrivi "Combinazioni analizzate: " & co,1
 Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
 Scrivi " -> Colpo in corso..." & Inco,1
 Scrivi
 ColoreTesto 0
 For i = 1 To visual
  Call OrdinaMatrice(num,- 1,4)
  If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
   ColoreTesto 0
   aa(1) = Fuori90(cin(1) + num(i,1) + 2)
   aa(2) = Fuori90(cin(2) + num(i,2) + 1)
   aa(3) = Fuori90(cin(3) + num(i,3))
   Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
   n1(1) = aa(1)
   n2(1) = aa(2)
   n3(1) = aa(3)

   ReDim avalori(11)
   avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
   avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
   avalori(3) = Format2(num(i,4)) & "  su  " & casi & "  Casi "
   avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
   avalori(5) = retesito
   avalori(6) = Retestratti
   If retesito = "Ambo" Or retesito = "Terno" Then
    avalori(7) = DataEstrazione(id)
   Else
    avalori(7) = " In corso "
   End If
   If retesito = "Ambo" Or retesito = "Terno" Then
    avalori(8) = retcolpi & "°"
   Else
    avalori(8) = Inco & "° in corso "
   End If
   sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
   sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
   sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
   If sf11 > 0 Then
    avalori(9) = n1(1)
   Else
    avalori(9) = ""
   End If
   If sf12 > 0 Then
    avalori(10) = n2(1)
   Else
    avalori(10) = ""
   End If
   If sf13 > 0 Then
    avalori(11) = n3(1)
   Else
    avalori(11) = ""
   End If
   'End If
   Call AddRigaTabella(avalori,,,3)
  End If
  Call SetColoreCella(2,,1)
  Call SetColoreCella(4,,2)
  Call SetColoreCella(6,,7)
  If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
  If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
  If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
 Next
 Call SetTableWidth("100%")
 Call CreaTabella()


End Sub
 
Ciao Mike grazie per avermi risposto...penso che va bene...devo un pò capire perchè non sono tanto bravo...
Grazie è poco...non tanto per lo script ma nell'avermi considerato.!!!
 
Io non sono tanto pratico...se mi puoi solamente dove posso inserire questa tecnica...o meglio cosa devo sostituire?
In pratica moltiplicando * 4 ogni estratto ...trovare miglior miglior algo per ambi Poi sottrazione e diviso 4
solo cosa devo sostituire...poi farò tutto io..se è possibile...in tal caso molte più grazie!!!
Men sta per il primo estratto * 4/// DNA il miglior caso poi sottrazione e diviso 4.
DNA1 =nu*4
DNA2 =nu*4
DNA3 =nu*4
DNA4 =nu*4
DNA5 =nu*4

MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4

b01 = Fuori90(Abs((Abs((MEN1 - DNA1))/4)))
b02 = Fuori90(Abs((Abs((MEN1 - DNA2))/4)))
b03 = Fuori90(Abs((Abs((MEN1 - DNA3))/4)))
b04 = Fuori90(Abs((Abs((MEN5 - DNA4))/4)))
b05 = Fuori90(Abs((Abs((MEN2 - DNA7))/4)))
 
Ciao Antonio, io per quello che posso ho la massima considerazione di tutti.
Sicuramente lo script che ti ho postato è di facile comprensione per le risultanze che si vogliono vedere, mentre le modifiche che chiedi non sono accessibili e fattibili in questo script.

Nella tua richiesta mancano dei parametri chiari ed univochi.
esempio

quante estrazioni analizzi
su quale estrazione fai l'analisi
cosa verifichi
e altre cose che non cito

Questo che leggo mi sembra + un metodo che una ricerca ed ad ogni modo i risultati del metodo sono facilmente eseguibili in codice,mentre la ricerca è più complessa(anche per me)..

Proverò a farti una bozza in metodo per ricavare i dati, se capisco meglio quale impostazione dare e dove dobbiamo arrivare.

Per ora ti saluto.
 
Antonio avrei trovato un modus operandi per calcolare gli abbinamenti, ma avrei bisogno di capire con un esempio anche fatto manualmente e con calcoli reali e su un estrazione di rilevamento calcoli, per capire cosa scrivere e per capire quale numero finale deve essere abbinato ai migliori abbinamenti.

provaci
 
Dunque carissimo , si tratta di un metodo&ricerca applicato con questo metodo...diciamo che con il software che avevo postato da li estraevo tutti gli algoritmi ...il ricorso a questa variazione è dovuto al fatto che poi dovevo cercare manualmente il miglior ambo per il miglior algoritmo...capito? per cui questo è il motivo...Mi baso su una tecnica matematica su cui le mie ricerche iniziano dal 2007 fino ad oggi(immagina manualmente) a cercare l'ambo...ahi ahi...comunque penso che sia semplice...la ricerca/metodo vale su qualsiasi in qualsiasi estrazione
estrazione del mese...anche ad esempio Bari su Milano Bari su Cagliari etc etc...La tecnica parte da un punto logico matematico..spiegazione:
prendendo qualsiasi numero a caso: supponiamo questi: 27 38 40 72 86 sommando il 1°estratto con il secondo ad esempio otteniamo
65 poi moltiplicato x 4 =260 poi si moltiplica uno dei 2 (27-38) moltiplichiamo il 27x4=108 meno la somma moltiplicata x 4 cioè 260 otteniamo quindi 260-108=152 il tutto diviso 4= 38...Cosi però non porta a nulla perchè è naturale quindi con la funzione For nu = 1 To
179 cerco il miglior algoritmo che ha più probabilità ...
MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4

RIC1 = nu*4
RIC2 = nu*4
RIC3 = nu*4
RIC4 = nu*4
RIC5 = nu*4
iN QUESTO MODO è molto più semplice..
 
Ti allego uno script per renderti conto...anche se sbagliando non sono pratico con parentesi è successo che senza parentesi quindi calcoli sbagliati ma porta sempre qualcosa...


Sub Main()
ColoreTesto 1: Scrivi " X RANDHOUSE ",1
Scrivi String(15," ") & "QUESTO SCRIPT ELABORA PER OGNI POSIZIONE I PRIMI 25 ALGORITMI SU OGNI SINGOLA RUOTA",1
Scrivi String(35," ") & "IN ORDINE DI USCITE PARTENDO DALLA PIU'ALTA",1
Scrivi String(25," ") & "SEGNALANDO IL RITARDO ATTUALE E LA FREQUENZA DELL'AMBATA IN GIOCO",1
ColoreTesto 0: Scrivi
Dim mm(1)
Dim nam(179,8),nn(1),ruota(1),nt(179,8),n3(179,8),n4(179,8),n5(179,8)
nru1 = CInt(InputBox("Ruota di gioco","Ruota di GIOCO",10))
ind = CInt(InputBox("ESTRAZIONE MENSILE? (Inserisci 0 Per l'ultima, 1 per la prima, ....)",,5))
ne = InputBox("Numero estrazioni:","ESTRAZIONI",1592)
ncg = CInt(InputBox("Numero colpi di gioco","COLPI di GIOCO",1))
nStart = Timer ' partenza tempo di elaborazione
For nru11 = 10 To 10
If nru11 = 11 Then nru11 = 12
ColoreTesto 0:Scrivi String(115,"=")
ruota(1) = nru1
For x = 1 To 90
For y = 1 To 8
nam(x,y) = 0
nt(x,y) = 0
n3(x,y) = 0
n4(x,y) = 0
n5(x,y) = 0
Next
Next
p = 1
p2 = 2
p3 = 3
p4 = 4
p5 = 5
casi = 0
ultest = 9273 ' qui ogni ultima estrazione aggiorna manualmente il numero dell'ultima
ini = EstrazioneFin - ne
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = ind Then



'If(((eval(ind) = 0)And(es = ultest))Or((Indicemensile(es) = eval(ind)And(eval(ind) > 0))Or((Indicemensile(es + 1) = 1)And(eval(ind) = 0)))) Then
If IndiceMensile(es) = ind Or(((eval(ind) = 0)And(es = ultest))Or((IndiceMensile(es) = eval(ind)And(eval(ind) > 0))Or((IndiceMensile(es + 1) = 1)And(eval(ind) = 0)))) Then

colpo = fin - es
Messaggio "Elaborazione estrazioni... " &(es) & " ---> script by Mike58 - Modificato da Blackmore"
Call(AvanzamentoElab(Ini,fin,es))
casi = casi + 1
'la riga sotto per controllare le estrazioni se non si vuole mettere apice davanti
Scrivi Format2(casi) & ") " & DataEstrazione(es) & " [" & es & "] " & SiglaRuota(nru1) & " " & StringaEstratti(es,nru1)
co = 0
For nu = 1 To 179
co = co + 1
'zx = nu*100
'zx1 = nu*100

ELI = nu*4

a01 = Estratto(es,nru1,p)
a02 = Estratto(es,nru1,p2)
a03 = Estratto(es,nru1,p3)
a04 = Estratto(es,nru1,p4)
a05 = Estratto(es,nru1,p5)

CHEF1 = 31*4
CHEF2 = 116*4
CHEF3 = 129*4
CHEF4 = 162*4'50
CHEF5 = 22*4

DNA1 = a01 + a02
DNA2 = a01 + a03
DNA3 = a01 + a04
DNA4 = a01 + a05
DNA5 = a02 + a03
DNA6 = a02 + a04
DNA7 = a02 + a05
DNA8 = a03 + a04
DNA9 = a03 + a05
DNA10 = a04 + a05

MEN1 = a01*4
MEN2 = a02*4
MEN3 = a03*4
MEN4 = a04*4
MEN5 = a05*4



b01 = Fuori90(Abs((Abs((CHEF1 - MEN1))/4)))
b02 = Fuori90(Abs((Abs((CHEF2 - MEN2))/4)))
b03 = Fuori90(Abs((Abs((CHEF3 - MEN3))/4)))
b04 = Fuori90(Abs((Abs((CHEF4 - MEN4))/4)))
b05 = Fuori90(Abs((Abs((CHEF5 - MEN5))/4)))




nam(co,1) = co
nt(co,1) = co
n3(co,1) = co
n4(co,1) = co
n5(co,1) = co
nam(co,2) = nru11
nt(co,2) = nru11
n3(co,2) = nru11
n4(co,2) = nru11
n5(co,2) = nru11
nam(co,3) = p
nt(co,3) = p2
n3(co,3) = p3
n4(co,3) = p4
n5(co,3) = p5
nam(co,4) = nu
nt(co,4) = nu
n3(co,4) = nu
n4(co,4) = nu
n5(co,4) = nu
nam(co,6) = b01
nt(co,6) = b02
n3(co,6) = b03
n4(co,6) = b04
n5(co,6) = b05
nam(co,7) = 0
nt(co,7) = 0
n3(co,7) = 0
n4(co,7) = 0
n5(co,7) = 0
esncg = es + ncg
If esncg > EstrazioneFin Then esncg = EstrazioneFin End If
For ess = es + 1 To esncg
For pp = 1 To 5
e = Estratto(ess,nru11,pp)
If e = b01 Then
nam(co,5) = nam(co,5) + 1
nn(1) = nam(co,6)
nam(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b02 Then
nt(co,5) = nt(co,5) + 1
nn(1) = nt(co,6)
nt(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b03 Then
n3(co,5) = n3(co,5) + 1
nn(1) = n3(co,6)
n3(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b04 Then
n4(co,5) = n4(co,5) + 1
nn(1) = n4(co,6)
n4(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
If e = b05 Then
n5(co,5) = n5(co,5) + 1
nn(1) = n5(co,6)
n5(co,7) = SerieFreq(es + 1,ess,nn,ruota,1)
End If
Next
Next
Next
End If
End If
Next
Scrivi "------------------------------------------"
ColoreTesto 1
Scrivi "ANALISI Dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin),1
Scrivi "nu" & SiglaRuota(r) & "---" & Format2(nu),1
Scrivi "CHEF" & SiglaRuota(r) & "---" & Format2(CHEF),1
Scrivi

If ind = 0 Then Scrivi "ALL'ULTIMA ESTRAZIONE DEL MESE ",1
If ind > 0 Then Scrivi "ALLA " &(ind) & "° ESTRAZIONE DEL MESE ",1
Scrivi "RUOTE DI GIOCO : " & NomeRuota(nru1),1
Scrivi "COLPI DI GIOCO : " & ncg,1
Scrivi "CASI ANALIZZATI : " & casi,1
ColoreTesto 2
Scrivi"N° colpo in corso ---> " & colpo,1
ColoreTesto 0
Scrivi""
Scrivi "Ultima estrazione numeri estratti " & NomeRuota(nru1) & " - " & StringaEstratti(EstrazioneFin,nru1)
Scrivi""
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice nam,- 1,5
For ca = 1 To 5
mm(1) = nam(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
esitoo = colpo - ratt
'esitoo= Abs(ind - ratt)
If nam(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nam(ca,7) > 0 Then
Scrivi eval(nam(ca,3)) & "°" & Left(NomeRuota(eval(nam(ca,2))),2) & " + " & _
Format2(nam(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nam(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nam(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esitoo,1
'cc = 0
cc = cc + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 0
'Scrivi "----- Sfaldati...." & cc,1
ColoreTesto 0
OrdinaMatrice nam,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p2 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 1
OrdinaMatrice nt,- 1,5
For ca = 1 To 5
mm(1) = nt(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito1 = colpo - ratt
esito1 = Abs(ind - ratt)
If nt(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato; Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If nt(ca,7) > 0 Then
Scrivi eval(nt(ca,3)) & "°" & Left(NomeRuota(eval(nt(ca,2))),2) & " + " & _
Format2(nt(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(nt(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(nt(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito1,1
dd = dd + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & dd,1
ColoreTesto 0
OrdinaMatrice nt,- 1,8
ColoreTesto 0
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p3 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n3,- 1,5
For ca = 1 To 5
mm(1) = n3(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito2 = colpo - ratt
esito2 = Abs(ind - ratt)
If n3(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n3(ca,7) > 0 Then
Scrivi eval(n3(ca,3)) & "°" & Left(NomeRuota(eval(n3(ca,2))),2) & " + " & _
Format2(n3(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n3(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n3(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito2,1
hh = hh + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & hh,1
ColoreTesto 0
OrdinaMatrice n3,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p4 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n4,- 1,5
For ca = 1 To 5
mm(1) = n4(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito3 = colpo - ratt
esito3 = Abs(ind - ratt)
If n4(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n4(ca,7) > 0 Then
Scrivi eval(n4(ca,3)) & "°" & Left(NomeRuota(eval(n4(ca,2))),2) & " + " & _
Format2(n4(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n4(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n4(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito3,1
ff = ff + 1
End If
End If
Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "----- Sfaldati...." & ff,1
ColoreTesto 0
OrdinaMatrice n4,- 1,8
Scrivi
ColoreTesto 1
Scrivi " ATTENZIONE ANALISI DELLA POSIZIONE. " & p5 & " ",1
Scrivi " Colpo n°. " & colpo & " ",1
Scrivi
ColoreTesto 0
OrdinaMatrice n5,- 1,5
For ca = 1 To 5
mm(1) = n5(ca,6)
ratt = SerieRitardo(fin - 250,fin,mm,ruota,1)
freqq = SerieFreq(fin - ne,fin,mm,ruota,1)
'esito4 = colpo - ratt
esito4 = Abs(ind - ratt)
If n5(ca,7) = 0 Then
ColoreTesto 0
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... in corso ..." & " freq..." & freqq,1
Else
ColoreTesto 2
If n5(ca,7) > 0 Then
Scrivi eval(n5(ca,3)) & "°" & Left(NomeRuota(eval(n5(ca,2))),2) & " + " & _
Format2(n5(ca,4)) & " su " & NomeRuota(nru1) & _
" è uscito " & FormatSpace(n5(ca,5),3) & " su " & FormatSpace(casi,3) & " casi - " & _
" Num. [" & Format2(eval(n5(ca,6))) & "] Ultimo Calcolato Rit.Att. " & Format2(ratt) & " ... SFALDATO ..." & " freq..." & Format2(freqq),0,0
Scrivi " - Esito al colpo... " & esito4,1
gg = gg + 1
End If
End If
Next
If ScriptInterrotto Then Exit For
Next
'Next
ColoreTesto 0
Scrivi String(115,"="),0,0
ColoreTesto 1
'Scrivi "---- Sfaldati...." & gg,1
ColoreTesto 0
OrdinaMatrice n5,- 1,8
Scrivi String(115,"="),1
Scrivi " Listato da Ramco e modificato da Mike58 .......... By Blackmore ",1
nEnd = Timer ' fine tempo di elaborazione
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
End Sub
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
 



fammi un esempio su questi numeri ricavati
questo è solo numero in posizione x 4(fuori90) con ambi migliori poi ho bisogno di capire cosa ricavare per proseguire.
 
Il fuori 90 non deve esistere perchè poi tutto viene diviso x 4...il calcolo che ti ho mandato è solo un colpo :) quindi pensa 2 o tre colpi
 
Ogni calcolo va fatto per la prima del mese...per la seconda...etc etc fino ad arrivare all'ultima...sempre a colpo cioè un solo colpo di gioco per il momento...
 
Supponiamo che in quello che mi hai inviato con le griglie colorate fosse senza il fuori 90 bisogna proseguire cosi: il miglior algoritmo sarebbe numero x che poi per un estrazione x ti da un numero che sarebbe quello reale da giocare...sempre con lo stesso metodo/tecnica bisogna ricavare le migliori previsioni sull'ambo esempio supponiamo che abbiamo 2 algoritmi con il primo 25 su 100 e il secondo 21 su 100
io devo ricavare quante volte questi 2 algoritmi escono insieme tutto li...
 
Può capitare e capita che un algoritmo di 25 volte su 123 da 6 o sette ambi con un algoritmo ad esempio 15 su 123...
ci siamo quasi
 
Per renderti conto dell'importanza di questo metodo di invio uno script che ho modificato per il 10&lotto 5 minuti fascia 252/252

Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
Sub Main
Dim Tipoarchivio
Dim Nn(5)
'Dim posta(2)
'posta(2) = 1 ' < - - - posta per estratto
QT = InputBox("Quanti Numeri","Numeri",1)

nSorte = ScegliSorte
Tipoarchivio = ScegliArchivio
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
Call ImpostaArchivio10ELotto(Tipoarchivio)
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If

Orarin = 252
Orarfi = 252
kin = CInt(InputBox(" solo x 10Lotto5M Range Orario da n.:",,Orarin))
kfi = CInt(InputBox(" solo x 10Lotto5M Range Orario a n. ",,Orarfi))
EstrRic = CInt(InputBox("QUANTE ESTRAZIONI CONTROLLO ","ESTRAZIONI RETROATTIVE",12304))
ncg = InputBox("QUANTE ESTRAZIONI",,1)
Fin = EstrazioniArchivioDL
Ini = EstrazioniArchivioDL - EstrRic
End If
For n = ini To fin
tot = 0
If IndiceAnnualeDL(n) >= kin And IndiceAnnualeDL(n) <= kfi Then
Messaggio DataEstrazioneDL(n,True) & " List.ANTONIO65 " ' < - - - - Numero estrazioni
AvanzamentoElab Ini,fin,n

MEN1 = 127*4
MEN2 = 122*4
MEN3 = 46*4
MEN4 = 176*4
MEN5 = 23*4
MEN6 = 45*4
MEN7 = 97*4
MEN8 = 80*4
MEN9 = 19*4
MEN10 = 58*4
MEN11 = 63*4
MEN12 = 171*4
MEN13 = 221*4
MEN14 = 33*4
MEN15 = 44*4
MEN16 = 55*4
MEN17 = 17*4
MEN18 = 8*4
MEN19 = 9*4
MEN20 = 70*4

DNA1 =(EstrattoDL(n - 0,12) +(EstrattoDL(n - 0,13)))*4
DNA2 =(EstrattoDL(n - 0,10) +(EstrattoDL(n - 0,16)))*4
DNA3 =(EstrattoDL(n - 0,6) +(EstrattoDL(n - 0,13)))*4
DNA4 =(EstrattoDL(n - 0,3) +(EstrattoDL(n - 0,13)))*4
DNA5 =(EstrattoDL(n - 0,9) +(EstrattoDL(n - 0,10)))*4
DNA6 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,7)))*4
DNA7 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,8)))*4
DNA8 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,9)))*4
DNA9 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,10)))*4
DNA10 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,11)))*4
DNA11 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,12)))*4
DNA12 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,13)))*4
DNA13 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,14)))*4
DNA14 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,15)))*4
DNA15 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,16)))*4
DNA16 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,17)))*4
DNA17 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,18)))*4
DNA18 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,19)))*4
DNA19 =(EstrattoDL(n - 0,1) +(EstrattoDL(n - 0,2)))*4
DNA20 =(EstrattoDL(n - 0,2) +(EstrattoDL(n - 0,3)))*4

nu1 = Fuori90(Abs(MEN1 - DNA1)/4)
'nu2 = Fuori90(Abs(MEN2 - DNA2)/4)
'nu3 = Fuori90(Abs(MEN3 - DNA3)/4)
'nu4 = Fuori90(Abs(MEN4 - DNA4)/4)
'nu5 = Fuori90(Abs(MEN5 - DNA5)/4)


Scrivi "----------------------------------------------------------- "
Scrivi " Estrazione n." & n & "--del " & DataEstrazioneDL(n,1) & "-- " & GetInfoEstrazioneDL(n),1
StringaEstrattiDL(n) & " - " & Format2(NumeroOroDL(n)),1

Nn(1) = nu1:Nn(2) = nu2:Nn(3) = nu3:Nn(4) = nu4:Nn(5) = nu5:
Call VerificaEsitoDL(Nn,n + 01,nSorte,QN,Retesito,Retcolpi,RetEstratti,RetIdEstr)
If RetEsito = "" Then RetEsito = "In Corso"
Scrivi StringaNumeri(Nn,,True) & " " & retesito & " " & RetColpi & " " & RetEstratti & " " & RetIdEsr,1
For P = 01 To 20
ColoreTesto 1
For xx = 01 To QT
If EstrattoDL(n + 00,P) = Nn(xx) Then
ColoreTesto 2
tot = tot + 01
End If
Next
Scrivi Format2(EstrattoDL(n + 00,P)),1,0
ColoreTesto 0
Scrivi ".",0,0
Next
ColoreTesto 7
If ToT = Int(qt) Then
Scrivi " - Punteggio max -> " & tot,1,0
'ColoreTesto 3
Scrivi " - Attenzione vincita piena ",1,- 1,3
Else
If Tot = Int(qt - 1) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -1 ",1
Else
If Tot = Int(qt - 2) Then
ColoreTesto 7
Scrivi " - Punteggio max -> " & tot,1,0
ColoreTesto 2
Scrivi " - Vincita -2 ",1
Else
ColoreTesto 7
If Tot <> Int(qt) Then Scrivi " - Punteggio max -> " & tot,1
End If
End If
End If
ColoreTesto 0
'Scrivi String(80,"-")
Scrivi
'Scrivi "-------------------------------------------- Dettaglio ultime estrazioni scelte --------------------------------------------"
Call ImpostaGiocataDL(01,Nn,1,ncg,nSorte)
Call GiocaDL(n,True)
End If

Next
Call ScriviResocontoDL
ColoreTesto 2 :Scrivi String(37,32) & " Somme estratti x ANTONIO",1
Scrivi String(47,32) & "ANTONIO",1
ColoreTesto 0
End If
End Sub
'Function ScegliSorte
'ReDim aVoci(04)
'aVoci(00) = "Estratto"
'aVoci(01) = "Ambo"
'aVoci(02) = "Terno"
'aVoci(03) = "Quaterna"
'aVoci(04) = "Cinquina"
'ScegliSorte = ScegliOpzioneMenu(aVoci,02,"Secegli Tipo Sorte") + 01
'End Function
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,01,"Secegli archivio") + 01
End Function
 
Ciao Mike58 posso chiederti se mi puoi inserire la funzione For nu = 1 To 179 nello script che mi hai inviato?
da ieri che ci provo mi dice sempre errore...
 
Per Forza se maggiori il ciclo For devi maggiorare anche la variabile Dim che lo contiene Dim Nu(90,xxx) in Dim Nu1(79,xxx).
Purtroppo i tuoi calcoli non mi sono chiari e sugli script postati è troppo complesso rimetterci mano, cerca come hai fatto di far modifica da solo, magari sul mio script, poi chissà riesco meglio ad aiutarti.

Ciao
 
Buongiorno Mike58...ci sto lavorando vediamo cosa riesco a fare....solo che con la funzione che ti ho richiesto non mi parte lo script....vediamo con la variante che mi hai dato....grazie....
 
Sub Main()
Scrivi : ColoreTesto 2: Scrivi String(54," ") & "3 AMBATE SOMMATIVE",1
Scrivi : ColoreTesto 2: Scrivi String(54," ") & " SCRIPT DI MIKE58 ",1
Dim num(120000,5),aa(3),n1(1),n2(1),n3(1)
Dim cin(10),ruote(10)
Dim Nu1(179)
casi = 0
x = CInt(InputBox("INDICE MENSILE","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
r = CInt(InputBox("RUOTA DI RICERCA ?","MIKE58",2)) 'DA CAMBIARE A PIACIMENTO
pos = CInt(InputBox("POSIZIONE ESTRATTO?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
colpi = CInt(InputBox("COLPI DI GIOCO ?","MIKE58",1)) 'DA CAMBIARE A PIACIMENTO
visual = CInt(InputBox("QUANTI CASI VISUALIZZARE ?","MIKE58",5)) 'DA CAMBIARE A PIACIMENTO

ruote(1) = r
fin = EstrazioneFin
Ini = fin - 50
fine = EstrazioneFin
ReDim atitoli(11)
atitoli(1) = " ESTRATTO "
atitoli(2) = " SOMMATIVO "
atitoli(3) = " PRESENZA SU CASI "
atitoli(4) = " NUMERO IN GIOCO "
atitoli(5) = " ESITO "
atitoli(6) = " RET_ESTRATTI "
atitoli(7) = " DATA ESTRAZIONE "
atitoli(8) = " COLPO ESITO "
atitoli(9) = " NUM. 1 "
atitoli(10) = " NUM. 2 "
atitoli(11) = " NUM. 3 "
Call InitTabella(atitoli,1,,3,5)
For es = Ini To Fin
If IndiceMensile(es) = x Then 'DA CAMBIARE A PIACIMENTO
idd = GetInfoEstrazione(es)
Call Messaggio("Costruttore Sommativo per Ambi " & " casi trovati...." & casi)
Call AvanzamentoElab(Ini,fin,es)
Inco = fine - es
casi = casi + 1
co = 0
es1 = es + 1
es2 = es1 + colpi
e = Estratto(es,r,pos)
MEN=e*4'AGGIUNTA NUOVA
'DNA=nu*4
'For nu = 1 To 179 con questa funzione cosi come è messa no parte-For nu andrebbe a sostituire s1/s2/s3 quindi (e-nu)/4
For s1 = 1 To 88
For s2 = s1 + 1 To 89
For s3 = s2 + 1 To 90
co = co + 1
cin(1) = (Abs(e - s1)/4)'variata
cin(2) = (Abs(e - s2)/4)'variata
cin(3) = (Abs(e - s3)/4)'variata
ea = SerieFreqTurbo(es1,es2,cin,ruote,2)
num(co,1) = s1
num(co,2) = s2
num(co,3) = s3
num(co,4) = num(co,4)
If ea > 0 Then
num(co,4) = num(co,4) + 1
End If
Next
Next
Next
End If
Next
Scrivi : ColoreTesto 0: Scrivi,1
Scrivi "SOMMA ALL'ESTRATTO TUTTI I 90 NUMERI SULLA RUOTA DI " & NomeRuota(r) & " NEI " & eval(colpi) & " COLPI SUCCESSIVI",1
Scrivi "Combinazioni analizzate: " & co,1
Scrivi "alla " & x & " estrazione mensile" & " Data estrazione " & idd,0,0
Scrivi " -> Colpo in corso..." & Inco,1
Scrivi
Scrivi "MEN " & Format2(MEN),1
ColoreTesto 0
For i = 1 To visual
Call OrdinaMatrice(num,- 1,4)
If(num(i,4)) >= 0 Then ' ATTENZIONE QUESTI SIMBOLI => DEVONO ESSERE ATTACCATI
ColoreTesto 0
aa(1) = Fuori90(cin(1) + num(i,1) + 2)
aa(2) = Fuori90(cin(2) + num(i,2) + 1)
aa(3) = Fuori90(cin(3) + num(i,3))
Call VerificaEsitoTurbo(aa,ruote,es1,2,Inco,,retesito,retcolpi,retestratti,id)
n1(1) = aa(1)
n2(1) = aa(2)
n3(1) = aa(3)

ReDim avalori(11)
avalori(1) = pos & "°" & " di " & SiglaRuota(r) & " = " & e
avalori(2) = " + " & Format2(CStr(num(i,1))) & " + " & Format2(CStr(num(i,2))) & " + " & Format2(CStr(num(i,3)))
avalori(3) = Format2(num(i,4)) & " su " & casi & " Casi "
avalori(4) = StringaNumeri(aa,,1) 'Format2(aa(1)) & " - " & Format2(aa(2)) & " - " & Format2(aa(3))
avalori(5) = retesito
avalori(6) = Retestratti
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(7) = DataEstrazione(id)
Else
avalori(7) = " In corso "
End If
If retesito = "Ambo" Or retesito = "Terno" Then
avalori(8) = retcolpi & "°"
Else
avalori(8) = Inco & "° in corso "
End If
sf11 = SerieFreqTurbo(fine - inco,fine,n1,ruote,1)
sf12 = SerieFreqTurbo(fine - inco,fine,n2,ruote,1)
sf13 = SerieFreqTurbo(fine - inco,fine,n3,ruote,1)
If sf11 > 0 Then
avalori(9) = n1(1)
Else
avalori(9) = ""
End If
If sf12 > 0 Then
avalori(10) = n2(1)
Else
avalori(10) = ""
End If
If sf13 > 0 Then
avalori(11) = n3(1)
Else
avalori(11) = ""
End If
'End If
Call AddRigaTabella(avalori,,,3)
End If
Call SetColoreCella(2,,1)
Call SetColoreCella(4,,2)
Call SetColoreCella(6,,7)
If avalori(5) = "Ambo" Then Call SetColoreCella(5,2,4)
If avalori(5) = "Terno" Then Call SetColoreCella(5,3,1)
If avalori(7) = DataEstrazione(id) Then Call SetColoreCella(7,,2)
Next
Call SetTableWidth("100%")
Call CreaTabella()


End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 30 gennaio 2025
    Bari
    09
    62
    01
    28
    73
    Cagliari
    50
    33
    43
    10
    29
    Firenze
    04
    63
    56
    34
    90
    Genova
    51
    20
    26
    46
    59
    Milano
    37
    78
    76
    20
    86
    Napoli
    43
    04
    45
    84
    53
    Palermo
    13
    43
    50
    67
    40
    Roma
    29
    12
    84
    71
    79
    Torino
    90
    16
    25
    76
    24
    Venezia
    26
    58
    23
    20
    40
    Nazionale
    74
    07
    54
    15
    36
    Estrazione Simbolotto
    Bari
    38
    22
    35
    26
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto