Novità

Script

alzo-le-mani-mi-arrendo.gif
 
Solo questo.......



Codice: 
ColoreTesto 1
Scrivi String(37,32) & " 14° del mese ROMA by Salvo Badessa  ",1
Scrivi

ColoreTesto 0

Sub main()
Dim ruota(10),ruote(10),amb(4)
Dim numeri1(10),numeri3(10),numeri2(10),numeri5(10)
Dim postee(5),poste(5),posta(5)
postee(3)=1
postee(2)=1
posta(1)=1
poste(2)=1

cp=13'InputBox("Per quanti colpi vuoi giocare?",,7)
ruota(1)=8
ruote(1)=8
ruote(2)=11


ini=10376
fin=EstrazioneFin
For n=ini To fin
If Indicemensile(n)=14 Then
Messaggio DataEstrazione (n)


amb(1)=Abs(Estratto(n,4,1)-Estratto(n,7,4))

amb(2)=52

Rem se uno o più numeri si ripetono si fa il + 1 (Formula By Thauk)
rip = 0
If NumeriRipetuti(amb) Then
rip = 1
While NumeriRipetuti(amb)
For x = 1 To 1
For y = x + 1 To 2
If amb(X) = amb(y) Then amb(y) = Fuori90(amb(y) + 1)
Next
Next
Wend
End If
Rem fine formula





ColoreTesto 2 :Scrivi "-- 14° estrazione del mese---------------------------",1
co=0


numeri1(1)=amb(1)
co=co+1
ImpostaGiocata co,numeri1,ruota,posta,eval(cp)

numeri2(1)=amb(1)
numeri2(2)=amb(2)
co=co+1
ImpostaGiocata co,numeri2,ruote,poste,eval(cp)



Gioca n
End If
Next
Scrivi

ScriviResoconto
ColoreTesto 2

End Sub
 
Metodo " Fiocco " alla 3° del mese x Ba - Fi

Codice: 
Sub main()
Dim number (3)
Dim ruote (4)
Dim posta(2)
'posta(1)=1
posta(2)=0.5
ruote(1)=1
ruote(2)=3
ruote(3)=12
ruote(4)=11
For n = 10000 To EstrazioneFin 
If IndiceMensile (n)=3 Then
number(1)=Abs(Estratto(n,5,3)-Estratto(n,6,5))
number(2)=89 'Vert (number(1))
number(3)=87
ImpostaGiocata 1, number,ruote,posta,12
Gioca n
End If
Next
ScriviResoconto
End Sub
 
Ciao dj , io l'ho estrapolato guardando il video più volte , magari con gli appunti che ho provo a spiegartelo. Pomeriggio mi ci metto.
E approfitto per chiederti una cosa , io ho fatto l'errore di cancellare un listato , magari se non riesco a recuperarlo ti disturbo.
 
nunzio65 ha scritto:
cortesemente qualcuno a LO SCRIPT DI SPAKKA TERNO GRAZIE
Clicca per espandere...
Codice: 
Sub main()
Dim r(12)
Dim n1(10),n3(10),n4(10),n5(10)
Dim poste2(10),poste3(10),poste4(10),poste5(10)

'poste2(2)=1.00
poste3(2)=0.50
poste3(3)=1.00

r(12)=12
r(1)=11

k=18 '--colpi di gioco
y=0 '--sorte interr. terni
For n=10364 To EstrazioneFin 
ng=0
If IndiceMensile(n)=1 Then

'-------------------------------------------- 4 terni
n3(1)=Estratto(n,1,3) 
n3(2)=Estratto(n,5,1)
n3(3)=Estratto(n,9,2)
ng=ng+1
ImpostaGiocata ng,n3,r,poste3,k,0

n3(1)=Estratto(n,3,2)
n3(2)=Estratto(n,7,4)
n3(3)=Estratto(n,10,2)
ng=ng+1
ImpostaGiocata ng,n3,r,poste3,k,0

n3(1)=Estratto(n,3,5) 
n3(2)=Estratto(n,8,2)
n3(3)=Estratto(n,10,3)
ng=ng+1
ImpostaGiocata ng,n3,r,poste3,k,0

n3(1)=Estratto(n,4,2)
n3(2)=Estratto(n,6,4)
n3(3)=Estratto(n,8,4)
ng=ng+1
ImpostaGiocata ng,n3,r,poste3,k,0


Gioca n'--,True
End If
Next
ScriviResoconto
End Sub
 
DjNomade ha scritto:
e quale sarebbe?
Clicca per espandere...

bisogna cercare su una qualsiasi ruota un terno simmetrico
scrivo un esempio anche se vecchio

mar 26.09.2017 [9374]ª Naz 48.62.17.32.02 62 32 02

si farà 62+26=88 ......32+23=55.......2+20=22

queste somme si devono cercare nell'estrazione per stabilire la ruota da affiancare , se non si dovesse trovare si cambia estrazione,

dobbiamo trovare nell'estrazione 88 e lo troviamo a Na , poi il 55 e lo troviamo a Ba , poi il 22 e lo troviamo a Ve

quindi si farà il diametrale del 62=17 : il diametrale del 26=71

la previsione sarà :

Naz - Na 62 - 17 // 26 - 71 poi in riunita in quartina , lui parla di ambo e ambetto

gli stessi calcoli si faranno per Ba quindi avremo Naz - Ba 32 - 77 // 23 - 68

a seguire Naz - Ve 2 - 47 // 20 - 65

credo sia chiaro , ma molto ampio
 
Da controllare


Codice: 
'https://www.youtube.com/watch?v=izYsSVq9LbQ&t=6s
'04-08-2024
'https://forum.lottoced.com/threads/script.2218355/page-5

Scrivi "             SIMMETRICAMENTE BY SALVO BADESSA",1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruotee(10)
Dim posta(5),poste(2),post(3),pos(5)
posta(1)=1:posta(2)=1
poste(2)=1:post(3)=1.5
pos(2)=3:pos(3)=1:pos(4)=0.2

fin=EstrazioneFin ' 9374'9485  esempi
ini=9374'fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 3
For p2=p1+1 To 4
For p3=p2+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n3=Estratto(es,r1,p3)
If Distanza(n1,n2)=30 And Distanza(n2,n3)=30 Then 

n11=Fuori90(n1+Vert(n1))'62+26 88
n22=Fuori90(n2+Vert(n2))'32+23 55
n33=Fuori90(n3+Vert(n3))'02+20 22


For r2=1 To 11
If r2=11 Then r2=12
For p4=1 To 5

n4=Estratto(es,r2,p4)
If n4=n11 Or n4=n22 Or n4=n33 Then 

If n4=n11 Then n5=n1:n6=Diametrale(n1):abb1=Vert(n1):abb2=Diametrale(abb1)
If n4=n22 Then n5=n2:n6=Diametrale(n2):abb1=Vert(n2):abb2=Diametrale(abb1)
If n4=n33 Then n5=n3:n6=Diametrale(n3):abb1=Vert(n3):abb2=Diametrale(abb1)
casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Terno Simmetrico < "&Format2(n1)&"."&Format2 (n2)&"."&Format2 (n3)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Estratto Trovato < "&Format2(n4)&" >",1
Scrivi String(65,"-"),1
ruotee(1)=r1:ruotee(2)=r2:
ruote(1)=r1:ruote(2)=r2:
ruote(3)=11:ruote(4)=12
k=13:co=0
'If r1<10 Then ruote(4)=DiametraleD(r1)
'If r2<10 Then ruote(5)=DiametraleD(r2)
'If r1=10 Then ruote(4)=5
'If r2=10 Then ruote(5)=5
'If r1=12 Then ruote(4)=3
'If r2=12 Then ruote(5)=3



nu2(1)=n5
nu2(2)=n6
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=abb1
nu2(2)=abb2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu3(1)=n5
nu3(2)=n6
nu3(3)=abb1
nu3(4)=abb2
co=co+1
ImpostaGiocata co,nu3,ruote,pos,k
Gioca es
End If 
Next:Next'
End if
:Next:Next:next 
Next:Next':Next:next
ScriviResoconto
End Sub

Modificato per male interpretazione hihihihi
 
Ultima modifica:
ciao nunzio , io me li costruisco ma quelli semplici
non sono capace a script di questo tipo , non so mettere le condizioni
dj sarà sicuramente all'altezza
 
DjNomade ha scritto:
Da controllare


Codice: 
'https://www.youtube.com/watch?v=izYsSVq9LbQ&t=6s
'04-08-2024
'https://forum.lottoced.com/threads/script.2218355/page-5

Scrivi "             SIMMETRICAMENTE BY SALVO BADESSA",1
Sub main()
Dim nu1(10),nu2(10),nu3(10),nu4(10)
Dim ruote(10),ruotee(10)
Dim posta(5),poste(2),post(3),pos(5)
posta(1)=1:posta(2)=1
poste(2)=1:post(3)=1.5
pos(2)=3:pos(3)=0.8:pos(4)=0.2

fin=EstrazioneFin ' 9374'9485  esempi
ini=9374'fin-200
For es=ini To fin
AvanzamentoElab ini,fin,es

For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 3
For p2=p1+1 To 4
For p3=p2+1 To 5
n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)
n3=Estratto(es,r1,p3)
If Distanza(n1,n2)=30 And Distanza(n2,n3)=30 Then

n11=Fuori90(n1+Vert(n1))'62+26 88
n22=Fuori90(n2+Vert(n2))'32+23 55
n33=Fuori90(n3+Vert(n3))'02+20 22


For r2=1 To 11
If r2=11 Then r2=12
For p4=1 To 5

n4=Estratto(es,r2,p4)
If n4=n11 Or n4=n22 Or n4=n33 Then

If n4=n11 Then n5=n1:n6=Diametrale(n1):abb1=Vert(n1):abb2=Diametrale(abb1)
If n4=n22 Then n5=n2:n6=Diametrale(n2):abb1=Vert(n2):abb2=Diametrale(abb1)
If n4=n33 Then n5=n3:n6=Diametrale(n3):abb1=Vert(n3):abb2=Diametrale(abb1)
casi=casi+1:Scrivi String(75,"=")&" caso n° "&(casi),1
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)&_
" > Terno Simmetrico < "&Format2(n1)&"."&Format2 (n2)&"."&Format2 (n3)&" >",1
Scrivi DataEstrazione(es,1)&" < "&siglARuota(r2)& " "& StringaEstratti(es,r2)&_
" > Estratto Trovato < "&Format2(n4)&" >",1
Scrivi String(65,"-"),1
ruotee(1)=r1:ruotee(2)=r2:
ruote(1)=r1:ruote(2)=r2:
ruote(3)=11:
k=13:co=0
'If r1<10 Then ruote(4)=DiametraleD(r1)
'If r2<10 Then ruote(5)=DiametraleD(r2)
'If r1=10 Then ruote(4)=5
'If r2=10 Then ruote(5)=5
'If r1=12 Then ruote(4)=3
'If r2=12 Then ruote(5)=3

nu1(1)=n5
nu1(2)=n6
co=co+1
ImpostaGiocata co,nu1,ruotee,posta,k
nu2(1)=n5
nu2(2)=abb1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=n5
nu2(2)=abb2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=n6
nu2(2)=abb1
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
nu2(1)=n6
nu2(2)=abb2
co=co+1
ImpostaGiocata co,nu2,ruote,poste,k
Gioca es
End If
Next:Next'
End if
:Next:Next:next
Next:Next':Next:next
ScriviResoconto
End Sub
Clicca per espandere...
ciao dj , il video dice di trovarli tutti e tre cosi' come ho scritto ,
come hai fatto tu si diminuiscono le giocate ( molto meglio )

sempre tempestiva io !!!!! giustissimo .
 
Il listato l'ho modificato non avevo capito che erono solo due ambi secchi e non 2 ambate con due abbinamenti
Ciauz
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto