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
    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
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto