Pandit
Member
Vi metto un listato dove potete scegliere le due ruote, quella di base e quella secondaria più
i colpi di gioco... Non è quella che è stata postata più sopra, perchè i calcoli di ricerca sono quelli dell'anno scorso e se avete letto, ogni sei mesi vengono cambiati. Però nello script altri parametri potete cambiarli.. Spero vada bene
i colpi di gioco... Non è quella che è stata postata più sopra, perchè i calcoli di ricerca sono quelli dell'anno scorso e se avete letto, ogni sei mesi vengono cambiati. Però nello script altri parametri potete cambiarli.. Spero vada bene
' " Tabella con scelta Ruote per base di ricerca, Indice Mensile e colpi di gioco by Pandit",1
Sub Main
Dim Nu(2),Ru(3),T,abb1,abb(4),Ru1(1),bb(4)
Ini = EstrazioneFin - 500
fin = EstrazioneFin
x = CInt(InputBox("Quanti colpi di gioco?",,17))'
x1 = CInt(InputBox("Quale ruota di nrilevazione?",,6))'
x2 = CInt(InputBox("Quale seconda ruota?",,7))'
x3 = CInt(InputBox("Quale estrazione Mensile?",,3))'
r1 = x1
r2 = x2
p1 = 1
T = Array(T,"Estrazione"," Ruote "," Numeri in Gioco","Verifica Risultati","Colpo","Con Abbinamenti","Risultati Superiori","Colpo")
Call InitTabella(T,RGB(0,71,171),,3,6,"Times")
For es = Ini To fin
If IndiceMensile(es) = x3 Then
a = Estratto(es,r1,p1)
Nu(1) = Fuori90(Estratto(es,r1,p1) + 12)
Nu(2) = Fuori90(Vert(Nu(1)))
Ru(1) = r1
Ru(2) = r2
Call VerificaEsito(Nu,Ru,es + 1,1,x,,esito,clp,esA,id)
abb(1) = 90 - Nu(1)
abb(2) = 90 - Nu(2)
bb(1) = 90 - Nu(1)
bb(2) = 90 - Nu(2)
bb(3) = Nu(1)
bb(4) = Nu(2)
Call VerificaEsito(bb,Ru,es + 1,1,x,,esito,clp1,esB,id)
T = Array(T,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),esA,clp,StringaNumeri(bb),esB,clp1)
Call AddRigaTabella(T)
Call SetColoreCella(1,RGB(250,250,210),RGB(0,0,0))
Call SetColoreCella(2,RGB(0,255,0),RGB(0,0,0))
Call SetColoreCella(3,RGB(238,130,238),RGB(0,0,0))
Call SetColoreCella(4,RGB(175,238,238),RGB(0,0,0))
Call SetColoreCella(5,RGB(250,250,210),RGB(0,0,0))
Call SetColoreCella(6,RGB(238,130,238),RGB(0,0,0))
Call SetColoreCella(7,RGB(175,238,238),RGB(0,0,0))
Call SetColoreCella(8,RGB(250,250,210),RGB(0,0,0))
End If
Next
'" by Pandit"
CreaTabella
End Sub
[/ spoiler]
Sub Main
Dim Nu(2),Ru(3),T,abb1,abb(4),Ru1(1),bb(4)
Ini = EstrazioneFin - 500
fin = EstrazioneFin
x = CInt(InputBox("Quanti colpi di gioco?",,17))'
x1 = CInt(InputBox("Quale ruota di nrilevazione?",,6))'
x2 = CInt(InputBox("Quale seconda ruota?",,7))'
x3 = CInt(InputBox("Quale estrazione Mensile?",,3))'
r1 = x1
r2 = x2
p1 = 1
T = Array(T,"Estrazione"," Ruote "," Numeri in Gioco","Verifica Risultati","Colpo","Con Abbinamenti","Risultati Superiori","Colpo")
Call InitTabella(T,RGB(0,71,171),,3,6,"Times")
For es = Ini To fin
If IndiceMensile(es) = x3 Then
a = Estratto(es,r1,p1)
Nu(1) = Fuori90(Estratto(es,r1,p1) + 12)
Nu(2) = Fuori90(Vert(Nu(1)))
Ru(1) = r1
Ru(2) = r2
Call VerificaEsito(Nu,Ru,es + 1,1,x,,esito,clp,esA,id)
abb(1) = 90 - Nu(1)
abb(2) = 90 - Nu(2)
bb(1) = 90 - Nu(1)
bb(2) = 90 - Nu(2)
bb(3) = Nu(1)
bb(4) = Nu(2)
Call VerificaEsito(bb,Ru,es + 1,1,x,,esito,clp1,esB,id)
T = Array(T,GetInfoEstrazione(es),StringaRuote(Ru),StringaNumeri(Nu),esA,clp,StringaNumeri(bb),esB,clp1)
Call AddRigaTabella(T)
Call SetColoreCella(1,RGB(250,250,210),RGB(0,0,0))
Call SetColoreCella(2,RGB(0,255,0),RGB(0,0,0))
Call SetColoreCella(3,RGB(238,130,238),RGB(0,0,0))
Call SetColoreCella(4,RGB(175,238,238),RGB(0,0,0))
Call SetColoreCella(5,RGB(250,250,210),RGB(0,0,0))
Call SetColoreCella(6,RGB(238,130,238),RGB(0,0,0))
Call SetColoreCella(7,RGB(175,238,238),RGB(0,0,0))
Call SetColoreCella(8,RGB(250,250,210),RGB(0,0,0))
End If
Next
'" by Pandit"
CreaTabella
End Sub
[/ spoiler]
Ultima modifica: