Novità

A volte basta uno script facile per tutti.

Pandit ha scritto:
Buongiorno 3D, per Venus SUD mettere in gioco queste 3 Terzine per Ambo e Terno:
79.80.85 - 1.87.90 - 6.49.53 normalmente per 3/4 colpi...
La Novina normalmente da risultati certi, ma la resa è decisamente Bassa... ;)
Clicca per espandere...
Ieri ho dato le terzine su Venus SUD, BA.NA.PA. e al primo colpo ambo a Palermo 79.80, spero l'abbiate giocato.
Cambiare la prima terzina con questa: 78.82.83 le altre due rimangono uguali... (y)
 
Ultima modifica:
Sono qui di nuovo, oggi un altro Ambo a Cagliari 49 e 67 questa volta paga Venus CENTRO.. ;)
quindi in totale fino ad ora 13 ambi a ruota...
SUD..........BA.NA.PA............10.32.63.55.81.89
CENTRO....CA.FI.RO.NZ.......09.49.64.67.82.89
NORD.......GE.MI.TO.VE.......08.21.37.40.81.85
Continuate il gioco sempre per Ambo, se ci sono aggiornamenti li posto.
 
Ciao 3d
Pandit riesci, sempre se hai tempo,fare uno script su ruote unite l'uscita dello stesso numero in qualsiasi posizione.
Esempio: BA 50 CA 50.

E un altro script,con gli zerati distanza 30 ma solo in verticale nella stessa posizione.
Grazie se riesci.
 
Ho qui solo il Telefonino, e almeno per 10/15 giorni non riesco senza PC, certamente qualche altro scripter,meglio di me, Ti può aiutare, se hai notatato riesco a scrivere qui, perchè riesco solo a fare copia e incolla, se nessuno riesce a farli, appena torno, con il PC te li faccio.. (y)
 
Me l'ha mandato Toon su WhatsApp adesso....Non so se va bene, io non posso provarlo..
Mi ha scritto di salutare Codicebinario e tutto il 3D..
:oops:
'For Antonin by Toon
Sub Main()
Dim n(2),ru(2),pos(1)
pos(1) = 1
For es = 10100 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
r1 = r + 1
p1 = p
If r1 = 11 Then r1 = 12
a = Estratto(es,r,p)
b = Estratto(es,r1,p1)
If a = b Then
ru(1) = r
ru(2) = r1
n(1) = a
ImpostaGiocata 1,n,ru,pos,10
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub
 
Pandit ha scritto:
Me l'ha mandato Toon su WhatsApp adesso....Non so se va bene, io non posso provarlo..
Mi ha scritto di salutare Codicebinario e tutto il 3D..
:oops:
'For Antonin by Toon
Sub Main()
Dim n(2),ru(2),pos(1)
pos(1) = 1
For es = 10100 To EstrazioneFin
For r = 1 To 10
For p = 1 To 5
r1 = r + 1
p1 = p
If r1 = 11 Then r1 = 12
a = Estratto(es,r,p)
b = Estratto(es,r1,p1)
If a = b Then
ru(1) = r
ru(2) = r1
n(1) = a
ImpostaGiocata 1,n,ru,pos,10
Gioca es,1
End If
Next
Next
Next
ScriviResoconto
End Sub
Clicca per espandere...
Grazie mille A te e Toon,poi lo provo
 
