Per Salvo50

[sorujoe]

Ciao Salvo ti chiedo gentilmente questo script
a me servirebbe impostare su 2 ruote determinate un numero su di una e un altro sull'altra (possono essere anche un ugual numero) ISOTOPO.
Poi inserisco una o due ambate e una lunghetta per ambo.
Esempio
Bari estratto da spiare 12 ISOTOPO Milano 12 casi spia: tutto l'archivio capo gioco da analizzare 20-61 (questo devo immetterlo io e puo essere anche 1 solo) lunghetta per ambo 20-61-55-68-87-88-89 (massimo 15 numeri) ....colpi 18 impostabili.
Lo script mi deve fare la situazione indicandomi le vincite e eventuali negativi
Thanks

 

[salvo50]

Ciao a Tutti.

Ciao Byron, non sono sicuro d'aver capito tutto.

 Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50
   Dim R1,R2,P1,P2,P3,E1,E2,Caso,Casi
   Dim Spia1,Spia2,A,B,Sorte
   Dim RetEsito,RetColpi,RetEstratti,RetId
   Dim Ruo(2)
   ReDim aNum(20)
   FIn = EstrazioneFin
   Ini = CInt(InputBox("Inserisci l'estrazione che vuoi iniziare",Salvo50,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)
   Sorte = CInt(InputBox(" Per quale sorte? (1 = Ambata) (2 = Ambo) ecc... ",Salvo50,2))

   Call ScegliRange(Ini,FIn,Ini,FIn)
   ReDim at(8)
   at(1) = " data estraz. INIZIO  "
   at(2) = " Ruote "
   at(3) = " Max Colpi "
   at(4) = " Numeri in Gioco "
   at(5) = " Esito "
   at(6) = " Al Colpo "
   at(7) = " Estratti Usciti "
   at(8) = " Data estraz. Fine "
   Call InitTabella(at,4,,2)
   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
      Caso = 0
      For P1 = 1 To 5
         A = Estratto(Es,R1,P1)
         B = Estratto(Es,R2,P1)
         If A = Spia1 And B = Spia2 Then
            Call VerificaEsito(aNum,Ruo,Es + 1,Sorte,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 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
            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
            ReDim av(8)
            av(1) = GetInfoEstrazione(Es)'DataEstrazione(Es)
            av(2) = NomeRuota(R1) & " - " & NomeRuota(R2)
            av(3) = Clp
            av(4) = StringaNumeri(aNum," ",True)
            av(5) = RetEsito
            av(6) = RetColpi
            av(7) = RetEstratti
            If RetEsito = "" Then av(8) = " esito non verificato "
            If RetEsito <> "" Then av(8) = DataEstrazione(RetId)
            Call AddRigaTabella(av,,,2)
         End If
      Next
      If ScriptInterrotto Then Exit Sub
   Next
   CreaTabella
End Sub

 

[sorujoe]

Ho visto lo script e ti ringrazio
non capisco come mai mi chiede 2 volte quanti colpi voglio giocare
di un esempio col 15 isotopo ha trovato 4 casi ma mi mette il riepilogo solo di 1

 

[sorujoe]

Se ci sono vincite multiple le deve far vedere tutte non fermarsi al primo sfaldamento

 

[sorujoe]

se potessi mettere anche le ambate e avere il report per ambata e lunghetta rispettivamente sarebbe il massimo

 

[salvo50]

Prova adesso, ci sono tutti e quattro

Se ci sono vincite multiple le deve far vedere tutte non fermarsi al primo sfaldamento

Dovrebbe essere già così

se potessi mettere anche le ambate e avere il report per ambata e lunghetta rispettivamente sarebbe il massimo

cioè vorresti le due cose contemporaneamente, l'avevo intuito, ma non ci sono riuscito, chiediamo aiuto a Joe

 

[sorujoe]

OK speriamo che Joe si sintonizzi su questo post