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
    giovedì 31 luglio 2025
    Bari
    42
    35
    89
    51
    34
    Cagliari
    54
    34
    02
    77
    57
    Firenze
    73
    01
    07
    15
    04
    Genova
    71
    28
    17
    03
    67
    Milano
    72
    37
    26
    09
    63
    Napoli
    04
    46
    83
    68
    31
    Palermo
    62
    18
    36
    34
    52
    Roma
    37
    44
    49
    67
    32
    Torino
    51
    17
    56
    48
    41
    Venezia
    36
    04
    85
    81
    41
    Nazionale
    08
    52
    01
    24
    05
    Estrazione Simbolotto
    Nazionale
    21
    19
    01
    17
    43
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto