Pandit
Super 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
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
Ultima modifica: