uno script nuovo x un vecchio metodo

[vincenzo4221]

si può fare uno script?

 

[Baffoblu]

in serata lo trovi pronto......

 

[vincenzo4221]

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

 

[Baffoblu]

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 :

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.....

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

 

[LuigiB]

Ciao Baffo ..stavo guardando lo script e l'output , mi sa che c'è da vedere qualcosa..

 

[Baffoblu]

Ciao Baffo ..stavo guardando lo script e l'output , mi sa che c'è da vedere qualcosa..

Ciao Luigi

Cosa hai visto che non va ?

A me sembra rispettare tutto nei minimi particolari......

 

[LuigiB]

bho mi esce un output strano ..

 

[Baffoblu]

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