SCRIPT x ricerca__AdattatoriSommativi & Altro

**Giulio LG** · 21-01-2012, 14:27

lottoguadagnare

**Giulio LG** · 21-01-2012, 14:52

VERSIONE INTEGRALE

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,0)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote    -- GIULIOLG 1 -  ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   Scrivi
   Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nRuogi(1)),1
   Scrivi
   If nRuota <> 12 Then
    Inizio = 8150
   Else
    Inizio = 8150
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(5)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     casi = casi + 1
     Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   Scrivi
   Scrivi "casi... " & casi
   casi = 0
   Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
   Ritardo = 0
   Scrivi
   Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
   Erase rmax
  End If
Next
End Sub

VERSIONE RIDOTTA_RITARDO ATTUALE

codice:

Sub Main
Dim Inizio,Fine
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,0)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
Scrivi
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Rilevamento ",1
If rg > 0 Then Scrivi " Ruote di rilevamento--Ruota di Gioco " & NomeRuota(rg),1
Scrivi
ColoreTesto(0)
ColoreTesto(0)
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   Scrivi"" & NomeRuota(nRuota) & "=" & NomeRuota(nRuogi(1)),1
   If nRuota <> 12 Then
    Inizio = 7440
   Else
    Inizio = 7440
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(5)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   Scrivi "RIT.ATT. al " & DataEstrazione(Fine) & " ... " & Ritardo,1
   Ritardo = 0
   Erase rmax
  End If
Next
End Sub

VERSIONE RIDOTTA_RITARDO STORICO

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,9)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di rilevamento & Ruota di gioco ",1
If rg > 0 Then Scrivi "Ruota di rilevamento & Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi ""
ColoreTesto(0)
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   If nRuota <> 12 Then
    Inizio = 3950
   Else
    Inizio = 7440
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(5)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    If VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi) Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     casi = casi + 1
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
   Erase rmax
  End If
Next
End Sub

**Giulio LG** · 21-01-2012, 15:15

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota,rt,dal
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rt = InputBox("Ruota Ricerca = Ruota di gioco ",,1)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote   -  GIULIOLG 0-   ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = rt To rt
  Messaggio NomeRuota(nRuota)
  Scrivi
  Scrivi"=========================================== ==" & NomeRuota(nRuota),1
  Scrivi
  '''preimposta inizio estrazioni per ruote nate recentemente
  dal = 7455 ' inizio tutte le altre ruote
  If rt = 12 Then dal = 7440 'inizio nazionale
  If rt = 1 Then dal = 174 'inizio bari
  If rt = 2 Then dal = 3649 'inizio cagliari
  If rt = 4 Then dal = 3577 'inizio genova
  Inizio = dal
  Fine = EstrazioneFin
  For idEst = Inizio To Fine
   ReDim aN(5)
   ReDim aRuote(1)
   aRuote(1) = nRuota
   For e = 1 To 5
    aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
   Next
   If VerificaEsito(aN,aRuote,idEst + 1,sorte,vcolpi) Then
    nConsec = nConsec + 1
   Else
    nConsec = 0
   End If
   If nConsec >= Rcons Then
    casi = casi + 1
    Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
    Ritardo = 0
   Else
    Ritardo = Ritardo + 1
   End If
   If Ritardo > rmax(1) Then rmax(1) = Ritardo
  Next
  Scrivi
  Scrivi "casi... " & casi
  casi = 0
  Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
  Ritardo = 0
  Scrivi
  Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
  Erase rmax
Next
End Sub

**Giulio LG** · 21-01-2012, 15:18

VERSIONE INTEGRALE

codice:

Sub Main()
Dim num(4),ruota(1)
' Dim rita(5),rit(5),rmax(1)
Dim b(4)
Dim i,passo
rt = CInt(InputBox("Su che Ruota vuoi effettuare il calcolo?",,1))
rg = CInt(InputBox("VerificaEsiti su Ruota di Gioco ",,2))
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
  rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 11 TUTTE  -  12 per NZ")
End If
If rg > 12 Then
  rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 3950 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
pE = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal)
x = InputBox("Quale adattatore? (1-90)",,90)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If pE = 0 Then
  pE = EstrazioniRicerca
End If
If rt = 11 Then
  daruota = 0
  aruota = 10
Else
  daruota = rt - 1
  aruota = rt
End If
efin = EstrazioneFin
eini = pE + 1
ColoreTesto(2)
Scrivi "---variante (rileva ruote tutte -e verifica 1 ruota gioco----GIULIOLG-3------------------"
Scrivi "Estrazioni elaborate QUARTINE a passo.." & passo & "   dall'estrazione n. " & eini - 1 & "/" & DataEstrazione(eini - 1),1
Scrivi "-----------------------------------------------------------------------------------------"
ColoreTesto(0)
For daruota = daruota + 1 To aruota
  eini = pE + 1
  casivalidi = 0
  ReDim rmax(1)
  ReDim rit(5)
  ReDim rita(5)
  For i = eini To efin
   i = i +(passo - 1)
   ruota(1) = rg
   Messaggio(i) & " Rileva " & NomeRuota(daruota) & "       | verifico risultati " & NomeRuota(ruota(1))
   da = 0
   For p = 1 To 2
    For pp = p + 1 To 3
     For ppp = pp + 1 To 4
      For pppp = ppp + 1 To 5
       da = da + 1
       num(1) = Estratto(i,daruota,p)
       num(2) = Estratto(i,daruota,pp)
       num(3) = Estratto(i,daruota,ppp)
       num(4) = Estratto(i,daruota,pppp)
       b(1) = Format2(Fuori90(num(1) + x))
       b(2) = Format2(Fuori90(num(2) + x))
       b(3) = Format2(Fuori90(num(3) + x))
       b(4) = Format2(Fuori90(num(4) + x))
       rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
       If rit(da) = 1 Then
        casivalidi = casivalidi + 1
        riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & " - " & NomeRuota(rg) & "........"
        riga1 = riga1 & FormatSpace(StringaEstratti(i,daruota),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp & pppp
        riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
        Scrivi riga1
        If rita(da) > rmax(1) Then
         rmax(1) = rita(da)
        End If
        rita(da) = 0
       Else
        rita(da) = rita(da) + 1
       End If
       If i +(passo - 1) = efin Then
        ColoreTesto(2)
        Scrivi,1
        riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & " - " & NomeRuota(rg) & "........"
        riga1 = riga1 & FormatSpace(StringaEstratti(efin,daruota),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp & pppp
        riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
        Scrivi riga1,1
       End If
      Next
     Next
    Next
   Next
  Next
  ColoreTesto(2)
  Scrivi ""
  riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(daruota),10) & ": " & FormatSpace(casivalidi,5)
  Scrivi riga1,1
  riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
  Scrivi riga2,1
  Scrivi "-----------------------------------------------------------------------------------------",1
  Scrivi ""
  Scrivi ""
  Scrivi ""
  ColoreTesto(0)
Next
End Sub

VERSIONE RIDOTTA_RITARDO ATTUALE & STORICO

codice:

Sub Main()
Dim num(4),ruota(1)
' Dim rita(5),rit(5),rmax(1)
Dim b(4)
Dim i,passo
rt = CInt(InputBox("Su che Ruota vuoi effettuare il calcolo?",,12))
rg = CInt(InputBox("VerificaEsiti su Ruota di Gioco ",,12))
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
  rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 11 TUTTE  -  12 per NZ")
End If
If rg > 12 Then
  rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 7000 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
pE = InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal)
x = InputBox("Quale adattatore? (1-90)",,27)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If pE = 0 Then
  pE = EstrazioniRicerca
End If
If rt = 11 Then
  daruota = 0
  aruota = 10
Else
  daruota = rt - 1
  aruota = rt
End If
efin = EstrazioneFin
eini = pE + 1
ColoreTesto(2)
Scrivi "---VARIANTE (rileva ruote tutte & verifica 1 ruota di gioco ( 11 TUTTE )"
Scrivi "Estrazioni elaborate QUARTINE a passo.." & passo & "   dall'estrazione N°" & eini - 1 & "_" & DataEstrazione(eini - 1),1
Scrivi "Ruota di rilevamento--Ruota di gioco"
Scrivi "__________________________________________________________________________________"
ColoreTesto(1)
For daruota = daruota + 1 To aruota
  eini = pE + 1
  casivalidi = 0
  ReDim rmax(1)
  ReDim rit(5)
  ReDim rita(5)
  For i = eini To efin
   i = i +(passo - 1)
   ruota(1) = rg
   Messaggio(i) & " Rileva " & NomeRuota(daruota) & "       | verifico risultati " & NomeRuota(ruota(1))
   da = 0
   For p = 1 To 2
    For pp = p + 1 To 3
     For ppp = pp + 1 To 4
      For pppp = ppp + 1 To 5
       da = da + 1
       num(1) = Estratto(i,daruota,p)
       num(2) = Estratto(i,daruota,pp)
       num(3) = Estratto(i,daruota,ppp)
       num(4) = Estratto(i,daruota,pppp)
       b(1) = Format2(Fuori90(num(1) + x))
       b(2) = Format2(Fuori90(num(2) + x))
       b(3) = Format2(Fuori90(num(3) + x))
       b(4) = Format2(Fuori90(num(4) + x))
       rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
       If rit(da) = 1 Then
        casivalidi = casivalidi + 1
        If rita(da) > rmax(1) Then
         rmax(1) = rita(da)
        End If
        rita(da) = 0
       Else
        rita(da) = rita(da) + 1
       End If
       If i +(passo - 1) = efin Then
        ColoreTesto(1)
        Scrivi,1
        riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(daruota),10) & "" & NomeRuota(rg) & "  "
        riga1 = riga1 & FormatSpace(StringaEstratti(efin,daruota),15) & " <+" & Format2(x) & ">   " & StringaNumeri(b) & "  Pos." & p & pp & ppp & pppp
        riga1 = riga1 & "     RCA " & FormatSpace((rita(da) - 1),5)
        Scrivi riga1,1
       End If
      Next
     Next
    Next
   Next
  Next
  ColoreTesto(2)
  Scrivi "__________________________________________________________________________________"
  Scrivi ""
  riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(daruota),10) & ": " & FormatSpace(casivalidi,5)
  Scrivi riga1,1
  riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
  Scrivi riga2,1
  Scrivi "__________________________________________________________________________________",1
  Scrivi ""
  Scrivi ""
  Scrivi ""
  ColoreTesto(0)
Next
End Sub

**Giulio LG** · 21-01-2012, 15:24

VERSIONE INTEGRALE

codice:

Sub Main()
Dim rit(10),rmax(1),ruota(1)
Dim rita(10)
Dim i,passo,sviluppo
sviluppo = CInt(InputBox("Sviluppo 2=Coppie    3=Terzine  ",,2))
rt = InputBox("Su che Ruota vuoi effettuare il calcolo?",,1)
rg = InputBox("VerificaEsiti su Ruota di Gioco ",,1)
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
  rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
If rg > 12 Then
  rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 3950 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7440 'inizio nazionale
p = CInt(InputBox("Da quando inizia la ricerca? (0 = tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal))
x = InputBox("Quale adattatore? (1-90)",,90)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If p = 0 Then
  p = EstrazioniRicerca
End If
eini = p + 1
efin = EstrazioneFin
ColoreTesto(2)
Scrivi "----------------------------------------------------GIULIOLG-6------------------"
Scrivi "Estrazioni elaborate a passo.." & passo & "   dall'estrazione n. " & eini - 1 & "/" & DataEstrazione(eini - 1)
If sviluppo = 2 Then des = "in COPPIE  "
If sviluppo = 3 Then des = "in TERZINE "
Scrivi des,1
Scrivi "--------------------------------------------------------------------------------"
ColoreTesto(0)
''''sviluppo in coppie  ------------------------------------------------------------------------------------------------------
If sviluppo = 2 Then
  Dim b(2)
  Dim num(2)
  For i = eini To efin
   i = i +(passo - 1)
   Messaggio(i) & " Rileva " & NomeRuota(rt) & "       | verifico risultati " & NomeRuota(ruota(1))
   ruota(1) = rg
   da = 0
   For p = 1 To 4
    For pp = p + 1 To 5
     da = da + 1
     num(1) = Estratto(i,rt,p)
     num(2) = Estratto(i,rt,pp)
     b(1) = Format2(Fuori90(num(1) + x))
     b(2) = Format2(Fuori90(num(2) + x))
     rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
     If rit(da) = 1 Then
      casivalidi = casivalidi + 1
      riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
      riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp
      riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
      Scrivi riga1
      If rita(da) > rmax(1) Then
       rmax(1) = rita(da)
      End If
      rita(da) = 0
     Else
      rita(da) = rita(da) + 1
     End If
     If i +(passo - 1) = efin Then
      Scrivi
      riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
      riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp
      riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
      Scrivi riga1,1
     End If
    Next
   Next
  Next
End If
''''sviluppo in terzine --------------------------------------------------------------------------------------------------------
If sviluppo = 3 Then
  ReDim b(3)
  ReDim num(3)
  For i = eini To efin
   i = i +(passo - 1)
   Messaggio(i) & " Rileva " & NomeRuota(rt) & "       | verifico risultati " & NomeRuota(ruota(1))
   ruota(1) = rg
   da = 0
   For p = 1 To 3
    For pp = p + 1 To 4
     For ppp = pp + 1 To 5
      da = da + 1
      num(1) = Estratto(i,rt,p)
      num(2) = Estratto(i,rt,pp)
      num(3) = Estratto(i,rt,ppp)
      b(1) = Format2(Fuori90(num(1) + x))
      b(2) = Format2(Fuori90(num(2) + x))
      b(3) = Format2(Fuori90(num(3) + x))
      rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
      If rit(da) = 1 Then
       casivalidi = casivalidi + 1
       riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
       riga1 = riga1 & FormatSpace(StringaEstratti(i,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos..." & p & pp & ppp
       riga1 = riga1 & " Rit. " & FormatSpace(rita(da),5)
       Scrivi riga1
       If rita(da) > rmax(1) Then
        rmax(1) = rita(da)
       End If
       rita(da) = 0
      Else
       rita(da) = rita(da) + 1
      End If
      If i +(passo - 1) = efin Then
       Scrivi
       riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & " - " & NomeRuota(rg) & "........"
       riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & " +Adattatore " & Format2(x) & "> " & StringaNumeri(b) & "...pos... " & p & pp & ppp
       riga1 = riga1 & " Rit. ATT. " & FormatSpace((rita(da) - 1),5)
       Scrivi riga1,1
      End If
     Next
    Next
   Next
  Next
End If
ColoreTesto(1)
Scrivi ""
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
ColoreTesto(0)
End Sub

VERSIONE RIDOTTA_RITARDO ATTUALE & STORICO

codice:

Sub Main()
Dim rit(10),rmax(1),ruota(1)
Dim rita(10)
Dim i,passo,sviluppo
sviluppo = CInt(InputBox("Sviluppo 2=Coppie    3=Terzine  ",,2))
rt = InputBox("Su che Ruota vuoi effettuare il calcolo?",,1)
rg = InputBox("VerificaEsiti su Ruota di Gioco ",,1)
passo = CInt(InputBox("Passo tra le estrazioni..",,1))
If rt > 12 Then
  rt = InputBox("La ricerca si effettua su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
If rg > 12 Then
  rg = InputBox("Le verifiche le effettuo su ruota fissa (valore da 1 a 10) - 12 per NZ")
End If
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 7500 ' inizio tutte le altre ruote
If rt = 12 Or rg = 12 Then dal = 7500 'inizio nazionale
p = CInt(InputBox("Da quando inizia la ricerca? (1=tutto l'archivio/3950 dal 1946/7440 = per Ruota NZ",,dal))
x = InputBox("Quale adattatore? (1-90)",,1)
s = InputBox("Per che sorte? (1=Ambata - 2=Ambo - 3=Terno)",,2)
If p = 0 Then
  p = EstrazioniRicerca
End If
eini = p + 1
efin = EstrazioneFin
ColoreTesto(2)
Scrivi ""
Scrivi "RipetizioneAcolpo PASSO" & passo & "__Dall'estrazione N°" & eini - 1 & "_" & DataEstrazione(eini - 1)
If sviluppo = 2 Then des = "COPPIE__Ruota di rilevamento & Ruota di gioco ( 11TUTTE ) "
If sviluppo = 3 Then des = "TERZINE__Ruota di rilevamento & Ruota di gioco ( 11TUTTE ) "
Scrivi des,1
Scrivi "----------------------------------------------------------------------------"
ColoreTesto(1)
''''sviluppo in coppie  ------------------------------------------------------------------------------------------------------
If sviluppo = 2 Then
  Dim b(2)
  Dim num(2)
  For i = eini To efin
   i = i +(passo - 1)
   Messaggio(i) & " Rileva " & NomeRuota(rt) & "       | verifico risultati " & NomeRuota(ruota(1))
   ruota(1) = rg
   da = 0
   For p = 1 To 4
    For pp = p + 1 To 5
     da = da + 1
     num(1) = Estratto(i,rt,p)
     num(2) = Estratto(i,rt,pp)
     b(1) = Format2(Fuori90(num(1) + x))
     b(2) = Format2(Fuori90(num(2) + x))
     rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
     If rit(da) = 1 Then
      casivalidi = casivalidi + 1
      If rita(da) > rmax(1) Then
       rmax(1) = rita(da)
      End If
      rita(da) = 0
     Else
      rita(da) = rita(da) + 1
     End If
     If i +(passo - 1) = efin Then
      Scrivi
      riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & "" & NomeRuota(rg) & "   "
      riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & "  < +" & Format2(x) & " >   " & StringaNumeri(b) & "    Pos." & p & pp
      riga1 = riga1 & "       RCA " & FormatSpace((rita(da) - 1),5)
      Scrivi riga1,1
     End If
    Next
   Next
  Next
End If
''''sviluppo in terzine --------------------------------------------------------------------------------------------------------
If sviluppo = 3 Then
  ReDim b(3)
  ReDim num(3)
  For i = eini To efin
   i = i +(passo - 1)
   Messaggio(i) & " Rileva " & NomeRuota(rt) & "       | verifico risultati " & NomeRuota(ruota(1))
   ruota(1) = rg
   da = 0
   For p = 1 To 3
    For pp = p + 1 To 4
     For ppp = pp + 1 To 5
      da = da + 1
      num(1) = Estratto(i,rt,p)
      num(2) = Estratto(i,rt,pp)
      num(3) = Estratto(i,rt,ppp)
      b(1) = Format2(Fuori90(num(1) + x))
      b(2) = Format2(Fuori90(num(2) + x))
      b(3) = Format2(Fuori90(num(3) + x))
      rit(da) = SeriePrima(i + 1,efin,b,ruota,s) - i
      If rit(da) = 1 Then
       casivalidi = casivalidi + 1
       If rita(da) > rmax(1) Then
        rmax(1) = rita(da)
       End If
       rita(da) = 0
      Else
       rita(da) = rita(da) + 1
      End If
      If i +(passo - 1) = efin Then
       Scrivi
       riga1 = i & " " & FormatSpace(DataEstrazione(i),12) & FormatSpace(NomeRuota(rt),10) & "" & NomeRuota(rg) & "   "
       riga1 = riga1 & FormatSpace(StringaEstratti(efin,rt),15) & "  <+" & Format2(x) & ">   " & StringaNumeri(b) & "   pos." & p & pp & ppp
       riga1 = riga1 & "      RCA " & FormatSpace((rita(da) - 1),5)
       Scrivi riga1,1
      End If
     Next
    Next
   Next
  Next
End If
ColoreTesto(2)
Scrivi
Scrivi "============================================================================="
riga1 = "Casi riscontrati sulla ruota di: " & FormatSpace(NomeRuota(rt),10) & ": " & FormatSpace(casivalidi,5)
Scrivi riga1,1
riga2 = "Rit. max per la sorte scelta su: " & FormatSpace(NomeRuota(rg),10) & ": " & FormatSpace(rmax(1),5)
Scrivi riga2,1
Scrivi "============================================================================="
ColoreTesto(0)
End Sub

**Giulio LG** · 27-02-2012, 13:55

VERSIONE INTEGRALE

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,11)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
  nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote    -- GIULIOLG 1 -  ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
  Messaggio NomeRuota(nRuota)
  Scrivi
  If rg < 11 Then Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nruogi(1)),1
  If rg = 11 Then Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & "  T U T T E ",1
  Scrivi
  If nRuota <> 12 Then
   Inizio = 8200
  Else
   Inizio = 8200
  End If
  Fine = EstrazioneFin
  For idEst = Inizio To Fine
   ReDim aN(5)
   ReDim nruogi(10)
   If nRuota <> 11 Then
    If rg > 0 And rg < 11 Then
     nruogi(1) = nRuota
    Else
     ReDim nruogi(10)
     For j = 1 To 10
      nruogi(j) = j
     Next
    End If
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
   End If
   If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
    nConsec = nConsec + 1
   Else
    nConsec = 0
   End If
   If nConsec >= Rcons Then
    casi = casi + 1
    Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & Ritardo
    Ritardo = 0
   Else
    Ritardo = Ritardo + 1
   End If
   If Ritardo > rmax(1) Then rmax(1) = Ritardo
  Next
  Scrivi
  Scrivi "casi... " & casi
  casi = 0
  Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
  Ritardo = 0
  Scrivi
  Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
  Erase rmax
Next
End Sub

VERSIONE RIDOTTA__RITARDO ATTUALE

codice:

Sub Main
Dim Inizio,Fine
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,11)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
  nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruote di Rilevamento--Ruota di Gioco TUTTE ",1
ColoreTesto(0)
Scrivi
ColoreTesto(0)
For nRuota = 1 To 12
  Messaggio NomeRuota(nRuota)
  If rg < 11 Then Scrivi"" & NomeRuota(nRuota) & " / " & NomeRuota(nruogi(1)),1
  If rg = 11 Then Scrivi"" & NomeRuota(nRuota) & "=" & "TT ",1
  If nRuota <> 12 Then
   Inizio = 7455
  Else
   Inizio = 7455
  End If
  Fine = EstrazioneFin
  For idEst = Inizio To Fine
   ReDim aN(5)
   ReDim nruogi(10)
   If nRuota <> 11 Then
    If rg > 0 And rg < 11 Then
     nruogi(1) = nRuota
    Else
     ReDim nruogi(10)
     For j = 1 To 10
      nruogi(j) = j
     Next
    End If
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
   End If
   If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
    nConsec = nConsec + 1
   Else
    nConsec = 0
   End If
   If nConsec >= Rcons Then
    Ritardo = 0
   Else
    Ritardo = Ritardo + 1
   End If
   If Ritardo > rmax(1) Then rmax(1) = Ritardo
  Next
  Scrivi "------------ Rit.ATT. al " & DataEstrazione(Fine) & " ... " & Ritardo,1
  Ritardo = 0
  Erase rmax
Next
End Sub

VERSIONE RIDOTTA_RITARDO STORICO

codice:

Sub Main
Dim Inizio,Fine
Dim nRuota
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,11)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore ",,1))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
ReDim nruogi(1)
If rg > 0 And rg < 11 Then
  nruogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " (" & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruote di rilevamento__Ruota di Gioco " & NomeRuota(rg),1
ColoreTesto(0)
Scrivi "",1
ColoreTesto(0)
For nRuota = 1 To 12
  Messaggio NomeRuota(nRuota)
  If nRuota <> 12 Then
   Inizio = 8200
  Else
   Inizio = 8200
  End If
  Fine = EstrazioneFin
  For idEst = Inizio To Fine
   ReDim aN(5)
   ReDim nruogi(10)
   If nRuota <> 11 Then
    If rg > 0 And rg < 11 Then
     nruogi(1) = nRuota
    Else
     ReDim nruogi(10)
     For j = 1 To 10
      nruogi(j) = j
     Next
    End If
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
   End If
   If VerificaEsito(aN,nruogi,idEst + 1,sorte,vcolpi) Then
    nConsec = nConsec + 1
   Else
    nConsec = 0
   End If
   If nConsec >= Rcons Then
    Ritardo = 0
   Else
    Ritardo = Ritardo + 1
   End If
   If Ritardo > rmax(1) Then rmax(1) = Ritardo
  Next
  Ritardo = 0
  Scrivi " MAX STORICO DAL " & DataEstrazione(Inizio) & "    " & rmax(1),1
  Erase rmax
Next
End Sub

**Giulio LG** · 03-03-2012, 14:50

codice:

Sub Main()
Dim num(5),rit(10,90),ruota(1)
Dim rita
Dim b(5)
rt = InputBox("Rilevamento RUOTA 1-10  (11 Tutte) (12 Nz)  ?",,1)
gt = InputBox("Gioca RUOTA 1-10  (11 Tutte) (12 Nz)  ",,2)
q = InputBox("Inizio ricerca Estrazione n.",,8503)
s = 2
eini = q
efin = EstrazioneFin
If rt <= 10 Then
  ruota(1) = gt
  rda = rt - 1
  ra = rt
Else
  rda = 0
  ra = 12
End If
''''solo nazionale
If rt = 12 Then
  rda = 11
  ra = 12
End If
ColoreTesto(2)
Scrivi "----------------------------------------------------GIULIOLG-10------------------",1
Scrivi "Dall'estrazione n. " & q & "/" & DataEstrazione(q),1
Scrivi "Ruota di Rilevamento.." & rt & " " & NomeRuota(rt),1
Scrivi "Ruota di Gioco........" & gt & " " & NomeRuota(gt),1
ColoreTesto(0)
If rt < 13 And gt <> 11 Then
  For rda = rda + 1 To ra
   For i = eini To efin
    Messaggio(i)
    ruota(1) = gt
    da = 0
    For p = 1 To 4
     For pp = p + 1 To 5
      da = da + 1
      If rda <> 11 Then
       num(1) = Estratto(i,rda,p)
       num(2) = Estratto(i,rda,pp)
       For x = 1 To 90
        b(1) = Fuori90(num(1) + x)
        b(2) = Fuori90(num(2) + x)
        rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
        If rit(da,x) = 1 Then
         riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
         riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rda) & " " & SiglaRuota(gt)
         riga1 = riga1 & "__ " & StringaEstratti(i,rda) & "__" & StringaEstratti(i + 1,rda) & _
         "  sortito ADATTATORE  " & Format2(x) & " in " & p & "-" & pp & " pos."
         Scrivi riga1
        End If
       Next
      End If
     Next
    Next
   Next
  Next
End If
''''''----------------------------------------------------------------------------------------------------------------------------
''''''loop x 1 ruota di gioco 2 11 di rilevamento
If gt = 11 And rt < 11 Then
  rda = rt - 1
  ra = rt
  ruota(1) = rt
  For rda = rda + 1 To ra
   For i = eini To efin
    Messaggio(i)
    ruota(1) = gt
    da = 0
    For p = 1 To 4
     For pp = p + 1 To 5
      da = da + 1
      If rda <> 11 Then
       num(1) = Estratto(i,rda,p)
       num(2) = Estratto(i,rda,pp)
       For x = 1 To 90
        b(1) = Fuori90(num(1) + x)
        b(2) = Fuori90(num(2) + x)
        rit(da,x) = SeriePrima(i + 1,efin,b,ruota,s) - i
        If rit(da,x) = 1 Then
         riga1 = FormatSpace(i,4) & "/" & FormatSpace(IndiceAnnuale(i),4)
         riga1 = riga1 & "__" & FormatSpace(DataEstrazione(i),12) & "__ " & SiglaRuota(rda) & " " & SiglaRuota(gt)
         riga1 = riga1 & "__ " & StringaEstratti(i,rda) & "__" & StringaEstratti(i + 1,rda) & _
         "  sortito ADATTATORE  " & Format2(x) & " in " & p & "-" & pp & " pos."
         Scrivi riga1
        End If
       Next
      End If
     Next
    Next
   Next
  Next
End If
End Sub

**Giulio LG** · 08-03-2012, 14:05

VERSIONE INTEGRALE

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,0)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 10 ruote    -- GIULIOLG 1 -  ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
ColoreTesto(0)
Scrivi "__________________________________Adattatori Giulio LG____",1
ColoreTesto(0)
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   Scrivi
   Scrivi"=========================================== ==" & NomeRuota(nRuota) & " / " & NomeRuota(nRuogi(1)),1
   Scrivi
   If nRuota <> 12 Then
    Inizio = 8400
   Else
    Inizio = 8400
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(6)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    CLR = PiuRitardatario(idEst,nRuota)
    aN(6) = CLR
    V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
    If V Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     casi = casi + 1
     Scrivi FormatSpace(casi,4) & " ... " & DataEstrazione(idEst + 1) & " ... " & FormatSpace(Ritardo,4,1),0,0
     ColoreTesto 2
     Scrivi "    C.L.Rit. " & Format2(aN(6)),1,0
     ColoreTesto 0
     Scrivi "  " & StringaEstratti(idEst,nRuota) & "   +" & nAdatt & "   " & StringaEstratti(idEst + 1,nRuota) & "  ",0,0
     Pos = Posizione(idEst + 1,nRuota,CLR)
     If POs > 0 Then
      ColoreTesto 2
      Scrivi " <<< " & Pos & "°"
      ColoreTesto 0
     Else
      Scrivi""
     End If
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   Scrivi
   'Scrivi "casi... " & casi
   casi = 0
   Scrivi "rit. ATTUALE al " & DataEstrazione(Fine) & " ... " & Ritardo,1
   Ritardo = 0
   Scrivi
   Scrivi "max storico dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
   Erase rmax
  End If
  ColoreTesto 2
  Scrivi
  Scrivi Format2(aN(6)),1,0
  ColoreTesto 0
  Scrivi ".",0,0
  For e = 1 To 5
   aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
   Scrivi Format2(aN(e)),1,0
   If e < 5 Then Scrivi ".",1,0
  Next
  Scrivi
Next
End Sub

VERSIONE RIDOTTA_RITARDO ATTUALE

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,0)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
ColoreTesto(0)
Scrivi
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   If nRuota <> 12 Then
    Inizio = 8490
   Else
    Inizio = 8490
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(6)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    CLR = PiuRitardatario(idEst,nRuota)
    aN(6) = CLR
    V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
    If V Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     casi = casi + 1
     ColoreTesto 0
     Pos = Posizione(idEst + 1,nRuota,CLR)
     If POs > 0 Then
      ColoreTesto 2
      ColoreTesto 0
     Else
     End If
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   'Scrivi "casi... " & casi
   casi = 0
   Scrivi "RCA al " & DataEstrazione(Fine) & " ... " & Ritardo,1
   Ritardo = 0
   Erase rmax
  End If
  ColoreTesto 2
  Scrivi Format2(aN(6)),1,0
  ColoreTesto 0
  Scrivi ".",0,0
  For e = 1 To 5
   aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
   Scrivi Format2(aN(e)),1,0
   If e < 5 Then Scrivi ".",1,0
  Next
  Scrivi
Next
End Sub

VERSIONE RIDOTTA_RITARDO STORICO

codice:

