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
 
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
ciao, cortesemente potresti inserire lo script? grazie
 
si lo so, ma non dà gli stessi risultati che ha fatto vedere oggi il Sig. Badessa nel suo video
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
 
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
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:
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
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:
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
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
 
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
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto