A volte basta uno script facile per tutti.

Antonin · Giovedì alle 22:16

Pandit ha scritto:
Mi sono sbagliato 10.55 Palermo

Bravo

Baciccia4251 · Venerdì alle 16:54

Antonin ha scritto:
Bravo

Pensieri improvvisi. Senza un perché.
Il simbolismo degli Avatar. Nel tuo caso l'aquila rappresenta la tua persona, costretta, per tanto tempo, a esistere senza coscienza, e ora, finalmente capace di librarsi, libera e felice nei cieli dell'esistere. Tanti te lo avranno detto: Bentornato tra noi!
Viva la vita
Baciccia

Antonin · Venerdì alle 17:05

Baciccia4251 ha scritto:
Pensieri improvvisi. Senza un perché.
Il simbolismo degli Avatar. Nel tuo caso l'aquila rappresenta la tua persona, costretta, per tanto tempo, a esistere senza coscienza, e ora, finalmente capace di librarsi, libera e felice nei cieli dell'esistere. Tanti te lo avranno detto: Bentornato tra noi!
Viva la vita
Baciccia

W la vita sempre

Antonin · Venerdì alle 21:11

Antonin ha scritto:
3° colpo 10 a Milano

4° colpo ambo in quartina a Genova 11-58

Pandit · Venerdì alle 21:44

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...

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...

Pandit · Ieri alle 20:47

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.

Antonin · Ieri alle 20:57

Antonin ha scritto:
3° colpo 10 a Milano

5° colpo ancora 10 a Milano

Antonin · Ieri alle 21:15

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.

Pandit · Oggi alle 00:18

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..

Pandit · Oggi alle 00:39

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..

'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

Antonin · Oggi alle 00:43

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..

'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

Antonin · Oggi alle 09:16

Antonin ha scritto:
Grazie mille A te e Toon,poi lo provo

Buongiorno 3D
Pandit o Toon,non fa come richiesto,questo script lavora sulle stesse posizioni isotopi.
E poi non evidenza i numeri usciti a ruota,e non mi indica l'ultima estrazione di ieri 28/09/2024

Pandit · Oggi alle 11:02

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...

Antonin · Oggi alle 11:10

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...

Grazie Pandit speriamo che ci ascolta qualcuno di loro

Antonin · Oggi alle 11:17

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

Pandit · Oggi alle 11:34

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

Antonin · Oggi alle 11:41

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

Grazie Pandit fa quello che volevo,un ringraziamento anche a Toon anche se non lo conosco e' molto bravo.
Buona domenica a tutti.

Baciccia4251 · Oggi alle 11:49

Antonin ha scritto:
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
Vedi l'allegato 2290743

Chi ha detto che il Baciccia ha la memoria che va e viene?

Io non ricordo...
Mi firmerei (se ricordassi come mi chiamo)

A volte basta uno script facile per tutti.

Super Member >GOLD<

Super Member >PLATINUM<

Super Member >GOLD<

Super Member >GOLD<

Senior Member

Senior Member

Super Member >GOLD<

Super Member >GOLD<

Senior Member

Senior Member

Super Member >GOLD<

Super Member >GOLD<

Senior Member

Super Member >GOLD<

Super Member >GOLD<

Senior Member

Super Member >GOLD<

Super Member >PLATINUM<