Per Mike58

Missione Impossibile. · 17 Gennaio 2024

Quando hai tempo e con calma,potresti dare un occhiata al nuovo FUTURO3? Grazie

Mike58 · 18 Gennaio 2024

Ciao a Tutti, purtroppo io non sarò disponibile per Un po di tempo.
Sono in ricovero ospedaliero per cure varie.
Spero presto di essere attivo con voi tutti.

Missione Impossibile. · 18 Gennaio 2024

Mike58 ha scritto:
Ciao a Tutti, purtroppo io non sarò disponibile per Un po di tempo.
Sono in ricovero ospedaliero per cure varie.
Spero presto di essere attivo con voi tutti.

Ti auguro una pronta guarigione, Mike58 la salute in primis,ti aspettiamo con affetto Mission.

Marcorun · 18 Gennaio 2024

Mi intrometto.....
certissimo di non essere Mike58,ho provato a modificare Futuro2 inserendo le cadenze al posto delle decine , come mi sembra di avere capito che debba essere.....cambiando solo una stringa,quindi,penso che non sarà giusto.
Ti metto il codice ,semmai provalo......

Codice:

Sub Main()
   Scrivi " FUTURO 2 in decina  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   'ee = InputBox("Estrazioni da controllare",,200)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8710'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(sp) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
              
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Marcorun · 18 Gennaio 2024

Scusandomi per stropicciare i bellissimi lavori di Mike58,mi unisco a Mission nell'augurare a Mike58 una pronta guarigione!

Missione Impossibile. · 18 Gennaio 2024

Marcorun ha scritto:

Mi intrometto.....
certissimo di non essere Mike58,ho provato a modificare Futuro2 inserendo le cadenze al posto delle decine , come mi sembra di avere capito che debba essere.....cambiando solo una stringa,quindi,penso che non sarà giusto.
Ti metto il codice ,semmai provalo......

Codice:

Sub Main()
   Scrivi " FUTURO 2 in decina  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   'ee = InputBox("Estrazioni da controllare",,200)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8710'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(sp) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
             
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Ringrazio Marcorun, per la modifica di Futuro2,ora non sono a casa,ma se riesci anche in coppie di figure.Poi ci darò un occhiata al mio rientro. Ben vengano le persone che daranno una mano al prossimo.Grazie.Auguri per Mike58 Grande e altruista per tutti noi

lottoLuke · 18 Gennaio 2024

buonasera , mike forza ti aspettiamo
buona guarigione.

micro__ · 18 Gennaio 2024

Mike58...a presto qui...

salutiì!

Marcorun · 18 Gennaio 2024

Mission inpossible ha scritto:
Ringrazio Marcorun, per la modifica di Futuro2,ora non sono a casa,ma se riesci anche in coppie di figure.Poi ci darò un occhiata al mio rientro. Ben vengano le persone che daranno una mano al prossimo.Grazie.Auguri per Mike58 Grande e altruista per tutti noi

Ci provo ma sono alle prime armi con gli script....BOH!

Codice:

Sub Main()
   Scrivi " FUTURO 3 in figura  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   'ee = InputBox("Estrazioni da controllare",,200)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8710'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Figura(x) = Figura(y) And Figura(x) = Figura(sp) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
              
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in figura spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

*blacklotto* · 18 Gennaio 2024

Mike58 ha scritto:
Ciao a Tutti, purtroppo io non sarò disponibile per Un po di tempo.
Sono in ricovero ospedaliero per cure varie.
Spero presto di essere attivo con voi tutti.

Ciao Mike58,

riprenditi presto

Un caro saluto

Marcorun · 18 Gennaio 2024

Codice:

Sub Main()
   Scrivi " FUTURO 3 in cadenza  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   'ee = InputBox("Estrazioni da controllare",,200)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8710'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(sp) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
              
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Mat · 18 Gennaio 2024

Mike58 ha scritto:
Ciao a Tutti, purtroppo io non sarò disponibile per Un po di tempo.
Sono in ricovero ospedaliero per cure varie.
Spero presto di essere attivo con voi tutti.

Ciao Mike,
spero e ti auguro di rileggerti presto con la solita efficienza, un abbraccio,
Matteo

Missione Impossibile. · 18 Gennaio 2024

Marcorun ha scritto:

Mi intrometto.....
certissimo di non essere Mike58,ho provato a modificare Futuro2 inserendo le cadenze al posto delle decine , come mi sembra di avere capito che debba essere.....cambiando solo una stringa,quindi,penso che non sarà giusto.
Ti metto il codice ,semmai provalo......

Codice:

Sub Main()
   Scrivi " FUTURO 2 in decina  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   'ee = InputBox("Estrazioni da controllare",,200)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8710'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(sp) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
             
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Marcorun, ottimo lavoro.ma una pecca.
Se io scelgo il numero 27 non mi deve dare la cadenza 7, ma a scelta mia cadenza 1 dopo il 27,cadenza 2 dopo il 27 e cosi via fino alla fine della cadenza. e poi fai una verifica dal (8790) del 2/1/2014. Cosi anche per le figure.

