Novità

Script

DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
alzo-le-mani-mi-arrendo.gif
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
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
 
F

franca46

Advanced Member >PLATINUM PLUS<
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
 
F

franca46

Advanced Member >PLATINUM PLUS<
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.
 
F

franca46

Advanced Member >PLATINUM PLUS<
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
 
F

franca46

Advanced Member >PLATINUM PLUS<
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
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
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:
F

franca46

Advanced Member >PLATINUM PLUS<
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
 
F

franca46

Advanced Member >PLATINUM PLUS<
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 .
 
DjNomade

DjNomade

Advanced Member >PLATINUM PLUS<
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 03 agosto 2024
    Bari
    70
    56
    80
    58
    83
    Cagliari
    69
    73
    43
    70
    33
    Firenze
    15
    38
    41
    37
    27
    Genova
    18
    16
    52
    55
    48
    Milano
    43
    16
    37
    66
    28
    Napoli
    15
    70
    46
    56
    61
    Palermo
    42
    07
    37
    30
    82
    Roma
    47
    19
    35
    05
    16
    Torino
    09
    35
    32
    81
    79
    Venezia
    59
    54
    34
    13
    43
    Nazionale
    62
    50
    27
    38
    87
    Estrazione Simbolotto
    Nazionale
    35
    18
    45
    04
    25
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto