Precursori del 90

[MaurizioCarini]

Buongiorno a tutti ..qualcuno ha uno script per visualizzare i precursori del 90?grazie

 

[toon]

Ti interessa solo la tabella oppure lo script?

 

[ilgobbo60]

prova questo

Option Explicit Sub Main() Call Scrivi() Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01) Call Scrivi() Dim numero(90,03),num(01),ruota(1),nn(01) Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1)) If N = "" Then Exit Sub Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,2)) If R = "" Then Exit Sub Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10)) If ESTR = "" Then Exit Sub Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5)) If TOT = "" Then Exit Sub Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10)) If ER = "" Then Exit Sub Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1)) If Mostra_OUT = "" Then Exit Sub Dim Casi : Casi = 00 Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivio - ESTR : Fin = EstrazioniArchivio : IniS = EstrazioneIni Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es) If Casi < ESTR Then For P = 01 To 05 a = Estratto(Es,R,P) If a = N Then Casi = Casi + 01 Cont = 00 ix = Es - 01 ixx =(ix - ER) + 01 For axx = ixx To ix Call info2(Mostra_OUT,R,axx) Next Call info1(Mostra_OUT,Casi,Es,R,N) Ex = Es - ER + 01 For Ess = Ex To Es - 01 For Pos = 01 To 05 b = Estratto(Ess,R,Pos) nn(01) = b ruota(01) = R Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_) numero(b,01) = b numero(b,02) = numero(b,02) + 01 numero(b,03) = Rit Cont = Cont + 01 Next Next End If Next End If Next Call OrdinaMatriceTurbo(numero,- 01,02) Call Scrivi() If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01) Call Scrivi("NUMERO : " & Format2(N),True,True) Call Scrivi("RUOTA DI RICERCA : " &SiglaRuota(R),True,True) Call Scrivi("CASI ESAMI SPIATONATI : " & Format2(Casi),True,True) Call Scrivi("ESTR.RETROATTIVE : " & Format2(ER),True,True) Call Scrivi() Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True) Call Scrivi() Call Scrivi("NUM. | FREQ. | RIT.",True,True) Call Scrivi() Dim NR,NSTR,Stringa For NR = 01 To TOT Call Scrivi(Format2(numero(NR,01)) & " | " & Format2(numero(NR,02)) & " | " & Format2(numero(NR,03)),True,True) NSTR = Format2(numero(NR,01)) Stringa = Stringa + NSTR If NR < TOT Then Stringa = Stringa + "." Next Call Scrivi() Call Scrivi("Stringa numeri rilevatori: " & Stringa,True,True) End Sub Function info2(mostra_out,r,axx) If mostra_out = 01 Then Call Scrivi(" " & DataEstrazione(axx) & " " & SiglaRuota(r) & " " & _ StringaEstratti(axx,r),True,True,,01) End Function Function info1(mostra_out,casi,es,r,n) If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) _ & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Numero spiato: " & Format2,True,True) End Function

 

[ilgobbo60]

prova questo

Option Explicit Sub Main() Call Scrivi() Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01) Call Scrivi() Dim numero(90,03),num(01),ruota(1),nn(01) Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1)) If N = "" Then Exit Sub Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,2)) If R = "" Then Exit Sub Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10)) If ESTR = "" Then Exit Sub Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5)) If TOT = "" Then Exit Sub Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10)) If ER = "" Then Exit Sub Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1)) If Mostra_OUT = "" Then Exit Sub Dim Casi : Casi = 00 Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivio - ESTR : Fin = EstrazioniArchivio : IniS = EstrazioneIni Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es) If Casi < ESTR Then For P = 01 To 05 a = Estratto(Es,R,P) If a = N Then Casi = Casi + 01 Cont = 00 ix = Es - 01 ixx =(ix - ER) + 01 For axx = ixx To ix Call info2(Mostra_OUT,R,axx) Next Call info1(Mostra_OUT,Casi,Es,R,N) Ex = Es - ER + 01 For Ess = Ex To Es - 01 For Pos = 01 To 05 b = Estratto(Ess,R,Pos) nn(01) = b ruota(01) = R Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_) numero(b,01) = b numero(b,02) = numero(b,02) + 01 numero(b,03) = Rit Cont = Cont + 01 Next Next End If Next End If Next Call OrdinaMatriceTurbo(numero,- 01,02) Call Scrivi() If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01) Call Scrivi("NUMERO : " & Format2(N),True,True) Call Scrivi("RUOTA DI RICERCA : " &SiglaRuota(R),True,True) Call Scrivi("CASI ESAMI SPIATONATI : " & Format2(Casi),True,True) Call Scrivi("ESTR.RETROATTIVE : " & Format2(ER),True,True) Call Scrivi() Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True) Call Scrivi() Call Scrivi("NUM. | FREQ. | RIT.",True,True) Call Scrivi() Dim NR,NSTR,Stringa For NR = 01 To TOT Call Scrivi(Format2(numero(NR,01)) & " | " & Format2(numero(NR,02)) & " | " & Format2(numero(NR,03)),True,True) NSTR = Format2(numero(NR,01)) Stringa = Stringa + NSTR If NR < TOT Then Stringa = Stringa + "." Next Call Scrivi() Call Scrivi("Stringa numeri rilevatori: " & Stringa,True,True) End Sub Function info2(mostra_out,r,axx) If mostra_out = 01 Then Call Scrivi(" " & DataEstrazione(axx) & " " & SiglaRuota(r) & " " & _ StringaEstratti(axx,r),True,True,,01) End Function Function info1(mostra_out,casi,es,r,n) If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) _ & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Numero spiato: " & Format2,True,True) End Function

chiaramente non mio .

 

[claudio8]

Buongiorno a tutti ..qualcuno ha uno script per visualizzare i precursori del 90?grazie

Leggi l'argomeno al link sotto

Per chi ne è in grado

altra correzione riga 35 sostituire Ex = Es - ER + 01 con Ex = Es - ER Se testate lo script con ruota=1 Bari casi=1 esrazioni da esaminare =2 fine range Spaziometria al 7/05/22 numeri da otterrete 5 o 10 o + avrete come miglior precursore il 50 con freq = 2 qindi vi domanderete...

forum.lottoced.com

troverai lo script postato sopra e qualche modifica fatta da me

buona giornata

 

[MaurizioCarini]

prova questo

Option Explicit Sub Main() Call Scrivi() Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01) Call Scrivi() Dim numero(90,03),num(01),ruota(1),nn(01) Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1)) If N = "" Then Exit Sub Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,2)) If R = "" Then Exit Sub Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10)) If ESTR = "" Then Exit Sub Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5)) If TOT = "" Then Exit Sub Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10)) If ER = "" Then Exit Sub Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1)) If Mostra_OUT = "" Then Exit Sub Dim Casi : Casi = 00 Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivio - ESTR : Fin = EstrazioniArchivio : IniS = EstrazioneIni Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es) If Casi < ESTR Then For P = 01 To 05 a = Estratto(Es,R,P) If a = N Then Casi = Casi + 01 Cont = 00 ix = Es - 01 ixx =(ix - ER) + 01 For axx = ixx To ix Call info2(Mostra_OUT,R,axx) Next Call info1(Mostra_OUT,Casi,Es,R,N) Ex = Es - ER + 01 For Ess = Ex To Es - 01 For Pos = 01 To 05 b = Estratto(Ess,R,Pos) nn(01) = b ruota(01) = R Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_) numero(b,01) = b numero(b,02) = numero(b,02) + 01 numero(b,03) = Rit Cont = Cont + 01 Next Next End If Next End If Next Call OrdinaMatriceTurbo(numero,- 01,02) Call Scrivi() If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01) Call Scrivi("NUMERO : " & Format2(N),True,True) Call Scrivi("RUOTA DI RICERCA : " &SiglaRuota(R),True,True) Call Scrivi("CASI ESAMI SPIATONATI : " & Format2(Casi),True,True) Call Scrivi("ESTR.RETROATTIVE : " & Format2(ER),True,True) Call Scrivi() Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True) Call Scrivi() Call Scrivi("NUM. | FREQ. | RIT.",True,True) Call Scrivi() Dim NR,NSTR,Stringa For NR = 01 To TOT Call Scrivi(Format2(numero(NR,01)) & " | " & Format2(numero(NR,02)) & " | " & Format2(numero(NR,03)),True,True) NSTR = Format2(numero(NR,01)) Stringa = Stringa + NSTR If NR < TOT Then Stringa = Stringa + "." Next Call Scrivi() Call Scrivi("Stringa numeri rilevatori: " & Stringa,True,True) End Sub Function info2(mostra_out,r,axx) If mostra_out = 01 Then Call Scrivi(" " & DataEstrazione(axx) & " " & SiglaRuota(r) & " " & _ StringaEstratti(axx,r),True,True,,01) End Function Function info1(mostra_out,casi,es,r,n) If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) _ & " " & SiglaRuota(r) & " " & StringaEstratti(es,r) & " Numero spiato: " & Format2,True,True) End Function

lo script

 

[MaurizioCarini]

potreste rimandarmi lo script esatto di come vedere i precursori del 90? grazie

 

[claudio8]

lo trovi qui ... clicca su script :
script

 

[MaurizioCarini]

E se volessi fare una ricerca sugli ambi spia che precedono il 90 su qualsiasi ruota..è fattibile? Grazie

 

[MaurizioCarini]

E se volessi fare una ricerca sugli ambi spia che precedono il 90 su qualsiasi ruota..è fattibile? Grazie