Missione Impossibile. · 18 Gennaio 2024

Mission inpossible ha scritto:
Marcorun, ottimo lavoro.ma una pecca.
Se io scelgo il numero 27 non mi deve dare la cadenza 7, ma a scelta mia cadenza 1 dopo il 27,cadenza 2 dopo il 27 e cosi via fino alla fine della cadenza. e poi fai una verifica dal (8790) del 2/1/2014. Cosi anche per le figure.

Per farti un esempio; scelgo la cad.1 con la spia 27 pero' la cadenza come le figure le scelgo io.
Cadenza 1 = 01-11-21-31-41-51-61-71-81 (Spia 27)
Cadenza 2 = 02-12-22-32-42-52-62-72-82 (spia 27) e cosi via fino alla cad. (Zero
Cadenza 3 = 03-13-23-33-43-53-63-73-83
Cadenza 4 = 04-14-24-34-44-54-64-74-84
Cadenza 5 = 05-15-25-35-45-55-65-75-85
Cadenza 6 = 06-16-26-36-46-56-66-76-86
Cadenza 7 = 07-17-27-37-47-57-67-77-87
Cadenza 8 = 08-18-28-38-48-58-68-78-88
Cadenza 9 = 09-19-29-39-49-59-69-79-89
Cadenza 0 = 10-20-30-40-50-60-70-80-90
Figura 1 = 1-10-19-28-37-46-55-64-73-82 ( spia27).....
Figura 2 = 2-11-20-29-38-47-56-65-74-83
Figura 3 = 3-12-21-30-39-48-57-66-75-84
Figura 4 = 4-13-22-31-40-49-58-67-76-85
Figura 5 = 5-14-23-32-41-50-59-68-77-86
Figura 6 = 6-15-24-33-42-51-60-69-78-87
Figura 7 = 7-16-25-34-43-52-61-70-79-88
Figura 8 = 8-17-26-35-44-53-62-71-80-89
Figura 9 = 9-18-27-36-45-54-63-72-81-90
Grazie

Marcorun · 18 Gennaio 2024

Provo a ragionarci.........ma non sono MIKE.....

Marcorun · 18 Gennaio 2024

Mission inpossible ha scritto:
Per farti un esempio; scelgo la cad.1 con la spia 27 pero' la cadenza come le figure le scelgo io.
Cadenza 1 = 01-11-21-31-41-51-61-71-81 (Spia 27)
Cadenza 2 = 02-12-22-32-42-52-62-72-82 (spia 27) e cosi via fino alla cad. (Zero
Cadenza 3 = 03-13-23-33-43-53-63-73-83
Cadenza 4 = 04-14-24-34-44-54-64-74-84
Cadenza 5 = 05-15-25-35-45-55-65-75-85
Cadenza 6 = 06-16-26-36-46-56-66-76-86
Cadenza 7 = 07-17-27-37-47-57-67-77-87
Cadenza 8 = 08-18-28-38-48-58-68-78-88
Cadenza 9 = 09-19-29-39-49-59-69-79-89
Cadenza 0 = 10-20-30-40-50-60-70-80-90
Figura 1 = 1-10-19-28-37-46-55-64-73-82 ( spia27).....
Figura 2 = 2-11-20-29-38-47-56-65-74-83
Figura 3 = 3-12-21-30-39-48-57-66-75-84
Figura 4 = 4-13-22-31-40-49-58-67-76-85
Figura 5 = 5-14-23-32-41-50-59-68-77-86
Figura 6 = 6-15-24-33-42-51-60-69-78-87
Figura 7 = 7-16-25-34-43-52-61-70-79-88
Figura 8 = 8-17-26-35-44-53-62-71-80-89
Figura 9 = 9-18-27-36-45-54-63-72-81-90
Grazie

Forse .............
Prova.............
Cadenze........

Codice:

Sub Main()
   Scrivi " FUTURO 3 in cadenza  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   ff = InputBox("Scegli la cadenza",,0)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8790'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
              
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Marcorun · 18 Gennaio 2024

Forse.......
Prova......
Figure.....

Codice:

Sub Main()
   Scrivi " FUTURO 3 in figura  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   ff = InputBox("Scegli la figura",,1)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8790'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Figura(x) = Figura(y) And Figura(x) = Figura(ff) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
              
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in figura spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Missione Impossibile. · 18 Gennaio 2024

Marcorun ha scritto:

Forse .............
Prova.............
Cadenze........

Codice:

Sub Main()
   Scrivi " FUTURO 3 in cadenza  *********  Tabella List by Mike58  ***********         ",1,- 1,3

   Dim ru(3)
   Dim terni(4005,13)
   Dim nn(3)
   Dim spia(1)
   r = InputBox("Ruota  della spia....(1-10)",,5)
   rr = InputBox("Ruota di gioco....(1-10)",,r)
   sp = CInt(InputBox("Numero Spia",,27))
   ff = InputBox("Scegli la cadenza",,0)
   c = InputBox("Numero colpi di gioco",,18)
   sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
   '------- titoli tabella ---------------------
   ReDim atitoli(11)
   atitoli(1) = " Casi "
   atitoli(2) = " Numeri "
   atitoli(3) = " Presenze "
   atitoli(4) = " esito % "
   atitoli(5) = " ret_estratti fin-colpi "
   atitoli(6) = " colpo "
   atitoli(7) = " Data esito ultimo "
   atitoli(8) = " Ritardo serie "
   atitoli(9) = " Presenza serie "
   atitoli(10) = " Rit. Max "
   atitoli(11) = "Pres ambate singole e in Posizioni"
   Call InitTabella(atitoli,1,,3,5)
   For i = 1 To 4005
      terni(i,1) = 0
      terni(i,2) = 0
      terni(i,3) = 0
      terni(i,4) = 0
      terni(i,5) = 0
      terni(i,6) = 0
      terni(i,7) = 0
      terni(i,8) = 0
      terni(i,9) = 0
      terni(i,10) = 0
      terni(i,11) = 0
      terni(i,12) = 0
      terni(i,13) = 0
   Next
   casi = 0
   co = 0
   ini = 8790'EstrazioneFin - ee
   fin = EstrazioneFin
   For es = ini To fin
      Messaggio "casi trovati....... " & casi & "      ******  Script by Mike58  ****** "
      AvanzamentoElab ini,fin,es
      If Posizione(es,r,sp) > 0 Then
         spia(1) = sp
         rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
         Inco = fin - es
         clp = fin - es
         casi = casi + 1
         Tot = fin - Ini
         ess = es + c
         If ess > fin Then ess = fin End If
         co = 0
         For x = 1 To 89
            For y = x + 1 To 90
               co = co + 1
               If Cadenza(x) = Cadenza(y) And Cadenza(x) = Cadenza(ff) Then'If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
               terni(co,1) = co
               terni(co,2) = x
               terni(co,3) = y
            
               nn(1) = x
               nn(2) = y
               ru(1) = rr
               presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
               If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
                  'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
                  terni(co,5) = terni(co,5) + 1
                  cef = fin - rsp + 1' inizio estrazione di verifica
                  clp = c - rsp
                  Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
                  'End If
                  Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
                  ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
                  ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
                  ReDim eff1(5)
                  ReDim eff2(5)
                  For x1 = 1 To 5
                     ReDim aPos(x1)
                     aPos(x1) = True
                     eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
                     eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
                  Next
                  'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
                  'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
                  terni(co,6) = terni(co,5) / casi *100
                  terni(co,7) = retestratti
                  terni(co,8) = retcolpi
                  terni(co,10) = rerit
                  terni(co,11) = refre
                  terni(co,12) = reritmax
                  terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
                  'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
                  If resito = "" Then terni(co,9) = ""
                  If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
                  If resito = "" Then terni(co,9) = " in corso "
               End If
               End If
            Next
         Next
      End If
   Next
   OrdinaMatrice terni,- 1,5
   ColoreTesto 1
   Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
   ColoreTesto 2
   If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
   If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
   ColoreTesto 1
   Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
   Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & "  al " & DataEstrazione(fin)
   Scrivi
   Scrivi "Totali estrazioni esaminate.... " & Tot,1
   Scrivi "Sviluppo solo coppie in cadenza spia " & sp,1,,,2,3
   ColoreTesto 0
   For x = 1 To 15
      '----------- valori tabella ------------------
      ReDim avalori(11)
      avalori(1) = x
      avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
      avalori(3) = Format2(terni(x,5))
      avalori(4) = Round(terni(x,6),2)
      avalori(5) = terni(x,7)
      avalori(6) = terni(x,8)
      avalori(7) = terni(x,9)
      avalori(8) = terni(x,10)
      avalori(9) = terni(x,11)
      avalori(10) = terni(x,12)
      avalori(11) = terni(x,13)
      'If casi = terni(x,5) Then
      Call AddRigaTabella(avalori,,,3)
      'End If
      If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
      If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
      If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
   Next
   Call SetTableWidth("100%")
   Call CreaTabella(0,0,0,15)
   Scrivi
   Scrivi " *********  Tabella List by Mike58  ***********         ",1,- 1,3
End Sub

Ok Marco ma fa la ricerca in 18 estrazione spia 27 uscita 4 volte? perche con il mio nel programma non mi trovo.

Marcorun · 18 Gennaio 2024

Credevo che x cercare la spia si usa l'altro script di Mike......il 27 è di default...il numero spia lo devi mettere tu.

Missione Impossibile. · 18 Gennaio 2024

Marco sbagliavo io mettevo cagliari anziche'Milano perche avevo un 40 uscito a cagliari
Ora e' perfetto x le cadenze Grazie, ora guardo le figure

Per Mike58

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >GOLD<

Advanced Member >GOLD<

Banned

Banned

Advanced Member >PLATINUM<

Advanced Member >GOLD<

Super Member >PLATINUM<

Advanced Member >GOLD<

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >GOLD<

Advanced Member >GOLD<

Advanced Member >GOLD<

Banned

Advanced Member >GOLD<

Banned

Allegati