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
    sabato 23 novembre 2024
    Bari
    33
    80
    86
    52
    25
    Cagliari
    67
    57
    59
    05
    80
    Firenze
    31
    32
    58
    88
    77
    Genova
    40
    39
    23
    36
    81
    Milano
    28
    58
    45
    25
    38
    Napoli
    20
    82
    23
    44
    57
    Palermo
    76
    56
    88
    62
    31
    Roma
    12
    81
    59
    74
    72
    Torino
    46
    53
    72
    45
    23
    Venezia
    04
    12
    42
    64
    20
    Nazionale
    63
    44
    78
    10
    55
    Estrazione Simbolotto
    Torino
    43
    42
    12
    39
    22
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto