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
 
franca46 ha scritto:
Questo esempio che dici tu su ro è " spekkio " diverso da " spakka "
Clicca per espandere...
buongiorno , il metodo è Spakka , (vedi foto), io purtroppo non so modificare lo script per aggiungere il 4° elemento
 

Allegati

  • WhatsApp Image 2024-07-26 at 10.42.44.jpeg
    WhatsApp Image 2024-07-26 at 10.42.44.jpeg
    383,9 KB · Visite: 30
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
    giovedì 26 marzo 2026
    Bari
    69
    58
    26
    05
    22
    Cagliari
    59
    33
    73
    02
    69
    Firenze
    44
    49
    83
    75
    50
    Genova
    35
    77
    61
    40
    86
    Milano
    48
    52
    12
    19
    62
    Napoli
    60
    21
    47
    15
    58
    Palermo
    16
    27
    28
    83
    25
    Roma
    35
    19
    85
    81
    24
    Torino
    29
    44
    15
    70
    31
    Venezia
    69
    20
    48
    55
    02
    Nazionale
    56
    61
    40
    27
    81
    Estrazione Simbolotto
    Firenze
    27
    22
    31
    16
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto