Novità

uno script nuovo x un vecchio metodo

ciao Baffo , grazie per la disponibilià , volevo dirti che possiedo una piccola collezione di metodi raccolti durante questi anni di passione,
in passato grazie alle mie energie giovanilli , riuscivo a fare tutto a mano , e trovando delle convergenze , avevo dei buoni risultati i metodi non sono più di 10 .Posso chiederti di farne qualcun altro , per la gioia mia e di tutti, (non sono elomiei , ma fanno parte di tante ore di ricerca e verifiche e non vorrei pubblicarli tutti adesso , per il momento, magari dopo centellinando.........) E QUESTO E' UN SUPERPRONOSTICO VENEZIA 33 89 x ambata , 33 89 49 x ambo, max 3 colpi. x le VS convergenze
 
ciao Baffo , grazie per la disponibilià , volevo dirti che possiedo una piccola collezione di metodi raccolti durante questi anni di passione,
in passato grazie alle mie energie giovanilli , riuscivo a fare tutto a mano , e trovando delle convergenze , avevo dei buoni risultati i metodi non sono più di 10 .Posso chiederti di farne qualcun altro , per la gioia mia e di tutti, (non sono elomiei , ma fanno parte di tante ore di ricerca e verifiche e non vorrei pubblicarli tutti adesso , per il momento, magari dopo centellinando.........) E QUESTO E' UN SUPERPRONOSTICO VENEZIA 33 89 x ambata , 33 89 49 x ambo, max 3 colpi. x le VS convergenze

.....Uno alla volta, e piano piano quando ho tempo
e sopratutto se li so fare......:)


Comunque eccoti lo script :



Codice:
Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(11)
    Dim posta(10)
    Dim poste(10)
    Dim r
    Dim r1
    Dim p1
    Dim p2
    Dim n1
    Dim n2
    Dim a1
    Dim b1
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim am(2)
    Dim am1(5)
    Dim am2(5)
    posta(1) = 1
    poste(2) = 1
    ruote(1) = r
    ruote(2) = r1
    nAnalisi = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
    nColpiDiGioco = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"9"))
    Inizio = EstrazioneFin - nAnalisi
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For r = 1 To 11
            If r = 11 Then
                r = 12
            End If
            For p1 = 1 To 5
                For p2 = p1 + 1 To 5
                    n1 = Estratto(idEstr,r,p1)
                    n2 = Estratto(idEstr,r,p2)
                    z1 = n1 / 10
                    z2 = Int(z1)
                    z3 = n1 Mod 10
                    x1 = n2 / 10
                    x2 = Int(x1)
                    x3 = n2 Mod 10
                    If(z3 = z2) And(x3 = x2) Then
                        If n1 > 45 Then
                            a1 =(n1 - 23)
                        End If
                        If n1 < 45 Then
                            a1 =(n1 + 23)
                        End If
                        If n2 > 45 Then
                            b1 =(n2 - 23)
                        End If
                        If n2 < 45 Then
                            b1 =(n2 + 23)
                        End If
                        For r1 = 1 To 11
                            If r1 = 11 Then
                                r1 = 12
                            End If
                            c1 = Estratto(idEstr,r1,p1)
                            ok = 0
                            If c1 = a1 Then
                                am(1) = b1
                                nu2 = a1
                                ok = 1
                            End If
                            If c1 = b1 Then
                                am(1) = a1
                                nu2 = b1
                                ok = 1
                            End If
                            so1 = Fuori90(n1 + n2)
                            so2 = Fuori90(nu2 + am(1))
                            If so1 = so2 Then
                                am(2) = so1
                            End If
                            k1 = Radicale(n1)
                            k2 = Radicale(n2)
                            ra1 = k1
                            ra2 = k1 * 10
                            ra3 = ra2 + 9
                            ra4 = k2
                            ra5 = k2 * 10
                            ra6 = ra5 + 9
                            am1(1) = am(1)
                            am1(2) = am(2)
                            am1(3) = ra1
                            am1(4) = ra2
                            am1(5) = ra3
                            am2(1) = am(1)
                            am2(2) = am(2)
                            am2(3) = ra4
                            am2(4) = ra5
                            am2(5) = ra6
                            If ok = 1 Then
                                ruote(1) = r
                                ruote(2) = r1
                                co = co + 1
                                Scrivi String(100,"°") & " Caso n°" & co,1
                                Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r) & " - " & StringaEstratti(idEstr,r) & " ** " & " Rintracciato Ambo Gemello :   " & Format2(n1) & " - " & Format2(n2) & "  in " & p1 & "° pos. e in " & p2 & "° pos.",1
                                Scrivi
                                ColoreTesto 1
                                Scrivi Format2(a1) & " - " & Format2(b1) & " *  Uno dei 2 Numeri da rintracciare in un altra ruota",1
                                Scrivi
                                Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(r1) & " - " & StringaEstratti(idEstr,r1) & " ** " & " : " & Format2(nu2) & " In " & p1 & "° pos." & " *  (Corrispondente isotopo trovato) ",1
                                Scrivi
                                Scrivi "Somma 1 : " & Format2(so1) & " *** " & " Somma 2 : " & Format2(so2),1
                                Scrivi
                                Scrivi "1° Ambata  : " & Format2(am(1)),1
                                Scrivi "2° Ambata  : " & Format2(am(2)),1
                                Scrivi
                                Scrivi "Abbinamenti Radicali : " & ra1 & "-" & ra2 & "-" & ra3 & " *** " & ra4 & "-" & ra5 & "-" & ra6,1
                                ColoreTesto 0
                                Scrivi String(100,"="),1
                                ImpostaGiocata 1,am,ruote,posta,nColpiDiGioco,1
                                ImpostaGiocata 2,am1,ruote,poste,nColpiDiGioco,2
                                ImpostaGiocata 3,am2,ruote,poste,nColpiDiGioco,2
                                Gioca idEstr,1,,1
                            End If
                        Next
                    End If
                Next
            Next
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub









Si poteva fare anche con questa funzione,
ma ho preferito il mio modo......meno righe da scrivere.....:)








Codice:
Function RicercaAmbiGemelli(estrazione,tentativo,byref ruota1,byref numero1,byref numero2)
    Dim trovati,r,p1,p2
    For r = 1 To 11
        If r = 11 Then
            r = 12
        End If
        For p1 = 1 To 4
            For p2 = p1 + 1 To 5
                If Gemello(Estratto(estrazione,r,p1)) And Gemello(Estratto(estrazione,r,p2)) Then
                    trovati = trovati + 1
                    If trovati = tentativo Then
                        numero1 = Estratto(estrazione,r,p1)
                        numero2 = Estratto(estrazione,r,p2)
                        ruota1 = r
                        RicercaAmbiGemelli = True
                        Exit Function
                    End If
                End If
            Next
        Next
    Next
    RicercaAmbiGemelli = False
End Function
 
Ciao Baffo ..stavo guardando lo script e l'output , mi sa che c'è da vedere qualcosa..
 
bho mi esce un output strano ..
i8259_VincenzoByBaffo.JPG
 

Allegati

  • VincenzoByBaffo.jpg
    VincenzoByBaffo.jpg
    97,8 KB · Visite: 3
Hehehe, ma per quante estrazioni lo hai analizzato ?.....

Quell'errore esce perchè nel 1989 non esisteva la ruota nazionale.....:)

io ho messo nell'analisi - 100 per vedere la situazione attuale......

Quel ciclo For della malora......

Ma perchè hanno inventato la Nazionale :mad:

:)
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07
Indietro
Alto