Per Salvo50

[sorujoe]

Ciao Salvo tempo fa mi avevi fatto questo script che ricerca su 2 ruote determinate un medesimo o 2 numeri isotopi. Ti chiedo se lo stesso con identiche funzionalità me lo fai girare su tutte le coppie di ruote ..........senza che le indichi io.
Quindi se trova il numero o 2 da me indicati in modo ISOTOPO su qualsiasi coppia di ruote ...poi lo script procede com'è adesso.
GRAZIE

Option Explicit
Sub Main
Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
Dim te,ta,tte,tq,tc
Dim FIn,Es,Ini,Clp,Salvo50
Dim R1,R2,P1,P2,P3,E1,E2,Casi
Dim Spia1,Spia2,A,B
Dim RetEsito,RetColpi,RetEstratti,RetId
Dim Ruo(2)
ReDim aNum(20)
FIn = EstrazioneFin
Ini = 4100
R1 = CInt(InputBox("Inserisci la 1ª Ruota",Salvo50,1))
R2 = CInt(InputBox("Inserisci la 2ª Ruota",Salvo50,2))
Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
Call ScegliNumeri(aNum)
Call ScegliRange(Ini,FIn,Ini,FIn)
Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
Ruo(1) = R1
Ruo(2) = R2
For Es = Ini To FIn
Messaggio Es
AvanzamentoElab Ini,FIn,Es
For P1 = 1 To 5
A = Estratto(Es,R1,P1)
B = Estratto(Es,R2,P1)
If A = Spia1 And B = Spia2 Then
Casi = Casi + 1
Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
Scrivi " " & SiglaRuota(R1) & " ",1,0
For P2 = 1 To 5
E1 = Estratto(Es,R1,P2)
If E1 = A 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,,1
Scrivi " " & SiglaRuota(R2) & " ",1,0
For P3 = 1 To 5
E2 = Estratto(Es,R2,P3)
If E2 = B Then
ColoreTesto 2
Else
ColoreTesto 0
End If
Scrivi Format2(E2) & " ",1,0
ColoreTesto 0
Next
Scrivi
Scrivi String(60,"-")
Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
Scrivi
kk = 0 : estra = 0 : ambo = 0
terno = 0 : quat = 0 : cinq = 0 :
For idestr = Es + 1 To Es + Clp
kk = kk + 1
Call VerificaEsito(aNum,Ruo,idestr,1,1,Nothing,RetEsito,RetColpi,RetEstratti,RetId)
If RetEsito <> "" Then
ColoreTesto 0
If RetEsito = "Estratto" Then estra = estra + 1
If RetEsito = "Estratto" Then te = te + 1
If RetEsito = "Ambo" Then ColoreTesto 2
If RetEsito = "Ambo" Then ta = ta + 1
If RetEsito = "Ambo" Then ambo = ambo + 1
If RetEsito = "Terno" Then ColoreTesto 1
If RetEsito = "Terno" Then terno = terno + 1
If RetEsito = "Terno" Then tte = tte + 1
If RetEsito = "Quaterna" Then ColoreTesto 7
If RetEsito = "Quaterna" Then quat = quat + 1
If RetEsito = "Quaterna" Then tq = tq + 1
If RetEsito = "Cinqina" Then ColoreTesto 3
If RetEsito = "Cinqina" Then cinq = cinq + 1
If RetEsito = "Cinqina" Then tc = tc + 1
Call Scrivi(idestr & " - " & Format2(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
ColoreTesto 0
End If
Next
Scrivi
End If
Next
If ScriptInterrotto Then Exit Sub
Next
End Sub

 

[salvo50]

Ciao Byron

Option Explicit
Sub Main
   Dim kk,estra,ambo,terno,quat,cinq,riga,idestr
   Dim te,ta,tte,tq,tc
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Casi
   Dim Spia1,Spia2,A,B,K
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = 4100
   Spia1 = CInt(InputBox("Inserisci la 1ª Spia",Salvo50,15))
   Spia2 = CInt(InputBox("Inserisci la 2ª Spia",Salvo50,15))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare?",Salvo50,18))
   Call ScegliNumeri(aNum)
   Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi Space(12) & "PER BYRON 2 SPIE PER LUNGHETTA - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      For R1 = 1 To 10
         For R2 = R1 + 1 To 12
            If R2 = 11 Then R2 = 12
            For P1 = 1 To 5
               A = Estratto(Es,R1,P1)
               B = Estratto(Es,R2,P1)
               If A = Spia1 And B = Spia2 Then
                  Casi = Casi + 1
                  Scrivi String(89,"=") & " Casi Totali " & FormattaStringa(Casi,"0000"),1
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0,,1
                  Scrivi " " & SiglaRuota(R1) & " ",1,0
                  For P2 = 1 To 5
                     E1 = Estratto(Es,R1,P2)
                     If E1 = A 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,,1
                  Scrivi " " & SiglaRuota(R2) & " ",1,0
                  For P3 = 1 To 5
                     E2 = Estratto(Es,R2,P3)
                     If E2 = B Then
                        ColoreTesto 2
                     Else
                        ColoreTesto 0
                     End If
                     Scrivi Format2(E2) & " ",1,0
                     ColoreTesto 0
                  Next
                  Scrivi
                  Scrivi String(60,"-")
                  Scrivi " In gioco [ " & StringaNumeri(aNum) & " ]",1
                  Scrivi
                  kk = 0 : estra = 0 : ambo = 0
                  terno = 0 : quat = 0 : cinq = 0 :
                  For idestr = Es + 1 To Es + Clp
                     kk = kk + 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(kk) & "° - " & RetEstratti & " - " & RetEsito & " " & vbTab & GetInfoEstrazione(RetId),1)
                        ColoreTesto 0
                     End If
                  Next
                  Scrivi
               End If
            Next
         Next
      Next
      If ScriptInterrotto Then Exit Sub
   Next
End Sub

 

[sorujoe]

GRAZIE Amico mio

 

[lla]

ciao Salvo

gentilmente si può modificare in modo da poter fare dei calcoli a seguito della scelta delle 2 spie?
invece di inserire dei numeri e verificare l'esito inserire per esempio come calcolo la somma delle 2 spie e poi vedere il resoconto normale ?

calcolo:
spia1+spia2

col solito ..imposta giocata..gioca es , scrivi resoconto ..fine


grazie