Novità

A volte basta uno script facile per tutti.

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... ;)
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
 
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
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::(
 
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::(
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
 
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
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.
 
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.
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:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 05 settembre 2025
    Bari
    08
    05
    07
    41
    79
    Cagliari
    80
    20
    03
    04
    06
    Firenze
    16
    44
    21
    48
    60
    Genova
    46
    38
    61
    11
    20
    Milano
    75
    07
    87
    44
    65
    Napoli
    12
    15
    48
    11
    22
    Palermo
    17
    60
    64
    62
    27
    Roma
    50
    17
    41
    56
    61
    Torino
    73
    78
    33
    37
    28
    Venezia
    06
    75
    50
    69
    10
    Nazionale
    34
    51
    27
    14
    53
    Estrazione Simbolotto
    Palermo
    39
    02
    26
    08
    11
Indietro
Alto