Aiuto per completare questo script

stupl · 29 Novembre 2017

Option Explicit
Sub Main()
Dim A,B,C,D,Ini,Fin,Es,P1,P2,P3,P4,R1,R2
Dim N1(2),N2(2),Posta(3),Tutte(1),Ruote(2)
Dim Caso,Casi,Clp
Posta(2) = 0.5
Posta(3) = 0.5
Tutte(1) = TU_
Ini = EstrazioneFin - 50
Fin = EstrazioneFin
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
Messaggio Es
Caso = 0
For R1 = 1 To 9
For P1 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = P1 + 1 To 5
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 10
For P3 = 1 To 4
C = Estratto(Es,R2,P3)
For P4 = P3 + 1 To 5
D = Estratto(Es,R2,P4)
If A = C And B = D Or A = D And B = C Then
If (P1 = P3 And A = B) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then

'Cercare 2 Ambi uguali su due ruote con almeno <<---- Questa operazione
'un numero in Posizione isotopo <<---- c'è ed è l' IF di sopra

'N1(1) = Numero in posizione isotopa <<<<<----- Come si fa qua?
'N1(2) = (N1(1) x 2) <<<<<<<<<<<<<<<<<
'N2(1)= (90 - N1(1)) <<<<<<<<<<<<<<<<<
'N2(2)= (90 - N2(1)) <<<<<<<<<<<<<<<<<

'L'Ambo che ne esce dall'insieme N2(1) e N"(2) si giocherà sulle <<----- Queste operazioni pure
'ruote dove si è verificato la condizione mentre l'Ambo <<----- ci sono ed è il continuo
'dell'insieme N1(1) e N2(2) si giocherà su Tutte <<----- dello script

Caso = Caso + 1
Casi = Casi + 1
Ruote(1) = R1 : Ruote(2) = R2
ColoreTesto 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
Scrivi
EliminaRipetuti N1
ImpostaGiocata 1,N1,Tutte,Posta,Clp
EliminaRipetuti N2
ImpostaGiocata 2,N2,Ruote,Posta,Clp
Gioca Es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Grazie

salvo50 · 30 Novembre 2017

Ciao!
Vedi se va bene così

Codice:

 Option Explicit
Sub Main()
Dim A,B,C,D,Ini,Fin,Es,P1,P2,P3,P4,R1,R2
Dim N1(2),N2(2),Posta(3),Tutte(1),Ruote(2)
Dim Caso,Casi,Clp
Posta(2) = 0.5
Posta(3) = 0.5
Tutte(1) = TU_
Ini = EstrazioneFin - 50
Fin = EstrazioneFin
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
Messaggio Es
Caso = 0 ': A1 = 0 : A2 = 0:P1=0:P2=0:P3=0:P4=0
For R1 = 1 To 9
For P1 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = P1 + 1 To 5
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 10
For P3 = 1 To 4
C = Estratto(Es,R2,P3)
For P4 = P3 + 1 To 5
D = Estratto(Es,R2,P4)
If A = C And B = D Or A = D And B = C Then
If (P1 = P3 And A = C) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then



'Cercare 2 Ambi uguali su due ruote con almeno <<---- Questa operazione
'un numero in Posizione isotopo <<---- c'è ed è l' IF di sopra


'N1(1) = Numero in posizione isotopa <<<<<----- Come si fa qua?
If (P1 = P3 And A = C) Then N1(1) = A
If (P1 = P4 And A = D) Then N1(1) = A
If (P2 = P3 And B = C) Then N1(1) = B
If (P2 = P4 And B = D) Then N1(1) = B
N1(2) = Fuori90 (A * 2) ' <<<<<<<<<<<<<<<<<
N2(1)= (90 - A ) '<<<<<<<<<<<<<<<<<
N2(2)= (90 - C ) '<<<<<<<<<<<<<<<<<


'L'Ambo che ne esce dall'insieme C e D si giocherà sulle <<----- Queste operazioni pure
'ruote dove si è verificato la condizione mentre l'Ambo <<----- ci sono ed è il continuo
'dell'insieme A e B si giocherà su Tutte <<----- dello script


Caso = Caso + 1
Casi = Casi + 1
Ruote(1) = R1 : Ruote(2) = R2
ColoreTesto 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
Scrivi
EliminaRipetuti N1
ImpostaGiocata 1,N1,Tutte,Posta,Clp
EliminaRipetuti N2
ImpostaGiocata 2,N2,Ruote,Posta,Clp
Gioca Es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

stupl · 30 Novembre 2017

salvo50;n2088798 ha scritto:

Ciao!
Vedi se va bene così

Codice:

 Option Explicit
Sub Main()
Dim A,B,C,D,Ini,Fin,Es,P1,P2,P3,P4,R1,R2
Dim N1(4),N2(4),Posta(3),Tutte(1),Ruote(2)
Dim Caso,Casi,Clp
Posta(2) = 0.5
Posta(3) = 0.5
Tutte(1) = TU_
Ini = EstrazioneFin - 50
Fin = EstrazioneFin
Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
For Es = Ini To Fin
Call AvanzamentoElab(Ini,Fin,Es)
Messaggio Es
Caso = 0  
For R1 = 1 To 9
For P1 = 1 To 4
A = Estratto(Es,R1,P1)
For P2 = P1 + 1 To 5
B = Estratto(Es,R1,P2)
For R2 = R1 + 1 To 10
For P3 = 1 To 4
C = Estratto(Es,R2,P3)
For P4 = P3 + 1 To 5
D = Estratto(Es,R2,P4)
If A = C And B = D Or A = D And B = C Then
If (P1 = P3 And A = C) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then



'Cercare 2 Ambi uguali su due ruote con almeno <<---- Questa operazione
'un numero in Posizione isotopo <<---- c'è ed è l' IF di sopra


'N1(1) = Numero in posizione isotopa <<<<<----- Come si fa qua?
If (P1 = P3 And A = B) Then N1(1) = A
If (P1 = P4 And A = D) Then N1(1) = A
If (P2 = P3 And B = C) Then N1(1) = B
If (P2 = P4 And B = D) Then N1(1) = B
N1(2) = Fuori90 (N1(1) * 2)      ' <<<<<<<<<<<<<<<<<
N2(1)= (90 - N1(1) )         '<<<<<<<<<<<<<<<<<
N2(2)= (90 - N2(1) )         '<<<<<<<<<<<<<<<<<


'L'Ambo che ne esce dall'insieme C e D si giocherà sulle <<----- Queste operazioni pure
'ruote dove si è verificato la condizione mentre l'Ambo <<----- ci sono ed è il continuo
'dell'insieme A e B si giocherà su Tutte <<----- dello script


Caso = Caso + 1
Casi = Casi + 1
Ruote(1) = R1 : Ruote(2) = R2
ColoreTesto 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
ColoreTesto 0
Scrivi
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
Scrivi
EliminaRipetuti N1
ImpostaGiocata 1,N1,Tutte,Posta,Clp
EliminaRipetuti N2
ImpostaGiocata 2,N2,Ruote,Posta,Clp
Gioca Es
End If
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
End Sub

Ciao Salvo50, le IF che hai inserito funzionano benissimo, però ora mi sorge un dubbio se capitano due numeri isotopi tali IF ricadranno sempre sulla B escludendo la A, quindi chiedo si potrebbe fare, nel caso capita tale condizione, lo stesso calcolo anche per la A, in modo da ricavare 4 numeri? ma solo se capitano 2 numeri in posizione isotopa con un solo numero resterebbe lo stesso calcolo.
Grazie

salvo50 · 30 Novembre 2017

stupl;n2088864 ha scritto:
Ciao Salvo50, le IF che hai inserito funzionano benissimo, però ora mi sorge un dubbio se capitano due numeri isotopi tali IF ricadranno sempre sulla B escludendo la A, quindi chiedo si potrebbe fare, nel caso capita tale condizione, lo stesso calcolo anche per la A, in modo da ricavare 4 numeri? ma solo se capitano 2 numeri in posizione isotopa con un solo numero resterebbe lo stesso calcolo.
Grazie

Ciao Stupl, Ci provo.

C'è un errore nelle IF, che ho già corretto, anche in METODI

errato
If(P1 = P3 And A = B) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then

corretto
If(P1 = P3 And A = C) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then

stupl · 30 Novembre 2017

Ok. Grazie per l'interessamento.

salvo50 · 30 Novembre 2017

Fatto, salvo errori o dimenticanze

Codice:

 Option Explicit
Sub Main()
    Dim A,B,C,D,Ini,Fin,Es,P1,P2,P3,P4,R1,R2
    Dim N1(2),N2(2),N3(2),Posta(3),Tutte(1),Ruote(2)
    Dim Caso,Casi,Clp,Co
    Posta(2) = 0.5
    'Posta(3) = 0.5
    Tutte(1) = TU_
    Ini = EstrazioneFin - 250
    Fin = EstrazioneFin
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
    For Es = Ini To Fin
        Call AvanzamentoElab(Ini,Fin,Es)
        Messaggio Es
        Caso = 0 ': A1 = 0 : A2 = 0:P1=0:P2=0:P3=0:P4=0
        For R1 = 1 To 9
            For P1 = 1 To 4
                A = 0
                A = Estratto(Es,R1,P1)
                For P2 = P1 + 1 To 5
                    B = Estratto(Es,R1,P2)
                    For R2 = R1 + 1 To 10
                        For P3 = 1 To 4
                            C = Estratto(Es,R2,P3)
                            For P4 = P3 + 1 To 5
                                D = Estratto(Es,R2,P4)
                                If A = C And B = D Or A = D And B = C Then
                                    If(P1 = P3 And A = C) Or(P1 = P4 And A = D) Or(P2 = P3 And B = C) Or(P2 = P4 And B = D) Then
                                        'Cercare 2 Ambi uguali su due ruote con almeno <<---- Questa operazione
                                        'un numero in Posizione isotopo <<---- c'è ed è l' IF di sopra
                                        'N1(1) = Numero in posizione isotopa <<<<<----- Come si fa qua?
                                        N3(1) = 0
                                        If(P1 = P3 And A = C) Then N1(1) = A
                                        If(P1 = P4 And A = D) Then N1(1) = A
                                        If(P2 = P3 And B = C) Then N1(1) = B
                                        If(P2 = P4 And B = D) Then N1(1) = B
                                        If(P1 = P3 And A = C) And(P2 = P4 And B = D) Then N3(1) = A
                                        N1(2) = Fuori90(A * 2) ' <<<<<<<<<<<<<<<<<
                                        N2(1) =(90 - A) '<<<<<<<<<<<<<<<<<
                                        N2(2) =(90 - C) '<<<<<<<<<<<<<<<<<
                                        'L'Ambo che ne esce dall'insieme C e D si giocherà sulle <<----- Queste operazioni pure
                                        'ruote dove si è verificato la condizione mentre l'Ambo <<----- ci sono ed è il continuo
                                        'dell'insieme A e B si giocherà su Tutte <<----- dello script
                                        Caso = Caso + 1
                                        Casi = Casi + 1
                                        Ruote(1) = R1 : Ruote(2) = R2
                                        ColoreTesto 1
                                        Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                                        ColoreTesto 2
                                        Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
                                        ColoreTesto 0
                                        Scrivi
                                        Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1) & " - ",0,0
                                        Scrivi SiglaRuota(R1) & " " & Format2(A) & " " & Format2(B)
                                        Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2) & " - ",0,0
                                        Scrivi SiglaRuota(R2) & " " & Format2(C) & " " & Format2(D)
                                        Scrivi
                                        Co = 0
                                        Co = Co + 1
                                        EliminaRipetuti N1
                                        ImpostaGiocata Co,N1,Tutte,Posta,Clp
                                        Co = Co + 1
                                        If N3(1) > 0 Then
                                            N3(2) = N1(2)
                                            EliminaRipetuti N3
                                            ImpostaGiocata Co,N3,Tutte,Posta,Clp
                                            Co = Co + 1
                                        End If
                                        EliminaRipetuti N2
                                        ImpostaGiocata Co,N2,Ruote,Posta,Clp
                                        Gioca Es
                                    End If
                                End If
                            Next
                        Next
                    Next
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

Volevo chiederti un favore, ho notato che sei bravo a inserire i colori, ti faccio un esempio

07.05.2016 - NA 73.28.38.02.31 - NA 02 31
07.05.2016 - VE 70.02.74.57.31 - VE 02 31

questo l'ho preso dall'output di questo script, come si nota dopo l'estrazione ho fatto visualizzare gli ambi doppi
però secondo me, sarebbe meglio se si vedessero cosi

07.05.2016 - NA 73.28.38.02.31
07.05.2016 - VE 70.02.74.57.31

ci ho già provato e riprovato ma non ci sono riuscito

joe · 1 Dicembre 2017

Perchè non ci sei ruiuscito ?!?!

Innanzi tutto devi dividere la cinquina nei singoli elementi.

Poi è sufficiente applicare dei filtri condizionali ad ogni singolo elemento.

Nel caso specifico quando il numero è presente 2 VOLTE in UNA POSIZIONE.

un qualcosa tipo:

Codice:

For P = 1 To 5

If Estratto (Es,R1,P) = Estratto (Es,R2,P) Then ColoreTesto 2

Scrivi -Estratto- & " ",0,0 : Coloretesto 0

Next : Scrivi

salvo50 · 1 Dicembre 2017

Ciao Joe!
Grazie, quindi
StringaEstratti(Es,R1) e StringaEstratti(Es,R2) li devo eliminare e mettere l'estratto?

stupl · 1 Dicembre 2017

Ciao salvo50, grazie per lo script, però ci sono degli errori non dovuti a te ma a me perché ho letto il metodo in un modo confusionario ed ho fatto lo sbaglio di non postarlo letteralmente e quindi è tutto da rifare.Il metodo chiede non un ambo con almeno un numero in posizione isotopa ma solo un numero in posizione isotopa che però sia su due ruote consecutive e non distanti.
Per non creare di nuovo confusione posto il metodo in questione:

Metodo “Isotopo”

In una qualsiasi estrazione bisogna rintracciare su due ruote consecutive un numero estratto in posizione isotopo (stessa posizione).
Trovate le condizioni, si procede in questo modo:

A= Numero in posizione isotopa

B= A * 2 (col -90 se necessario)

C= 90 – B

D = 90 – A

La giocata sarà cosi composta:

Ambate ed ambo C e D sulle due ruote dove si è verificata la condizione
Ambo secco B e D su Tutte le Ruote.

Questo metodo che fa i calcoli sul singolo numero isotopo alla fine da 2 Ambi da giocare, ora quello che chiedevo ieri è:
se nel caso capitassero 2 numeri in posizione isotopa allora vorrei che i calcoli li farebbe su entrambi i numeri, facendone uscire 4 ambi da mettere in gioco.
E questo è quello che riguarda lo script, per quello che invece mi hai chiesto:

Volevo chiederti un favore, ho notato che sei bravo a inserire i colori, ti faccio un esempio

07.05.2016 - NA 73.28.38.02.31 - NA 02 31
07.05.2016 - VE 70.02.74.57.31 - VE 02 31

questo l'ho preso dall'output di questo script, come si nota dopo l'estrazione ho fatto visualizzare gli ambi doppi
però secondo me, sarebbe meglio se si vedessero cosi

07.05.2016 - NA 73.28.38.02.31
07.05.2016 - VE 70.02.74.57.31

ci ho già provato e riprovato ma non ci sono riuscito

purtroppo non posso aiutarti sulla questione dei colori perchè questo script non l'ho fatto io ma tu, l'ho preso a questo link: https://forum.lottoced.com/forum/lot...-dal-web/page2
però ho uno script del 10elotto che fa quello che chiedi tu cioè evidenzia con colori i numeri scelti presenti nell'estrazione, però credo che il metodo per evidenziare tali numeri sia difficile farlo usando la funzione StringaEstratti ma sarebbe possibile farlo se gli estratti vengono scritti uno per volta, ti posto lo script così vedi tu stesso la porzione di script che fa funzione di evidenziatore numeri:

Codice:

Sub Main()
Call ImpostaArchivio10ELotto(2)
Call AggiornaArchivioDL
Dim Nn(11),Qt,Ini,fin
Dim Es,P,v,x,y,i,Tot
Qt = ScegliNumeri(Nn)
Ini = EstrazioniArchivioDL - 1152 ' ***** ESTRAZIONE BASE INIZIO VERIFICA
fin = EstrazioniArchivioDL
Scrivi " Da " & GetInfoEstrazioneDL(Ini) & " a " & GetInfoEstrazioneDL(fin),1,,,0,3
Scrivi String(100,"="),1
Scrivi " Numeri in gioco : " & StringaNumeri(Nn),1,,,2,3
Scrivi String(100,"-"),1,,,0
For Es = Ini To fin
If Qt = 1 Then x = 1:y = 1
If Qt = 2 Then x = 2:y = 1
If Qt = 3 Then x = 3:y = 2
If Qt = 4 Then x = 4:y = 2
If Qt = 5 Then x = 5:y = 2
If Qt = 6 Then x = 6:y = 3
If Qt = 7 Then x = 7:y = 4
If Qt = 8 Then x = 8:y = 5
If Qt = 9 Then x = 9:y = 5
If Qt = 10 Or Qt > 10 Then x = 10:y = 5
For v = x To y Step - 1
Tot = 0
[B]If VerificaEsitoDL(Nn,Es,v,1)Then
Scrivi GetInfoEstrazioneDL(Es) & " - ",,0
For P = 1 To 20
ColoreTesto 1
For i = 1 To Qt
If EstrattoDL(Es,P) = Nn(i) Then
ColoreTesto 2
Tot = Tot + 1
End If[/B]
Next
Scrivi Format2(EstrattoDL(Es,P)),1,0
ColoreTesto 0
Scrivi ".",0,0,,1
Next
Scrivi " --> ",0,0,,0
Scrivi Tot,1,0,,2
Scrivi " Punti",,,,1,,,,,1
Exit For
End If
Next
Tot = 0
Next
Scrivi String(100,"-"),1,,,0
End Sub

salvo50 · 1 Dicembre 2017

stupl;n2089066 ha scritto:
Questo metodo che fa i calcoli sul singolo numero isotopo alla fine da 2 Ambi da giocare, ora quello che chiedevo ieri è:
se nel caso capitassero 2 numeri in posizione isotopa allora vorrei che i calcoli li farebbe su entrambi i numeri, facendone uscire 4 ambi da mettere in gioco.
E questo è quello che riguarda lo script, per quello che invece mi hai chiesto:

Appena ho tempo te lo faccio, adesso mi sono impegnato con lo script chiesto da AntonioQuagliozzi

purtroppo non posso aiutarti sulla questione dei colori perchè questo script non l'ho fatto io ma tu, l'ho preso a questo link: https://forum.lottoced.com/forum/lot...-dal-web/page2
però ho uno script del 10elotto che fa quello che chiedi tu cioè evidenzia con colori i numeri scelti presenti nell'estrazione, però credo che il metodo per evidenziare tali numeri sia difficile farlo usando la funzione StringaEstratti ma sarebbe possibile farlo se gli estratti vengono scritti uno per volta, ti posto lo script così vedi tu stesso la porzione di script che fa funzione di evidenziatore numeri:

Grazie, quindi devo eliminare stringaestratti, ecco perchè non ci riuscivo, proverò sia col tuo script di esempio ed anche col suggerimento di Joe

joe · 1 Dicembre 2017

Ciao Salvo, comunque sia si.

StringaEstratti è un "oggetto completo" mentre tu vuoi modificare

solo alcuni (1 o più) dei 5 Estratti. Li devi considerare separatamente.

Per dirla tutta Luigi ha predisposto istruzioni per l'Html

ed anche "Iif" che a me ricorda molto gli IF di excel

Ma ... la strada che ti ho proposto, mi sembra la più semplice.

Codice:

'Option Explicit
Sub Main
'Evidenzia Isotopi By Joe
    Dim Es,R1,R2,P,E
    For Es = EstrazioneFin - 10 To EstrazioneFin
        Scrivi DataEstrazione(Es),True
        For R1 = 1 To 10
            Scrivi SiglaRuota(R1) & " ",True,False
            For P = 1 To 5
                E = Estratto(Es,R1,P)
                For R2 = 1 To 10
                    If R1 <> R2 Then
                        If Posizione(Es,R2,E) = P Then ColoreTesto 2
                    End If
                Next
                Scrivi Format2(E) & " ",0,0 : ColoreTesto 0
            Next
            Scrivi
        Next
        Scrivi
    Next
End Sub

stupl · 1 Dicembre 2017

salvo50;n2089082 ha scritto:
Appena ho tempo te lo faccio, adesso mi sono impegnato con lo script chiesto da AntonioQuagliozzi

Grazie, quindi devo eliminare stringaestratti, ecco perchè non ci riuscivo, proverò sia col tuo script di esempio ed anche col suggerimento di Joe

Ok salvo50, fai quello che devi fare, aspetto volentieri, ma non dimenticarti che ho postato il metodo esatto quindi lo script e da modificare.

salvo50 · 1 Dicembre 2017

Grazie Joe

salvo50 · 1 Dicembre 2017

stupl;n2089114 ha scritto:
Ok salvo50, fai quello che devi fare, aspetto volentieri, ma non dimenticarti che ho postato il metodo esatto quindi lo script e da modificare.

Se ti riferisce allo script che ti ho postato io, è tutto da rifare, non si può adattare, ed infatti l'ho rifatto, di vecchio ho lasciato solo qualche Scrivi e qualche altra riga, lo script quando c'è un numero isotopo prima di passare ad un'altra estrazione controlla che non ci siano altri numeri isotopi, lo fa in automatico, eccolo:

Codice:

 Option Explicit
Sub Main()
    Dim A,B,C,D,Ini,Fin,Es,P1,P2,R1,R2,A1
    Dim N1(2),N2(2),Posta(3),Tutte(1),Ruote(2)
    Dim Caso,Casi,Clp
    Posta(2) = 1
    Tutte(1) = TU_
    Ini = EstrazioneFin - 250
    Fin = EstrazioneFin
    Clp = CInt(InputBox("Per quanti colpi vuoi fare la ricerca ?",,7))
    For Es = Ini To Fin
        Call AvanzamentoElab(Ini,Fin,Es)
        Messaggio Es
        Caso = 0
        For R1 = 1 To 9
            For P1 = 1 To 5
                A = Estratto(Es,R1,P1)
                R2 = R1 + 1
                For P2 = 1 To 5
                    A1 = Estratto(Es,R2,P2)
                    If P1 = P2 And A = A1 Then
                        B = Fuori90(A*2)
                        C = 90 - B
                        D = 90 - A
                        Ruote(1) = R1
                        Ruote(2) = R2
                        N1(1) = C
                        N1(2) = D
                        N2(1) = B
                        N2(2) = D
                        Caso = Caso + 1
                        Casi = Casi + 1
                        ColoreTesto 1
                        Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                        ColoreTesto 2
                        Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1
                        ColoreTesto 0
                        Scrivi
                        Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),0,0
                        Scrivi " - " & Format2(A) & " In " &(P1) & " Posizione"
                        Scrivi DataEstrazione(Es) & " - " & SiglaRuota(R2) & " " & StringaEstratti(Es,R2),0,0
                        Scrivi " - " & Format2(A1) & " in " &(P2) & " Posizione"
                        Scrivi
                        ImpostaGiocata 1,N1,Ruote,Posta,Clp
                        ImpostaGiocata 2,N2,Tutte,Posta,Clp
                        Gioca Es
                    End If
                Next
            Next
        Next
    Next
    ScriviResoconto
End Sub

stupl · 2 Dicembre 2017

Grazie Salvo50

Cerca

Cerca

Aiuto per completare questo script

stupl

Super member

salvo50

Advanced Member >PLATINUM PLUS<

stupl

Super member

salvo50

Advanced Member >PLATINUM PLUS<

stupl

Super member

salvo50

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

stupl

Super member

salvo50

Advanced Member >PLATINUM PLUS<

joe

Advanced Member >PLATINUM PLUS<

stupl

Super member

salvo50

Advanced Member >PLATINUM PLUS<

salvo50

Advanced Member >PLATINUM PLUS<

stupl

Super member

Ultima estrazione Lotto

Ultimi Messaggi