Vecchi metodi e vecchi script by BaffoBlù

Marco-elle · 30 Maggio 2024

Questo Listato analizza gli ambi somma 91 sulla NZ e assegna una previsione statistica su ruote congeniali
Buona lettura,,,,,

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "AMBI SOMMA 91 SULLA NZ"
   Scrivi "GIOCA PREVISIONE STATISTICA SU RUOTE CONGENIALI "
   Scrivi "RICERCA EPOCALE E LIST BY Marco"
   ColoreTesto 0
   Dim posta(1)
   Dim poste(2)
   Dim ruota(10)
   Dim n(1)
   Dim n1(2)
   Dim n2(2)
   Dim n3(2)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 3050
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 12 To 12
         For r2 = 12 To 12
            For p1 = 1 To 4
               For p2 = p1 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  ok = 0
                  If Mese(es) = 1 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 43
                        n1(1) = 43
                        n1(2) = 46
                        n2(1) = 43
                        n2(2) = 48
                        n3(1) = 43
                        n3(2) = 63
                        ruota(1) = 7
                        ruota(2) = 9
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 2 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 60
                        n1(1) = 60
                        n1(2) = 45
                        n2(1) = 60
                        n2(2) = 56
                        n3(1) = 60
                        n3(2) = 59
                        ruota(1) = 2
                        ruota(2) = 3
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 3 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 42
                        n1(1) = 42
                        n1(2) = 3
                        n2(1) = 42
                        n2(2) = 15
                        n3(1) = 42
                        n3(2) = 34
                        ruota(1) = 2
                        ruota(2) = 4
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 4 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 61
                        n1(1) = 61
                        n1(2) = 18
                        n2(1) = 61
                        n2(2) = 30
                        n3(1) = 61
                        n3(2) = 85
                        ruota(1) = 5
                        ruota(2) = 9
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 5 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 8
                        n1(1) = 8
                        n1(2) = 11
                        n2(1) = 8
                        n2(2) = 18
                        n3(1) = 8
                        n3(2) = 31
                        ruota(1) = 7
                        ruota(2) = 8
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 6 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 38
                        n1(1) = 38
                        n1(2) = 21
                        n2(1) = 38
                        n2(2) = 49
                        n3(1) = 38
                        n3(2) = 55
                        ruota(1) = 3
                        ruota(2) = 7
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 82
                        n1(1) = 82
                        n1(2) = 1
                        n2(1) = 82
                        n2(2) = 23
                        n3(1) = 82
                        n3(2) = 45
                        ruota(1) = 1
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 8 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 31
                        n1(1) = 31
                        n1(2) = 32
                        n2(1) = 31
                        n2(2) = 33
                        n3(1) = 31
                        n3(2) = 74
                        ruota(1) = 1
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 9 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 62
                        n1(1) = 62
                        n1(2) = 7
                        n2(1) = 62
                        n2(2) = 42
                        n3(1) = 62
                        n3(2) = 50
                        ruota(1) = 2
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 10 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 18
                        n1(1) = 18
                        n1(2) = 1
                        n2(1) = 18
                        n2(2) = 19
                        n3(1) = 18
                        n3(2) = 76
                        ruota(1) = 5
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 11 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 42
                        n1(1) = 42
                        n1(2) = 17
                        n2(1) = 42
                        n2(2) = 31
                        n3(1) = 42
                        n3(2) = 47
                        ruota(1) = 3
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 12 Then
                     If Fuori90(a + b) = 1 Then
                        n(1) = 86
                        n1(1) = 86
                        n1(2) = 32
                        n2(1) = 86
                        n2(2) = 38
                        n3(1) = 86
                        n3(2) = 70
                        ruota(1) = 4
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If ok = 1 Then
                     co = co + 1
                     ColoreTesto 1
                     Scrivi String(110,".") & " Caso n°" & co,1
                     Scrivi "Data " & DataEstrazione(es) & " "
                     Scrivi SiglaRuota(r1) & " " & StringaEstratti(es,r1)
                     Scrivi "Su " & FormatSpace(NomeRuota(r1),10) & " (1° elemento somma) " & a
                     Scrivi "Su " & FormatSpace(NomeRuota(r2),10) & " (2° elemento somma) " & b
                     Scrivi String(110,"."),1
                     ColoreTesto 0
                     ImpostaGiocata 1,n,ruota,posta,clp
                     ImpostaGiocata 2,n1,ruota,poste,clp
                     ImpostaGiocata 3,n2,ruota,poste,clp
                     ImpostaGiocata 4,n3,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

BaffoBlù · 30 Maggio 2024

Questa è una possibile versione ambo...
Prendetela per quello che è...

E' un metodo puramente Empirico/Matematico...

Codice:

Option Explicit
Sub Main()
   Dim es,Ini,Fin,r1,r2,r3,Tm,Clp,co,a,b,x,x2,y,p1
   Dim ruota(2)
   Dim ruote(1)
   Dim posta(10)
   Dim poste(10)
   Dim n(2)
   Dim n1(3)
   posta(1) = 1
   poste(2) = 1
   ruota(1) = r1
   ruota(2) = r2
   ruote(1) = r3
   r1 = 1
   r3 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      ruota(1) = r1
      ruota(2) = r2
      ruote(1) = r3
      For r1 = 1 To 1
         For r2 = 2 To 10
            For p1 = 1 To 5
               a = Estratto(es,r1,1)
               b = Fuori90(a * a)
               x =(a * a)
               y = Fuori90(a * 108)
               x2 =(a * 108)
               If Estratto(es,r2,p1) = b Then
                  ruota(1) = r1
                  ruota(2) = r2
                  ruote(1) = r3
                  n(1) = a
                  n(2) = b
                  n1(1) = a
                  n1(2) = b
                  n1(3) = y
                  co = co + 1
                  Scrivi String(100,"°") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & "-" & StringaEstratti(es,r1) & " * " & SiglaRuota(r2) & "-" & StringaEstratti(es,r2) & " * ",1,,,1,2
                  Scrivi SiglaRuota(r1) & " * " & Format2(a) & " In 1° Pos. ** " & SiglaRuota(r2) & " * " & Format2(b) & " In " & p1 & "° Pos.",1,,,,2
                  Scrivi "Calcoli 2°Ambata : " & Format2(a) & " * " & Format2(a) & " = " & x & " - 90 (se serve) = " & Format2(b),,,,,2
                  Scrivi "Calcoli Abbinamento : " & Format2(a) & " * " & "108 = " & x2 & " - 90 (se serve) = " & Format2(y),,,,,2
                  Scrivi "Previsione : " & SiglaRuota(r1) & "/" & SiglaRuota(r2) & " * Ambate : " & Format2(a) & " - " & Format2(b),1,,,2,2
                  Scrivi "Terzina x Ambo a Tutte : " & SiglaRuota(r3) & " *  " & Format2(a) & " - " & Format2(b) & " - " & Format2(y),1,,,1,2
                  Scrivi String(70,"°"),1
                  ImpostaGiocata 1,n,ruota,posta,Clp,1
                  ImpostaGiocata 2,n1,ruote,poste,Clp,2
                  Gioca es,1,,1
               End If
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Idea e Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub

zagort · 30 Maggio 2024

Oberdan ha scritto:
Ciao Marco,

ovviamente posso parlare soltanto per me, anche se credo di essere uno fra tanti, e posso dirti in tutta sincerità di apprezzare molto sia le tue idee, che il lavoro che fai. In particolare trovo molto interessante la ricerca che stai conducendo sulla NZ, come spunto, spia per il gioco sulle rimanti 10 ruote.
Approfitto dell'occasione per farti due domande, sempre che tu abbia voglia di entrare nel merito e la cosa non vada ad infrangere l'area che preferisci mantenere privata.
Con quale criterio selezioni quelle che chiami "ruote congeniali"?
L'altro aspetto riguarda i numeri che selezioni per gli abbinamenti da porre in gioco. Ti va di parlarne?

Un saluto.

Oberdan

ober non so se questo argomento

Script costruttore metodi .... Chi + ne ha + ne metta.

Ultimamente vedo nel forum previsioni derivanti da software "Costruttori metodi" e mi interesserebbe sapere se qualcuno ha realizzato qualcosa di simile con degli script. Attendo vs. interesse o script, per poterne realizzare qualcuno sufficentemente completo. Si accettano anche linee guida da...

forum.lottoced.com

soddisfi la tua curiosita, è un po datato ma con le tue potenzialita sicuramente ne trarrai profitto,se non è questo che cercavi il nostro baffo o marco saranno piu esaustivi

Marco-elle · 30 Maggio 2024

zagort ha scritto:
ober non so se questo argomento

Script costruttore metodi .... Chi + ne ha + ne metta.

Ultimamente vedo nel forum previsioni derivanti da software "Costruttori metodi" e mi interesserebbe sapere se qualcuno ha realizzato qualcosa di simile con degli script. Attendo vs. interesse o script, per poterne realizzare qualcuno sufficentemente completo. Si accettano anche linee guida da...

forum.lottoced.com

soddisfi la tua curiosita, è un po datato ma con le tue potenzialita sicuramente ne trarrai profitto,se non è questo che cercavi il nostro baffo o marco saranno piu esaustivi

Leggo ora per intero il post di Oberdan e mi scuso per non aver risposto prima,Ho molti SW e sono anche testerman di alcuni programmatori e mi diletto a fare ricerche varie e le idee per spremere questi SW non mi mancano e poi se riesco li trasformo in script.In poche parole mi piace capire cosa succede dopo un determinato evento e come si evince,c'è sempre un perchè dopo uno specifico evento.Un saluto anche a Zagort che leggo da molto tempo ma che....probabilmente non mette a fuoco la mia persona perchè dal 2004,ho cambiato centinaia di nik

Oberdan · 30 Maggio 2024

zagort ha scritto:
ober non so se questo argomento

Script costruttore metodi .... Chi + ne ha + ne metta.

Ultimamente vedo nel forum previsioni derivanti da software "Costruttori metodi" e mi interesserebbe sapere se qualcuno ha realizzato qualcosa di simile con degli script. Attendo vs. interesse o script, per poterne realizzare qualcuno sufficentemente completo. Si accettano anche linee guida da...

forum.lottoced.com

soddisfi la tua curiosita, è un po datato ma con le tue potenzialita sicuramente ne trarrai profitto,se non è questo che cercavi il nostro baffo o marco saranno piu esaustivi

Ciao Zagort,

ti ringrazio per il link, che andrò a leggermi con interesse.
Quanto a " quello che cercavo", si tratta, da sempre, della stessa identica cosa: capire, comprendere quello che c'è dietro a qualsiasi cosa.
Ma mi rendo conto, al contempo, che qui ci muoviamo in un ambito in cui ognuno (tranne forse pochissimi) è legittimamente restio a sbandierare ai quattro venti la parte più significativa delle proprie conoscenze e fonti. Si tratta di una posizione che rispetto. Anche se isola ognuno di noi, nessuno escluso, nel proprio mondo privato, nel proprio ambito di conoscenza.
Io, d'altro canto, ho sempre approcciato al Lotto su base esclusivamente statistica, su frequenze, ritardi e incrocio di dati. Sono praticamente vergine, alla mia tenera età, in ambito metodi e scripting (che ho praticamente incrociato attraverso Spaziometria, soltanto da meno di un mese) e pur essendo molto curioso e in parte affascinato da tutto ciò che per me risulta nuovo e diverso, cerco di procedere senza preclusioni e scetticismi; ma anche senza fascinazioni prive di razionalità.

Buonanotte a te e a tutti.

Oberdan

Otis · 31 Maggio 2024

GRANDE BAFFO 13-32 Venezia

BaffoBlù · 31 Maggio 2024

Marco-elle ha scritto:
Leggo ora per intero il post di Oberdan e mi scuso per non aver risposto prima,Ho molti SW e sono anche testerman di alcuni programmatori e mi diletto a fare ricerche varie e le idee per spremere questi SW non mi mancano e poi se riesco li trasformo in script.In poche parole mi piace capire cosa succede dopo un determinato evento e come si evince,c'è sempre un perchè dopo uno specifico evento.Un saluto anche a Zagort che leggo da molto tempo ma che....probabilmente non mette a fuoco la mia persona perchè dal 2004,ho cambiato centinaia di nik

Quel 3D di Claudio8 è molto interessante...

...Ti piace capire......chissa cosa è stato che ti ha fatto capire che c'è sempre un perchè...

...Non fare lo Sborone.....centinaia di nick.........si è no saranno 96-97...

BaffoBlù · 31 Maggio 2024

Otis ha scritto:
GRANDE BAFFO 13-32 Venezia

hi hi hi da dove?

Marco-elle · 31 Maggio 2024

Marco-elle ha scritto:

Questo listato elabora i terni in figura sulla NZ
con ricerca semestrale e ricava 1 ambata e 3 ambi statistici
su ruote congeniali
Buona lettura.....

Codice:

Sub Main()
   ColoreTesto 2
   Scrivi "TERNI IN FIGURA USCITI SULLA NZ"
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "RICERCA EPOCALE E LIST BY Marco"
   ColoreTesto 0
   Dim posta(1)
   Dim poste(3)
   Dim ruota(10)
   Dim am(1)
   Dim a1(2)
   Dim a2(2)
   Dim a3(2)
   posta(1) = 1
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 3000
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 12 To 12
         For p1 = 1 To 3
            For p2 = p1 + 1 To 4
               For p3 = p2 + 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r1,p2)
                  c = Estratto(es,r1,p3)
                  ok = 0
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 1 And Figura(b) = 1 And Figura(c) = 1 Then
                        am(1) = 8
                        a1(1) = 8
                        a1(2) = 2
                        a2(1) = 8
                        a2(2) = 15
                        a3(1) = 8
                        a3(2) = 88
                        ruota(1) = 2
                        ruota(2) = 6
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 1 And Figura(b) = 1 And Figura(c) = 1 Then
                        am(1) = 27
                        a1(1) = 27
                        a1(2) = 8
                        a2(1) = 27
                        a2(2) = 53
                        a3(1) = 27
                        a3(2) = 84
                        ruota(1) = 4
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 2 And Figura(b) = 2 And Figura(c) = 2 Then
                        am(1) = 54
                        a1(1) = 54
                        a1(2) = 1
                        a2(1) = 54
                        a2(2) = 27
                        a3(1) = 54
                        a3(2) = 59
                        ruota(1) = 1
                        ruota(2) = 4
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 2 And Figura(b) = 2 And Figura(c) = 2 Then
                        am(1) = 9
                        a1(1) = 9
                        a1(2) = 10
                        a2(1) = 9
                        a2(2) = 80
                        a3(1) = 9
                        a3(2) = 90
                        ruota(1) = 1
                        ruota(2) = 9
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 3 And Figura(b) = 3 And Figura(c) = 3 Then
                        am(1) = 34
                        a1(1) = 34
                        a1(2) = 32
                        a2(1) = 34
                        a2(2) = 52
                        a3(1) = 34
                        a3(2) = 54
                        ruota(1) = 1
                        ruota(2) = 2
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 3 And Figura(b) = 3 And Figura(c) = 3 Then
                        am(1) = 9
                        a1(1) = 9
                        a1(2) = 13
                        a2(1) = 9
                        a2(2) = 22
                        a3(1) = 9
                        a3(2) = 33
                        ruota(1) = 1
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 4 And Figura(b) = 4 And Figura(c) = 4 Then
                        am(1) = 58
                        a1(1) = 58
                        a1(2) = 31
                        a2(1) = 58
                        a2(2) = 39
                        a3(1) = 58
                        a3(2) = 71
                        ruota(1) = 5
                        ruota(2) = 8
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 4 And Figura(b) = 4 And Figura(c) = 4 Then
                        am(1) = 15
                        a1(1) = 15
                        a1(2) = 21
                        a2(1) = 15
                        a2(2) = 44
                        a3(1) = 15
                        a3(2) = 61
                        ruota(1) = 3
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 5 And Figura(b) = 5 And Figura(c) = 5 Then
                        am(1) = 36
                        a1(1) = 36
                        a1(2) = 16
                        a2(1) = 36
                        a2(2) = 43
                        a3(1) = 36
                        a3(2) = 66
                        ruota(1) = 1
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 5 And Figura(b) = 5 And Figura(c) = 5 Then
                        am(1) = 32
                        a1(1) = 32
                        a1(2) = 12
                        a2(1) = 32
                        a2(2) = 31
                        a3(1) = 32
                        a3(2) = 82
                        ruota(1) = 1
                        ruota(2) = 7
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 6 And Figura(b) = 6 And Figura(c) = 6 Then
                        am(1) = 25
                        a1(1) = 25
                        a1(2) = 18
                        a2(1) = 25
                        a2(2) = 29
                        a3(1) = 25
                        a3(2) = 64
                        ruota(1) = 2
                        ruota(2) = 6
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 6 And Figura(b) = 6 And Figura(c) = 6 Then
                        am(1) = 17
                        a1(1) = 17
                        a1(2) = 2
                        a2(1) = 17
                        a2(2) = 36
                        a3(1) = 17
                        a3(2) = 83
                        ruota(1) = 2
                        ruota(2) = 9
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 7 And Figura(b) = 7 And Figura(c) = 7 Then
                        am(1) = 25
                        a1(1) = 25
                        a1(2) = 1
                        a2(1) = 25
                        a2(2) = 2
                        a3(1) = 25
                        a3(2) = 9
                        ruota(1) = 2
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 7 And Figura(b) = 7 And Figura(c) = 7 Then
                        am(1) = 77
                        a1(1) = 77
                        a1(2) = 2
                        a2(1) = 77
                        a2(2) = 16
                        a3(1) = 77
                        a3(2) = 47
                        ruota(1) = 1
                        ruota(2) = 8
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 Then
                        am(1) = 1
                        a1(1) = 1
                        a1(2) = 39
                        a2(1) = 1
                        a2(2) = 84
                        a3(1) = 1
                        a3(2) = 89
                        ruota(1) = 1
                        ruota(2) = 5
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 8 And Figura(b) = 8 And Figura(c) = 8 Then
                        am(1) = 66
                        a1(1) = 66
                        a1(2) = 23
                        a2(1) = 66
                        a2(2) = 53
                        a3(1) = 66
                        a3(2) = 60
                        ruota(1) = 1
                        ruota(2) = 7
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 1 Or Mese(es) = 2 Or Mese(es) = 3 Or Mese(es) = 4 Or Mese(es) = 5 Or Mese(es) = 6 Then
                     If Figura(a) = 9 And Figura(b) = 9 And Figura(c) = 9 Then
                        am(1) = 32
                        a1(1) = 32
                        a1(2) = 15
                        a2(1) = 32
                        a2(2) = 39
                        a3(1) = 32
                        a3(2) = 48
                        ruota(1) = 1
                        ruota(2) = 3
                        ok = 1
                     End If
                  End If
                  If Mese(es) = 7 Or Mese(es) = 8 Or Mese(es) = 9 Or Mese(es) = 10 Or Mese(es) = 11 Or Mese(es) = 12 Then
                     If Figura(a) = 9 And Figura(b) = 9 And Figura(c) = 9 Then
                        am(1) = 39
                        a1(1) = 39
                        a1(2) = 33
                        a2(1) = 39
                        a2(2) = 36
                        a3(1) = 39
                        a3(2) = 78
                        ruota(1) = 5
                        ruota(2) = 10
                        ok = 1
                     End If
                  End If
                  If ok = 1 Then
                     co = co + 1
                     ColoreTesto 1
                     Scrivi String(110,"°") & " Caso n°" & co,1
                     Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1),1
                     Scrivi DataEstrazione(es) & "   Terno in figura " & a & " - " & b & " - " & c,1
                     Scrivi String(110,"°"),1
                     ColoreTesto 0
                     ImpostaGiocata 1,am,ruota,posta,clp
                     ImpostaGiocata 2,a1,ruota,poste,clp
                     ImpostaGiocata 3,a2,ruota,poste,clp
                     ImpostaGiocata 4,a3,ruota,poste,clp
                     Gioca es,1
                  End If
               Next
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub

Metto in evidenza l'ambo in quartina CA 32-54 che non figura nella previsione
perchè strutturata in maniera diversa ma....per far vedere che la statistica fatta
è ottima,cmq la previsione continua per i colpi previsiti

Otis · 31 Maggio 2024

Otis ha scritto:
GRANDE BAFFO 13-32 Venezia

hi hi hi da dove?

BaffoBlù · 31 Maggio 2024

Otis ha scritto:
hi hi hi da dove?

ho capito adesso.

domandavo perché non sto controllando nulla (io non gioco più, non ho interesse...)

se mi metto a controllare ogni mia cosa son bello che fregato...

A breve posto qualcosa per chi ama cercare...il perché di certe cose...

BaffoBlù · 3 Giugno 2024

prima che me lo perdo, lo posto...

Modificando uno script di Mastrogino che ricavava 1 ambata su 4 ruote,
mi è venuto fuori uno script totalmente diverso (cambiando tutto)
che ricava 4 ambate su ruota singola (in pratica la stessa cosa)
oltre alla quartina per ambo a tutte

Codice:

Option Explicit
Sub Main()
   Dim ruota(11)
   Dim ruote(11)
   Dim Ini,Fin,Es,R,P,a,b,ok,co
   Dim Nu(2),nu1(4),Posta(1),poste(2),Clp
   ruota(1) = R
   ruote(1) = 11
   Posta(1) = 1
   poste(2) = 1
   Clp = 13
   R = CInt(InputBox(" Scegli la ruota ",,"1"))
   Ini = 10300
   Fin = EstrazioneFin
   ok = 0
   co = 0
   For Es = Ini To Fin
      Messaggio "elab. estr. [" &(Es) & "] di " & DataEstrazione(Es,1)
      Call AvanzamentoElab(Ini,Fin,Es)
      a = SommaEstratti(Es,R)
      b =(a * 108)
      Nu(1) = Fuori90(a)
      Nu(2) = Fuori90(b)
      nu1(1) = DiametraleD(Nu(1))
      nu1(2) = ComplAdX(Nu(2))
      nu1(3) = Nu(1)
      nu1(4) = Nu(2)
      ruota(1) = R
      ruote(1) = 11
      co = co + 1
      Scrivi String(100,"°") & " Caso n°" & co,1
      Scrivi DataEstrazione(Es) & " -- " & SiglaRuota(R) & " - " & StringaEstratti(Es,R) & " ** Somma " & a & " * Ambate : " & Format2(Nu(1)) & " - " & Format2(Nu(2)) & " - " & Format2(nu1(1)) & " - " & Format2(nu1(2)),1
      Scrivi String(100,"°"),1
      ImpostaGiocata 1,nu1,ruota,Posta,Clp,1
      ImpostaGiocata 2,nu1,ruote,poste,Clp,2
      Gioca Es,1,,1
   Next
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ScriviResoconto,False
End Sub

BaffoBlù · 3 Giugno 2024

****************************************************************
****************************************************************
****************************************************************

Dalla serie (BlùFlix...), di Metodi e script su Sommativi, costruttori etc...

Eccovi qualcosa che usa numeri fissi a vostro piacimento

Fatelo girare con il fisso impostato e senza cambiare nulla

Potete leggere nei commenti Remmati alcuni consigli

Poi divertitevi voi a trovare i fissi e le ruote migliori...

Solo per ricercatori...Pazienti...

Nota :

il "34" ( TA CIUANG ) - La forza del grande.

il suo complementare a 90 è

il "56" ( LU ) - il Viandante. *

* Leggere il commento remmato nello script...

---------------------------------------------------------------------------------

Codice:

Option Explicit
Sub Main
   Dim es,Ini,Fin,r0,r1,nRic,Clp,x
   Dim ruota(12)
   Dim ruote(12)
   Dim Aruote(12)
   Dim Bruote(12)
   Dim posta(10)
   Dim poste(10)
   Dim am1(2)
   Dim am2(2)
   Dim kk(4)
   Dim a,b,c,d,e,f,co
   posta(1) = 1
   poste(2) = 1
   x = CInt(InputBox(" Scegli Fisso Base ",,"34"))' *** "56" è l'altro numero fisso da provare (complementare a 90) del "34" ***
   r0 = CInt(InputBox(" Scegli la 1° ruota ",,"1"))
   r1 = CInt(InputBox(" Scegli la 2° ruota ",,"6"))
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 1 Then
         ruota(1) = r0
         ruote(1) = r1
         Aruote(1) = r0
         Aruote(2) = r1
         Bruote(1) = 11
         a = Estratto(es,r0,5)
         b = Differenza(a,x)
         c = ComplAdX(b)
         If a < 10 Then
            b =((a + 90) - x)
            c = ComplAdX(b)
         End If
         d = Estratto(es,r1,5)
         e = Differenza(d,x)
         f = ComplAdX(e)
         If d < 10 Then
            e =((d + 90) - x)
            f = ComplAdX(e)
         End If
         am1(1) = b
         am1(2) = c
         EliminaRipetuti am1
         am2(1) = e
         am2(2) = f
         EliminaRipetuti am2
         kk(1) = am1(1)
         kk(2) = am1(2)
         kk(3) = am2(1)
         kk(4) = am2(2)
         EliminaRipetuti kk
         ruota(1) = r0
         ruote(1) = r1
         Aruote(1) = r0
         Aruote(2) = r1
         Bruote(1) = 11
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Ambate " & Format2(b) & " - " & Format2(c),1,,,1
         Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ] " & " Ambate " & Format2(e) & " - " & Format2(f),1,,,1
         ImpostaGiocata 1,am1,ruota,posta,Clp,1
         ImpostaGiocata 2,am2,ruote,posta,Clp,1
         ImpostaGiocata 3,kk,Aruote,poste,Clp,2
         ImpostaGiocata 4,kk,Bruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Metodo e Script By  BaffoBlù *** "),1,3,0
   ScriviResoconto,False
End Sub

Suriciumalignu · 3 Giugno 2024

BaffoBlù ha scritto:

****************************************************************
****************************************************************
****************************************************************

Dalla serie (BlùFlix...), di Metodi e script su Sommativi, costruttori etc...

Eccovi qualcosa che usa numeri fissi a vostro piacimento

Fatelo girare con il fisso impostato e senza cambiare nulla

Potete leggere nei commenti Remmati alcuni consigli

Poi divertitevi voi a trovare i fissi e le ruote migliori...

Solo per ricercatori...Pazienti...

Nota :

il "34" ( TA CIUANG ) - La forza del grande.

il suo complementare a 90 è

il "56" ( LU ) - il Viandante. *

* Leggere il commento remmato nello script...

---------------------------------------------------------------------------------

Codice:

Option Explicit
Sub Main
   Dim es,Ini,Fin,r0,r1,nRic,Clp,x
   Dim ruota(12)
   Dim ruote(12)
   Dim Aruote(12)
   Dim Bruote(12)
   Dim posta(10)
   Dim poste(10)
   Dim am1(2)
   Dim am2(2)
   Dim kk(4)
   Dim a,b,c,d,e,f,co
   posta(1) = 1
   poste(2) = 1
   x = CInt(InputBox(" Scegli Fisso Base ",,"34"))' *** "56" è l'altro numero fisso da provare (complementare a 90) del "34" ***
   r0 = CInt(InputBox(" Scegli la 1° ruota ",,"1"))
   r1 = CInt(InputBox(" Scegli la 2° ruota ",,"6"))
   nRic = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"1000"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))
   Ini = EstrazioneFin - nRic
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 1 Then
         ruota(1) = r0
         ruote(1) = r1
         Aruote(1) = r0
         Aruote(2) = r1
         Bruote(1) = 11
         a = Estratto(es,r0,5)
         b = Differenza(a,x)
         c = ComplAdX(b)
         If a < 10 Then
            b =((a + 90) - x)
            c = ComplAdX(b)
         End If
         d = Estratto(es,r1,5)
         e = Differenza(d,x)
         f = ComplAdX(e)
         If d < 10 Then
            e =((d + 90) - x)
            f = ComplAdX(e)
         End If
         am1(1) = b
         am1(2) = c
         EliminaRipetuti am1
         am2(1) = e
         am2(2) = f
         EliminaRipetuti am2
         kk(1) = am1(1)
         kk(2) = am1(2)
         kk(3) = am2(1)
         kk(4) = am2(2)
         EliminaRipetuti kk
         ruota(1) = r0
         ruote(1) = r1
         Aruote(1) = r0
         Aruote(2) = r1
         Bruote(1) = 11
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r0) & " " & StringaEstratti(es,r0) & " ] " & " Ambate " & Format2(b) & " - " & Format2(c),1,,,1
         Scrivi DataEstrazione(es) & " [ " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " ] " & " Ambate " & Format2(e) & " - " & Format2(f),1,,,1
         ImpostaGiocata 1,am1,ruota,posta,Clp,1
         ImpostaGiocata 2,am2,ruote,posta,Clp,1
         ImpostaGiocata 3,kk,Aruote,poste,Clp,2
         ImpostaGiocata 4,kk,Bruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" *** Metodo e Script By  BaffoBlù *** "),1,3,0
   ScriviResoconto,False
End Sub

Baffo, sei una perla rara, anzi rarissima

BaffoBlù · 3 Giugno 2024

Suriciumalignu ha scritto:
Baffo, sei una perla rara, anzi rarissima

Allora una Perla Blù...

Vado in crescendo....grado per grado...portata per portata...

Nelle mie regole in genere prima si servono gli "stuzzichini"...

Vediamo se sta specie di "Antipasto Mare/Monti" vi gusta...

..sempre per ricercatori affamati...

I'm Sorry, Non è per chi ama la pappa pronta e (filtrata)...

***************************************************************

Vi porto a conoscenza della "Via del 108".

Questo script non vi porterà ad una giocata diretta
anche se in effetti ci sono numeri da giocare...

..è per ricercatori...e spulciatori...

Ci sono meccanismi...

Dal 1871, (inizio Lotto), Qualsiasi Ruota o come volete...

Ve lo lascio, spero che qualcuno ci (CADA DENTRO)...
Io ormai ho finito le cartucce e non amo più la caccia...
..e per cacciare ci vuole buona vista...

una cosuccia : non riesco ad inserire " Esito non Verificato"
ossia, non me lo mette a video quelle "rarissime" volte che capita
Così lo eliminato dallo script, boooo....

So che lo script potrebbe essere molto più corto,
ma che volete, me la sono "svangata" al quel modo...

Lo script, arriva da "Scriptology"... (miei Script Personali...)

Codice:

Option Explicit
Sub Main()
   ReDim aNum(15)
   ReDim aRt(1)
   Dim idEstrInizio
   Dim idEstrFine
   Dim RetEsiti
   Dim RetColpi
   Dim RetEstratti
   Dim RetIdEstr
   Dim es,r1,a,b,c,d,e,f,g,h,i,l,co,k,pp,clp,SClp
   Dim x1,x2,x3,x4,x5
   Dim y1,y2,y3,a1,a2,a3,a4,a5,a6
   Dim w1,w2,w3,b1,b2,b3,b4,b5,b6
   Dim j1,j2,j3,c1,c2,c3,c4,c5,c6
   Dim q1,q2,q3,d1,d2,d3,d4,d5,d6
   Dim s1,s2,s3,f1,f2,f3,f4,f5,f6
   '-----------------------------
   ' Se vuoi fare tutte le ruote contemporaneamente, Remma questa linea sottostante
   r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
   ' e togli allo stesso tempo la Remmatura a (For r1 = 1 To 10) e anche al (Next) a quasi fine script.
   '-----------------------------
   clp = 18
   aRt(1) = r1
   idEstrInizio = 1' 1 : inizio Lotto / 3574 : inizio 10 ruote
   idEstrFine = EstrazioneFin
   co = 0
   For es = idEstrInizio To idEstrFine
      'For r1 = 1 To 10 ' Togli Remmatura se vuoi fare tutte le ruote
      Messaggio es
      Call AvanzamentoElab(idEstrInizio,idEstrFine,es)
      If IndiceMensile(es) = 1 Then
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If a > 10 And b > 10 And c > 10 And d > 10 And e > 10 Then
            '-------------------
            f = Fuori90(a * 108)' 11° Numero ' Nota : Spesso fra questi 5 numeri ci sono Ripetuti
            g = Fuori90(b * 108)' 12° Numero
            h = Fuori90(c * 108)' 13° Numero
            i = Fuori90(d * 108)' 14° Numero
            l = Fuori90(e * 108)' 15° Numero
            '-------------------------------------------------------------------
            x1 =(a * 108)
            x2 =(b * 108)
            x3 =(c * 108)
            x4 =(d * 108)
            x5 =(e * 108)
            '-----------------------------
            w1 = Int(x1 / 100)' 1° numero
            w2 =(w1 * 100)
            w3 =(x1 - w2)' 2° numero
            If w1 = 91 Then w1 = 19 End If
            If w1 = 92 Then w1 = 29 End If
            If w1 = 93 Then w1 = 39 End If
            If w1 = 94 Then w1 = 49 End If
            If w1 = 95 Then w1 = 59 End If
            If w1 = 96 Then w1 = 69 End If
            If w1 = 97 Then w1 = 79 End If
            If w1 = 98 Then w1 = 89 End If
            If w1 = 99 Then w1 = 9 End If
            If w3 = 0 Then w3 = 90 End If
            If w3 = 91 Then w3 = 19 End If
            If w3 = 92 Then w3 = 29 End If
            If w3 = 93 Then w3 = 39 End If
            If w3 = 94 Then w3 = 49 End If
            If w3 = 95 Then w3 = 59 End If
            If w3 = 96 Then w3 = 69 End If
            If w3 = 97 Then w3 = 79 End If
            If w3 = 98 Then w3 = 89 End If
            If w3 = 99 Then w3 = 9 End If
            '--------------------------------
            y1 = Int(x2 / 100)' 3° numero
            y2 =(y1 * 100)
            y3 =(x2 - y2)' 4° numero
            If y1 = 91 Then y1 = 19 End If
            If y1 = 92 Then y1 = 29 End If
            If y1 = 93 Then y1 = 39 End If
            If y1 = 94 Then y1 = 49 End If
            If y1 = 95 Then y1 = 59 End If
            If y1 = 96 Then y1 = 69 End If
            If y1 = 97 Then y1 = 79 End If
            If y1 = 98 Then y1 = 89 End If
            If y1 = 99 Then y1 = 9 End If
            If y3 = 0 Then y3 = 90 End If
            If y3 = 91 Then y3 = 19 End If
            If y3 = 92 Then y3 = 29 End If
            If y3 = 93 Then y3 = 39 End If
            If y3 = 94 Then y3 = 49 End If
            If y3 = 95 Then y3 = 59 End If
            If y3 = 96 Then y3 = 69 End If
            If y3 = 97 Then y3 = 79 End If
            If y3 = 98 Then y3 = 89 End If
            If y3 = 99 Then y3 = 9 End If
            '----------------------------
            j1 = Int(x3 / 100)' 5° numero
            j2 =(j1 * 100)
            j3 =(x3 - j2)' 6° numero
            If j1 = 91 Then j1 = 19 End If
            If j1 = 92 Then j1 = 29 End If
            If j1 = 93 Then j1 = 39 End If
            If j1 = 94 Then j1 = 49 End If
            If j1 = 95 Then j1 = 59 End If
            If j1 = 96 Then j1 = 69 End If
            If j1 = 97 Then j1 = 79 End If
            If j1 = 98 Then j1 = 89 End If
            If j1 = 99 Then j1 = 9 End If
            If j3 = 0 Then j3 = 90 End If
            If j3 = 91 Then j3 = 19 End If
            If j3 = 92 Then j3 = 29 End If
            If j3 = 93 Then j3 = 39 End If
            If j3 = 94 Then j3 = 49 End If
            If j3 = 95 Then j3 = 59 End If
            If j3 = 96 Then j3 = 69 End If
            If j3 = 97 Then j3 = 79 End If
            If j3 = 98 Then j3 = 89 End If
            If j3 = 99 Then j3 = 9 End If
            '-----------------------------
            q1 = Int(x4 / 100)' 7° numero
            q2 =(q1 * 100)
            q3 =(x4 - q2)' 8° numero
            If q1 = 91 Then q1 = 19 End If
            If q1 = 92 Then q1 = 29 End If
            If q1 = 93 Then q1 = 39 End If
            If q1 = 94 Then q1 = 49 End If
            If q1 = 95 Then q1 = 59 End If
            If q1 = 96 Then q1 = 69 End If
            If q1 = 97 Then q1 = 79 End If
            If q1 = 98 Then q1 = 89 End If
            If q1 = 99 Then q1 = 9 End If
            If q3 = 0 Then q3 = 90 End If
            If q3 = 91 Then q3 = 19 End If
            If q3 = 92 Then q3 = 29 End If
            If q3 = 93 Then q3 = 39 End If
            If q3 = 94 Then q3 = 49 End If
            If q3 = 95 Then q3 = 59 End If
            If q3 = 96 Then q3 = 69 End If
            If q3 = 97 Then q3 = 79 End If
            If q3 = 98 Then q3 = 89 End If
            If q3 = 99 Then q3 = 9 End If
            '------------------------------
            s1 = Int(x5 / 100)' 9° numero
            s2 =(s1 * 100)
            s3 =(x5 - s2)' 10° numero
            If s1 = 91 Then s1 = 19 End If
            If s1 = 92 Then s1 = 29 End If
            If s1 = 93 Then s1 = 39 End If
            If s1 = 94 Then s1 = 49 End If
            If s1 = 95 Then s1 = 59 End If
            If s1 = 96 Then s1 = 69 End If
            If s1 = 97 Then s1 = 79 End If
            If s1 = 98 Then s1 = 89 End If
            If s1 = 99 Then s1 = 9 End If
            If s3 = 0 Then s3 = 90 End If
            If s3 = 91 Then s3 = 19 End If
            If s3 = 92 Then s3 = 29 End If
            If s3 = 93 Then s3 = 39 End If
            If s3 = 94 Then s3 = 49 End If
            If s3 = 95 Then s3 = 59 End If
            If s3 = 96 Then s3 = 69 End If
            If s3 = 97 Then s3 = 79 End If
            If s3 = 98 Then s3 = 89 End If
            If s3 = 99 Then s3 = 9 End If
            '-----------------------------
            aNum(1) = w1' 1° numero
            aNum(2) = w3' 2° numero
            aNum(3) = y1' 3° numero
            aNum(4) = y3' 4° numero
            aNum(5) = j1' 5° numero
            aNum(6) = j3' 6° numero
            aNum(7) = q1' 7° numero
            aNum(8) = q3' 8° numero
            aNum(9) = s1' 9° numero
            aNum(10) = s3' 10° numero
            '------------
            aNum(11) = f' 11° numero
            aNum(12) = g' 12° numero
            aNum(13) = h' 13° numero
            aNum(14) = i' 14° numero
            aNum(15) = l' 15° numero
            EliminaRipetuti aNum
            aRt(1) = r1
            co = co + 1
            Call Scrivi(String(80,"°") & " Caso n°" & co,1)
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " * " & StringaEstratti(es,r1),1
            ColoreTesto 0
            Scrivi "15 Numeri : " & Format2(w1) & "." & Format2(w3) & "." & Format2(y1) & "." & Format2(y3) & "." & Format2(j1) & "." & Format2(j3) & "." & Format2(q1) & "." & Format2(q3) & "." & Format2(s1) & "." & Format2(s3) & "." & Format2(f) & "." & Format2(g) & "." & Format2(h) & "." & Format2(i) & "." & Format2(l) & ".",1
            Scrivi "Eliminando i Numeri Ripetuti otteniamo : ",1,,,1
            Scrivi Format2(aNum(1)) & "." & Format2(aNum(2)) & "." & Format2(aNum(3)) & "." & Format2(aNum(4)) & "." & Format2(aNum(5)) & "." & Format2(aNum(6)) & "." & Format2(aNum(7)) & "." & Format2(aNum(8)) & "." & Format2(aNum(9)) & "." & Format2(aNum(10)) & "." & Format2(aNum(11)) & "." & Format2(aNum(12)) & "." & Format2(aNum(13)) & "." & Format2(aNum(14)) & "." & Format2(aNum(15)),1,,,,2
            Scrivi
            Dim Zesiti
            Zesiti = VerificaEsiti(aNum,aRt,es + 1,2,,10,,RetEsiti,RetColpi,RetEstratti,RetIdEstr)
            If Zesiti > 0 Then
               SClp = 0
               clp = 18
               For k = 1 To Zesiti
                  SClp = SClp + RetColpi(k)
                  If SClp > clp Then Exit For
                  ColoreTesto 2
                  Call Scrivi(FormatSpace(k,2,True) & ")" & GetInfoEstrazione(RetIdEstr(k)) & " " & FormatSpace(RetEsiti(k),9,True) & _
                  " colpi : " & FormatSpace(SClp,2,True) & "° " & RetEstratti(k),,True)
                  ColoreTesto 0
               Next
            End If
            Scrivi
         End If
      End If
      'Next ' Togli Remmatura per elaborare ruota per ruota in un colpo solo (For r1 = 1 To 10)
   Next
End Sub

BaffoBlù · 4 Giugno 2024

Oberdan · 5 Giugno 2024

BaffoBlù ha scritto:
up

Manca il tempo, Baffoblù.
Di cento non manca l'interesse e la curiosità.
Ma tu sei un vulcano in piena attività eruttiva. E starti dietro, dedicando ad ogni tua idea il tempo e l'attenzione dovuti, non è cosa da poco.
Certo, il tempo per fare un copia e incolla degli script e per farli girare, lo si può sempre trovare.
Ma a cosa condurrebbe una simile condotta superficiale?
A nulla!
Preferisco avere a disposizione il tempo necessario per osservare, analizzare, dedurre ed eventualmente modificare, per ulteriori verifiche e analisi.
Ecco perché, almeno per quanto mi riguarda,, non hai ricevuto ancora riscontri.
Grazie.

Oberdan

claudio8 · 5 Giugno 2024

BaffoBlù ha scritto:
up

vedo che stai migliorando con gli script, hai mandato in soffitta "Gioca" ... finalmente sei entrato negli anni 2020
che carini tutti sti trucchetti che hai inserito... chissà chi è?.....

ps: troppi if x i miei gusti
mancono tanti semplici for .... next
un consiglio, se vuoi, sostituisci sta cosa "retrò" :
dopo ----> Scrivi "Eliminando i Numeri Ripetuti otteniamo : ",1,,,1
metti --- > Scrivi StringaNumeri(aNum,,True),1,,,,2

Passiamo ora al problema da te sollevato - " una cosuccia : non riesco ad inserire " Esito non Verificato" "
.
VerificaEsiti di cui qualcuno non sà nenche dell' esistenza, ha al suo interno un parametro di default Optional EntroColpi a valore =0

dall'Help leggiamo
Optional EntroColpi = 0
Colpi entro i quali verificare la combinazione

anche se non specificato, se si lascia vuoto è = 0

probabilmente è stato impostato da Luigi ad un valore alto cosi come
nEsitiMax
Opzionale se lasciato a 0 prende il valore di 1000

quindi non dando un valore a detto parametro la variabile Zesiti non avrà mai un valore = 0 perche a lungo andare nel tempo priama o poi una estrazione con l'esito la trova, per cui un eventuale inserinto dell' Else nel ciclo If in oggetto per scrive in output ciò che si desidera e che ti riporto
sotto ,

Codice:

If Zesiti > 0 Then
                       Scrivi " Zesiti " & Zesiti
                         SClp = 0
                         clp = 18
                         For k = 1 To Zesiti
                              SClp = SClp + RetColpi(k)
                              If SClp > clp+10 Then Exit For
                              ColoreTesto 2
                              Call Scrivi(FormatSpace(k,2,True) & ")" & GetInfoEstrazione(RetIdEstr(k)) & " " & FormatSpace(RetEsiti(k),9,True) & _
                              " colpi : " & FormatSpace(SClp,2,True) & "° " & RetEstratti(k),,True)
                              ColoreTesto 0
                          Next
                    Else
                         Scrivi " Zesiti " & Zesiti
                         Call Scrivi (" Esito non verificato ",1,,Giallo_,,4)
                    End If

non verrà mai considerato dal costrutto e quindi occorre entrare nel "perchè" del problema e ragionando ( usando l'inevitabile help) si arriva al dover dare a questo parametro obbligatoriamente un valore e che valore diamo? ... il valore di clp (18) il max valore entro il quale ricerchoiamo un esito.

A questo punto lascio agli interessati, non ai "copia e incolla" approfondire le variazioni che devono essere fatte alloscript per la soluzione richiesta.

Annotazione:
Non tutti avranno notatato la riga " Scrivi " Zesiti " & Zesiti " presente sia nel caso di condizione "Zesiti > 0" sia quando la condizione non è presente e quindi diventa efficace
Else
Scrivi " Zesiti " & Zesiti

bene, questa è una mia sana abitudine, come quella di scrive le matrici o le array in output dopo che vengono costruite, per leggere in corso d'opera se lo script fa quanto gli si è richiesto o meno e di conseguenza verificare se è corretto o errato.

Spero di essere stato chiaro. ( mi sono anche rotto di scrivere ) ... chiedete pure se non avete capito qualcosa

@BaffoBlù e lettori, Vi saluto

BaffoBlù · 5 Giugno 2024

Oberdan ha scritto:
Manca il tempo, Baffoblù.
Di cento non manca l'interesse e la curiosità.
Ma tu sei un vulcano in piena attività eruttiva. E starti dietro, dedicando ad ogni tua idea il tempo e l'attenzione dovuti, non è cosa da poco.
Certo, il tempo per fare un copia e incolla degli script e per farli girare, lo si può sempre trovare.
Ma a cosa condurrebbe una simile condotta superficiale?
A nulla!
Preferisco avere a disposizione il tempo necessario per osservare, analizzare, dedurre ed eventualmente modificare, per ulteriori verifiche e analisi.
Ecco perché, almeno per quanto mi riguarda,, non hai ricevuto ancora riscontri.
Grazie.

Oberdan

non preoccuparti, tanto quello che scrivo rimane lì...

BaffoBlù · 5 Giugno 2024

claudio8 ha scritto:
vedo che stai migliorando con gli script, hai mandato in soffitta "Gioca" ... finalmente sei entrato negli anni 2020
che carini tutti sti trucchetti che hai inserito... chissà chi è?.....

ps: troppi if x i miei gusti
mancono tanti semplici for .... next
un consiglio, se vuoi, sostituisci sta cosa "retrò" :
dopo ----> Scrivi "Eliminando i Numeri Ripetuti otteniamo : ",1,,,1
metti --- > Scrivi StringaNumeri(aNum,,True),1,,,,2

Passiamo ora al problema da te sollevato - " una cosuccia : non riesco ad inserire " Esito non Verificato" "
.
VerificaEsiti di cui qualcuno non sà nenche dell' esistenza, ha al suo interno un parametro di default Optional EntroColpi a valore =0

Vedi l'allegato 2284888

dall'Help leggiamo
Optional EntroColpi = 0
Colpi entro i quali verificare la combinazione

anche se non specificato, se si lascia vuoto è = 0

probabilmente è stato impostato da Luigi ad un valore alto cosi come
nEsitiMax
Opzionale se lasciato a 0 prende il valore di 1000

quindi non dando un valore a detto parametro la variabile Zesiti non avrà mai un valore = 0 perche a lungo andare nel tempo priama o poi una estrazione con l'esito la trova, per cui un eventuale inserinto dell' Else nel ciclo If in oggetto per scrive in output ciò che si desidera e che ti riporto
sotto ,

Codice:

If Zesiti > 0 Then Scrivi " Zesiti " & Zesiti SClp = 0 clp = 18 For k = 1 To Zesiti SClp = SClp + RetColpi(k) If SClp > clp+10 Then Exit For ColoreTesto 2 Call Scrivi(FormatSpace(k,2,True) & ")" & GetInfoEstrazione(RetIdEstr(k)) & " " & FormatSpace(RetEsiti(k),9,True) & _ " colpi : " & FormatSpace(SClp,2,True) & "° " & RetEstratti(k),,True) ColoreTesto 0 Next Else Scrivi " Zesiti " & Zesiti Call Scrivi (" Esito non verificato ",1,,Giallo_,,4) End If

non verrà mai considerato dal costrutto e quindi occorre entrare nel "perchè" del problema e ragionando ( usando l'inevitabile help) si arriva al dover dare a questo parametro obbligatoriamente un valore e che valore diamo? ... il valore di clp (18) il max valore entro il quale ricerchoiamo un esito.

A questo punto lascio agli interessati, non ai "copia e incolla" approfondire le variazioni che devono essere fatte alloscript per la soluzione richiesta.

Annotazione:
Non tutti avranno notatato la riga " Scrivi " Zesiti " & Zesiti " presente sia nel caso di condizione "Zesiti > 0" sia quando la condizione non è presente e quindi diventa efficace
Else
Scrivi " Zesiti " & Zesiti

bene, questa è una mia sana abitudine, come quella di scrive le matrici o le array in output dopo che vengono costruite, per leggere in corso d'opera se lo script fa quanto gli si è richiesto o meno e di conseguenza verificare se è corretto o errato.

Vedi l'allegato 2284897

Spero di essere stato chiaro. ( mi sono anche rotto di scrivere ) ... chiedete pure se non avete capito qualcosa

@BaffoBlù e lettori, Vi saluto

Thank you!

spero di aver capito la lezione

l'unica cosa e capire se rimarrà nella "RAM" del mio cervello...

Codice:

Option Explicit
Sub Main()
   ReDim aNum(15)
   ReDim aRt(1)
   Dim idEstrInizio
   Dim idEstrFine
   Dim RetEsiti
   Dim RetColpi
   Dim RetEstratti
   Dim RetIdEstr
   Dim es,r1,a,b,c,d,e,f,g,h,i,l,co,k,pp,clp,SClp
   Dim x1,x2,x3,x4,x5
   Dim y1,y2,y3,a1,a2,a3,a4,a5,a6
   Dim w1,w2,w3,b1,b2,b3,b4,b5,b6
   Dim j1,j2,j3,c1,c2,c3,c4,c5,c6
   Dim q1,q2,q3,d1,d2,d3,d4,d5,d6
   Dim s1,s2,s3,f1,f2,f3,f4,f5,f6
   '-----------------------------
   ' Se vuoi fare tutte le ruote contemporaneamente, Remma questa linea sottostante
   r1 = CInt(InputBox(" Scegli la ruota ",,"1"))
   ' e togli allo stesso tempo la Remmatura a (For r1 = 1 To 10) e anche al (Next) a quasi fine script.
   '-----------------------------
   clp = 18
   aRt(1) = r1
   idEstrInizio = 10000' 1 : inizio Lotto / 3574 : inizio 10 ruote
   idEstrFine = EstrazioneFin
   co = 0
   For es = idEstrInizio To idEstrFine
      'For r1 = 1 To 10 ' Togli Remmatura se vuoi fare tutte le ruote
      Messaggio es
      Call AvanzamentoElab(idEstrInizio,idEstrFine,es)
      If IndiceMensile(es) = 1 Then
         a = Estratto(es,r1,1)
         b = Estratto(es,r1,2)
         c = Estratto(es,r1,3)
         d = Estratto(es,r1,4)
         e = Estratto(es,r1,5)
         If a > 10 And b > 10 And c > 10 And d > 10 And e > 10 Then
            '-------------------
            f = Fuori90(a * 108)' 11° Numero ' Nota : Spesso fra questi 5 numeri ci sono Ripetuti
            g = Fuori90(b * 108)' 12° Numero
            h = Fuori90(c * 108)' 13° Numero
            i = Fuori90(d * 108)' 14° Numero
            l = Fuori90(e * 108)' 15° Numero
            '-------------------------------------------------------------------
            x1 =(a * 108)
            x2 =(b * 108)
            x3 =(c * 108)
            x4 =(d * 108)
            x5 =(e * 108)
            '-----------------------------
            w1 = Int(x1 / 100)' 1° numero
            w2 =(w1 * 100)
            w3 =(x1 - w2)' 2° numero
            If w1 = 91 Then w1 = 19 End If
            If w1 = 92 Then w1 = 29 End If
            If w1 = 93 Then w1 = 39 End If
            If w1 = 94 Then w1 = 49 End If
            If w1 = 95 Then w1 = 59 End If
            If w1 = 96 Then w1 = 69 End If
            If w1 = 97 Then w1 = 79 End If
            If w1 = 98 Then w1 = 89 End If
            If w1 = 99 Then w1 = 9 End If
            If w3 = 0 Then w3 = 90 End If
            If w3 = 91 Then w3 = 19 End If
            If w3 = 92 Then w3 = 29 End If
            If w3 = 93 Then w3 = 39 End If
            If w3 = 94 Then w3 = 49 End If
            If w3 = 95 Then w3 = 59 End If
            If w3 = 96 Then w3 = 69 End If
            If w3 = 97 Then w3 = 79 End If
            If w3 = 98 Then w3 = 89 End If
            If w3 = 99 Then w3 = 9 End If
            '--------------------------------
            y1 = Int(x2 / 100)' 3° numero
            y2 =(y1 * 100)
            y3 =(x2 - y2)' 4° numero
            If y1 = 91 Then y1 = 19 End If
            If y1 = 92 Then y1 = 29 End If
            If y1 = 93 Then y1 = 39 End If
            If y1 = 94 Then y1 = 49 End If
            If y1 = 95 Then y1 = 59 End If
            If y1 = 96 Then y1 = 69 End If
            If y1 = 97 Then y1 = 79 End If
            If y1 = 98 Then y1 = 89 End If
            If y1 = 99 Then y1 = 9 End If
            If y3 = 0 Then y3 = 90 End If
            If y3 = 91 Then y3 = 19 End If
            If y3 = 92 Then y3 = 29 End If
            If y3 = 93 Then y3 = 39 End If
            If y3 = 94 Then y3 = 49 End If
            If y3 = 95 Then y3 = 59 End If
            If y3 = 96 Then y3 = 69 End If
            If y3 = 97 Then y3 = 79 End If
            If y3 = 98 Then y3 = 89 End If
            If y3 = 99 Then y3 = 9 End If
            '----------------------------
            j1 = Int(x3 / 100)' 5° numero
            j2 =(j1 * 100)
            j3 =(x3 - j2)' 6° numero
            If j1 = 91 Then j1 = 19 End If
            If j1 = 92 Then j1 = 29 End If
            If j1 = 93 Then j1 = 39 End If
            If j1 = 94 Then j1 = 49 End If
            If j1 = 95 Then j1 = 59 End If
            If j1 = 96 Then j1 = 69 End If
            If j1 = 97 Then j1 = 79 End If
            If j1 = 98 Then j1 = 89 End If
            If j1 = 99 Then j1 = 9 End If
            If j3 = 0 Then j3 = 90 End If
            If j3 = 91 Then j3 = 19 End If
            If j3 = 92 Then j3 = 29 End If
            If j3 = 93 Then j3 = 39 End If
            If j3 = 94 Then j3 = 49 End If
            If j3 = 95 Then j3 = 59 End If
            If j3 = 96 Then j3 = 69 End If
            If j3 = 97 Then j3 = 79 End If
            If j3 = 98 Then j3 = 89 End If
            If j3 = 99 Then j3 = 9 End If
            '-----------------------------
            q1 = Int(x4 / 100)' 7° numero
            q2 =(q1 * 100)
            q3 =(x4 - q2)' 8° numero
            If q1 = 91 Then q1 = 19 End If
            If q1 = 92 Then q1 = 29 End If
            If q1 = 93 Then q1 = 39 End If
            If q1 = 94 Then q1 = 49 End If
            If q1 = 95 Then q1 = 59 End If
            If q1 = 96 Then q1 = 69 End If
            If q1 = 97 Then q1 = 79 End If
            If q1 = 98 Then q1 = 89 End If
            If q1 = 99 Then q1 = 9 End If
            If q3 = 0 Then q3 = 90 End If
            If q3 = 91 Then q3 = 19 End If
            If q3 = 92 Then q3 = 29 End If
            If q3 = 93 Then q3 = 39 End If
            If q3 = 94 Then q3 = 49 End If
            If q3 = 95 Then q3 = 59 End If
            If q3 = 96 Then q3 = 69 End If
            If q3 = 97 Then q3 = 79 End If
            If q3 = 98 Then q3 = 89 End If
            If q3 = 99 Then q3 = 9 End If
            '------------------------------
            s1 = Int(x5 / 100)' 9° numero
            s2 =(s1 * 100)
            s3 =(x5 - s2)' 10° numero
            If s1 = 91 Then s1 = 19 End If
            If s1 = 92 Then s1 = 29 End If
            If s1 = 93 Then s1 = 39 End If
            If s1 = 94 Then s1 = 49 End If
            If s1 = 95 Then s1 = 59 End If
            If s1 = 96 Then s1 = 69 End If
            If s1 = 97 Then s1 = 79 End If
            If s1 = 98 Then s1 = 89 End If
            If s1 = 99 Then s1 = 9 End If
            If s3 = 0 Then s3 = 90 End If
            If s3 = 91 Then s3 = 19 End If
            If s3 = 92 Then s3 = 29 End If
            If s3 = 93 Then s3 = 39 End If
            If s3 = 94 Then s3 = 49 End If
            If s3 = 95 Then s3 = 59 End If
            If s3 = 96 Then s3 = 69 End If
            If s3 = 97 Then s3 = 79 End If
            If s3 = 98 Then s3 = 89 End If
            If s3 = 99 Then s3 = 9 End If
            '-----------------------------
            aNum(1) = w1' 1° numero
            aNum(2) = w3' 2° numero
            aNum(3) = y1' 3° numero
            aNum(4) = y3' 4° numero
            aNum(5) = j1' 5° numero
            aNum(6) = j3' 6° numero
            aNum(7) = q1' 7° numero
            aNum(8) = q3' 8° numero
            aNum(9) = s1' 9° numero
            aNum(10) = s3' 10° numero
            '------------
            aNum(11) = f' 11° numero
            aNum(12) = g' 12° numero
            aNum(13) = h' 13° numero
            aNum(14) = i' 14° numero
            aNum(15) = l' 15° numero
            EliminaRipetuti aNum
            aRt(1) = r1
            co = co + 1
            Call Scrivi(String(80,"°") & " Caso n°" & co,1)
            ColoreTesto 1
            Scrivi DataEstrazione(es) & " - " & SiglaRuota(r1) & " * " & StringaEstratti(es,r1),1
            ColoreTesto 0
            Scrivi "15 Numeri : " & Format2(w1) & "." & Format2(w3) & "." & Format2(y1) & "." & Format2(y3) & "." & Format2(j1) & "." & Format2(j3) & "." & Format2(q1) & "." & Format2(q3) & "." & Format2(s1) & "." & Format2(s3) & "." & Format2(f) & "." & Format2(g) & "." & Format2(h) & "." & Format2(i) & "." & Format2(l) & ".",1
            Scrivi "Filtraggio Ripetuti ",1,,,1
            Scrivi StringaNumeri(aNum,,True),1,,,,2
            Scrivi
            Dim Zesiti
            Zesiti = VerificaEsiti(aNum,aRt,es + 1,2,clp,8,,RetEsiti,RetColpi,RetEstratti,RetIdEstr)
            If Zesiti > 0 Then
               Scrivi " Zesiti " & Zesiti
               SClp = 0
               clp = 18
               For k = 1 To Zesiti
                  SClp = SClp + RetColpi(k)
                  If SClp > clp + 8 Then Exit For
                  ColoreTesto 2
                  Call Scrivi(FormatSpace(k,2,True) & ")" & GetInfoEstrazione(RetIdEstr(k)) & " " & FormatSpace(RetEsiti(k),9,True) & _
                  " colpi : " & FormatSpace(SClp,2,True) & "° " & RetEstratti(k),,True)
                  ColoreTesto 0
               Next
            Else
               Scrivi " Zesiti " & Zesiti
               Call Scrivi(" Esito non verificato ",1,,Giallo_,,4)
            End If
            ColoreTesto 0
            Scrivi
         End If
      End If
      'Next ' Togli Remmatura per elaborare ruota per ruota in un colpo solo (For r1 = 1 To 10)
   Next
End Sub

Vecchi metodi e vecchi script by BaffoBlù

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Super Member >GOLD<

Advanced Member >PLATINUM PLUS<

Member

Junior Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Junior Member

Allegati

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Advanced Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<

Member

Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM<