lottofortune
Advanced Member >PLATINUM<
Buongiorno a tutti.. chiedo se esistono script di matematica sommativa e dove posso trovarli gentilmente...io ho questo di mike58 ma ho notato che prima dell'estrazione mi da dei numeri, dopo che è uscita l'estrazione me ne da altri con tanti risultati.. 
'Option Explicit 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 Su
'Option Explicit 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 Su