Sub Main
Dim Inizio,Fine
Dim casi
Dim nRuota
Dim nRuogi(1)
Dim idEst,e
Dim nAdatt,vcolpi,sorte
Dim nConsec,Rcons
Dim Ritardo
Dim rmax(1)
rg = InputBox("Ruota di Gioco  (0 x Esclusione)  ",,0)
sorte = CInt(InputBox(" 1=Estratto   2=Ambo  3=Terno ",,2))
nAdatt = CInt(InputBox("Adattatore Positivo",,90))
Rcons = CInt(InputBox("Richiesta Consecutività ",,1))
vcolpi = CInt(InputBox("Verifica colpi n.",,1))
If rg > 0 Then
  nRuogi(1) = Int(rg)
End If
ColoreTesto(1)
Scrivi " Elaborazione Adattatori sulle 11 ruote      ",1
Scrivi " Adattatore scelto " & "( " & nAdatt & " )",1
Scrivi " Sorte scelta 1=Estratto  2=Ambo  3=Terno  " & "( " & sorte & " )",1
Scrivi " Consecutività scelta " & "( " & Rcons & " )",1
Scrivi " Verifica colpi n." & " ( " & vcolpi & " )",1
ColoreTesto(2)
If rg = 0 Then Scrivi " Ruota di Gioco uguale alla Ruota di Elaborazione ",1
If rg > 0 Then Scrivi " Ruota di Gioco " & NomeRuota(rg)
Scrivi
For nRuota = 1 To 12
  If nRuota <> 11 Then
   If rg = 0 Then
    nRuogi(1) = nRuota
   End If
   Messaggio NomeRuota(nRuota)
   If nRuota <> 12 Then
    Inizio = 8300
   Else
    Inizio = 8300
   End If
   Fine = EstrazioneFin
   For idEst = Inizio To Fine
    ReDim aN(6)
    ReDim aRuote(1)
    aRuote(1) = nRuota
    For e = 1 To 5
     aN(e) = Fuori90(Estratto(idEst,nRuota,e) + nAdatt)
    Next
    CLR = PiuRitardatario(idEst,nRuota)
    aN(6) = CLR
    V = VerificaEsito(aN,nRuogi,idEst + 1,sorte,vcolpi)
    If V Then
     nConsec = nConsec + 1
    Else
     nConsec = 0
    End If
    If nConsec >= Rcons Then
     casi = casi + 1
     ColoreTesto 2
     ColoreTesto 0
     Pos = Posizione(idEst + 1,nRuota,CLR)
     If POs > 0 Then
      ColoreTesto 2
      ColoreTesto 0
     Else
     End If
     Ritardo = 0
    Else
     Ritardo = Ritardo + 1
    End If
    If Ritardo > rmax(1) Then rmax(1) = Ritardo
   Next
   'Scrivi "casi... " & casi
   casi = 0
   Ritardo = 0
   Scrivi "MAX STORICO dal " & DataEstrazione(Inizio) & " ... " & rmax(1),1
   Erase rmax
  End If
  ColoreTesto 2
  Scrivi Format2(aN(6)),1,0
  ColoreTesto 0
  Scrivi ".",0,0
  For e = 1 To 5
   aN(e) = Fuori90(Estratto(Fine,nRuota,e) + nAdatt)
   Scrivi Format2(aN(e)),1,0
   If e < 5 Then Scrivi ".",1,0
  Next
  Scrivi
Next
End Sub

**Giulio LG** · 11-04-2012, 15:48

codice:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte
Dim x
qt = InputBox("quanti numeri",,3)
sorte = InputBox("Quale sorte verificare ",,1)
nStart = Timer ' partenza tempo di elaborazione
ScegliNumeri(num)
For x = 1 To qt
  numero(x) = num(x)
  Call Messaggio("script by Mike58   ---> elaboro N. " & num(x))
Next
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & "   ",1,0,6
Scrivi"  Per sorte..." & "   " & NomeSorte(sorte),1,- 1,3
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " totali ESTRAZ. " & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
atitoli(1) = "   Ruota   "
atitoli(2) = "   Combinazione    "
atitoli(3) = " RD1 "
atitoli(4) = " RD2 "
atitoli(5) = " RD3 "
atitoli(6) = " RD4 "
atitoli(7) = " RD5 "
atitoli(8) = "        RCA        "
atitoli(9) = "     RS     "
atitoli(10) = " IncrRitMax "
atitoli(11) = "  Freq "
atitoli(12) = "   - esito -   "
atitoli(13) = "   - stringa Esito-   "
atitoli(14) = "  UltimaEstrazione  "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,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,incr,freq,Ini,fine)
  Call VerificaEsito(num,ruota,fin,sorte,1,,retesito,retcolpi,retestratti)
  '----- calcolo valori in tabella --------------
  ReDim avalori(19)
  avalori(1) = NomeRuota(r)
  avalori(2) = StringaNumeri(num)
  ReDim pos(5)
  pos(1) = True
  RD1 = RitardoCombinazione(ruota,num,1,0,pos)
  avalori(3) = RD1
  ReDim pos(5)
  pos(2) = True
  RD2 = RitardoCombinazione(ruota,num,1,0,pos)
  avalori(4) = RD2
  ReDim pos(5)
  pos(3) = True
  RD3 = RitardoCombinazione(ruota,num,1,0,pos)
  avalori(5) = RD3
  ReDim pos(5)
  pos(4) = True
  RD4 = RitardoCombinazione(ruota,num,1,0,pos)
  avalori(6) = RD4
  ReDim pos(5)
  pos(5) = True
  RD5 = RitardoCombinazione(ruota,num,1,0,pos)
  avalori(7) = RD5
  avalori(8) = rit
  avalori(9) = ritmax
  avalori(10) = Incr
  avalori(11) = freq
  avalori(12) = retesito
  avalori(13) = retestratti
  avalori(14) = StringaEstratti(fin,r)
  ReDim aretritardi(0)
  ReDim aretidestr(0)
  Call ElencoRitardi(num,ruota,sorte,Ini,fin,aretritardi,aretidestr)
  last1 = UBound(aretritardi) - 1
  For x = last1 To UBound(aretritardi) - 1
   avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
  Next
  last2 = UBound(aretritardi) - 2
  For xx = last2 To UBound(aretritardi) - 2
   avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
  Next
  last3 = UBound(aretritardi) - 3
  For xxx = last3 To UBound(aretritardi) - 3
   avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
  Next
  last4 = UBound(aretritardi) - 4
  For xxxx = last4 To UBound(aretritardi) - 4
   avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
  Next
  last5 = UBound(aretritardi) - 5
  For xxxxx = last5 To UBound(aretritardi) - 5
   avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
  Next
  Call AddRigaTabella(avalori)
Next
Call CreaTabella()
Scrivi " Script By Mike58 ",1,- 1,6
nend = Timer
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

Può succedere che lo SCRIPT non gira,in questo caso
ScalareCancellare da last5 a last4_3_2_1_0

codice:

last1 = UBound(aretritardi) - 1
  For x = last1 To UBound(aretritardi) - 1
   avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
  Next
  last2 = UBound(aretritardi) - 2
  For xx = last2 To UBound(aretritardi) - 2
   avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
  Next
  last3 = UBound(aretritardi) - 3
  For xxx = last3 To UBound(aretritardi) - 3
   avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
  Next
  last4 = UBound(aretritardi) - 4
  For xxxx = last4 To UBound(aretritardi) - 4
   avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
  Next
  last5 = UBound(aretritardi) - 5
  For xxxxx = last5 To UBound(aretritardi) - 5
   avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
  Next
  Call AddRigaTabella(avalori)
Next

codice:

Sub Main()
Dim num(10),numero(10),ruota(1),sorte
'Dim xY
'qt = InputBox("quanti numeri",,3)
sorte = CInt(InputBox("Quale sorte verificare ",,1))
nStart = Timer ' partenza tempo di elaborazione
ScegliNumeri(num)
'For xY = 1 To qt
'numero(xY) = num(xY)
'Call Messaggio("script by Mike58 ---> elaboro N. " & num(x))
'Next
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi"Statistica Veloce su combinazione di Numeri scelti" & " ",1,0,6
Scrivi" " & StringaNumeri(num) & " ",1,0,2
Scrivi" Per sorte..." & " " & NomeSorte(sorte) & " ",1,- 1,3
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " - Estrazioni Totali " & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(19)
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) = " Estratti ultimi "
atitoli(15) = " RP1 "
atitoli(16) = " RP2 "
atitoli(17) = " RP3 "
atitoli(18) = " RP4 "
atitoli(19) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,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,sorte,1,,retesito,retcolpi,retestratti)
  '----- calcolo valori in tabella --------------
  ReDim avalori(19)
  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
  avalori(14) = StringaEstratti(fin,r)
  ReDim aretritardi(0)
  ReDim aretidestr(0)
  Call ElencoRitardi(num,ruota,sorte,Ini,fin,aretritardi,aretidestr)
  last1 = UBound(aretritardi) - 1
  For x = last1 To UBound(aretritardi) - 1
   avalori(15) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
  Next
  last2 = UBound(aretritardi) - 2
  For xx = last2 To UBound(aretritardi) - 2
   avalori(16) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
  Next
  last3 = UBound(aretritardi) - 3
  For xxx = last3 To UBound(aretritardi) - 3
   avalori(17) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
  Next
  last4 = UBound(aretritardi) - 4
  For xxxx = last4 To UBound(aretritardi) - 4
   avalori(18) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
  Next
  last5 = UBound(aretritardi) - 5
  For xxxxx = last5 To UBound(aretritardi) - 5
   avalori(19) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
  Next
  Call AddRigaTabella(avalori)
Next
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

**Mike58** · 11-04-2012, 16:27

Ciao Giulio, ti rispondo nella tua area e nel tuo spazio ma, il tutto è ancora più semplice.
queste righe identificano il ciclo for next delle ruote

for r = 1 to 10 ' scrive tutte le 10 ruote
for r = 1 to 11' scrive le 10 ruote+ruota tutte.
for r = 1 to 12 ' scrive le 10 ruote + ruota naz+ ruota Tutte

For r = 1 To 12
If r = 11 Then r = 12
' scrive le 11 ruote esclusa la ruota Tutte

a te il compito di spiegare il perchè in casi estremi lo script può dare errore...
E sempre meglio non far agire persone che capiscono poco di codici vbscript in parti apprpfondite.

Spero di esserti stato di aiuto.

Ciao.

Discussione: SCRIPT x ricerca__AdattatoriSommativi & Altro

LinkBack

Strumenti discussione

Ricerca discussione

Visualizza