Per Salvo50

[sorujoe]

Ciao Salvo ti chiedo gentilmente se puoi farmi questo script.
Io inserisco un ambo
lo script deve rilevare la sortita su una qualsiasi coppia di ruote dell'ambo e di uno dei suoi componenti isotopo su altra ruota.
Ciò fatto deve rilevare le vincite negli "x" colpi successivi della formazione che immetto io .....massimo 10 numeri.

Esempio non reale.
Roma ambo 22.78 (1° e 4° estratto)
Bari 22 (4° quindi isotopo)
Io immetto la formazione massimo 10 numeri su cui fare lo spoglio negli "x" diciamo 18 colpi seguenti.
Spero mi possa aiutare e grazie ancora di tutto

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,P4,E1,E2,Caso,Casi
   Dim Spia1,Spia2,A,B,C,D,K,G,IdEstr
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000))
   Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
   Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,20))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Call ScegliNumeri(aNum)
   Scrivi Space(12) & "PER BYRON - 2 SPIE PER LUNGHETTA 2B - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      Caso = 0
      For R1 = 1 To 10
         For P1 = 1 To 4
            For P2 = P1 + 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R1,P2)
               If(A = Spia1 And B = Spia2) Or(A = Spia2 And B = Spia1) Then
                  For R2 = 1 To 10
                     If R2 <> R1 Then
                        C = Estratto(Es,R2,P1)
                        D = Estratto(Es,R2,P2)
                        If C = Spia1 Or C = Spia2 Or D = Spia1 Or D = Spia2 Then
                           Call VerificaEsito(aNum,Ruo,Es + 1,1,Clp,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                           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(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R1) & " ",1,0
                           For P3 = 1 To 5
                              E1 = Estratto(Es,R1,P3)
                              If E1 = A Or E1 = B Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E1) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                           Scrivi "  " & SiglaRuota(R2) & " ",1,0
                           For P4 = 1 To 5
                              E2 = Estratto(Es,R2,P4)
                              If E2 = Spia1 Or E2 = Spia2 Then
                                 ColoreTesto 2
                              Else
                                 ColoreTesto 0
                              End If
                              Scrivi Format2(E2) & " ",1,0
                              ColoreTesto 0
                           Next
                           Scrivi
                           Scrivi
                           Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
                           Scrivi
                           K = 0
                           G = Es + Clp
                           If G > FIn Then G = FIn
                           For IdEstr = Es + 1 To G
                              K = K + 1
                              Ruo(1) = R1
                              Ruo(2) = R2
                              Call VerificaEsito(aNum,Ruo,IdEstr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
                              ColoreTesto 0
                              If RetEsito = "" Then Scrivi IdEstr & " - " & Format2(K) & "° - " & Space(33) & " ESITO NON VERIFICATO ",1,,,1
                              If RetEsito <> "" Then
                                 If RetEsito = "Ambo" Then ColoreTesto 2
                                 If RetEsito = "Terno" Then ColoreTesto 1
                                 If RetEsito = "Quaterna" Then ColoreTesto 7
                                 If RetEsito = "Cinqina" Then ColoreTesto 3
                                 Call Scrivi(IdEstr & " - " & Format2(K) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                                 ColoreTesto 0
                              End If
                           Next
                        End If
                     End If
                  Next
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   CreaTabella
End Sub

 

[sorujoe]

Grazieeeeeeeeeeeee

 

[sorujoe]

Perfetto ti posso disturbare per un secondo listato credo piu semplice e perdonami ma non so a chi rivolgermi. A me servirebbe uno script che mi trova su 2 ruote un numero isotopo la cui somma sia 91

Esempio
Bari 1° estratto 20
Cagliari 1° estratto 71

la somma deve essere algebrica senza fuori 90 oppure a mia scelta col fuori 90.

Ho questo tuo script che mi fa tale ricerca su 2 numeri vertibili ISOTOPI puoi modificare magari questo? che dici?

Option Explicit
Sub Main
Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2
Dim Idestr,Col,Esqcol,Esq,Caso,Casi
FIn = EstrazioneFin
Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Idestr,9000)
Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",,FIn))
Esqcol = Esq + Col
If Esqcol > FIn Then Esqcol = FIn
For Es = Esq To Esqcol
Caso = 0
AvanzamentoElab Esq,Esqcol,Es
For R1 = 1 To 10
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
For R2 = R1 + 1 To 12
If R2 = 11 Then R2 = 12
B = Estratto(Es,R2,P1)
If A = Vert(B) Then
Caso = Caso + 1
Casi = Casi + 1
ColoreTesto 1
Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000")
ColoreTesto 2
Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000")
ColoreTesto 0
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
End If
Next
Next
Next
Next
End Sub

 

[sorujoe]

scusami ancora

 

[salvo50]

Ciao Byron, la somma 91 o 90 tra 2 numeri, farla col fuori90 è inutile se la somma deve essere di 91 perchè la somma non potrà mai superare 180, quindi col fuori 90 viene 90 un numero inferiore a 91, ho fatto l'ipotesi che si incolonnano due estratti 90, quindi non ho messo la scelta, la somma 91 nello script è pura o algebrica, a meno che non ho capito la tua richiesta.

Option Explicit
Sub Main
   Dim FIn,Ini,A,B,R1,R2,P1,P2,P3,Es,E1,E2
   Dim Salvo50,Col,Esqcol,Esq,Caso,Casi,Somma
   FIn = EstrazioneFin
   Esq = InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,9000)
   Col = CInt(InputBox(" Quante estrazioni vuoi controllare ",Salvo50,FIn))
   Scrivi Space(12) & "PER BYRON - SOMMA 91 IN VERTICALE ISOTOPA - SCRIPT SALVO50",1,,4,,3,,1
   Esqcol = Esq + Col
   If Esqcol > FIn Then Esqcol = FIn
   For Es = Esq To Esqcol
      Caso = 0
      AvanzamentoElab Esq,Esqcol,Es
      For R1 = 1 To 10
         For P1 = 1 To 5
            A = Estratto(Es,R1,P1)
            For R2 = R1 + 1 To 12
               If R2 = 11 Then R2 = 12
               B = Estratto(Es,R2,P1)
               Somma = A + B
               If Somma = 91 Then
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"-") & " Casi Totali " & FormattaStringa(Casi,"0000"),1,,,1
                  Scrivi String(80,"-") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),1,,,2
                  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
               End If
            Next
         Next
      Next
   Next
End Sub

 

[sorujoe]

GRANDIOSO .....non ti conosco ma ti stimo un sacco grazie