Per Salvo50 o Rubino AIUTO o altro scripter

[sorujoe]

Chiedo gentilmente questi 2 script

il 1°
Indico la figura su una ruota del 1°, del 2° estratto
Lo script mi rintraccia tali casi e del pronostico che inserisco io (per estratto ambo e superiori) deve fare lo spoglio sulle 2 ruote da me indicate per i colpi da me voluti.

il 2°
Indico la figura su una ruota del 1°, del 2° e del 3° estratto
Lo script mi rintraccia tali casi e del pronostico che inserisco io (per estratto ambo e superiori) deve fare lo spoglio sulle 2 ruote da me indicate per i colpi da me voluti.

Grazie

 

[sorujoe]

Esempio Primo script
Metto Bari 1° estratto deve essere figura 2 secondo estratto figura 5
Rintracciato ciò giocherò sulle 2 ruote da me selezionate per i colpi da me voluti ....tali numeri MAX 10 spoglio in un unico report per ambata e superiori per il range da me impostato ...quindi dal concorso ...al concorso.

Esempio Secondo script
Metto Bari 1° estratto deve essere figura 2 secondo estratto figura 5 Terzo estratto figura 9
Rintracciato ciò giocherò sulle 2 ruote da me selezionate per i colpi da me voluti ....tali numeri MAX 10 spoglio in un unico report per ambata e superiori per il range da me impostato ...quindi dal concorso ...al concorso.

 

[sorujoe]

Non c'è nessuno?

 

[sorujoe]

GRAZIE HO RISOLTO ALLA PROSSIMA

 

[Mike58]

Anche se ultimamente non ho tempo e neanche voglia, lo script è abbastanza semplice da listare e visto la richiesta su + fronti, ti posto la mia soluzione del 1 script.

Poi ci dici quali numeri e quale Ruote sono per te valide ai fine di un buon pronostico.

P.s. da domani non ci sono quindi non fate richieste ulteriori e nuove richieste.

Sub Main
   Dim Nu(2),Ru(1),pos(2),fig(2),posta(5)

   Ini = EstrazioneFin - 600
   fin = EstrazioneFin
   '................................................
   r = CInt(InputBox ("QUALE RUOTA RLEVO AMBO","RUOTA",1))
   f1 = CInt(InputBox("QUALE FIGURA 1 Estratto",,2))
   f2 = CInt(InputBox("QUALE FIGURA 2 Estratto",,5)) ' figura 5
   p1 = CInt(InputBox("QUALE POSIZIONE ANALIZZO 1 ESTRATTO",,1))
   p2 = CInt(InputBox("QUALE POSIZIONE ANALIZZO 2 ESTRATTO",,2))
   colpi = CInt(InputBox("QUANTI COLPI DI GIOCO","COLPI",10))
   sorte = CInt(InputBox("SORTE DI VERIFICA","SORTE",1))
   '................................................
   pos(1) = p1
   pos(2) = p2
   fig(1) = f1
   fig(2) = f2
   posta(sorte) = 1
   ReDim aNum(0)
   ReDim aR(0)
   ScegliNumeri(aNum)
   ScegliRuote(aR)
   For es = Ini To fin
      a = Estratto(es,r,p1)
      b = Estratto(es,r,p2)
      If Figura(a) = f1 And Figura(b) = f2 Then
      k = k + 1
         Nu(1) = a
         Nu(2) = b
         Scrivi GetInfoEstrazione(es) & vbTab & StringaNumeri(Nu) & vbTab & SiglaRuota(r),1
         Scrivi "Condizione Rilevata ambo in Figura : " & StringaNumeri(fig) & "  Su Estratti in posiz. " & StringaNumeri(pos)
         Scrivi "Numeri scelti in Gioco : " & StringaNumeri(aNum) & " Su Ruote " & StringaRuote(aR),1,0,,1

         Scrivi
         For ess = es + 1 To es + colpi
            Call VerificaEsito(aNum,aR,ess,sorte,1,,esito,clp,es1,id)
            If esito <> "" Then Scrivi GetInfoEstrazione(id) & vbTab & es1 & vbTab & " Colpo : " & ess - es & vbTab & esito
            If esito = "" And ess <= fin Then Scrivi GetInfoEstrazione(ess) & vbTab & "<> .. .. .. .. .. " & vbTab & " Colpo : " & ess - es
            If esito = "" And ess > fin Then Scrivi "-------------------------" & vbTab & "<> .. .. .. .. .. " & vbTab & " Colpo : " & ess - es

         ImpostaGiocata 1,aNum,aR,posta,colpi
         Gioca es,,,,,False
      Next
      Scrivi
      Scrivi "Spesa Giocata............ " & GetSpesa(True)
      Scrivi "Vincita Giocate.......... " & GetVincita(True)
      Scrivi "Utile giocate............ " & GetGuadagno(True)
      spesaTot = spesaTot + GetSpesa(True)
      VincitaTot = VincitaTot + GetVincita(True)
      utileTot = utileTot + GetGuadagno(True)
      Scrivi "Resoconto spesa Totale...................... " & spesaTot,1
      Scrivi "Resoconto vincita Totale.................... " & VincitaTot,1
      Scrivi "Resoconto Utile Totale...................... " & utileTot,1

      Scrivi String(100,"-") & " Caso N. " & k
   End If
Next
End Sub

 

[sorujoe]

Grazie Mike con questo caldo hai ragione a non avere voglia per adesso uso
Dire Grazie è poco gente come te Rubino e Salvo che appreso un linguaggio lo mettono a disposizione del prossimo senza addirittura compensi è un gesto di grande umanità. Grazie ancora. Per ora uso questo se la ricerca da un esito interessante vado avanti altrimenti la cestino.
Grazie Ancora