Novità

Script

Salvo errori.....



Codice: 
'https://www.youtube.com/watch?v=a-juE5qi8rs
'21-07-2024


ColoreTesto 2 :Scrivi String(17,32)&"  LA MUMMIA 3  by Salvo Badessa",1



ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(10),poste2(5),poste3(5)

poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=1.20
poste3(3)=1.40
poste3(4)=.40
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
Messaggio DataEstrazione (es,1)&"  LA MUMMIA 3  by Salvo Badessa   "


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)
n11=Estratto(es,r1,p1+1)
If (Distanza(n1,n2)=1 Or Distanza(n1,n2)=2) And  Distanza(p1,p2)=2 Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)
If ((Distanza(n3,n1)=1 And Distanza(n3,n2)=2)Or (Distanza(n3,n1)=2 And Distanza(n3,n2)=1)Or (Distanza(n3,n1)=1 And Distanza(n3,n2)=1)) And n3<>n1 And n3<>n2 And (p3=p1+1)Then

If (Distanza(n1,n2)=1 And (Distanza(n3,n1)=1 And Distanza(n3,n2)=2)Or (Distanza(n3,n1)=2 And Distanza(n3,n2)=1)) Then n4=n11-1:n5=Vert(n4):n6=n4-1:n7=Vert(n6)
If Distanza(n1,n2)=2  And Distanza(n3,n1)=1 And Distanza(n3,n2)=1 Then n4=n11-2:n5=Vert(n4):n6=n4-1:n7=Vert(n6)

If (n4=n6 And n5=n7) Or (n4=n7 And n5=n6) Then n6=n11:n7=Vert(n6) 






casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& "    "&Format2(n1)& "    "&Format2(n2),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& "       "&Format2(n3),1

Scrivi
ruota(1)=r1:ruota(2)=r2:ruota(3)=11:ruota(4)=12
ruote(1)=r1:ruote(2)=r2:co=0

Erase posta
posta(1)=1
posta(2)=1
posta(p3+5)=1



am(1)=n4
am(2)=n5
ImpostaGiocata 1,am,ruote,posta,k
am(1)=n6
am(2)=n7
ImpostaGiocata 2,am,ruote,posta,k

am4(1)=n4
am4(2)=n5
am4(3)=n6
am4(4)=n7
ImpostaGiocata 3,am4,ruota,poste3,k
Gioca es
ColoreTesto 2
Scrivi "      AMBETTI   ",1
ColoreTesto 0
am3(1)=n4
am3(2)=Fuori90(n5+1)

ImpostaGiocata 4,am3,ruota,poste,k
am3(1)=n4
am3(2)=Fuori90(90+n5-1)

ImpostaGiocata 5,am3,ruota,poste,k
am3(1)=Fuori90(n4+1)
am3(2)=n5
ImpostaGiocata 6,am3,ruota,poste,k
am3(1)=Fuori90(90+n4-1)
am3(2)=n5
ImpostaGiocata 7,am3,ruota,poste,k

am3(1)=n6
am3(2)=Fuori90(n7+1)
ImpostaGiocata 8,am3,ruota,poste,k
am3(1)=n6
am3(2)=Fuori90(90+n7-1)
ImpostaGiocata 9,am3,ruota,poste,k
am3(1)=Fuori90(n6+1)
am3(2)=n7
ImpostaGiocata 10,am3,ruota,poste,k
am3(1)=Fuori90(90+n6-1)
am3(2)=n7
ImpostaGiocata 11,am3,ruota,poste,k
Gioca es
End If
End If
Next
Next
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
 
franca46 ha scritto:
buon pomeriggio a Voi
il metodo spakka si applica in un unica estrazione tipo cosi'

Codice: 
Na-Pa Numero isotopo 79 estratto al 1° posto
gio 16.05.2024  [10441]
  G  1:  M       23.32.68   Na Pa Nz    12/12   
     M  23               su Na    3° colpo   [10444/21.05.2024]
     M  32.68            su Pa    4° colpo   [10445/23.05.2024]
     M  68               su Na    5° colpo   [10446/24.05.2024]
     M  32               su Na    8° colpo   [10449/30.05.2024]
     M  23               su Nz   10° colpo   [10451/01.06.2024]
     M  68               su Na   11° colpo   [10452/04.06.2024]

  G  2:  AT      23.32.68   Na Pa Nz    12/12   
     A  32.68            su Pa    4° colpo   [10445/23.05.2024]

  G  3:  AT      75.57.30   Tu          12/12   
     A  30.75            su Tu (Ge)   11° colpo   [10452/04.06.2024]

e lo spakka 2 , ha il 4° numero che è il ripetuto
Clicca per espandere...
ciao, cortesemente potresti inserire lo script? grazie
 
margot ha scritto:
si lo so, ma non dà gli stessi risultati che ha fatto vedere oggi il Sig. Badessa nel suo video
Clicca per espandere...
Ciao margot ,comunque badessa mostra sempre e soltanto gli esiti positivi. Nella prima versione di spakka la condizione è quella di cercare un numero ripetuto isotopo su ruote consecutive, ma ho notato che funziona anche con le ruote non consecutive, nella seconda versione si aggiunge alla previsione la somma del numero ripetuto , dando vita ad una quartina. Si calcola in qualsiasi estrazione del mese. E fa molto leva sugli ambetti.
Buona giornata
 
scarfacetony ha scritto:
Buona serata,vi allego alcuni metodi sempre di Badessa,se volete farci degli script,ho anche il decantato Uranus di Ranisio,devo trovarlo in qualche chiavetta
Clicca per espandere...
Ciao scarface forse margot non si ritrova perché spesso badessa va molto indietro nelle estrazioni. Questo pdf è uguale al mio e nel listato ho implementato il 4°elemento che è la somma del ripetuto
 
Ultima modifica:
franca46 ha scritto:
Ciao scarface forse margot non si ritrova perché spesso badessa va molto indietro nelle estrazioni. Questo pdf è uguale al mio e nel listato ho implementato il 4°elemento che è la somma del ripetuto
Clicca per espandere...
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
 
Scusami per me c'è confusione, tu hai parlato di ro ma c'è anche to
Quindi ro to 35 isotopo

35+35=70 ,, 70-45= 25

Quindi in gioco 25 - 52 - 35 ,,,,il 4°elemento è 70 ( che poi è la somma del ripetuto)

Se non ricordo male è così ed è il metodo spakka 2° versione. Magari appena accendo il PC lo posto
 
Ultima modifica:
franca46 ha scritto:
Scusami per me c'è confusione, tu hai parlato di ro ma c'è anche to
Quindi ro to 35 isotopo

35+35=70 ,, 70-45= 25

Quindi in gioco 25 - 52 - 35 ,,,,il 4°elemento è 70 ( che poi è la somma del ripetuto)

Se non ricordo male è così ed è il metodo spakka 2° versione. Magari appena accendo il PC lo posto
Clicca per espandere...
ok aspetto....
 
x margot , lo stesso listato che ha fatto djnomade , con i 4° elemento in gioco
(che già c'era)

'
Codice: 
Scrivi "             SPAKKA BY SALVO BADESSA",1
Sub main()
Dim num1(2),num(2), num3(5),ruota(10),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste3(5)
poste3(2)=1
poste3(3)=1
poste(2)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10032)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin
Scrivi "somma uguale su 2 numeri isotopi su 2 estrazioni successive su 1 ruota",1
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 r1=1 To 9
r2=r1+1
For p1=1 To 5

a=Estratto(es,r1,p1)
b=Estratto(es,r2,p1)

If  a=b Then 'iso
c=Fuori90(a+b)'87+87  84
d=Diametrale(c)'84+45  39 ambata
e=Vert(d)'33 ambata


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

Scrivi String(62,"-")&" caso n° "&(casi)
ruota(1)=r1:
ruota(2)=r2
ruota2(1)=r1:
ruota2(2)=r2
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1
posta(6)=1
posta(p1+5)=1
num1(1)=a
cg=cg+1
ImpostaGiocata cg,num1,ruota,posta,k
num(1)=d
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=e
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k

num3(1)=d
num3(2)=a
num3(3)=e
num3(4)=c
cg=cg+1
ImpostaGiocata cg,num3,ruota2,poste3,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub
 
buon pomeriggio ,
scarfacetony ho sentito spesso nei video parlare dell' Ambo bis e ambo del pescatore
ho visto tutti i suoi video ma non ne ho trovato traccia
pensi di averli? grazie
 
franca46 ha scritto:
x margot , lo stesso listato che ha fatto djnomade , con i 4° elemento in gioco
(che già c'era)

'
Codice: 
Scrivi "             SPAKKA BY SALVO BADESSA",1
Sub main()
Dim num1(2),num(2), num3(5),ruota(10),ruota1(10),ruota2(10)
Dim posta(10),poste(2),poste3(5)
poste3(2)=1
poste3(3)=1
poste(2)=1

ce=InputBox("da quale estrazione vuoi controllare? ","estrazione",10032)
k=InputBox ("per quanti colpi?","colpi di gioco",12)
ini=ce
fin=EstrazioneFin
Scrivi "somma uguale su 2 numeri isotopi su 2 estrazioni successive su 1 ruota",1
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 r1=1 To 9
r2=r1+1
For p1=1 To 5

a=Estratto(es,r1,p1)
b=Estratto(es,r2,p1)

If  a=b Then 'iso
c=Fuori90(a+b)'87+87  84
d=Diametrale(c)'84+45  39 ambata
e=Vert(d)'33 ambata


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

Scrivi String(62,"-")&" caso n° "&(casi)
ruota(1)=r1:
ruota(2)=r2
ruota2(1)=r1:
ruota2(2)=r2
ruota2(3)=11
ruota2(4)=12:cg=0
Erase posta
posta(1)=1
posta(6)=1
posta(p1+5)=1
num1(1)=a
cg=cg+1
ImpostaGiocata cg,num1,ruota,posta,k
num(1)=d
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k
num(1)=e
num(2)=a
cg=cg+1
ImpostaGiocata cg,num,ruota2,poste,k

num3(1)=d
num3(2)=a
num3(3)=e
num3(4)=c
cg=cg+1
ImpostaGiocata cg,num3,ruota2,poste3,k
Gioca es

End If

Next:
Next:
Next:


ScriviResoconto

End Sub
Clicca per espandere...
ti ringrazio di cuore, ma quello che io avevo era diverso....
 
Ciao scarface, grazie. l'ambo del pescatore me lo hanno spiegato ma non l'ho capito. Lui decanta molto questo ambo bis e ne ero curiosa.
Comunque c'è molto materiale se qualcuno vuole giocare. Badessa è della mia stessa città, ma non lo conosco personalmente.
Buona serata
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto