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

DjNomade · Oggi alle 07:16

Controllate questi

Codice:

'https://www.youtube.com/watch?v=yoEQNhpavL8
'

Scrivi "  3 TRE 3  -   NUMERETTI   BY SALVO BADESSA",1
Sub main()
Dim num(2),num1(2),num2(4),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste1(5)
poste(2)=1
poste1(2)=1
poste1(3)=1
ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10065)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin

Scrivi String(76,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(rs)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r=1 To 12
If r=11 Then r=12

For p1=1 To 5

a=Estratto(es-1,r,p1)
b=Estratto(es,r,p1)

If (Distanza(a,b)=3 Or Distanza(a,b)=6)  And a<10 And b<10 Then 'iso
If Distanza(a,b)=3 Then c=Massimo(a,b)+3
If c>9 Then c=Minimo(a,b)-3
If Distanza(a,b)=6 Then c=Minimo(a,b)+3

d=DiametraleD(c)
casi=casi+1:Scrivi String(58,"="),1
Scrivi DataEstrazione(es-1,1)& " [ "&SiglaRuota(r)&" - "&StringaEstratti(es-1,r)&_
" ] [ "&format2(a)&" ] in "&(p1),1
Scrivi DataEstrazione(es,1) & " [ " &SiglaRuota(r)&" - "&StringaEstratti(es,r)&_
" ] [ "&format2(b)&" ] in "&(p1),1

Scrivi String(62,"-")&" caso n° "&(casi)
ruota1(1)=r
ruota1(2)=r1
ruota2(1)=r
ruota2(2)=r1
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1:
posta(p1+5)=1

num1(1)=c
cg=cg+1
ImpostaGiocata cg,num1,ruota1,posta,k
num(1)=c
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num2(1)=c
num2(2)=d
num2(3)=Vert(c)
num2(4)=Vert(d)
cg=cg+1
ImpostaGiocata cg,num2,ruota2,poste1,k
Gioca es
Scrivi
Scrivi  "           AMBETTI   ",1
Scrivi
num(1)=c
num(2)=Fuori90(d+1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=c
num(2)=Fuori90(90+d-1)
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(c+1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=Fuori90(90+c-1)
num(2)=d
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub

Codice:

'https://www.youtube.com/watch?v=Wsaozwg30Zk
Sub main()
Scrivi: ColoreTesto 1: Scrivi " DIAMANTE  BY BADESSA LOTTO  ",1
Scrivi: ColoreTesto 0
    Dim nu1(10),nu2(10),nu3(10),nu4(10),nu(10)
    Dim ruote(10),ruota(10)
    Dim posta(5),poste(5),poste1(5),poste2(5),poste3(5)
    posta(1) = 1
    poste(1) = 1
    poste1(2) = 1
    poste2(2) = 1
    poste2(3) = 1.7
    poste2(4) = .3


      z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",100))
      k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))

            
    fin = EstrazioneFin
    ini = fin - z
    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
                              For p3 = 1 To 4
                             For p4 = p3 + 1 To 5
                              For p5 = 1 To 4
                             For p6 = p5 + 1 To 5


                                      n1 = Estratto(es,r1,p1)'
                                      n2 = Estratto(es,r1,p2)'
                                n3 = Estratto(es-1,r1,p3)'
                                n4 = Estratto(es-1,r1,p4)'
                                n5 = Estratto(es-2,r1,p5)
                                n6 = Estratto(es-2,r1,p6)
                                
                                n7 = Abs(n1-n2)'distanza orizz
                                n8 = Abs(n3-n4)'distanza orizz
                                n9 = Abs(n5-n6)'distanza  orizz
                                If n7=1 And n8=1 And n9=1  Then
                                n10 =Fuori90(n1+n3)' som vert
                                                n11 =Fuori90(n2+n4)' som vert
                                                n12 =Fuori90(n1+n4)' som diag  45+20  65
                                                n13 =Fuori90(n2+n3)' som diag  44+21  65
                                                n14 =Abs(n1-n3)'diff vert 45-21  24
                                                n15 =Abs(n2-n4)'diff vert 44-20  24
                                                n16 =Abs(n1-n4)'diff diag 45-20 
                                                n17 =Abs(n2-n3)'diff diag 44-21 
                                If n10=n11 Or n12=n13   Then
                                If n10=n11 Then som1=n10
                                If n12=n13 Then som1=n12  '65
                                If n14=n15 Or n16=n17   Then
                                If n14=n15 Then dif1=n14' 24
                                If n16=n17 Then dif1=n16 '

                                n18 =Fuori90(n3+n5)' som vert
                                                n19 =Fuori90(n4+n6)' som vert
                                                n20 =Fuori90(n3+n6)' som diag  21+41  62
                                                n21 =Fuori90(n4+n5)' som diag  20+42  62
                                                n22 =Abs(n3-n5)'diff vert 42-21  21
                                                n23 =Abs(n4-n6)'diff vert 41-20  21
                                                n24 =Abs(n3-n6)'diff diag 41-21 
                                                n25 =Abs(n4-n5)'diff diag 42-20
                                If n18=n19 Or n20=n21   Then
                                If n18=n19 Then som2=n18
                                If n20=n21 Then som2=n21  '62
                                If n22=n23 Or n24=n25   Then
                                If n22=n23 Then dif2=n22' 21
                                If n24=n25 Then dif2=n24 '




               x = Fuori90(som1+dif1)'65+24=89
               y = Fuori90(som2+dif2)'62+21=83
               NN1 =Abs(x-y)'89-83  6  CHIAVE
               NN2 =Fuori90( NN1+Massimo(n1,n2))'6+45  51 ambata
               NN3 =Fuori90(NN2+1)'51+1 52
               '-----------------------------------
               NN4 = DiametraleD(NN2)
               NN5 = DiametraleD(NN3)

               NN6 = Vert(NN2)
               NN7 = Vert(NN3)

 casi=casi+1:Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi DataEstrazione(es-2,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es-2,r1)& " -----> "&Format2(n5)& " "&Format2(n6),1
Scrivi DataEstrazione(es-1,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es-1,r1)& " -----> "&Format2(n3)& " "&Format2(n4),1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r1)& " "& StringaEstratti(es,r1)& " -----> "&Format2(n1)& " "&Format2(n2),1
Scrivi


                                                      Scrivi


                                    ruota(1) = r1
                                    ruota(2) = 12

                                    ruote(1) = r1
                                    ruote(2) = 11
                                    ruote(3) = 12

                                    co = 0

                                    nu2(1) = NN2
                                    nu2(2) = NN3                           
                                                      ImpostaGiocata 1,nu2,ruota,poste1,k               
                                    nu1(1) = NN4 
                                    nu1(2) = NN5
                                    ImpostaGiocata 2,nu1,ruota,poste1,k
                                    nu1(1) = NN6 
                                    nu1(2) = NN7
                                    ImpostaGiocata 3,nu1,ruota,poste1,k

                                    nu4(1) = NN2 
                                    nu4(2) = NN3
                                    nu4(3) = NN4 
                                    nu4(4) = NN5
                                    nu4(5) = NN6 
                                    nu4(6) = NN6 
                                    
                                    ImpostaGiocata 6,nu4,ruote,poste2,k

        
                                    Gioca es



End If
End If
End If
End If
End If
Next
Next
Next
Next

Next
Next
Next
Next

ScriviResoconto
 End Sub

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

DjNomade

Advanced Member >PLATINUM PLUS<

Ultima estrazione Lotto

Ultimi Messaggi