Ho capito, a Te serve una tabella che li evidenzi, con quelle non me la cavo molto bene, a prescindere dal fatto che per ora non posso aiutarti, bravi con le tabelle sono Zetrix. Mike e ...
be, ce ne sono diversi veramente bravi che riuscirebbero a fare script veloci ed esaustivi per quello che Ti serve...
:unsure::(
 
Pandit ha scritto:
Ho capito, a Te serve una tabella che li evidenzi, con quelle non me la cavo molto bene, a prescindere dal fatto che per ora non posso aiutarti, bravi con le tabelle sono Zetrix. Mike e ...
be, ce ne sono diversi veramente bravi che riuscirebbero a fare script veloci ed esaustivi per quello che Ti serve...
:unsure::(
Clicca per espandere...
Grazie Pandit speriamo che ci ascolta qualcuno di loro
 
Metto le mie ricerche su Bari con la spia 17.
Scegliere la previsione da voi piu' gradita.
Colpi non so quando,ho perso la memoria che va e viene come Baciccia 🤣
per il forum.png
 
Questo è un lavoro di Zetrix, sempre da Toon via WhatsApp, mi ha scritto che è un esempio di cosa può fare, non so se funziona, provalo...
Sub Main
'SetColorSezione(vbBlack)
'EndColorSezione
Dim Nu(5),Ru(1),num1(5),dec(5),fig(5),gem(5),dia(5),num2(5),num3(5),num4(5),num5(5)
Dim amba1(5),amba2(5),amba3(5),amba4(5),amba5(5),amba6(5),amba7(5)
Dim amba8(5),amba9(5),amba10(5),amba11(5),amba12(5),ambo16(5),ambo17(5),ambo18(5),ambo19(5),ambo20(5)
Dim ambo21(5),ambo22(5),ambo23(5),ambo24(5),ambo25(5),ambo26(5),ambo27(5),ambo28(5)
Dim ambo29(5),ambo30(5)
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20
Dim b21,b22,b23,b24,b25,b26,b27,b28,b29,b30
Dim T,V,ES,x,rw,rx,rb
Dim A,B,C,D,E,F,G,H,i,L,z,k
rw = InputBox("Quale figura vuoi controllare?",,0)
rb = InputBox("Quale cadenza vuoi controllare?",,0)
rx = InputBox("Quale numero spia vuoi controllare?",,18)
x = InputBox("Quante estrazioni vuoi controllare?",,10)
For ES = EstrazioneFin - x To EstrazioneFin
AvanzamentoElab EstrazioneFin - x,EstrazioneFin,ES
'Scrivi GetInfoEstrazione(ES),1,,,1,3
T = Array(T,"" & DataEstrazione(ES) & "","1","2","3","4","5"," ","1","2","3","4","5","+"," F "," ","1","2","3","4","5"," ")
Call InitTabella(T,RGB(70,89,69),,2,5)
For r = 1 To 11
If r = 11 Then r = 12
For i = rw To rw
For k = rb To rb
For z = rx To rx
A = Estratto(ES,r,1)
B = Estratto(ES,r,2)
C = Estratto(ES,r,3)
D = Estratto(ES,r,4)
E = Estratto(ES,r,5)
'----------------------------
b1 = Figura(A)'---B-A
b2 = Figura(B)'---C-A
b3 = Figura(C)'---D-A
b4 = Figura(D)'---E-A
b5 = Figura(E)'---C-B
b6 =(b1 + b2 + b3 + b4 + b5)
b7 = Figura(b6)
'-------------------------------
b8 = Cadenza(A)'---D-B
b9 = Cadenza(B)'---E-B
b10 = Cadenza(C)'---D-C
b11 = Cadenza(D)'---E-C
b12 = Cadenza(E)'---E-D
'----------------------------
num1(1) = A
num2(1) = B
num3(1) = C
num4(1) = D
num5(1) = E
'----------------------------------------------------------------------
amba1(1) = b1 '----figura
amba2(1) = b2
amba3(1) = b3
amba4(1) = b4
amba5(1) = b5 '----figura
amba6(1) = b6
amba7(1) = b7
'---------------------------------
amba8(1) = b8 '---cadenza
amba9(1) = b9
amba10(1) = b10
amba11(1) = b11
amba12(1) = b12 '---cadenza
'---------------------------------
Ru(1) = r
'Next
V = Array(V,NomeRuota(r),StringaNumeri(num1),StringaNumeri(num2),StringaNumeri(num3),StringaNumeri(num4),StringaNumeri(num5),StringaNumeri(ambo18),StringaNumeri(amba1),StringaNumeri(amba2),StringaNumeri(amba3),StringaNumeri(amba4),StringaNumeri(amba5),StringaNumeri(amba6),StringaNumeri(amba7),StringaNumeri(ambo19),StringaNumeri(amba8),StringaNumeri(amba9),StringaNumeri(amba10),StringaNumeri(amba11),StringaNumeri(amba12),StringaNumeri(ambo28))
Call AddRigaTabella(V)
Call SetColoreCella(1,RGB(238,221,130),0) '--------1
Call SetColoreCella(2,RGB(0,0,128),5) '--2
Call SetColoreCella(3,RGB(0,0,128),5) '--3
Call SetColoreCella(4,RGB(0,0,128),5) '--4
Call SetColoreCella(5,RGB(0,0,128),5) '--5
Call SetColoreCella(6,RGB(0,0,128),5) '--6
Call SetColoreCella(7,RGB(70,89,69),5)'---------7
Call SetColoreCella(8,RGB(0,0,128),5) '--8
Call SetColoreCella(9,RGB(0,0,128),5) '--9
Call SetColoreCella(10,RGB(0,0,128),5)'--10
Call SetColoreCella(11,RGB(0,0,128),5) '--11
Call SetColoreCella(12,RGB(0,0,128),5) '--12
Call SetColoreCella(13,RGB(255,255,0),1)'--13
Call SetColoreCella(14,RGB(255,255,0),2)'--14
Call SetColoreCella(15,RGB(70,89,69),0)'--------15
Call SetColoreCella(16,RGB(0,0,128),5)'--16
Call SetColoreCella(17,RGB(0,0,128),5)'--17
Call SetColoreCella(18,RGB(0,0,128),5)'--18
Call SetColoreCella(19,RGB(0,0,128),5)'--19
Call SetColoreCella(20,RGB(0,0,128),5)'--20
Call SetColoreCella(21,RGB(70,89,69),0)'--------21
If A And b1 = i Then Call SetColoreCella((2),2,5) '---A-2
If B And b2 = i Then Call SetColoreCella((3),2,5) '---B-3
If C And b3 = i Then Call SetColoreCella((4),2,5) '---C-4
If D And b4 = i Then Call SetColoreCella((5),2,5) '---D-5
If E And b5 = i Then Call SetColoreCella((6),2,5) '---E-6
If amba1(1)And b1 = i Then Call SetColoreCella((8),2,5)
If amba2(1)And b2 = i Then Call SetColoreCella((9),2,5)
If amba3(1)And b3 = i Then Call SetColoreCella((10),2,5)
If amba4(1)And b4 = i Then Call SetColoreCella((11),2,5)
If amba5(1)And b5 = i Then Call SetColoreCella((12),2,5)
If amba6(1)And b6 = i Then Call SetColoreCella((13),2,5)
If amba7(1)And b7 = i Then Call SetColoreCella((14),2,5)
'-------------------------------------------------------------------
If A And b8 = k Then Call SetColoreCella((2),2,5) '---A-2
If B And b9 = k Then Call SetColoreCella((3),2,5) '---B-3
If C And b10 = k Then Call SetColoreCella((4),2,5) '---C-4
If D And b11 = k Then Call SetColoreCella((5),2,5) '---D-5
If E And b12 = k Then Call SetColoreCella((6),2,5) '---E-6
If amba8(1)And b8 = k Then Call SetColoreCella((16),2,5)
If amba9(1)And b9 = k Then Call SetColoreCella((17),2,5)
If amba10(1)And b10 = k Then Call SetColoreCella((18),2,5)
If amba11(1)And b11 = k Then Call SetColoreCella((19),2,5)
If amba12(1)And b12 = k Then Call SetColoreCella((20),2,5)
If num1(1) And A = z Then Call SetColoreCella(2,RGB(70,89,69),1)
If num2(1) And B = z Then Call SetColoreCella(3,RGB(255,255,0),1)
If num3(1) And C = z Then Call SetColoreCella(4,RGB(255,255,0),1)
If num4(1) And D = z Then Call SetColoreCella(5,RGB(255,255,0),1)
If num5(1) And E = z Then Call SetColoreCella(6,RGB(255,255,0),1)
Next
Next
Next
Next
Call SetTableWidth("50%")
CreaTabella
Next
End Sub
 
Pandit ha scritto:
Questo è un lavoro di Zetrix, sempre da Toon via WhatsApp, mi ha scritto che è un esempio di cosa può fare, non so se funziona, provalo...
Sub Main
'SetColorSezione(vbBlack)
'EndColorSezione
Dim Nu(5),Ru(1),num1(5),dec(5),fig(5),gem(5),dia(5),num2(5),num3(5),num4(5),num5(5)
Dim amba1(5),amba2(5),amba3(5),amba4(5),amba5(5),amba6(5),amba7(5)
Dim amba8(5),amba9(5),amba10(5),amba11(5),amba12(5),ambo16(5),ambo17(5),ambo18(5),ambo19(5),ambo20(5)
Dim ambo21(5),ambo22(5),ambo23(5),ambo24(5),ambo25(5),ambo26(5),ambo27(5),ambo28(5)
Dim ambo29(5),ambo30(5)
Dim b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20
Dim b21,b22,b23,b24,b25,b26,b27,b28,b29,b30
Dim T,V,ES,x,rw,rx,rb
Dim A,B,C,D,E,F,G,H,i,L,z,k
rw = InputBox("Quale figura vuoi controllare?",,0)
rb = InputBox("Quale cadenza vuoi controllare?",,0)
rx = InputBox("Quale numero spia vuoi controllare?",,18)
x = InputBox("Quante estrazioni vuoi controllare?",,10)
For ES = EstrazioneFin - x To EstrazioneFin
AvanzamentoElab EstrazioneFin - x,EstrazioneFin,ES
'Scrivi GetInfoEstrazione(ES),1,,,1,3
T = Array(T,"" & DataEstrazione(ES) & "","1","2","3","4","5"," ","1","2","3","4","5","+"," F "," ","1","2","3","4","5"," ")
Call InitTabella(T,RGB(70,89,69),,2,5)
For r = 1 To 11
If r = 11 Then r = 12
For i = rw To rw
For k = rb To rb
For z = rx To rx
A = Estratto(ES,r,1)
B = Estratto(ES,r,2)
C = Estratto(ES,r,3)
D = Estratto(ES,r,4)
E = Estratto(ES,r,5)
'----------------------------
b1 = Figura(A)'---B-A
b2 = Figura(B)'---C-A
b3 = Figura(C)'---D-A
b4 = Figura(D)'---E-A
b5 = Figura(E)'---C-B
b6 =(b1 + b2 + b3 + b4 + b5)
b7 = Figura(b6)
'-------------------------------
b8 = Cadenza(A)'---D-B
b9 = Cadenza(B)'---E-B
b10 = Cadenza(C)'---D-C
b11 = Cadenza(D)'---E-C
b12 = Cadenza(E)'---E-D
'----------------------------
num1(1) = A
num2(1) = B
num3(1) = C
num4(1) = D
num5(1) = E
'----------------------------------------------------------------------
amba1(1) = b1 '----figura
amba2(1) = b2
amba3(1) = b3
amba4(1) = b4
amba5(1) = b5 '----figura
amba6(1) = b6
amba7(1) = b7
'---------------------------------
amba8(1) = b8 '---cadenza
amba9(1) = b9
amba10(1) = b10
amba11(1) = b11
amba12(1) = b12 '---cadenza
'---------------------------------
Ru(1) = r
'Next
V = Array(V,NomeRuota(r),StringaNumeri(num1),StringaNumeri(num2),StringaNumeri(num3),StringaNumeri(num4),StringaNumeri(num5),StringaNumeri(ambo18),StringaNumeri(amba1),StringaNumeri(amba2),StringaNumeri(amba3),StringaNumeri(amba4),StringaNumeri(amba5),StringaNumeri(amba6),StringaNumeri(amba7),StringaNumeri(ambo19),StringaNumeri(amba8),StringaNumeri(amba9),StringaNumeri(amba10),StringaNumeri(amba11),StringaNumeri(amba12),StringaNumeri(ambo28))
Call AddRigaTabella(V)
Call SetColoreCella(1,RGB(238,221,130),0) '--------1
Call SetColoreCella(2,RGB(0,0,128),5) '--2
Call SetColoreCella(3,RGB(0,0,128),5) '--3
Call SetColoreCella(4,RGB(0,0,128),5) '--4
Call SetColoreCella(5,RGB(0,0,128),5) '--5
Call SetColoreCella(6,RGB(0,0,128),5) '--6
Call SetColoreCella(7,RGB(70,89,69),5)'---------7
Call SetColoreCella(8,RGB(0,0,128),5) '--8
Call SetColoreCella(9,RGB(0,0,128),5) '--9
Call SetColoreCella(10,RGB(0,0,128),5)'--10
Call SetColoreCella(11,RGB(0,0,128),5) '--11
Call SetColoreCella(12,RGB(0,0,128),5) '--12
Call SetColoreCella(13,RGB(255,255,0),1)'--13
Call SetColoreCella(14,RGB(255,255,0),2)'--14
Call SetColoreCella(15,RGB(70,89,69),0)'--------15
Call SetColoreCella(16,RGB(0,0,128),5)'--16
Call SetColoreCella(17,RGB(0,0,128),5)'--17
Call SetColoreCella(18,RGB(0,0,128),5)'--18
Call SetColoreCella(19,RGB(0,0,128),5)'--19
Call SetColoreCella(20,RGB(0,0,128),5)'--20
Call SetColoreCella(21,RGB(70,89,69),0)'--------21
If A And b1 = i Then Call SetColoreCella((2),2,5) '---A-2
If B And b2 = i Then Call SetColoreCella((3),2,5) '---B-3
If C And b3 = i Then Call SetColoreCella((4),2,5) '---C-4
If D And b4 = i Then Call SetColoreCella((5),2,5) '---D-5
If E And b5 = i Then Call SetColoreCella((6),2,5) '---E-6
If amba1(1)And b1 = i Then Call SetColoreCella((8),2,5)
If amba2(1)And b2 = i Then Call SetColoreCella((9),2,5)
If amba3(1)And b3 = i Then Call SetColoreCella((10),2,5)
If amba4(1)And b4 = i Then Call SetColoreCella((11),2,5)
If amba5(1)And b5 = i Then Call SetColoreCella((12),2,5)
If amba6(1)And b6 = i Then Call SetColoreCella((13),2,5)
If amba7(1)And b7 = i Then Call SetColoreCella((14),2,5)
'-------------------------------------------------------------------
If A And b8 = k Then Call SetColoreCella((2),2,5) '---A-2
If B And b9 = k Then Call SetColoreCella((3),2,5) '---B-3
If C And b10 = k Then Call SetColoreCella((4),2,5) '---C-4
If D And b11 = k Then Call SetColoreCella((5),2,5) '---D-5
If E And b12 = k Then Call SetColoreCella((6),2,5) '---E-6
If amba8(1)And b8 = k Then Call SetColoreCella((16),2,5)
If amba9(1)And b9 = k Then Call SetColoreCella((17),2,5)
If amba10(1)And b10 = k Then Call SetColoreCella((18),2,5)
If amba11(1)And b11 = k Then Call SetColoreCella((19),2,5)
If amba12(1)And b12 = k Then Call SetColoreCella((20),2,5)
If num1(1) And A = z Then Call SetColoreCella(2,RGB(70,89,69),1)
If num2(1) And B = z Then Call SetColoreCella(3,RGB(255,255,0),1)
If num3(1) And C = z Then Call SetColoreCella(4,RGB(255,255,0),1)
If num4(1) And D = z Then Call SetColoreCella(5,RGB(255,255,0),1)
If num5(1) And E = z Then Call SetColoreCella(6,RGB(255,255,0),1)
Next
Next
Next
Next
Call SetTableWidth("50%")
CreaTabella
Next
End Sub
Clicca per espandere...
Grazie Pandit fa quello che volevo,un ringraziamento anche a Toon anche se non lo conosco e' molto bravo.
Buona domenica a tutti.
 
Ciao 3D
Ho letto una decina di volte questa sezione,e ho visto tanti regali in script dai migliori,e voglio farvi un regalo anch'io.
Io non so programmare uno script,ho sempre lavorato sui metodi a mano,credetemi e' dura.
Ho spolverato un metodo del 18/01/2014 mensile,con un calcolo semplicissimo che fino ad oggi funziona ancora.
Ma non sono mai riuscito a trovare gli abbinamenti migliori con le 2 ambate vertibili .
Ora chiedo ai migliori scripters ,da una coppia di vertibili esempio, 12-21 ogni qualvolta si presenta nel calcolo mensile il 12-21 quali sono i migliori 3 o 4 numeri che si sono abbinati a questa coppia 12-21.e cosi per tutte le coppie vertibili che sforna il calcolo mensile.
Passiamo al metodo mensile.
Ad ogni 8°vo, del mese, sottrarre il 5° estratto di Bari Con il 1° estratto di Cagliari.
Esempio reale
Il 14/09/2024 Bari 5° estratto 50 Cagliari 1° estratto 43.
calcolo 50-43= 7 vertibile 70 che esce al 3°colpo a Bari il 70.
Ora quello che chiedo sempre se ' possibile, quando nel calcolo esce il 7-70,quali sono i simpatici che sono sempre usciti con la coppia?
Spero di essere stato chiaro ed esaustivo.
 
Codicebinario ha scritto:
Aggiornamento: Colpo 12 Estraz, del 24/09 : CA 55 MI 51 salgono 31 le ambate ...12 colpi...
come sempre a pag134 al post 2663 troverete la situazione aggiornata.
Clicca per espandere...
Aggiornamento: Colpo 13 Estraz. del 26/09 BA 7
Colpo 14 Estraz. del 27/09 RM 56
Colpo 15 Estraz. del 28/09 FI 54 PA 66 VE 51 (Ultimo colpo)
Salgono ancora le ambate : 36 in 15 colpi tutte rigorosamente a ruota.
Chiudo anche questa.
Cià a tutti.
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 27 settembre 2025
    Bari
    38
    55
    18
    54
    58
    Cagliari
    15
    58
    62
    51
    78
    Firenze
    01
    10
    50
    21
    20
    Genova
    66
    33
    51
    03
    04
    Milano
    01
    74
    66
    42
    26
    Napoli
    80
    60
    31
    17
    22
    Palermo
    42
    26
    72
    68
    48
    Roma
    57
    62
    79
    89
    56
    Torino
    01
    28
    27
    32
    85
    Venezia
    18
    23
    28
    70
    81
    Nazionale
    36
    78
    02
    52
    65
    Estrazione Simbolotto
    Palermo
    03
    04
    24
    45
    29
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto