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:
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 19 ottobre 2024
    Bari
    66
    07
    78
    48
    60
    Cagliari
    26
    14
    56
    69
    89
    Firenze
    11
    82
    02
    09
    32
    Genova
    43
    20
    47
    01
    17
    Milano
    24
    78
    05
    38
    72
    Napoli
    05
    16
    49
    87
    02
    Palermo
    18
    54
    24
    76
    46
    Roma
    03
    62
    01
    84
    34
    Torino
    35
    29
    08
    61
    09
    Venezia
    30
    20
    60
    66
    45
    Nazionale
    77
    22
    53
    90
    89
    Estrazione Simbolotto
    18
    24
    45
    29
    23
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto