Ciao Salvo quando puoi potresti fare una modifica a questo script se si può ti spiego:-
1)-creare una tabella dove poter rilevare i colpi di gioco con inserimento dall'utente tipo se i colpi di una previsione sono 7 io inserisco da 5 a 7 e mi cerca solo quelle previsioni in atto, compreso le ruote di gioco.Ti allego lo script. Ti saluto e buon lavoro Chicco
1)-creare una tabella dove poter rilevare i colpi di gioco con inserimento dall'utente tipo se i colpi di una previsione sono 7 io inserisco da 5 a 7 e mi cerca solo quelle previsioni in atto, compreso le ruote di gioco.Ti allego lo script. Ti saluto e buon lavoro Chicco
Codice:
'Metodo chiesto da JURI per numeretti e da Miki55 per gli zerati
'Si cercano 2 numeretti stessa Posizione su 2 ruote.
'Poi si uniscono le cifre e la prima ambata principale e
'il vertibile la secondaria. Lo stesso con gli zerati,
'si prendono solo le cifre delle decine.
'con Modifica proposta da Alien, cercare l'ambo e il terno anche su tutte
'Script by Salvo50
Option Explicit
Dim R1,P1,P2,P3,Es,R2,Clp,Esq,Caso,Casi
Dim Ru(2),Poste(2),Posta(1),Num1(1)
Dim Num2(2),Tutte(1),Posts(3),Num3(3)
Dim Salvo50,Ini,FIn,Ind,Tutti,OK
Dim A,B,C,D,E1,E2,CaA,CaB,DeA,DeB,Amb,VAmb
Sub Main
Scrivi
Posta(1) = 1
Poste(1) = 1
Poste(2) = 1
Posts(2) = 1
'Posts(3) = 1
FIn = EstrazioneFin
Ind = CInt(InputBox("Quante estrazioni vuoi controllare?",Salvo50,100))
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca",Salvo50,6))
Tutti = CInt(InputBox("Vuoi fare la ricerca per tutte le ruote, di Ambo e terno? SI = 1 - NO = qualunque altra cifra",Salvo50,1))
Ini = FIn - Ind
For Es = Ini To FIn
AvanzamentoElab Ini,FIn,Es
Scrivi
Caso = 0
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
'C = A
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
B = Estratto(Es,R2,P1)
DeA = Decina(A) : DeB = Decina(B) : CaA = Cadenza(A) : CaB = Cadenza(B)
If(CaA = 0 And CaB = 0) Or(DeA = 0 And DeB = 0) Then
OK = 0
If(CaA = 0 And CaB = 0) Then
Amb = DeA & DeB
If Amb > 90 Then
Amb = 0 & DeB
End If
OK = 1
End If
If(DeA = 0 And DeB = 0) Then
Amb = CaA & CaB
If Amb > 90 Then
Amb = 0 & CaB
End If
OK = 1
End If
'A = C
If OK = 1 Then
VAmb = Vert(Amb)
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"o") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"o") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E1) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
Call ColoreTesto(2)
Else
Call ColoreTesto(0)
End If
Call Scrivi(Format2(E2) & " ",1,0)
Call ColoreTesto(0)
Next
Scrivi
Scrivi
Scrivi Space(30) & " Pronostico ",1,0
ColoreTesto 2
Scrivi Format2(Amb) & " " & Format2(VAmb),1 : ColoreTesto 0
Ru(1) = R1
Ru(2) = R2
Tutte(1) = TU_
Num1(1) = Amb
ImpostaGiocata 1,Num1,Ru,Posta,Clp
Num2(1) = Amb : Num2(2) = VAmb
ImpostaGiocata 2,Num2,Ru,Poste,Clp
If Tutti = 1 Then
Num3(1) = Amb : Num3(2) = VAmb : Num3(3) = Fuori90(Amb + VAmb)
ImpostaGiocata 3,Num3,Tutte,Posts,13
End If
Gioca Es
End If
End If
Next
Next
Next
Next
ScriviResoconto
End Sub
