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 · Lunedì alle 16:15

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

DjNomade · Lunedì 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 · Lunedì alle 22:09

Buonasera metodo DIAMANTE di Badessa

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

nunzio65 · Lunedì alle 22:13

GRAZIE

scarfacetony · Lunedì alle 22:36

Sempre Badessa

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

nunzio65 · Lunedì alle 22:45

GRAZIE AMICO

DjNomade · Ieri 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

scarfacetony · Ieri alle 18:51

Buonasera, Ripetizione degli Eventi

LA RIPETIZIONE. . RICHIESTA ACCORDATA.

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

franca46 · Ieri alle 20:42

Grazie dj e scarface

nunzio65 · Ieri alle 20:43

grazie

DjNomade · Oggi alle 07:08

A questo non ho idea .........

franca46 · Oggi alle 11:44

buongiorno grazie

nunzio65 · Oggi alle 18:26

ci sono altri script di badessa. Grazie

DjNomade · Oggi alle 20:53

Sempre da con trollare......

Codice:

Sub main()
Dim nu1(2),nu2(4),nu3(6),ruote(2),ruotee(10)
Dim  am(2),am1(2),am2(4),am3(2),am4(2),am5(2),n(5)
Dim posta(1)
Dim poste(2)
Dim postee(4)

posta(1)=1
poste(2)=1
postee(2)=1.50
postee(3)=.50

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10000)
k=InputBox ("per quanti colpi?","colpi di gioco",9)
ini=ce
fin=EstrazioneFin
Scrivi "METODO SPECCHIO by Salvo Badessa ",1
Scrivi String(83,"="),1
Scrivi "Resoconto da "&DataEstrazione(ini,1)&" a "&_
DataEstrazione(fin,1)&" ("&(fin-ce)&" estr.)"
For es=ini To EstrazioneFin
Messaggio "elab. estr. ["&(es)&"] di "&_
DataEstrazione (es,1)

For r1= 1 To 12
If r1=11 Then r1=12
For p1= 1 To 4
For  p2= p1+1 To 5

a=Estratto(es,r1,p1):b=Estratto(es,r1,p2)

If a=Vert(b) Then

'-----------------------

                       n(1)=Fuori90(a+b)'AMBATA
                       n(2)=a
                       n(3)=b
                       n(4)=Vert(n(1))
'-----------------------

casi=casi+1:Scrivi String(65,"=")&" ",1
Scrivi DataEstrazione(es,1)&" [ "&SiglaRuota(r1)&" - "&StringaEstratti(es,r1)&" ] [ "&_
Format2(a)& "-" & Format2(b)&"] Ambo Vertibile " &(p1)&"^/"&(p2)&"^ pos.",1
ColoreTesto 2
If Distanza(p1,p2)=1 Then Scrivi"AMBI UNITI",1
ColoreTesto 0
Scrivi String(71,"-")&" caso n° "&(casi),1
ruote(1)=r
ruote(2)=r1
ruotee(1)=r
ruotee(2)=r1
ruotee(3)=11
ruotee(4)=12
:co=0
am(1)=n(1)
 ImpostaGiocata 1,am,ruote,posta,k
am1(1)=n(1)
am1(2)=n(2)
 ImpostaGiocata 2,am1,ruote,poste,k
am1(1)=n(1)
am1(2)=n(3)
 ImpostaGiocata 3,am1,ruote,poste,k

am2(1)=n(1)
am2(2)=n(2)
am2(3)=n(3)
am2(4)=n(4)
 ImpostaGiocata 4,am2,ruotee,postee,k

Gioca es
End If

Next:Next:Next:Next
Scrivi String(65,"=")&" ",1
ScriviResoconto

End Sub

Codice:

Sub Main()
   Scrivi "METODO SPECCHIO 2 by Salvo Badessa ",1
   Scrivi
   Dim ruotee(10),ruote(10),ambata(2),ambo1(2),ambo2(2),ambo3(2),quartina(5),ruota(10),h,y,posta(1),poste(10),postee(4)
    posta(1) = 1: postee(2) = 1 : postee(3) = 1
poste(2) = 1
   EstrazioniLotto = InputBox("QUANTE ESTRAZIONI VUOI CONTROLLARE ?","",400)
   k = CInt(InputBox("QUANTI COLPI ?","",12))
   fin = EstrazioneFin
   ini = fin - EstrazioniLotto
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      For r = 1 To 9
       r1 =r+1
  
         For p1 = 1 To 5
         For p2 = 1 To 5

               n1 = Estratto(es,r,p1)'89        15
               n2 = Estratto(es,r1,p1)'88       51

               If n1 = Vert(n2)   Then
               n3=Fuori90(n1+n2)
         For r2 = 1 To 10
              
               n4 = Estratto(es,r2,p2)
        ' If n4 = n3  And p2=p1 And r<>r2 And r1<>r2  Then ' la somma in posiz isotopa
         If n4 = n3 And r<>r2 And r1<>r2  Then 'la somma in  tutte le posizioni
                n5=90-n4
                           casi = casi + 1:Scrivi String(75,"=") & " caso n° " &(casi),1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r) & " " & StringaEstratti(es,r) & _
                           " >  < " & Format2(n1) ,1
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & _
                           " >  < " & Format2(n2) &  " > Vertibile < " ,1
                           Scrivi
                           Scrivi DataEstrazione(es,1) & " < " & SiglaRuota(r2) & " " & StringaEstratti(es,r2) & _
                           " >  < " & Format2(n4) ,1
                           ColoreTesto 2
                           If  p2=p1 Then Scrivi"  NUMERO SOMMA TROVATO IN POSIZIONE ISOTOPA",1
                           ColoreTesto 2

                           ruote(1) = r2 '
                           ruote(2) = 12
                           '----------------------------------------
                           ruotee(1) = r2 '
                           ruotee(2) = 11
                           ruotee(3) = 12
                          
    
                          
                           ambata(1) = n5
                           ambata(2) = DiametraleD(n5)
                           ImpostaGiocata 1,ambata,ruote,posta,k
                           ambata(1) = n5
                           ambata(2) = n1
                           ImpostaGiocata 2,ambata,ruote,poste,k
                           ambata(1) = n5
                           ambata(2) = n2
                           ImpostaGiocata 3,ambata,ruote,poste,k
                           ambata(1) = DiametraleD(n5)
                           ambata(2) = n1
                           ImpostaGiocata 4,ambata,ruote,poste,k
                           ambata(1) = DiametraleD(n5)
                           ambata(2) = n2
                           ImpostaGiocata 5,ambata,ruote,poste,k
                           quartina(1) = n5
                           quartina(2) = DiametraleD(n5)
                           quartina(3) = n1
                           quartina(4) = n2
                           ImpostaGiocata 6,quartina,ruote,postee,k

                  

                           Gioca es
                        End If

                        Next
                        End If
                     Next
                     Next   
                   Next
                   Next   

                     ScriviResoconto
                     End Sub

nunzio65 · 21 minuti fa

grazie

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<

scarfacetony

Member

LA RIPETIZIONE. . RICHIESTA ACCORDATA.

franca46

Advanced Member >PLATINUM PLUS<

nunzio65

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

franca46

Advanced Member >PLATINUM PLUS<

nunzio65

Junior Member

DjNomade

Advanced Member >PLATINUM PLUS<

nunzio65

Junior Member

Ultima estrazione Lotto

Ultimi Messaggi