Alla cortese attenzione di Salvo50

[sorujoe]

Ciao Salvo potresti realizzarmi questo script???
Indico 1 ruota che è solo di calcolo; un numero su essa sortito e la posizione
Poi indico le 2 ruote di gioco "compresa la Nazionale che non è fissa ma deve essere selezionabile" (....1 ruota potrebbe essere in comune con quella di calcolo ma non è sempre cosi) e una lunghetta di massimo 10 numeri.
Il software deve indicarmi le vincite sulle ruote di gioco della lunghetta dall'ambata in poi e le posizioni in cui sono sortiti i numeri vincenti; i colpi di gioco e data di inizio dello script in genere io metto concorso 8.117 (cioè range venus)

Mettiamo caso un output del genere dove vincente sia ipotesi il 66:
.. .. .. 66 .. cosi capirei che il 66 è sortito in 4a posizione.
Ti ringrazio in anticipo e attendo tua.

 

[salvo50]

Ciao a Tutti.

Option Explicit
Sub Main
   Dim FIn,Es,Ini,Clp,Salvo50,Spia
   Dim R,R1,R2,P,Po,E,A,Casi
   Dim Ru1(1),Ru2(1),aNum(10),Posta(5)
   FIn = EstrazioneFin
   Ini = InputBox("INSERISCI L'ESTRAZIONE DI INIZIO",,8117)
   R = InputBox("INSERISCI RUOTA DI CALCOLO",,2)
   Spia = CInt(InputBox("INSERISCI AMBATA SPIA",,27))
   Po = CInt(InputBox("INSERISCI POSIZIONE DELL'AMBATA SPIA",,2))
   R1 = InputBox("INSERISCI LA 1a RUOTA DI RICERCA LUNGHETTA",,5)
   R2 = InputBox("INSERISCI LA 2a RUOTA DI RICERCA LUNGHETTA",,12)
   If R1 <> R2 Then
   Call ScegliNumeri(aNum)
   Clp = CInt(InputBox("VERIFICA ESITO IN COLPI? ",,13))
   'Call ScegliRange(Ini,FIn,Ini,FIn)
   Scrivi "PER SORUJOE - RUOTA, AMBATA E POSIZIONE PER LUNGHETTA - SCRIPT SALVO50 ",1,,4,,3,,1
   Posta(1) = 1 : Posta(2) = 1 : Posta(3) = 1 : Posta(4) = 1 : Posta(5) = 1
   Ru1(1) = R1 : Ru2(1) = R2
   For Es = Ini To FIn
      Messaggio Es
      AvanzamentoElab Ini,FIn,Es
      A = Estratto(Es,R,Po)
      If A = Spia Then
         Casi = Casi + 1
         Scrivi String(112,"*") & " Caso " & FormattaStringa(Casi,"0000"),1,,,1
         Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
         Scrivi " " & SiglaRuota(R) & " ",1,0
         For P = 1 To 5
            E = Estratto(Es,R,P)
            If E = A Then
               ColoreTesto 2
            Else
               ColoreTesto 0
            End If
            Scrivi Format2(E) & " ",1,0
            ColoreTesto 0
         Next
         Scrivi "  <-- Ruota, Numero e Posizione Scelte",1,,,2
         Scrivi
         Scrivi " Numeri Scelti Da Cercare ",1,0
         Scrivi StringaNumeri(aNum," ",True),1,,,2
         Scrivi
         Scrivi " Ruote Scelte Per Ricerca Numri Scelti     " & NomeRuota(R1) & " e " & NomeRuota(R2),1
         Scrivi
         ImpostaGiocata 1,aNum,Ru1,Posta,Clp
         ImpostaGiocata 2,aNum,Ru2,Posta,Clp
         Gioca Es,,,1
      End If
      If ScriptInterrotto Then Exit Sub
   Next
   ScriviResoconto
   Else
   Scrivi " ERRORE, HAI SCELTO PER LA RICERCA, 2 RUOTE UGUALI ",1,,4,2,6,,1
   End If
End Sub

 

[sorujoe]

Grazie MITIKO