Script

DjNomade · Sabato alle 19:32

margot ha scritto:
buongiorno, l'esempio era su roma nelle ultime estrazioni, quella del 23/07, posso avere, se possibile, lo script dove avete aggiunto il 4° elemento, formando la quartina? grazie di avermi ascoltata e buona giornata a tutti

Comunque sul listato SPAKKA abilita questa riga nell'ultima giocata
' num3(4)=c
togliendo l'apice evidenziato in rosso e nella quartina troverai l'ambata raddoppiata

scarfacetony · Sabato alle 20:58

DjNomade ha scritto:
Comunque sul listato SPAKKA abilita questa riga nell'ultima giocata
' num3(4)=c
togliendo l'apice evidenziato in rosso e nella quartina troverai l'ambata raddoppiata

Buonasera,ok grazie

nunzio65 · Ieri alle 16:15

VOLEVO CHIEDERE SE QUALCUNO HA LO SCRIPT DI AMBO BIS E DI SEMPLICE DI BADESSA GRAZIE

DjNomade · Ieri alle 21:38

Naturalmente da controllare

Codice:

'https://www.facebook.com/photo?fbid=741277244688386&set=pcb.2999450986855909
'06-12-2022
ColoreTesto 2
Scrivi String(37,32) & " Ambo Bis by Badessa Lotto ",1
Scrivi String(45,32) & "",1
ColoreTesto 0
Sub Main()
    Dim nu1(10),nu2(10),nu3(10),nu4(10)
    Dim ruote(10),ruota(10)
    Dim poste(5),poste1(5),poste2(5),poste3(5)
    poste(1) = 1
    poste(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    poste2(3) = 1
    fin = EstrazioneFin
    ini =fin - 50
    For es = ini To fin
        AvanzamentoElab ini,fin,es
        For r1 = 1 To 10
            For p1 = 1 To 4
                For p2 = p1 + 1 To 5
                    n1 = Estratto(es,r1,p1)
                    n2 = Estratto(es,r1,p2)
                    For r2 = r1 + 1 To 12
                        If r2 = 11 Then r2 = 12
                        For p3 = 1 To 4
                            For p4 = p3 + 1 To 5

                                n3 = Estratto(es,r2,p3)
                                n4 = Estratto(es,r2,p4)
                                If (n1=n4 And n2=n3) Or (n1=n3 And n2=n4) Then
                                n5 =Fuori90(n1 + n2)'ambata 20+9  29
                                n6 = DiametraleD(n5)'abb  29-5 24

                                n7 = Diametrale(n5)'abb 29+45 74
                                n8 = DiametraleD(n7)'abb 74+5 79
                                
                                '*********Versione 2020  ********************************
                                                   'n3 = Estratto(es,r2,p3)
                                'n4 = Estratto(es,r2,p4)
                                'If (n1=n4 And n2=n3) Or (n1=n3 And n2=n4) Then
                                'n5 = Abs(n1 - n2)'ambata
                                'n6 = Diametrale(n5)'abb
                                'n7 = DiametraleD(n6)'abb
                                'n8 = DiametraleD(n5)'abb
                                                 '******************************
                                
                                    casi = casi + 1
                                    Scrivi
                                    Scrivi String(75,"=") & " caso n° " &(casi)
                                    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                                    " > ambo Ripetuto < " & Format2(n1) & "." & Format2(n2) & " >",1
                                    Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                                    " > ambo Ripetuto < " & Format2(n3) & "." & Format2(n4),1
                                    ruote(1) = r1
                                    ruote(2) = r2
                                    ruota(1) = 11
                                    k = 12:k1 = 36
                                    co = 0


                                    
                                    nu2(1) = n5 
                                    nu2(2) = n6
                                    ImpostaGiocata 1,nu2,ruote,poste1,k
                                    nu2(1) = n7 
                                    nu2(2) = n8
                                    ImpostaGiocata 2,nu2,ruote,poste1,k

                                    nu3(1) = n5 
                                    nu3(2) = n6
                                    nu3(3) = n7 
                                    nu3(4) = n8
                                    ImpostaGiocata 3,nu3,ruote,poste2,k
                                    
                                    
                                    Gioca es
                                End If
                                'End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto

    ColoreTesto 2
    Scrivi String(37,32) & "Ambo Bis  by Badessa Lotto",1
    Scrivi String(45,32) & "",1
    ColoreTesto 0
End Sub

Codice:

'https://youtu.be/CkN63zK_2EU?list=PLrsFYPMN_mgEQjUUxv7WSekctksayWeFm
Sub Main()
   Scrivi " Metodo Semplice di Salvo Badessa",1
   Scrivi
   Dim ruota1(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),cinquina(5),ruota(10),h,y,posta(10),poste(2),postee(4),poste1(4)
   : poste(2) = 1: postee(2) = 1 : postee(3) = 1 : postee(4) = 0.50
poste1(2) = 1 : poste1(3) = 1
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",10)
   k = CInt(InputBox("QUANTI COLPI ?","",9))
   'ini = EstrazioneFin - EstrazioniLotto
   fin = EstrazioneFin
   ini = fin - estrazionilotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r1 = 1 To 12
        If r1 = 11  Then r1 = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               n1 = Estratto(es,r1,p1)
               n2 = Estratto(es,r1,p2)

                        n5 = Fuori90(n1 + n2)
         For r2= 1 To 12
        If r2 = 11  Then r2 = 12
         For p3 = 1 To 5
               n3 = Estratto(es,r2,p3)
                      

                        If n5 = 90 And  n3 =Abs(n1-n2)  And (p3 =p1 Or p3 =p2)  Then
                        n4 = Diametrale(n3)'88+45  43
                        n6 = Diametrale(n3)'88
                       If p3 =p1 Then n7 = Estratto(es,r2,p2)
                       If p3 =p2 Then n7 = Estratto(es,r2,p1)
                        n8 =Abs(n3-n7)

                      amb=n4
                      abb1=n3
                      abb2=n8
                      

                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " > ambo < " & Format2(n1) & "." & Format2(n2) & " > somma < " & Format2(n5)
                          If p3 =p1 Then  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >      < " & Format2(n3) &"."& Format2(n7)
                          If p3 =p2 Then  Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >      < " & Format2(n7) &"."& Format2(n3)
                           ruota(1) = r1 :
                           ruota(2) = r2  :ruote(2) = 11
                           ruota1(1) = r1 :
                           ruota1(2) = r2  :ruota1(3) = 11
                           '----------------------------------------
                            Erase posta
                            posta(1) = 1
                            posta(p1+5) = 1
                            posta(p2+5) = 1
                           ambata(1) = amb
                           ImpostaGiocata 1,ambata,ruota,posta,k
                           ambo1(1) = amb
                           ambo1(2) =  abb1
                           ImpostaGiocata 2,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) =  Fuori90(abb1+1)
                           ImpostaGiocata 3,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(90+abb1-1)
                           ImpostaGiocata 4,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(amb+1)
                           ambo1(2) =  abb1
                           ImpostaGiocata 5,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(90+amb-1)
                           ambo1(2) =  abb1
                           ImpostaGiocata 6,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = abb2
                           ImpostaGiocata 7,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(abb2+1)
                           ImpostaGiocata 8,ambo1,ruota,poste,k
                           ambo1(1) = amb
                           ambo1(2) = Fuori90(90+abb2-1)
                           ImpostaGiocata 9,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(amb+1)
                           ambo1(2) =  abb2
                           ImpostaGiocata 10,ambo1,ruota,poste,k
                           ambo1(1) = Fuori90(90+amb-1)
                           ambo1(2) =  abb2
                           ImpostaGiocata 11,ambo1,ruota,poste,k


                    
                           quartina(1) = amb
                           quartina(2) = abb1
                           quartina(3) = abb2
                           ImpostaGiocata 12,quartina,ruota1,poste1,k
                           cinquina(1) = amb
                           cinquina(2) = abb1
                           cinquina(3) = abb2
                           cinquina(4) = DiametraleD(amb)
                           cinquina(5) = DiametraleD(abb1)
                          ' ImpostaGiocata 13,cinquina,ruota,postee,k
                  

                           Gioca es',1
                        End If
                        Next 
                     Next
                     Next   
                     Next 
                     Next 
     Next   

                     ScriviResoconto
                     End Sub

scarfacetony · Ieri alle 22:09

Buonasera metodo DIAMANTE di Badessa

https://www.mediafire.com/file/q5ipddf6478gnp7/💎DIAMANTE.+IL+METODO.mp4/file

nunzio65 · Ieri alle 22:13

GRAZIE

scarfacetony · Ieri alle 22:36

Sempre Badessa

https://www.mediafire.com/file/88vyz3ajrupuik8/TECNICA+I+NUMERETTI.+++IL+MIO+GRAZIE+A+TE+AMICO⧸A♥️.mp4/file

nunzio65 · Ieri alle 22:45

GRAZIE AMICO

Cerca

Cerca

Script

DjNomade

Advanced Member >PLATINUM PLUS<

scarfacetony

Member

nunzio65

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

scarfacetony

Member

nunzio65

Junior Member

scarfacetony

Member

nunzio65

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi