Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
xSalvo50
- Creatore Discussione Zetrix
- Data di inizio
Zetrix
Advanced Premium Member
Ciao Salvo50,
so che non e facile spiegare le condizioni forse e meglio che scrivo un esempio sulle estr..
stavo vedendo che nome dare allo script visto che qua trattiamo la ciclometria e aggiunta la geometria
il titolo dello script ci scriviamo ciclogeom.
intanto ti scrivo queste formule geometriche, ricordati che la geometria si occupa dei segni : e x
1)dist 4
4x6=24<---
4x7=28 --->(dist. diag.)
4x8=32 --->(dist .max.)
--------------------
2)dist 6
6x4=24<---
6x5=30 --->(dist.diag.)
6x6=36 --->(dist.max.)
-------------------
3)dist 8
8x3=24 <---
8x4=32 --->(dist.diag.)
8x5=40 --> dist.max.)
------------------
come vedi da questo prospetto la dist comune che scrive in tutte e tre le tabelle
e la dist 24 ..(la dist minima),questa e la prima condizione del gioco, dobbiamo avere un ambo con la dist 24,
dopo ti scrivo un esempio sulle estr..
so che non e facile spiegare le condizioni forse e meglio che scrivo un esempio sulle estr..
stavo vedendo che nome dare allo script visto che qua trattiamo la ciclometria e aggiunta la geometria
il titolo dello script ci scriviamo ciclogeom.
intanto ti scrivo queste formule geometriche, ricordati che la geometria si occupa dei segni : e x
1)dist 4
4x6=24<---
4x7=28 --->(dist. diag.)
4x8=32 --->(dist .max.)
--------------------
2)dist 6
6x4=24<---
6x5=30 --->(dist.diag.)
6x6=36 --->(dist.max.)
-------------------
3)dist 8
8x3=24 <---
8x4=32 --->(dist.diag.)
8x5=40 --> dist.max.)
------------------
come vedi da questo prospetto la dist comune che scrive in tutte e tre le tabelle
e la dist 24 ..(la dist minima),questa e la prima condizione del gioco, dobbiamo avere un ambo con la dist 24,
dopo ti scrivo un esempio sulle estr..
Ultima modifica:
Zetrix
Advanced Premium Member
allora Salvo50 vediamo di rendere lo script piu facile seguimi con attenzione
alle cose che scrivo
allora vediamo questo esempio su palermo e torino
1) condizione la dist 6 in colonna (49,55) su due ruote qualsiasi,
la dist 6 scrive
6x4=24<---(dist.ambo.(79,55))
6x5=30 --->(dist.obliq.(49,79))
6x6=36 --->(dist.max.(?,49))
adesso questa condizione la dobbiamo ridefinire con la formula geometrica
la dist. max e 36
49+36=85
il numero 85 si gioca su palermo e torino
x ambo si gioca 49 85 su tutte
in teoria dobbiamo avere sempre un ambo con la dist 24 su una ruota e una dist 4, or 6 or 8 in colonna, su due ruote,
adesso per non rendere difficile lo script si puo iniziare con la dist 6 perche se rintracciamo una dist 4 or una dist 8
cambia la formula geometrica
la dist max e 4x8=32
la condizione ideale e la dist 6 che genera la dist 30 in obliqua e questa e la condizione migliore..
in seguito si possono aggiungere le altre dist 4 e 8 in colonna..se aggiungiamo queste dist dopo si devono fare
delle variazioni del calcolo del numero e questo rende piu difficile lo script..
x non sbagliare si puo fare un altro calcolo piu facile visto e considerato che i due ambi devono avere la stessa somma
si puo fare
79+55=134-49=85
la stessa somma fa in modo che le due dist in colonna e le due dist in obliqua sono equilibrate..
in questo modo sono corrisposte le formule geometriche e devono essere esatte..
infatti la dist max e 6x6=36
85,49) dist 36
2) condizione ,rilevare un ambo con la dist 24,(79,55) TO, su una ruota qualsiasi..
se ci sono altre variazioni da fare le vedremo in seguito questo e quanto descritto da questa condizione di gioco..
nota : la disposizione dei numeri deve essere come da disegno nella tabella e non viceversa..
PA ? _ 49
TO 79_55
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
lo script è fatto con le ultime spiegazioni del post 6
sperando di non aver fatto errori
sperando di non aver fatto errori
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,Caso,Casi
Dim DistAB,DistAC,DistBC
Dim Amba(1),Ambo(2),Ruo1(2),RuoT(1)
Dim Po1(1),Po2(5)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,10701))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,7))
' Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo CicloGeometrico di Zetrx - Script Salvo50" & Space(18),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 12
If R1 = 11 Then R1 = 12
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = 1 To 12
If R1 = 11 Then R1 = 12
If R1 <> R2 Then
For P2 = 1 To 4
For P3 = P2 + 1 To 5
If P1 = P2 Or P1 = P3 Then
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
If A > 0 And C > 0 And A <> B And A <> C Then
DistAB = Distanza(A,B) : DistAC = Distanza(A,C) : DistBC = Distanza(B,C)
If DistBC = 24 Then
If((DistAB = 6) And(P1 = P2))Or((DistAC = 6) And(P1 = P3))Then
Amba(1) = Fuori90(A + 36)
Ambo(1) = A : Ambo(2) = Amba(1)
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2 : RuoT(1) = TT_
ImpostaGiocata 1,Amba,Ruo1,Po1,Clp,1
ImpostaGiocata 2,Ambo,RuoT,Po2,Clp,2
Gioca Es
End If
End If
End If
End If
Next
Next
End If
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
ScriviResoconto
End SubZetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim FIn,Ini,A,B,C,Clp,Es,Salvo50
Dim R1,R2,P1,P2,P3,P5,Caso,Casi
Dim DistAB,DistAC,DistBC,X
Dim Amba(1),Ambo(2),Ruo1(2),RuoT(2)
Dim Po1(1),Po2(2),DT1,DT2,DT3,DT4
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2)
FIn = EstrazioneFin
Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,2620))
'Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(18) & "Metodo CicloGeom di Zetrix - Script Salvo50" & Space(18),1,,4,,3,,1
Po1(1) = 1
Po2(2) = 1
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
Caso = 0
For R1 = 1 To 10
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
For P1 = 2 To 5
For P5 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = 1 To 4
For P3 = P2 + 1 To 5
B = Estratto(Es,R2,P2)
C = Estratto(Es,R2,P3)
X = Estratto(Es,R1,P5)
If Distanza(B,C) = 24 Then
If P5 = P2 Then
If Distanza(A,C) = 4 And(P1 = P3) And Distanza(A,B) = 28 _
Or Distanza(A,C) = 6 And(P1 = P3) And Distanza(A,B) = 30 _
Or Distanza(A,C) = 8 And(P1 = P3) And Distanza(A,B) = 32 Then
DT1 = DiametraleD(X) : DT2 = Diametrale(DT1) : DT3 = DiametraleD(DT2)
DT4 = Diametrale(X)
Amba(1) = Fuori90(B + C - A)
Ambo1(1) = Amba(1)
Ambo1(2) = DT1
Ambo2(1) = Amba(1)
Ambo2(2) = DT2
Ambo3(1) = Amba(1)
Ambo3(2) = DT3
Ambo4(1) = Amba(1)
Ambo4(2) = DT4
Caso = Caso + 1
Casi = Casi + 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,1
Scrivi
ReDim MatrCasella(3,1)
MatrCasella(1,0) = R1
MatrCasella(1,1) = P1
MatrCasella(2,0) = R2
MatrCasella(2,1) = P2
MatrCasella(3,0) = R2
MatrCasella(3,1) = P3
Call DisegnaEstrazione(Es,MatrCasella,,vbBlue)
Scrivi
Scrivi
Ruo1(1) = R1 : Ruo1(2) = R2
RuoT(1) = TT_ : RuoT(2) = NZ_
ImpostaGiocata 1,Amba,Ruo1,Po1,9,1
Gioca Es,1,,1
Scrivi String(55,"-"),0,1
Scrivi
ImpostaGiocata 1,Ambo1,RuoT,Po2,10,2
ImpostaGiocata 2,Ambo2,RuoT,Po2,10,2
ImpostaGiocata 3,Ambo3,RuoT,Po2,10,2
ImpostaGiocata 4,Ambo4,RuoT,Po2,10,2
Gioca Es,1,,1
End If
End If
End If
Next
Next
Next
Next
Next
Next
If ScriptInterrotto Then Exit Sub
Next
'ScriviResoconto
End SubxSalvo50
grazie dello script,
ho fatto delle variazioni nello script alcune condizioni non erano esatte nello script..
vedi se va bene cosi..
alcune righe le ho tolte es , quanti colpi vuoi giocare..per me non a senso scrivere questa riga..
negli script non si devono scrivere troppe domande..
ho cambiato gli abb per ambo..
ho notato in alcune condizioni il numero di calcolo e gia presente nella ruota di calcolo..
es , il 14 a milano..
Ultima modifica:
salvo50
Advanced Member >PLATINUM PLUS<
Zetrix il metodo è tuo sei tu che decidi come modificarlo, io l'ho fatto secondo le poche indicazioni che mi hai dato
Riguardo agli inputbox a me piace metterli, chi lo decide se è un bene o un male, ognuno di noi ha uno stile proprio
e fa gli script come meglio crede, l'hai tolto inputbox, hai fatto bene se a te non piacciono.
Riguardo agli inputbox a me piace metterli, chi lo decide se è un bene o un male, ognuno di noi ha uno stile proprio
e fa gli script come meglio crede, l'hai tolto inputbox, hai fatto bene se a te non piacciono.
Zetrix
Advanced Premium Member
si certo il metodo e mio lo modificato apposta per farti vedere come li scrivo io gli script
considera che non sono esperto come te a scrivere gli script ci sono alcune righe degli script
che non li so scrivere riguardo agli inputbox secondo me meno si mettono gli input box e meglio e
se ne metti troppo input box e come fare un processo es quanti colpi vuoi giocare ?
quale pos vuoi giocare ? che numero vuoi giocare ? ecc...
se uno deve rispondere a tutte queste domande degli input box li passa la voglia di continuare lo script..
ecco perche ho tolto quel input box sui colpi di gioco per me inutile perche si puo scrivere sulle indicazioni
imposta giocata..
ti farò vedere uno dei miei tanti script che ho scritto( ne ho scritti piu di duemila script) e ho imparato un po
vedendo gli altri come scrivono gli script..
considera che non sono esperto come te a scrivere gli script ci sono alcune righe degli script
che non li so scrivere riguardo agli inputbox secondo me meno si mettono gli input box e meglio e
se ne metti troppo input box e come fare un processo es quanti colpi vuoi giocare ?
quale pos vuoi giocare ? che numero vuoi giocare ? ecc...
se uno deve rispondere a tutte queste domande degli input box li passa la voglia di continuare lo script..
ecco perche ho tolto quel input box sui colpi di gioco per me inutile perche si puo scrivere sulle indicazioni
imposta giocata..
ti farò vedere uno dei miei tanti script che ho scritto( ne ho scritti piu di duemila script) e ho imparato un po
vedendo gli altri come scrivono gli script..
Zetrix
Advanced Premium Member
Codice:
Option Explicit
Sub Main
Dim T1,T2,T3,T4,T5,T6,T7,T8,T9,T10,T11,T12,T
Dim TV,ES,EX,R,X,Y
Dim Estrat(10)
Dim sigla,dat
'Y = InputBox("Quale Ruota vuoi ?",,1)
TV = InputBox("Quante estrazioni vuoi controllare ?",,0)
EX = EstrazioneFin - TV
For ES = EX To EX
For R = 1 To 12
If R = 11 Then R = 12
Estrat(1) = Estratto(ES,R,1)
Estrat(2) = Estratto(ES,R,2)
Estrat(3) = Estratto(ES,R,3)
Estrat(4) = Estratto(ES,R,4)
Estrat(5) = Estratto(ES,R,5)
'
T = Array(T," "," "," "," "," "," "," "," "," "," ")
Call InitTabella(T,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
T1 = Array(T1,"ControFigura 1","01","12","23","34","45","56","67","78","89")
Call AddRigaTabella(T1,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 1 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 12 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 23 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 34 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 45 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 56 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 67 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 78 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 89 Then Call SetColoreCella(10,RGB(36,219,191),RGB(0,0,0))
Next
'------------------------------------------------
T2 = Array(T2,"ControFigura 2 ","02","13","24","35","46","57","68","79","90")
Call AddRigaTabella(T2,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 2 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 13 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 24 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 35 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 46 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 57 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 68 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 79 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 90 Then Call SetColoreCella(10,RGB(36,219,191),RGB(0,0,0))
Next
'-------------------------------
T3 = Array(T3," ControFigura 3 ","03","14","25","36","47","58","69","80"," ")
Call AddRigaTabella(T3,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 3 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 14 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 25 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 36 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 47 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 58 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 69 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 80 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T4 = Array(T4," ControFigura 4 ","04","15","26","37","48","59","70","81"," ")
Call AddRigaTabella(T4,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 4 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 15 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 26 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 37 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 48 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 59 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 70 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 81 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T5 = Array(T5,"ControFigura 5 ","05","16","27","38","49","60","71","82"," ")
Call AddRigaTabella(T5,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 5 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 16 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 27 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 38 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 49 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 60 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 71 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 82 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
sigla = SiglaRuota(R)
'-------------------------------
T6 = Array(T6,"ControFigura 6 ","06","17","28","39","50","61","72","83",sigla)
Call AddRigaTabella(T6,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 6 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 17 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 28 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 39 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 50 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 61 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 72 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 83 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(224,244,83),RGB(0,0,0))
Next
'-------------------------------
T7 = Array(T7," ControFigura 7 ","07","18","29","40","51","62","73","84"," ")
Call AddRigaTabella(T7,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 7 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 18 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 29 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 40 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 51 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 62 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 73 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 84 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T8 = Array(T8," ControFigura 8 ","08","19","30","41","52","63","74","85"," ")
Call AddRigaTabella(T8,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 8 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 19 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 30 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 41 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 52 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 63 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 74 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 85 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T9 = Array(T9," ControFigura 9 ","09","20","31","42","53","64","75","86"," ")
Call AddRigaTabella(T9,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 9 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 20 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 31 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 42 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 53 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 64 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 75 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 86 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T10 = Array(T10," ControFigura 10 ","10","21","32","43","54","65","76","87"," ")
Call AddRigaTabella(T10,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 10 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 21 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 32 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 43 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 54 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 65 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 76 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 87 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
'-------------------------------
T11 = Array(T11," ControFigura 11 ","11","22","33","44","55","66","77","88"," ")
Call AddRigaTabella(T11,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
For X = 1 To 10
If Estrat(X) = 11 Then Call SetColoreCella(2,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 22 Then Call SetColoreCella(3,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 33 Then Call SetColoreCella(4,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 44 Then Call SetColoreCella(5,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 55 Then Call SetColoreCella(6,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 66 Then Call SetColoreCella(7,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 77 Then Call SetColoreCella(8,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 88 Then Call SetColoreCella(9,RGB(36,219,191),RGB(0,0,0))
If Estrat(X) = 0 Then Call SetColoreCella(10,RGB(255,255,255),RGB(0,0,0))
Next
dat = DataEstrazione(EstrazioneFin - TV)
'-------------------------------
T12 = Array(T12,dat," "," "," "," "," "," "," "," "," ")
Call AddRigaTabella(T12,Bianco_,"center",3,Nero_,"Raavi")
'-------------------------------
Call SetTableWidth("30%")
CreaTabella
Next
Next
End SubxSalvo50
questo script evidenzia su ogni ruota le controfigure,
devo ancora finire di colorarla la tabella..
uno che e esperto di script forse ne scriverà di meno di righe nello script..
come vedi non e cosi difficile scrivere una tabella forse per colorarla ci vuole piu tempo..
basta fare copia e incolla su tutte le righe e il gioco e fatto..
Ultima modifica:
Ultima estrazione Lotto
-
Estrazione del lotto
martedì 28 ottobre 2025Bari7136811035Cagliari4269625235Firenze0380385411Genova8841180745Milano4843111757Napoli1855101504Palermo6726334945Roma1477100554Torino7987425540Venezia6218857401Nazionale6145383462Estrazione Simbolotto
4434112516
