Ciao,questo metodo...

[Missione Impossibile.]

Ho trovato questo metodo nei miei appunti,di molti anni fa,ma non ricordo se era su tutte con il capogioco,oppure sulle ruote di rilevamento.Chiedo uno script dal 1° del mese,e la verifica su tutte,e su quale ruote si e'sempre verificato l'esito per ambo,terno ecc...Grazie.

scrivo come e' scritto:
+2° Cagliari -46 vert +2°Venezia x4°torino (capogioco)
abbinamenti:
+2° Cagliari -46 vert +2°Venezia x4°torino +14
+2° Cagliari -46 vert +2°Venezia x4°torino +3°cagliari
+2° Cagliari -46 vert +2°Venezia x4°torino +1° firenze

 

[toon]

Io ci ho provato, non so se va bene, non sono uno scripter, ma provalo...

Sub Main()
ColoreTesto 2
   Scrivi
   Scrivi "Quartina  su CA-FI Prima estrazione mensile",1
   Scrivi
   Scrivi
   Scrivi " per  batter",1
   Scrivi
   ColoreTesto 0
   Dim ruote(5)
   Dim t1(4): Dim t2(4):Dim poste(3)
   poste(2) = 1
   poste(3) = 1
   clp = 15
   ini = 9300
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
          ruote(1) = 2
          ruote(2) = 3
          'ruote(3) = 11
         casi = casi + 1
         co = co + 1
         ColoreTesto 7:Scrivi String(100,"-") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "==>" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"-")
         ColoreTesto 0
         t1(1) = Fuori90(Estratto(es,2,2) - 46)
         t1(2) = Fuori90(Estratto(es,2,2) - 46)
         t1(3) = Fuori90(Estratto(es,2,2) - 46)
         t1(4) = Fuori90(Estratto(es,2,2) - 46)
         t2(1) = Fuori90(Vert(t1(1)) + Estratto(es,10,2) * Estratto(es,9,4))
         t2(2) = Fuori90(Vert(t1(2)) + Estratto(es,10,2) * Estratto(es,9,4) + 14)
         t2(3) = Fuori90(Vert(t1(3)) + Estratto(es,10,2) * Estratto(es,9,4) + Estratto(es,2,3))
         t2(4) = Fuori90(Vert(t1(4)) + Estratto(es,10,2) * Estratto(es,9,4) + Estratto(es,3,1))
         EliminaRipetuti t2
         ImpostaGiocata 1,t2,ruote,poste,clp,4
         Gioca es,1
      End If
   Next
   ScriviResoconto
End Sub

 

[Missione Impossibile.]

Grazie mille Toon,sei stato molto gentile funziona bene.Se volessi fare una verifica su tutte le ruote,come dovrei fare?

 

[Missione Impossibile.]

Ok trovato 'ruote(3) = 11 Grazie!!!
giusto?

 

[toon]

Ripeto, io non sono uno scripter, ci provo, ma sono contento che almeno funzioni..